Afficher "l'heure a sonnée" si correspondance il y
Publié : sam. 21/févr./2009 18:21
Slt à tous j"espère que vous passez un bon week end !
je suis entrain de chercher une solution pour ce problème:
comme l'indique le titre, je voudrais que le programme m'affiche "l'heure a sonné" chaque fois qu'il y aura correspondance entre les heures de la ListIcon et du système.
pour çà j'ai créé un thread que je gère mal et je pense aussi que le probleme vient de là !
Edit "le code marche mais seul le résultat de la premiere heure s'affiche pas les autres"
je suis entrain de chercher une solution pour ce problème:
comme l'indique le titre, je voudrais que le programme m'affiche "l'heure a sonné" chaque fois qu'il y aura correspondance entre les heures de la ListIcon et du système.
pour çà j'ai créé un thread que je gère mal et je pense aussi que le probleme vient de là !
Code : Tout sélectionner
Enumeration
#Window_0
EndEnumeration
Enumeration
#StatusBar_Window_0
EndEnumeration
Enumeration
#ListIcon_0
EndEnumeration
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
PBHeure$ = FormatDate("%hh:%ii:%ss", Date())
Procedure.s GetTimeString()
GetLocalTime_(@s.SYSTEMTIME)
Hour$ = Str(s\wHour)
Minute$ = Str(s\wMinute)
Second$ = Str(s\wSecond)
If Len(Hour$) = 1 : Hour$ = "0"+Hour$ : EndIf
If Len(Minute$) = 1 : Minute$ = "0"+Minute$ : EndIf
If Len(Second$) = 1 : Second$ = "0"+Second$ : EndIf
Time$ = Hour$+":"+Minute$+":"+Second$;+" "
ProcedureReturn Time$
EndProcedure
;Debug PBHeure$
;Debug GetTimeString()
;If PBHeure$ = GetTimeString()
;Debug "Même heure"
;EndIf
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 643, 30, 372, 288, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
If CreateStatusBar(#StatusBar_Window_0, WindowID(#Window_0))
EndIf
ListIconGadget(#ListIcon_0, 20, 25, 335, 215, "N°",100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#ListIcon_0, 1, "Time", 100)
AddGadgetItem(#ListIcon_0, -1, "1" + Chr(10)+"20:20:25")
AddGadgetItem(#ListIcon_0, 1, "2" + Chr(10)+"20:20:35")
AddGadgetItem(#ListIcon_0, 2, "3" + Chr(10)+"20:20:25")
AddGadgetItem(#ListIcon_0, 3, "4" + Chr(10)+"20:23:25")
AddGadgetItem(#ListIcon_0, 4, "5" + Chr(10)+"20:23:25")
EndIf
EndProcedure
Procedure GetTime_(Parameter)
Repeat
If GetGadgetItemText(#ListIcon_0,0,1) <> "" And GetGadgetItemText(#ListIcon_0,0,1) = GetTimeString()
Debug "l'heure a sonné"
Else
Debug "Il n'est pas encore l'heure"
EndIf
Delay(1000)
ForEver
EndProcedure
OpenWindow_Window_0()
CreateThread(@ GetTime_(),255)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #ListIcon_0
EndIf
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver 
C'est moyen comme tutoriel pour un débutant...