| Ergänzung zur Hilfe / Simple Code Beispiele von ??? |
| Hi all, ich mach hier jetzt mal denn anfang. Ich möchte gerne die Hilfe von TheShadow etwas erweitern, und zwar wird dort sehr viel erklärt aber manchmal hilft es einem bei der Praktischen anwendung nicht weiter. z.b. der befehl/funktion ATan2(), wenn einer keine Ahnung hat von winkelberechnungen der steht hier nur mit zuckenden Schultern. Darum möchte ich das wir alle zusammen jeder sich mal EINE funktion rauspickt und versucht es in einem simplen Code / Spieletauglich zeigt wie man ihn anwenden könnte, ohne dabei all zusehr in Details überzugehen, das verwirt nur die Anfänger. Ich hoffe es machen viele mit. |
| Millisecs() von ??? |
| Kleines Beispiel wie man Millisecs() für einen Animations Timer benutzen kann oder als Frame ausgabe. Wird ja immer wieder von den Neuen gefragt :wink: [code:1:0f4679d32c];Wie mache ich mit MilliSecs() einen Timer ;und eine Frame anzeige. ;Hier wird anhand von einem timer die ;hintergrundfarbe gewechselt, kann auch ;für Animationen genutzt werden. ;Der vorteil gegenüber Createtimer() ist, ;das gezielt nur der hintergrund/animation ;beeinflusst wird aber nicht andere ;Programmteile. Global timer Global timer_farbe Global timer_frame Global frame Global temp Global r,g,b Graphics 640,480,16,2 SetBuffer BackBuffer() While Not KeyHit(1) timer = MilliSecs() ;-------------Hintergrundfarbe zeichnen------- If (timer - timer_farbe) > 15 ;mal hier mit dem wert spielen r = r + 1 If r > 255 Then r = 0 g = g + 2 If g > 255 Then g = 0 b = b + 3 If b > 255 Then b = 0 timer_farbe = timer ClsColor r,g,b EndIf ;---Frame anzeige------- temp = temp + 1 If (timer - timer_frame) > 1000 ; 1000 = 1 sec. frame = temp temp = 0 timer_frame = timer EndIf Text 100,100,"Frames pro Sec. : "+frame Flip 0 ;mal die null gegen ne 1 tauschen ;) Cls Wend End[/code:1:0f4679d32c] |