Links raus Rechts rein...??

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Hendy

Betreff: Links raus Rechts rein...??

BeitragSo, Feb 25, 2007 16:06
Antworten mit Zitat
Benutzer-Profile anzeigen
Wie mache ich es das wenn etwas links raus geht das es wieder Rechts reingeht und wiederumgekehrt.
THX im voraus...
Smile Very Happy Very HappyD
 

Todeskop

BeitragSo, Feb 25, 2007 16:09
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragSo, Feb 25, 2007 16:13
Antworten mit Zitat
Benutzer-Profile anzeigen
Und hier noch ein übersichtlicheres Beispiel Cool

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

BeitragSo, Feb 25, 2007 16:13
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragSo, Feb 25, 2007 16:15
Antworten mit Zitat
Benutzer-Profile anzeigen
Ah ja gut oki danke... Very Happy [/code]
Smile Very Happy Very HappyD

hectic

Sieger des IS Talentwettbewerb 2006

BeitragSo, Feb 25, 2007 16:16
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragSo, Feb 25, 2007 16:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Sag ich doch Wink
 

Hendy

BeitragSo, Feb 25, 2007 16:23
Antworten mit Zitat
Benutzer-Profile anzeigen
PERFEKT Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy
Danke für die Hilfe voralem für die schnelle Hilfe
Smile Very Happy Very HappyD

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group