Foro | | | | | | - Página 1 - |
|  | ¡Hola,
also nun como Yo sí ya una wenig más bin con mi Programa Yo hier todavía el kleine Schwierigkeit el Taster also por Mousepressed con el Rolltor a verknüpfen. Bedeutet Yo voluntad el Rolltor por Taster (aber sólo solange él gedrückt se) hoch y runterfahren dejar, sobald uno el Taste loslässt se el Tor aber posición bleiben.
KompilierenMarcaSeparaciónWindow 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 | | | Versión: | 11 | | | Kurzbeschreibung: | Bitmaps para el Programa | | | Hochgeladen: | 22.06.2011 | | | Ladeanzahl: |  | | | Descargar |
| | | | | | |
| | | | | | | - Página 2 - |
| 
Jörg
Sellmeyer | Was se porque el ser?
KompilierenMarcaSeparación
sólo nun zeigt él me sólo el Komplettbild
Como hättest Usted lo porque gern? Erst el Tor runterfahren y luego el Bild Mostrar?
Im Moment schnall Yo nada mehr, qué Usted erreichen willst. Und el el Schalttafel así aussieht, como en el Bild verstehe Yo auch no. Was debería esta komischen metallischen Dinger? |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 24.06.2011 ▲ |
| | |
| | | Hey, el war nen Ejemplo wo sólo una graues tor con Schriftzug "Tor" geöffnet wurde. So siehts mejor de doch denke Yo mache Todavía qué falso con el Mapa de bits 
KompilierenMarcaSeparaciónWindow 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
|
| | | | | | |
| | | Das Programa se por Taster (el runden Knöpfe links y rechts) bedient voluntad puede, also sprich si du el Taster loslässt restos Tor posición, el metallischen Dinger son Sensoren el auch al echten Tor sitzen, sobald el Tor el Position uno Sensors(LED) passiert leuchtet el Sensor kurz en. Desweiteren son el otro runden Objetos Kontrollleuchten el Mostrar si geöffnet,eingeschaltet es oder una Störung meldet.
El Codeschnipsel son una wenig wirr en el Posts, como Todavía para mich el beste Variante rausfinden möchte.
Soweit tan bueno, Tor fährt sólo mach Todavía algo con el Mapa de bits des Tores falso.... |
| | | | | | |
| | | | Und nein él se sólo el Komplettbild Mostrar y en el Bild entonces el Tor herunterfahren Bin como en el mom sólo bissl verwirrt,aber el es el Ziel Und sobald el entonces con el Tastern en y a funktioniert kann Yo mich sin Probs el Sensoren y Kontrolleuchten widmen. |
| | | | | | |
| |
Jörg
Sellmeyer | | Como Yo ya geschrieben hatte: Wenn el Muster en el Torbitmap perpendicular son, es el todo problemlos así a regeln. Si el Muster wagerecht es y todavía zusätzliche Muster ha, se lo schwieriger. Usted puede entonces el Bild ausschnittweise (angepaßt a el jeweilige Größe des Controls) de el Speicherbitmap en el Static-Control reinkopieren. Noch mejor: Usted legst Usted una Array con el Handles a ca 100 Torzuständen a y "spielst" el entonces sozusagen de. |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.06.2011 ▲ |
| | |
| | | ah alles klar, dadurch kommen sólo el Schlieren  naja nu es feierabend, Que hago mich zuhause veces ran Gracias otra vez |
| | | | | | |
| |
Jörg
Sellmeyer | Usted hast auch todavía una Fehler en hSizedPic:
KompilierenMarcaSeparaciónhBmp& = Create("hSizedPic",-1,bmp$,515,205 - 328,240)>
Lo darf kein Bindestrich drin ser y es una Parámetro a viel drin.
@Crear("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 | Yo versteh ahora, qué Usted vorhin así meintest, daß el Tor vorher a sehen es.
Eigenartigerweise se el Staticcontrol siempre sólo adecuado, auch si la Größen en Null posición:
KompilierenMarcaSeparaciónhBmp& = Create("hPic",-1,bmp$)',0,0 ,0)
var tor&=@Create("bitmap",%hWnd,hBmp&,0,0,0,0)e>
Tal vez todavía una Bug en XProfan?
Lo hilft, si lo así machst:
KompilierenMarcaSeparación
Also weit aushalb des sichtbaren Bereichs redactar. |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 24.06.2011 ▲ |
| | |
| | | | Hi, y oha Gracias naja wenns nen bug es tener Yo wenigstens qué ausgemerzt.... Sí el con el Bild stört gewaltig aber außerhalb des Bereichs es perfekt. |
| | | | | | |
| | | | | | - Página 3 - |
| |  | Ob el una Bug es puede ser sehen cómo voluntad -
es zwar Windows en el solchem Control el Control wohl siempre primero en Bildgröße producido aber möglicherweise XProfans Tarea el XProfan de diesem "Problem" fernzuhalten. |
| | | | | | |
| | 
RGH | ¡Hola,
lo sei me el Referencia gestattet, dass create("Mapa de bits", Fensterhandle&, Bitmaphandle&, x%, y%) sólo esta vier Parámetro ha y el Control siempre el Größe el Mapa de bits ha.
Saludo
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 - wer lesen kann es klar en el Vorteil... |
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 28.06.2011 ▲ |
| | |
|
RespuestaTema opciones | 11.152 Views |
ThemeninformationenDieses Thema ha 5 subscriber: |
(168)
Deutsch
English
Français
Español
Italia