hm, schade das sich da wohl nichts mehr ergibt

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menua = 20
b = 200
Speed = 9
//////////////////////////////
//////////////////////////////
LIMITFPS -1
Old_Timer=GETTIMERALL()
GETSCREENSIZE Width, Height
WHILE TRUE
GT=(GETTIMERALL()-Old_Timer)/1000 //Durch Tausend für die Sekunden je größer der Unterschied zwischen aktuell und alten Timer, desto höher der Faktor
Old_Timer=GETTIMERALL()
Counter = Counter + 1
IF KEY(200) = 1 THEN
Speed = Speed + 1
IF KEY(208) = 1 THEN Speed = Speed -1
IF KEY( 208) = 1 THEN Speed = Speed -1
// FOR i=0 TO 10 // eine schleife sorgt für längere Berechnung? daher höherer Faktor?
DRAWRECT b,a,100,100,RGB(255,0,0);
PixelSprung = Speed * GT
a = a + PixelSprung
// NEXT
IF (a>Height) THEN a = -100
IF (a<=0)
IF (Speed<=0)
a = Height + 100
ENDIF
ENDIF
PRINT GT,10,20
PRINT "Timer: "+GETTIMER()*1000, 10,40
PRINT "Speed & GT: "+PixelSprung,150,400
PRINT "Speed: "+Speed,500,400
PRINT "Counter "+Counter, 400, 20
PRINT "Timer: "+GETTIMERALL(), 400,40
// IF GETTIMERALL() >= 1000 THEN KEYWAIT
printfps(20,400)
SHOWSCREEN
WEND
FUNCTION printfps:l_x,l_y
GLOBAL fps_time, fps_counter, s_FPS, fps_temp
fps_time = GETTIMERALL()
fps_counter = fps_counter + 1
IF (fps_time-fps_temp) > 1000
fps_temp = fps_time
s_FPS = fps_counter
fps_counter = 0
ENDIF
PRINT s_FPS + " Frames", l_x, l_y
RETURN s_FPS
ENDFUNCTION
Quote
Kann es sein:? Das GLBasic oder generell insgesamt, es nicht möglich ist die exakte Pixelanzahl zu nutzen? Also wenn ich eine Applikation mit 1024*768 compilieren lasse, dann aber der 1024te und der 768te Pixel keinen Grafischen Inhalt haben darf, weil GlBasic an sich anders verwaltet?
KeyhitupdateEIN = 1
A=KeyHit(GuthabenTaste)
B=KEY(GuthabenTaste)
Zeit = GETTIMER()
IF KeyhitupdateEIN > 0
KeyHitUpdate()
IF A = -1 // Aktion nach dem Drücken der Guthaben-Taste
IF Zeit > 3000
KeyhitupdateEIN = 0
ELSE
A = B
ENDIF
ENDIF