Das deutsche QBasic- und FreeBASIC-Forum

[Sir-Monchi]

Hi,

ich wollte mich mal an ein paar kleinen Physik progrämmchen versuchen. Ich habe allerdings Probleme mit dem Timing.

Wollte den Freien Fall programmieren. Ich verwende Circle und steigere den wert der y-achse. Zurzeit verwende ich PLAY und quasi ein "Musikstück" mit 255 bpm und einer 64stel pause. Allerdings ist das nicht wirklich das was ich mir vorgestellt habe. Gibt es sowas wie millisekunden-pausen in QB?

MFG
Monchi

[Nitroxis]

Ja das geht
Am Anfang des Programms:

[Sir-Monchi]

Ja das ist ja äußerst bien !

Besten dank! Werde das gleich mal ausprobieren. Muss mich da allerdings noch einmal genauer mit auseinandersetzen ..

MFG
Monchi

[Sir-Monchi]

Öhm,

es kann jetzt zwar sein, dass ich mich gerade total dämlich anstelle, aber es geht nicht. Also hier mal mein code:

DECLARE SUB xSleep (BYVAL Milliseconds AS SINGLE)
Sub xSleep(BYVAL Milliseconds As Single)
DIM SleepTime AS DOUBLE
SleepTime = TIMER + Milliseconds / 1000
DO
LOOP UNTIL TIMER > SleepTime
End Sub

SCREEN 12
xpos% = 320
ypos% = 0

WHILE (ypos% < 470)
CIRCLE (xpos%, ypos%), 5
ypos% = ypos% + 1
xSleep 123 '123 ms pause
WEND

----------------------------------------------

Sollte eig. einen kreis zeichen 123ms warten und dann 1px darunter den nächsten zeichnen ...

Fehlermeldung:
Erwartet: Variable oder BYVAL oder SEG oder )

--------------------------------

danke schonmal im voraus.

MFG
Monchi

[-schumi-]

ich hab einfach probeweise das BYVAL rausgeschmissen und schon hat das programm ohne jegliches meckern funktioniert
(hab zur probe auch 1000 ms=1 sec als zeit hergenommen, funktioniert perfekt)


mfg
-schumi-

[Sir-Monchi]

juche ... du hattest wohl recht ... it works

MFG
Monchi

[Jojo]

Ansonsten gibt's hier noch mehr infos (guter Beitrag von Skilltronic inside): http://forum.qbasic.at/viewtopic.php?t=834
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[dreael]

Zum Thema gibt es von mir einen für diesen Fall ebenfalls durchaus passenden Artikel:

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/ButterweicheAnimationen.html

Dort wird ein einfaches Tiefpassfilterverfahren vorgestellt, um den 55 ms-Zeitschritt von TIMER "glätten" zu können.
_________________
Teste die PC-Sicherheit mit www.sec-check.net