Cronometro, by me and Mhack

#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <WindowsConstants.au3>
;gui create
$gui = GUICreate("Cronometro",270,350,-1,-1)
GUISetState(@SW_SHOW)


;lista
$list = GUICtrlCreateListView("Tempo              ",5,5,250,280)


;label
$labelcount = GUICtrlCreateLabel("",90,295,75,21)
GUICtrlSetColor(-1,0xFF0000)
$ora = GUICtrlCreateLabel(@HOUR&":"&@MIN,5,330,30,15)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xFFFFFF)
$crono = GUICtrlCreateLabel("",215,330,50,15)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xFFFFFF)


;hotkey
HotKeySet("{SPACE}","_Giro")
HotKeySet("{ENTER}","_Stop")



;button
$split = GUICtrlCreateButton("Giro",8,290,75,25)
$stop = GUICtrlCreateButton("Stop",184,288,75,25)
$go = GUICtrlCreateButton("Vai",96,320,75,25)

$timer = TimerInit()
$count = 0
$titletimer = TimerInit()

While 1
      $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
      Exit
  Case $split
          If String($timer) <> "stopped" Then
                       _Giro()
          EndIf
Case $go
      GUICtrlSetData($crono," started")
      $timer = TimerInit()
EndSwitch
If TimerDiff($titletimer) >=100 Then
       _title()
EndIf
WEnd

Func _title()
       $tmp = TimerDiff($timer)
       $sec = $tmp /1000
       $min = 0
       $hour = 0
       If $sec >= 60 Then
               For $i = 0 To $sec Step 60
                       $min +=1
                       $sec -= 60
               Next
       EndIf
       If $min >= 60 Then
               For $i = 0 To $min Step 60
                       $hour +=1
                       $min -= 60
               Next
       EndIf
       WinSetTitle($gui,"","Cronometro "&$hour&":"&$min&":"&$sec)
EndFunc

Func _Giro()
       $count+=1
       $tmp = TimerDiff($timer)
       $sec = $tmp /1000
       $min = 0
       $hour = 0
       If $sec >= 60 Then
               For $i = 0 To $sec Step 60
                       $min +=1
                       $sec -= 60
               Next
       EndIf
       If $min >= 60 Then
               For $i = 0 To $min Step 60
                       $hour +=1
                       $min -= 60
               Next
       EndIf
      GUICtrlSetData($labelcount,$count&"°")
      _GUICtrlListView_AddItem($list,$count&"°"&" - "&$hour&":"&$min&":"&$sec)
EndFunc


Func _Stop()
      $timer = "stopped"
          GUICtrlSetData($crono," ")
EndFunc