| |
| |
|
 | Hi,
i'm z.Zt. in the Umschulung to that Fachinformatiker Anwendungsentwicklung and come with a designed area in XProfan not clear, z.Zt. raubt me the whom last nerve. we should a Control for a WR64 or ne Logo for a Rolltor basteln with tastern etc. so come I so far clear, but if I try the Rolltor by mcopybmp partly reinzukopieren so as would the goal down or hochfahren power it not, it recognize the two variables y1% and x2% simply not on, these can I discretionary Change. for me is it z.Zt. Real heavy afterwards To come I father of/ one small daughter be and in the momentum simply not The Time have the at home nachzuarbeiten. I hope your can me a small Denkanstoss give, my colleague is so already ready, unfortunately 
and of course have I the following trouble:
once I try the image To copy whether integrally or partly shows it not on, I have really etliche Kombinationen and command attempts but the wants it somehow not or I kapier the simply not. moreover comes yet the it The variables y1% and x2% simply not recognize, it kümmert XProfan not whether I there what change The Size remaining always same, and it should itself with y1% +1 each time in the Whileschleife open, means always one pixel higher weg.
my Program (only the Testprogramm for Rolltor) and the Bitmap füge I with.
the Whole should simply of supra down rad and again back means either by mousekey or waitinput thereafter can I my keyboard insert, sees everything z.Zt. something willkürlich from I plenty around experimentiert have.
Greeting from Wilhelmshaven
Download
A.Reintgen |
 |
| |
| |
| |
|
|
| I faith the a of my wertevergaben simply not is correct, because if I the z.B. so to that hochzählen teste remaining the nevertheless same
CompileMarkSeparation
it gives nevertheless The festgelegten 200 again |
|
| |
| |
| |
|
|
 | Hi!
unfortunately have You no XProfan-Version indicated.
You write:
CompileMarkSeparationmloadbmp ("C:\\Bmp\\Objekte\\rolltor.BMP")>
CompileMarkSeparationmloadbmp "C:\\Bmp\\Objekte\\rolltor.BMP" >
procedure:
CompileMarkSeparation
function:
CompileMarkSeparation
with such command The as Parametertrennzeichen one less instead of one comma need How z.B. from Your code:
CompileMarkSeparation always rather Freizeichen to and to the less settle or xpse ( [...]  ) bring into action (needed XProfan-Full Version) and uniform the comma use ( [...] ).
reinzukopieren so as would the goal down or hochfahren power it the Nich
I can in the code nothing discern what moreover lead should that the goal high or down drives - Variablenwerte go of course staid but nirgends high- or down counted.
so fährts:
CompileMarkSeparationcls
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
Download |
|
| |
| |
| |
|
|
| Hi and thanks for your Help  means use XProfan 11 Full Version editor 11.2. and Yes there was bislang the crux with the hochfahren there it The variables not really hochrechnen wished having this hold simply always with z.B.
x1% +10
attempts.
i'll me your example time inhalieren and study, because we've unfortunately in a week 4 different programs uses what me still quite verunsichert has.
first Blitzbasic-Variationen,Smallbasic and now Xprofran for the time being shareware now The Full Version, there we the any self erarbeiten must comes one there right quick confusion. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
| means here The complete boards the Control time short:
CompileMarkSeparationWindow 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
it sees naturally yet something big and unübersichtlich from contain but the most functions. The keyboard are still in another Program because these "noch" not correctly. functions. but I work on it.
this is hold one genaues copy the panel and moreover comes the we Yes over a WR64 ,over serial COM-interface, the whole too of PC from steer should, right complex Beschäftigungsmaßnahme.
Greeting |
|
| |
| |
| |
|
|
| | alas there lying the Error means achso be registered must me only another Bissl adjust here, what because of the Problematik sooner secondary was. |
|
| |
| |
| |
|
|
| Ah, understand. 
whom Info given I hold z.B. because one then Own Posts discretionary Edit can or. because it announced More Opportunities gives. |
|
| |
| |
| |
|
|
| Hehe, hm can you whom code Yes time angucken and look whether I the somehow bissl übersichtlicher style can (naturally kommentiere I the whole in the Nachhinein).
with the keyboard I will think I time already ready, the have I the battle already angesagt. the Whole should then How in the appended looks and naturally functions. I slopes time keyboard and Gesamtbild on  |
|
| |
| |
| |
|
|
| Achso in the Endeffekt should the goal then too stop can and the Sensoren The the goal happens too shine OMG is still right komplex if to the as Gesamtbild viewing, but us watts Yes said, have your Problems contact you ans XProfan-Forum or the manuals
Musste 7 Volumes a 500 pages print out xD and across whom Parkplatz tow, thought already the would ne Strafarbeit |
|
| |
| |
| |
|
|
| | what I you recommend would would the program same so To write the it with only 1 Hauptereignisschleife auskommt - means so WaitInput only 1time in the program vorkommt. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
(507)
Deutsch
English
Français
Español
Italia
