(508)  Registro

Español
Foro

Tasterfunktion con Rolltor verknüpfen

 
- 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ón
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
Versión:11
Kurzbeschreibung: Bitmaps para el Programa
Hochgeladen:22.06.2011
Ladeanzahl: 88
Descargar
 
22.06.2011  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 2 -



Jörg
Sellmeyer
Aber para el Schalttafel Usted necesita doch auch sólo una Bild, oder? Oder es cada Knopf en el Schalttafel auch aún en zwei Zuständen disponible?
Auch como reicht jeweils el gedrückte Zustand, el entonces el Gesamtbild gelegt se.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.06.2011  ▲
 



hm hm, also wir haben komplett alles en 2 Zuständen, cada Taster,Sensor usw. alles como BMP y dazu ni Komplettansicht y el se Yo entonces uso? Also así gesehen sólo el gedrückten Taster darüber legen?

Yo füg el veces a el Bilder Damit el bissl verständlicher es.

977 kB
Versión:11
Kurzbeschreibung: Pics
Hochgeladen:23.06.2011
Ladeanzahl: 80
Descargar
 
23.06.2011  ▲
 



Also bien, habe el ahora veces así intenta, sólo nun zeigt él me sólo el Komplettbild y luego kann Yo el Ventana como Tor hoch y runter fahren Komisch por qué liegt me c# mejor......
KompilierenMarcaSeparación
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
Versión:11
Kurzbeschreibung: Bild
Hochgeladen:24.06.2011
Ladeanzahl: 108
Descargar
 
24.06.2011  ▲
 




Jörg
Sellmeyer
Was se porque el ser?
KompilierenMarcaSeparación
var tor&=(%hWnd,"Tor",0,0,0,0)
>


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ón
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  ▲
 



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....
 
24.06.2011  ▲
 



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.
 
24.06.2011  ▲
 




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
 
24.06.2011  ▲
 




Jörg
Sellmeyer
Usted hast auch todavía una Fehler en hSizedPic:
KompilierenMarcaSeparación
hBmp& = 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ón
hBmp& = 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
var tor&=@Create("bitmap",%hWnd,hBmp&,5000,0,0,0)
>

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.
 
28.06.2011  ▲
 



◄►

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

9.187 Views

Untitledvor 0 min.
Ernst30.04.2014
ho.schu08.03.2013
RudiB.08.11.2012
Pedro Miguel13.09.2012
Más...

Themeninformationen

Dieses Thema ha 5 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie