| |
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | Salut,
je suis z.Zt. dans qui reclyclage zum Fachinformatiker Anwendungsentwicklung et viens avec einem certain bereich dans XProfan pas bien sûr, z.Zt. raubt mir cela den letzten nerf. Wir devoir une Contrôle pour une WR64 ou bien aussi ne Logo pour un Rolltor bricoler avec tastern etc. avec cela viens je soweit bien sûr, mais si je versuche cela Rolltor per mcopybmp partiellement reinzukopieren so comme serait cela Tor runter ou bien hochfahren pouvoir il pas, il erkennt qui beiden variablen y1% et x2% simple pas à, cet peux je beliebig changement. Pour mich ist es z.Zt. vraie schwer hinterher trop venons là je père einer kleinen fille suis et im Moment simple pas qui Zeit habe cela trop hause nachzuarbeiten. je hoffe vous pouvez mir une kleinen Denkanstoss donner, mon Kollege ist avec cela déjà fertig, malheureusement ![](.././../../i/s/__upl_ext_1111498502.gif)
et zwar habe je folgendes Problem:
sobald je versuche cela Bild trop kopieren si entier ou bien partiellement zeigt il es pas à, j'ai wirklich certains Kombinationen et Befehle versucht mais cela veux il irgendwie pas ou bien je kapier cela simple pas. en supplément venez encore cela il qui Variablen y1% et x2% simple pas erkennt, es kümmert XProfan pas si je là quoi verändere qui Taille bleibt toujours juste, et es soll sich avec y1% +1 chaque la fois dans qui Whileschleife ouvrir, alors toujours un pixel höher aller.
mon Programme (seulement cela Testprogramm pour Rolltor) et qui Bitmap füge je chez.
cela Plénier simple de dessus pour unten aller et wieder zurück alors entweder per mousekey ou bien waitinput après peux je mon Taster insérer, sieht alles z.Zt. quelque chose willkürlich aus là je viel herum experimentiert habe.
Salut aus Wilhelmshaven
![](https://xprofan.com/files/eucci.bmp)
Herunterladen
A.Reintgen |
![](/intl/i/dw.gif) |
|
| |
|
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | je crois cela une meiner wertevergaben simple pas stimmt, car si je cela z.B. so zum hochzählen teste bleibt cela toutefois juste KompilierenMarqueSéparation il gibt toutefois qui festgelegten 200 wieder |
|
|
| |
|
|
|
![iF: 30.05.2011](.././../../i/a/1.gif) | Hi!
malheureusement la hâte Du aucun XProfan-Version angegeben.
tu écris: KompilierenMarqueSéparationmloadbmp ("C:\\Bmp\\Objekte\\rolltor.BMP") > - es sollte mais: KompilierenMarqueSéparationmloadbmp "C:\\Bmp\\Objekte\\rolltor.BMP" > appeler là mloadbmp une Procédure statt Funktion ist.
Procédure: KompilierenMarqueSéparation Funktion: KompilierenMarqueSéparation chez solchen Befehlen qui comme Parametertrennzeichen un Minus statt un Komma besoin comment z.B. aus Deinem Code: KompilierenMarqueSéparation toujours besser Freizeichen avant et pour dem Minus mettons ou bien xpse ( [...] ) einsetzen (nécessaire XProfan-Vollversion) et unique cela Komma verwenden ( [...] ).
reinzukopieren so comme serait cela Tor runter ou bien hochfahren pouvoir il nich
je peux dans dem Code rien erkennen quoi en supplément mener soll dass cela Tor hoch ou bien herunter fährt - Variablenwerte volonté zwar gesetzt mais nirgends hoch- ou bien herunter gezählt.
So fährts: KompilierenMarqueSéparationcls
mLoadBmp "rolltor.BMP"
startPaint -1
usepen 0,0,$FFFFFF
line 0,181 - 127,181
endPaint
whileLoop 182,0,-1
mCopyBmp 0,&loop - 127,182 > 100,100 ; 0
sleep 30
wend
waitInput
whileLoop 182
mCopyBmp 0,&loop - 127,182 > 100,100 ; 0
sleep 30
wend
end
Herunterladen |
![](/intl/i/dw.gif) |
|
| |
|
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | Hi et merci pour deine Aider alors benutze Xprofan 11 Vollversion Editor 11.2. et oui là était jusqu'alors qui le crochet avec dem hochfahren là il qui Variablen pas wirklich hochrechnen voulais hatte ca arrêt simple toujours avec z.B.
x1% +10
versucht.
je werde mir dein Beispiel la fois inhaler et étudier, car on a malheureusement dans einer semaine 4 différent Programme verwendet quoi mich doch assez verunsichert hat.
d'abord Blitzbasic-Variationen,Smallbasic et maintenant Xprofran vorerst Shareware maintenant qui Vollversion, là wir uns cela alle selbst erarbeiten doit venez on là droite vite durcheinander. |
|
|
| |
|
|
|
![iF: 30.05.2011](.././../../i/a/1.gif) | |
|
| |
|
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | alors ici qui komplette table qui Contrôle la fois kurz: KompilierenMarqueSéparationWindow 1,1 - 640,480
cls
declare hBild1&,hBild2&,hBild3&,hBild4&,hBild5&,hBild6&,hBild7&,hBild8&\
,hBild9&,hBild10&,hBild11&,hBild12&,hBild13&,hBild14&,hBild15&,hBild16&
Proc BMP
hBild1& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tagn0.BMP")
hBild2& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tagn1.BMP")
hBild3& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tart0.BMP")
hBild4& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tart1.BMP")
hBild5& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\nota1.BMP")
hBild6& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\trt1.BMP")
hBild7& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\trt0.BMP") ;Störungsleuchte ein
hBild8& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tabl0.BMP")
hBild9& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tge0.BMP")
hBild10& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\tgn1.BMP")
hBild11& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\sertar1.BMP")
hBild12& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\sertar0.BMP")
hBild13& = @create ("HPic",-1,"C:\\Bmp\\Objekte\\druckzr.BMP")
hBild14& = @create ("HPic",-1,"C:\\Bmp\\Objekte\\emotl1.BMP")
hBild15& = @create ("HPic",-1,"C:\\Bmp\\Schalter\\lichtschr.BMP")
hBild16& = @create ("HPic",-1,"C:\\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&,210,135 - 30,30;0
DrawSizedPic hBild10&,210,230 - 30,30;0
DrawSizedPic hBild6&,210,320 - 30,30;0
DrawSizedPic hBild12&,240,320 - 30,30;0
DrawSizedPic hBild11&,240,230 - 30,30;0
DrawSizedPic hBild12&,240,135 - 30,30;0
DrawSizedPic hBild13&,430,320 - 30,30;0
DrawSizedPic hBild14&,430,120 - 40,40;0
DrawSizedPic hBild15&,420,370 - 30,30;0
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"
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
Endpro
waitinput
Es sieht naturellement et avec ca grand et unübersichtlich aus beinhaltet mais qui meisten Funktionen. qui Taster sommes encore dans einem anderen Programme weil cet "noch" pas richtig marcher. mais je travaille daran.
c'est arrêt un genaues reflet qui Schalttafel et en supplément venez cela wir oui sur une WR64 ,sur serielle COM-Schnittstelle, cela ganze aussi vom PC aus steuern devoir, droite komplexe Beschäftigungsmaßnahme.
Salut |
![](/intl/i/dw.gif) |
|
| |
|
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | ah là lag qui faute alors achso suis registriert muss mich seulement encore un Bissl anpassen ici, quoi aufgrund qui Problematik plutôt zweitrangig était. |
|
|
| |
|
|
|
![iF: 30.05.2011](.././../../i/a/1.gif) | Ah, verstehe. ![](.././../../i/s/__upl_ext_1111498539.gif)
Den Hinweis donnais je arrêt z.B. weil on ensuite eigene Posts beliebig Travailler peux bzw. weil es angemeldet plus Opportunités gibt. |
|
|
| |
|
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | Hehe, hm peux dir den Code oui la fois angucken et regarder si je cela irgendwie bissl übersichtlicher gestalten peux (naturellement kommentiere je cela Ganze im Nachhinein).
avec dem Taster werde je denke je la fois déjà fertig, dem habe Je l' combat déjà annoncé. cela Plénier ensuite comment im angehängten air et naturellement marcher. je hänge la fois Taster et Gesamtbild à ![](.././../../i/s/__upl_ext_1111498551.gif) |
|
|
| |
|
|
|
![: 30.05.2011](.././../../i/a/noavatar.gif) | Achso im Endeffekt soll cela Tor ensuite aussi stoppen peut et qui Sensoren qui cela Tor passiert aussi leuchten OMG mais est droite komplex si on cela comme Gesamtbild betrachtet, mais uns wurde oui dit, avez son Probleme wendet euch à l' Xprofan-Forum ou bien cela Handbuch ![](.././../../i/s/__upl_ext_1111498557.gif)
Musste 7 Bände a 500 Seiten ausdrucken xD et quer sur den parking schleppen, dachte déjà cela wär ne Strafarbeit ![](.././../../i/s/__upl_ext_1111498557.gif) |
|
|
| |
|
|
|
![iF: 30.05.2011](.././../../i/a/1.gif) | quoi je Dir empfehlen serait wäre cela Programme juste so trop écrivons cela es avec seulement 1 Hauptereignisschleife auskommt - alors sodass WaitInput seulement 1la fois im Programme vorkommt. |
|
|
| |
|
|
|
![iF: 30.05.2011](.././../../i/a/1.gif) | |
|
| |
|
|