Forum | | | | | | - 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éparationWindow 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
|
 | | | | | | |
| | | | | | | - page 2 - |
| 
Jörg
Sellmeyer | quoi soll car cela son?
KompilierenMarqueSéparation
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éparationWindow 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
|
| | | | | | |
| | | 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.... |
| | | | | | |
| | | | 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. |
| | | | | | |
| |
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 |
| | | | | | |
| |
Jörg
Sellmeyer | tu as aussi encore une faute dans hSizedPic:
KompilierenMarqueSéparationhBmp& = 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éparationhBmp& = 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
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. |
| | | | | | |
| | | | | | - page 3 - |
| |  | si cela un Bug ist peux on voyons comment on veut -
c'est zwar Windows cela chez solchem Contrôle cela Contrôle wohl toujours erstmal dans Bildgröße erzeugt mais möglicherweise XProfans devoir den XProfaner de diesem "Problem" fernzuhalten. |
| | | | | | |
| | 
RGH | Salut,
es sei mir qui Hinweis gestattet, dass create("Bitmap", Fensterhandle&, Bitmaphandle&, x%, y%) seulement cet quatre paramètre hat et cela Contrôle toujours qui Taille qui Bitmap hat.
Salut
Roland |
| | | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 28.06.2011 ▲ |
| | |
| |
Jörg
Sellmeyer | | Oha - qui lesen peux ist bien sûr im Vorteil... |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.06.2011 ▲ |
| | |
|
répondreOptions du sujet | 9.274 Views |
Themeninformationencet Thema hat 5 participant: |
(496)
Deutsch
English
Français
Español
Italia