XProfan

Français

Salut,

alors eh bien là je oui déjà un peu plus suis avec meinem Programme habe je ici encore qui kleine difficulté den Taster alors per Mousepressed avec dem Rolltor trop verknüpfen. Bedeutet je veux cela Rolltor per Taster (mais seulement solange il gedrückt wird) hoch et runterfahren laisser, sobald on qui bouton loslässt soll cela Tor mais stehen rester.
Kompilieren Marque Séparation

Window 1,1 - 1024,768
cls
declare hBild1&,hBild2&,hBild3&,hBild4&,hBild5&,hBild6&,hBild7&,hBild8&\
,hBild9&,hBild10&,hBild11&,hBild12&,hBild13&,hBild14&,hBild15&,hBild16&

Proc BMP

    hBild1&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tagn0.BMP")
    hBild2&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tagn1.BMP")
    hBild3&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tart0.BMP")
    hBild4&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tart1.BMP")
    hBild5&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\nota1.BMP")
    hBild6&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\trt1.BMP")
    hBild7&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\trt0.BMP") ;Störungsleuchte ein
    hBild8&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tabl0.BMP")
    hBild9&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tge0.BMP")
    hBild10& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tgn1.BMP")
    hBild11& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\sertar1.BMP")
    hBild12& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\sertar0.BMP")
    hBild13& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\objekte\\druckzr.BMP")
    hBild14& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\objekte\\emotl1.BMP")
    hBild15& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\lichtschr.BMP")
    hBild16& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\objekte\\rolltor.BMP")

Endproc

Proc BMP1

    roundrect 600,130-500,300;30,30
    rectangle 1,290-200;0
    DrawSizedPic hBild1&,40,50 - 30,30;0
    DrawSizedPic hBild1&,40,210 - 30,30;0
    DrawSizedPic hBild1&,40,170 - 30,30;0
    DrawSizedPic hBild1&,40,250 - 30,30;0
    DrawSizedPic hBild3&,40,130 - 30,30;0
    DrawSizedPic hBild3&,40,10 - 30,30;0
    DrawSizedPic hBild5&,120,10 - 30,30;0
    DrawSizedPic hBild8&,120,50 - 30,30;0
    DrawSizedPic hBild6&,120,130 - 30,30;0
    DrawSizedPic hBild9&,120,170 - 30,30;0
    DrawSizedPic hBild10&,120,210 - 30,30;0
    DrawSizedPic hBild10&,225,125 - 30,30;0
    DrawSizedPic hBild10&,225,215 - 30,30;0
    DrawSizedPic hBild6&,225,305 - 30,30;0
    DrawSizedPic hBild12&,255,305 - 30,30;0
    DrawSizedPic hBild11&,255,215 - 30,30;0
    DrawSizedPic hBild12&,255,125 - 30,30;0
    DrawSizedPic hBild13&,420,305 - 30,30;0
    DrawSizedPic hBild14&,420,120 - 40,40;0
    DrawSizedPic hBild15&,390,350 - 30,30;0
    rem DrawSizedPic hBild16&,270,130 - 160,220;0
    DrawSizedPic hBild3&,510,140 - 30,30;0
    DrawSizedPic hBild1&,510,180 - 30,30;0
    DrawSizedPic hBild1&,510,220 - 30,30;0
    DrawSizedPic hBild1&,510,260 - 30,30;0

Endproc

Proc Texte

    Locate 2,2
    Print "Aus"
    Locate 5,2
    Print "Ein"
    Locate 8,5
    Print "Anlage"
    Locate 12,2
    Print "STOP"
    Locate 15,2
    Print "AUF"
    Locate 18,2
    Print "HALB"
    Locate 21,2
    Print "ZU"
    Locate 23,6
    Print "Tor"
    Locate 2,10
    Print "Notaus"
    Locate 5,10
    Print "verriegelt"

endproc

rem Ausführung der Prozeduren
BMP
BMP1
Texte

Proc Taster1

    While %mousepressed

        DrawSizedPic hBild2& ,40 , 50 - 30, 30; 0

    EndWhile

    DrawSizedPic hbild1& ,40 , 50 - 30, 30; 0

Endproc

Proc Rolltor

    mLoadBmp "D:\\Xprofan\\BMP\\Objekte\\rolltor.BMP"
    startPaint -1
    usepen 0,0,$FFFFFF
    line 0,181 - 127,181
    endPaint

endproc

Proc Torzu

    whileLoop 182,0,-1

        mCopyBmp 0,&loop - 127,182 > 290,140 ; 0
        sleep 30

    wend

endproc

Proc Torauf

    Taster1

    whileLoop 182

        mCopyBmp 0,&loop - 127,182 > 290,140 ; 0
        sleep 30

    wend

endproc

Rolltor
Torzu
Torauf

While 1

    waitinput

    if @Mouse (40,50 - 30,30)

        offset%=0
        Taster1

    Elseif @Mouse (40,50 - 30,90)

        offset%=50
        Taster1

    Elseif @Mouse (40,50 - 30,140)

        offset%=100
        Taster1

    Elseif @Mouse (10,0 - 30,190)

        offset%=150
        Taster1

    else

        @Mouse (10,160 - 30,190)
        Break

    Endif

Endwhile

Proc Rolltor

    mLoadBmp "D:\\Xprofan\\BMP\\Objekte\\rolltor.BMP"
    startPaint -1
    usepen 0,0,$FFFFFF
    line 0,181 - 127,181
    endPaint

endproc

Proc Torzu

    whileLoop 182,0,-1

        mCopyBmp 0,&loop - 127,182 > 100,100 ; 0
        sleep 30

    wend

endproc

Proc Torauf

    waitInput

    whileLoop 182

        mCopyBmp 0,&loop - 127,182 > 100,100 ; 0
        sleep 30

    wend

endproc

Rolltor
 href='./../../references-fonction/XProfan/torzu/'>Torzu
Torauf
end

schalter.rar	921 kB

Version:	11

Kurzbeschreibung:	Bitmaps pour cela Programme

Hochgeladen:	22.06.2011

Downloadcounter:
		Download

22.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Im Endeffekt muss je arrêt savons comment je am besten qui prozeduren alors qui Taster et cela Tor miteinander verknüpfe. si je cela avec mouseclicked ou bien @mouse usw. versuchen soll, es wäre joli si mir quelqu'un un kleines Beispiel bricoler pourrait

22.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

simple so:
Kompilieren Marque Séparation

cls
declare torhoehe&
var tor&=createText(%hWnd,"Tor",0,0,0,0)

while 1

    waitinput 10

    if external("user32","GetAsyncKeyState",1)

        case torhoehe&<100 : inc torhoehe&

    else

        case torhoehe& : dec torhoehe&

    endif

    setWindowPos tor&=10,10 - 100,torHoehe&;0

Wend

22.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

si Du maintenant beide Maustasten verwendest, funktioniert es comment gewünscht:
Kompilieren Marque Séparation

cls
declare torhoehe&
var tor&=createText(%hWnd,"Tor",0,0,0,0)

while 1

    waitinput 10

    if external("user32","GetAsyncKeyState",1)

        case torhoehe&<100 : inc torhoehe&

    Elseif external("user32","GetAsyncKeyState",2)

        case torhoehe& : dec torhoehe&

    endif

    setWindowPos tor&=10,10 - 100,torHoehe&;0

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

22.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

ou bien avec IsKey: Kompilieren Marque Séparation cls declare torhoehe& var tor&=createText(%hWnd,"Tor",0,0,0,0) while 1 waitinput 10 torhoehe&=range(torhoehe&+iskey(1)1+iskey(2)-1,0,100) setWindowPos tor&=10,10 - 100,torHoehe&;0
	22.06.2011 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ici peux on et avec ca Rechenarbeit sparen:
Kompilieren Marque Séparation

torhoehe&=range(torhoehe&+iskey(1)-iskey(2),0,100)

pourquoi ca va pas avec den Keycodes pour "+" et "-"? avec a et b geht's...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

22.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi, hehe et merci. Sollte auparavant bevor je cela bearbeite erstmal cela Programme à sich un peu übersichtlicher gestalten

je muss dire habe toutefois avec Xprofan mon Schwierigkeiten, je werde mich nebenbei encore un peu avec C# Visual Studio beschäftigen, peut-être liegt mir cela simple plus

23.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ausser cela on avec cela Formulare joli zusammenklicken peux ist alles autre eigentlich seulement umständlicher comme avec XProfan. cela Tor et qui Contrôle hättest z.B. dans Minuteur auslagern doit et so wird z.B. aus scheinbar "einfachem Handling" vite übler unzusammenhängender Code.

23.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Oha, deswegen blockier je mich là so

hm hm Minuteur, la fois Aider befragen^^ mais merci, toutefois finde je qui belle Kontext-Funktion qui Befehle a la Excel très joli dans VS C#, hilft ungemein plus

mais versuche eh bien la fois den Minuteur là avec einzubinden dans Profan et la fois regarder, werde wahrscheinlich cela Prog ensuite nochmal récente écrivons, là qui übersichtlichkeit aufgrund qui Masse déjà pas plus gegeben ist. je trouve Profan arrêt quelquefois dans qui Syntax droite komplex

23.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

alors um cela ganze la fois trop verkleinern peux je qui untere Procédure aussi mittels Boucle trop einer kleineren zusammenfassen dans qui il sich toujours wieder qui Bilder bedient? sans le moi maintenant comment auparavant chaque einzelne Bild récente lade?
Kompilieren Marque Séparation

Proc BMP

    hBild1&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tagn0.BMP")
    hBild2&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tagn1.BMP")
    hBild3&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tart0.BMP")
    hBild4&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tart1.BMP")
    hBild5&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\nota1.BMP")
    hBild6&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\trt1.BMP")
    hBild7&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\trt0.BMP") ;Störungsleuchte ein
    hBild8&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tabl0.BMP")
    hBild9&  = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tge0.BMP")
    hBild10& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\tgn1.BMP")
    hBild11& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\sertar1.BMP")
    hBild12& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\sertar0.BMP")
    hBild13& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\objekte\\druckzr.BMP")
    hBild14& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\objekte\\emotl1.BMP")
    hBild15& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\Schalter\\lichtschr.BMP")
    hBild16& = @create ("HPic",-1,"D:\\Xprofan\\BMP\\objekte\\rolltor.BMP")

ENDPROC

23.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

je serait à Deiner Stelle seulement un ou bien deux Bilder verwenden.
qui entier simple variante wäre ensuite so:
Kompilieren Marque Séparation

Declare bmp$,hBmp&,stBmp&
bmp$ = "Tor.bmp"
hBmp& = Create("hPic",-1,bmp$)
cls
declare torhoehe&
var tor&=Create("Bitmap",%hWnd,hBmp&,0,0,0,0)

while 1

    waitinput 10
    torhoehe&=range(torhoehe&+iskey(1)*1+iskey(2)*-1,0,100)
    setWindowPos tor&=10,10 - 100,torHoehe&;0

tor.bmp	3 kB

Hochgeladen:	23.06.2011

Downloadcounter:
		Download

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

23.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ok alles bien sûr, oui cela Problem ist cela wir pour un réel Rolltor arrêt qui Schalttafel kopiert avons um cela Ganze später am PC per SPS fernsteuern trop peut. Daher sommes aufgrund qui Taster et Sensoren etc. qui ganzen Bilder nötig.

et par mon "spezielle" Übersichtlichkeit ist cela pas entier sooo simple

mais je werde mir cela juste nochmal anschauen, car avec c# habe je déjà dans 5min nen calculette gebastelt sur plusieurs Methoden.
pouvoir Spass, Xprofan ist dagegen naturellement komplexer,alors finde je zumindest....

23.06.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

12 3

►