Kann mir jemand eine kleine UserLib basteln ??
Verfasst: 05.01.2007 16:17
hi folks,
da ich öfter mal timeGetTime_() verwende und auf eine höhere präzision wert lege, hätte ich gerne eine kleine userlib, welche das initialisieren "timeBeginPeriod_()" beim starten des programms und wieder freigeben "timeEndPeriod_()" beim beenden des programms, automatisch für mich übernimmt und mir somit das leben etwas erleichtert.
wenn also jemand den folgenden code nach C oder ASM übersetzen könnte und mir daraus eine userlib bastelt, wäre ich demjenigen zum höchsten dank verpflichtet.
die funktionsweise dürfte klar sein, man verwendet InitTimePeriod() irgendwo am anfang im sourcecode und der rest soll dann automatisch beim starten/beenden des programms aufgerufen werden.
geld kann ich euch leider keins geben (der aufwand ist auch nicht sonderlich gross) ihr kriegt aber dafür einen virtuellen händedruck stärke 5.
c ya,
nco2k
da ich öfter mal timeGetTime_() verwende und auf eine höhere präzision wert lege, hätte ich gerne eine kleine userlib, welche das initialisieren "timeBeginPeriod_()" beim starten des programms und wieder freigeben "timeEndPeriod_()" beim beenden des programms, automatisch für mich übernimmt und mir somit das leben etwas erleichtert.

wenn also jemand den folgenden code nach C oder ASM übersetzen könnte und mir daraus eine userlib bastelt, wäre ich demjenigen zum höchsten dank verpflichtet.

Code: Alles auswählen
;Soll automatisch aufgerufen werden wenn das Programm startet
Procedure.l InitTimePeriod_Begin()
Shared _TIMERR_.TIMECAPS
If timeGetDevCaps_(_TIMERR_, SizeOf(TIMECAPS)) = 0
If _TIMERR_\wPeriodMin > 0
If timeBeginPeriod_(_TIMERR_\wPeriodMin) <> 0
_TIMERR_\wPeriodMin = 0
_TIMERR_\wPeriodMax = 0
EndIf
EndIf
EndIf
EndProcedure
;Soll automatisch aufgerufen werden wenn das Programm endet
Procedure.l InitTimePeriod_End()
Shared _TIMERR_.TIMECAPS
If _TIMERR_\wPeriodMin > 0
timeEndPeriod_(_TIMERR_\wPeriodMin)
;_TIMERR_\wPeriodMin = 0
;_TIMERR_\wPeriodMax = 0
EndIf
EndProcedure
;Wird nur benützt um die Lib dem Programm zuzuordnen
Procedure.l InitTimePeriod()
;ProcedureReturn #False
EndProcedure
geld kann ich euch leider keins geben (der aufwand ist auch nicht sonderlich gross) ihr kriegt aber dafür einen virtuellen händedruck stärke 5.

c ya,
nco2k