(456)  S'inscrire

Français
Forum

Tasterfunktion avec Rolltor verknüpfen

 
- page 1 -


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.
KompilierenMarqueSé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

921 kB
Version:11
Kurzbeschreibung: Bitmaps pour cela Programme
Hochgeladen:22.06.2011
Downloadcounter: 88
Download
 
22.06.2011  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -



Jörg
Sellmeyer
mais pour qui Schalttafel brauchst Du doch aussi seulement un Bild, ou bien? ou bien ist chacun Knopf sur qui Schalttafel aussi encore dans deux États vorhanden?
aussi là reicht jeweils qui gedrückte Zustand, qui ensuite sur cela Gesamtbild gelegt wird.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.06.2011  ▲
 



hm hm, alors on a komplett alles dans 2 États, jeden Taster,Sensor usw. alles comme BMP et en supplément encore une Komplettansicht et qui soll je ensuite verwenden? alors so gesehen seulement qui gedrückten Taster par-dessus poser?

je füg qui la fois à qui Bilder avec cela cela bissl verständlicher ist.

977 kB
Version:11
Kurzbeschreibung: Pics
Hochgeladen:23.06.2011
Downloadcounter: 80
Download
 
23.06.2011  ▲
 



alors bien, habe cela maintenant la fois so versucht, seulement eh bien zeigt il mir seulement cela Komplettbild et ensuite peux je cela la fenêtre comme Tor hoch et runter aller Komisch pourquoi liegt mir c# besser......
KompilierenMarqueSéparation
Window 1,1 - 1024,768
cls
declare torhoehe&,hBild1&
hBild1&  = @create ("HPic",-1,"C:\\Bmp\\komplett.BMP")
rem mcopybmp 0,0 - 1024,768 > 0,0 ;0
DrawSizedPic hBild1&,0,0 - 1024,768;0
var tor&=(%hWnd,"Tor",0,0,0,0)
waitinput

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&=450,450 - 768,torHoehe&;0

Wend

1.837 kB
Version:11
Kurzbeschreibung: Bild
Hochgeladen:24.06.2011
Downloadcounter: 108
Download
 
24.06.2011  ▲
 




Jörg
Sellmeyer
quoi soll car cela son?
KompilierenMarqueSéparation
var tor&=(%hWnd,"Tor",0,0,0,0)
>


seulement eh bien zeigt il mir seulement cela Komplettbild


comment hättest Du es car gern? seulement cela Tor runterfahren et ensuite cela Bild Montrer?
Im Moment schnall je gar pas plus, quoi Du erreichen veux. et cela qui Schalttafel so aussieht, comment sur dem Bild verstehe je aussi pas. quoi devoir cet komischen metallischen Dinger?
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
24.06.2011  ▲
 



Hey, cela était nen Beispiel wohin seulement un graues tor avec Schriftzug "Tor" ouvert wurde. So siehts besser aus doch denke je fais je encore quoi faux avec qui Bitmap
KompilierenMarqueSéparation
Window 1,1 - 1024,768
cls
declare torhoehe&,hBild1&,hTor1&,hwin&,bmp$,hBmp&,stBmp&
hBild1&  = @create ("HPic",-1,"C:\\Bmp\\komplett.BMP")
DrawSizedPic hBild1&,0,0 - 1000,700;0
bmp$ = "C:\\Bmp\\Objekte\\rolltor.BMP"
hBmp& = Create("hSizedPic",-1,bmp$,515,205 - 328,240)
var tor&=@Create("bitmap",%hWnd,hBmp&,100,100,100,100)

while 1

    waitinput 10

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

        case torhoehe&<410 : inc torhoehe&

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

        case torhoehe& : dec torhoehe&

    endif

    setWindowPos tor&=515,205 - 328,torHoehe&;0

Wend
 
24.06.2011  ▲
 



cela Programme soll per Taster (qui runden Knöpfe à gauche et à droite) bedient volonté peut, alors sprich si du den Taster loslässt bleibt cela Tor stehen, qui metallischen Dinger sommes Sensoren qui aussi am echten Tor être assis, sobald cela Tor qui Position eines Sensors(LED) passiert leuchtet qui Sensor kurz sur. Desweiteren sommes qui anderen runden Objekte Kontrollleuchten qui Montrer si es ouvert,eingeschaltet ist ou bien une Störung meldet.

qui Codeschnipsel sommes un peu wirr dans den Posts, là je encore pour mich qui beste variante rausfinden voudrais.

Soweit si bien, Tor fährt seulement mach je et avec ca avec qui Bitmap des Tores faux....
 
24.06.2011  ▲
 



et non il soll seulement cela Komplettbild Montrer et im Bild ensuite cela Tor herunterfahren suis là im mom arrêt bissl verwirrt,mais c'est cela but et sobald cela ensuite avec den Tastern sur et trop funktioniert peux je mich sans Probs den Sensoren et Kontrolleuchten widmen.
 
24.06.2011  ▲
 




Jörg
Sellmeyer
comment je déjà geschrieben hatte: si qui Muster sur qui Torbitmap senkrecht sommes, ist cela ganze problemlos so trop régulariser. si cela Muster wagerecht ist et encore zusätzliche Muster hat, wird es schwieriger. tu peux ensuite cela Bild ausschnittweise (ajusté à qui jeweilige Taille des Controls) aus qui Speicherbitmap dans cela Static-Contrôle reinkopieren. encore besser: Du legst Dir un Array avec den Handles trop ca 100 Torzuständen à et "spielst" qui ensuite sozusagen ab.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
24.06.2011  ▲
 



ah alles bien sûr, dadurch venons arrêt qui Schlieren bof nu ist soirée, je mach mich zuhause la fois ran merci nochmal
 
24.06.2011  ▲
 




Jörg
Sellmeyer
tu as aussi encore une faute dans hSizedPic:
KompilierenMarqueSéparation
hBmp& = Create("hSizedPic",-1,bmp$,515,205 - 328,240)
>

Es darf ne...aucune Bindestrich drin son et c'est un paramètre trop viel drin.


@Créer("hSizedPic", N1, S, DX, DY, N2)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
24.06.2011  ▲
 




Jörg
Sellmeyer
je versteh maintenant aussi, quoi Du vorhin avec cela meintest, qui cela Tor auparavant trop voyons ist.
Eigenartigerweise wird cela Staticcontrol toujours seulement angezeigt, aussi si le Größen sur zéro stehen:
KompilierenMarqueSéparation
hBmp& = Create("hPic",-1,bmp$)',0,0 ,0)
var tor&=@Create("bitmap",%hWnd,hBmp&,0,0,0,0)e>

peut-être encore un Bug dans XProfan?
Es hilft, si Du es so fais:
KompilierenMarqueSéparation
var tor&=@Create("bitmap",%hWnd,hBmp&,5000,0,0,0)
>

alors large aushalb des sichtbaren Bereichs erstellen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
24.06.2011  ▲
 



Hi, et oha merci bof wenns nen bug ist hab je wenigstens quoi ausgemerzt.... oui cela avec dem Bild stört gewaltig mais außerhalb des Bereichs ist parfait.
 
28.06.2011  ▲
 



◄►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

9.306 Views

Untitledvor 0 min.
Ernst30.04.2014
ho.schu08.03.2013
RudiB.08.11.2012
Pedro Miguel13.09.2012
plus...

Themeninformationen

cet Thema hat 5 participant:

unbekannt (9x)
Jörg Sellmeyer (9x)
unbekannt (4x)
iF (4x)
RGH (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie