Timer Verwaltung

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

Mattis_the_brain

Betreff: Timer Verwaltung

 BeitragDi, Aug 09, 2005 14:45
Antworten mit Zitat
Benutzer-Profile anzeigen
Für alle Leute die ne Menge verschiedener Timer in ihren Anwendungen brauchen:

BlitzBasic: [AUSKLAPPEN] 

;### Timer *include* ###
	Type TIMER
		Field Time
		Field CountTime
	End Type
	
	Function TIMER_Create.TIMER(p_CountTime)
		Local hTIMER.TIMER = New TIMER
		hTimer\CountTime = p_CountTime
		Return(hTimer)
	End Function
	
	Function TIMER_GetState(p_Timer.TIMER)
		If(p_Timer\Time + p_Timer\CountTime < MilliSecs())
			p_Timer\Time = MilliSecs()
			Return(True)
		EndIf
		Return(False)
	End Function
;### --- ###

Global Count
Global TestTimer.TIMER = TIMER_Create(1000)

SetBuffer(BackBuffer())

While(KeyDown(1) = False)
	Cls()
	
	If(TIMER_GetState(TestTimer)) Count = Count + 1
	Text(10, 10, Count + \"sec\")
	
	Flip()
Wend
End

Lord_Vader

 BeitragDi, Aug 09, 2005 14:47
Antworten mit Zitat
Benutzer-Profile anzeigen
Gut für anfänger echt. Nur irgentwie kann man das auch schnell selbst schreiben Very Happy

Nix für ungut du hast dir mühe gegeben n1
 

feider

ehemals "Decelion"

BeitragDi, Aug 09, 2005 15:50
Antworten mit Zitat
Benutzer-Profile anzeigen
@Vader:
Man kann sich vieles selbst schreiben.
Aber damit man das nicht muss, gibt es das Codearchiv.


Schön gemacht!

Mattis_the_brain

 BeitragMi, Aug 10, 2005 19:37
Antworten mit Zitat
Benutzer-Profile anzeigen
@Vader... glaubst du das ich son Schnulli extra für's Forum schreibe, ich pass nur immer auf was hier evt. gebraucht werden könnte...

Lord_Vader

 BeitragMi, Aug 10, 2005 21:06
Antworten mit Zitat
Benutzer-Profile anzeigen
Very Happy bei dir glaub ich das mal net Wink
Aber es soll so leute geben, auch hier Very Happy

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group