Links raus Rechts rein...??
Übersicht

HendyBetreff: Links raus Rechts rein...?? |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Wie mache ich es das wenn etwas links raus geht das es wieder Rechts reingeht und wiederumgekehrt.
THX im voraus... |
||
![]() ![]() ![]() |
Todeskop |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
guck dir mal im OH plot beispiel an da steht das drinne.
~edit~ habs eben rausgesucht: Code: [AUSKLAPPEN] GRAPHICS 640,480,0,2
SETBUFFER BACKBUFFER() DIM X(100), Y(100), V(100) FOR i=0 TO 100 X(i)=RND(0,639) Y(i)=RND(0,479) V(i)=RND(1,10) NEXT WHILE KEYHIT(1)=0 CLS FOR i=0 TO 100 Y(i)=Y(i)+V(i) IF Y(i)>479 THEN Y(i)=0: V(i)=RND(1,10) PLOT X(i),Y(i) NEXT FLIP WEND |
||
![]() |
the FR3AK |
![]() Antworten mit Zitat ![]() |
---|---|---|
Und hier noch ein übersichtlicheres Beispiel ![]() Code: [AUSKLAPPEN] Graphics 640,480,16,2 SetBuffer FrontBuffer() x=1 y=100 Repeat Cls x=x+5 Oval x,y,10,10,1 If x>640 Then x=1 Flip Until KeyHit(1) |
||
![]() |
C0der |
![]() Antworten mit Zitat ![]() |
---|---|---|
ich würd die x-variable einfach wieder hoch setzen:
Code: [AUSKLAPPEN] Graphics 640,480,16 meineFigur = LoadImage("figur.bmp') While Not KeyHit(1) SetBuffer(BackBuffer()) Cls If xpos < 0 Then xpos = GraphicsWidth() ;nach ganz rechts xpos = xpos - 1 ;und weiter gehts.. DrawImage meineFigur,xpos,10 Flip Wend |
||
- Zuletzt bearbeitet von C0der am So, Feb 25, 2007 16:37, insgesamt 2-mal bearbeitet
Hendy |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Ah ja gut oki danke... ![]() |
||
![]() ![]() ![]() |
![]() |
hecticSieger des IS Talentwettbewerb 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
If etwas<0 etwas=640
If etwas>640 etwas=0 Oder, wenn es zB im Netzwerk eingesetzt werden soll, oder nicht ganz so 'künstlich' wirken soll, oder es für Messzwecke gehandhabt wird. If etwas<0 etwas=etwas+640 If etwas>640 etwas=etwas-640 Alternativ auch in einer Zeile. etwas=((etwas+640) Mod 640) |
||
![]() |
the FR3AK |
![]() Antworten mit Zitat ![]() |
---|---|---|
Sag ich doch ![]() |
||
Hendy |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
PERFEKT ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Danke für die Hilfe voralem für die schnelle Hilfe |
||
![]() ![]() ![]() |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group