| |
| |
|
funkheld | ¡Hola, guten Tag.
Yo möchte el Rutina FD en XPSE o en uno nProc herstellen.
Dieses Startpaint se aber en uno nProc no erkannt.
-------------------
nProc fd(long r,w,bpic)
Largo x,y
x=getcircp(r,w)
y=getcircp(r,w+90000)
startpaint bpic&
LineTo(%hdc,x,y)
EndPaint
ENDPROC
-----------------------------------
Anmerkung:
Dieser Befehl funktioniert auch außerhalb:
startpaint bpic
LineTo(%hdc,x,y)
EndPaint
Gracias.
Gruss
KompilierenMarcaSeparación {$cleq}
declare bpic&,ende&
Declare x&,y&,r&
ende&=1
Window 20,20-500,500
Cls RGB(220,220,220)
bpic& = create("hNewPic", 400,400,rgb(255,255,0))
While Ende&
fd(100,45000)
drawpic bpic&,30,30;0
EndWhile
End
nProc getCircP(long r,w)
return long(sin(0.0174532925199433*float(w)/1000.0)*float(r))
endproc
Proc fd
Parameters r&,w&
Long x,y
x=getcircp(r&,w&)
y=getcircp(r&,w&+90000)
startpaint bpic&
LineTo x&,y&
EndPaint
ENDPROC
|
|
| |
| |
| |
|
|
 | | StartPaint hay en nProcs no como lo no Sinn macht como uno con APIs características el ohnehin una DC verlangen. Lasse StartPaint weg y nimm hDC oder el DC de qué De todos modos. |
|
| |
| |
| |
|
(931)
Deutsch
English
Français
Español
Italia