Problème avec TimerProc

[wolfjeremy]

Salut,

J'ai un problème avec TimerProc, voici mon code :

a.l = 0

Procedure TimerProc(hwnd.l, uMsg.l, idEvent.l, dwTime.l, a.l)

   Select uMsg
     Case #WM_TIMER
       Select idEvent
      
       Case 1
      a + 1
       Debug a
      
       EndSelect
   EndSelect
  
EndProcedure



OpenWindow (1, 0, 0, 100, 100, "Test" )
Handle = WindowID (1)
SetTimer_ (Handle, 1, 300, @TimerProc())

Repeat
event = WaitWindowEvent ()
If event = #PB_Event_CloseWindow
End
EndIf
ForEver

Voila donc le problème est qu'il commence a compter a partir de 4199081 et le pire c'est qu'il ne recupere même pas la valeur de "a", je sais même pas d'où il vienne c'est 4199081

Pouvez vous m'éclairer ? merci d'avance

[Dr. Dri]

le a n'a rien à faire dans ta callback
si tu veux utiliser la variable a utilise le mot clé Shared

Dri

[wolfjeremy]

ha lol merci