orologi vari..

Titolo: orologi vari.. Ven Nov 02, 2007 5:59 pm

Questo programma è un semplice orologio guizzato... praticamente ho fatto in modo che esso venisse aggiornato ogni 1000 millisecondi (1 secondo)...
Se provate ad uscire non succederà niente, perchè il programma uscirà velocissimamente da Select e passerà subito all'aggiornamento.
per uscire vi basterà cliccare sull'icona che vi compare affianco all'orologio di sistema (la TrayIcon)

Codice:: #include <GUIConstants.au3>
guicreate ("Clock", 150, 80)
$var = @wday
$data = ""
if $var = 1 Then
$data = "Domenica, "
ElseIf $var = 2 Then
$data = "Lunedì, "
ElseIf $var = 3 Then
$data = "Martedì, "
ElseIf $var = 4 Then
$data = "Mercoledì, "
ElseIf $var = 5 Then
$data = "Giovedì, "
ElseIf $var = 6 Then
$data = "Venerdì, "
ElseIf $var = 7 Then
$data = "Sabato, "
EndIf
$data = $data & @MDAY
$var2 = @MON
if $var2 = 01 Then
$data = $data & " Gennaio "
elseif $var2 = 02 Then
$data = $data & " Febbraio "
elseif $var2 = 03 Then
$data = $data & " Marzo "
elseif $var2 = 04 Then
$data = $data & " Aprile "
elseif $var2 = 05 Then
$data = $data & " Maggio "
elseif $var2 = 06 Then
$data = $data & " Giugno "
elseif $var2 = 07 Then
$data = $data & " Luglio "
elseif $var2 = 08 Then
$data = $data & " Agosto "
elseif $var2 = 09 Then
$data = $data & " Settembre "
elseif $var2 = 10 Then
$data = $data & " Ottobre "
elseif $var2 = 11 Then
$data = $data & " Novembre "
elseif $var2 = 12 Then
$data = $data & " Dicembre "
EndIf
$data = $data & @YEAR
$clock = GUICtrlCreateLabel (@hour&':'&@MIN&":"&@SEC, 10, 20)
$date = GUICtrlCreateLabel ($data, 10, 40)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
   Exit
EndSelect
sleep (1000)
GUICtrlSetData ($clock, @hour&':'&@MIN&":"&@SEC)
$var = @wday
$data = ""
if $var = 1 Then
   $data = "Domenica, "
ElseIf $var = 2 Then
   $data = "Lunedì, "
ElseIf $var = 3 Then
   $data = "Martedì, "
ElseIf $var = 4 Then
   $data = "Mercoledì, "
ElseIf $var = 5 Then
   $data = "Giovedì, "
ElseIf $var = 6 Then
   $data = "Venerdì, "
ElseIf $var = 7 Then
   $data = "Sabato, "
EndIf
$data = $data & @MDAY
$var2 = @MON
if $var2 = 01 Then
   $data = $data & " Gennaio "
elseif $var2 = 02 Then
   $data = $data & " Febbraio "
elseif $var2 = 03 Then
   $data = $data & " Marzo "
elseif $var2 = 04 Then
   $data = $data & " Aprile "
elseif $var2 = 05 Then
   $data = $data & " Maggio "
elseif $var2 = 06 Then
   $data = $data & " Giugno "
elseif $var2 = 07 Then
   $data = $data & " Luglio "
elseif $var2 = 08 Then
   $data = $data & " Agosto "
elseif $var2 = 09 Then
   $data = $data & " Settembre "
elseif $var2 = 10 Then
   $data = $data & " Ottobre "
elseif $var2 = 11 Then
   $data = $data & " Novembre "
elseif $var2 = 12 Then
   $data = $data & " Dicembre "
EndIf
$data = $data & @YEAR
guictrlsetdata ($date, $data)
Wend

Titolo: Re: orologi vari.. Ven Nov 02, 2007 7:05 pm

questa è una variabile che fornisce solo l'ora (ma volendo si puo aggiungere anche la data )
ma è esteticamente piu bella, e poi avete l'ora sempre a portata di mouse...
quest'orologio è stato fatto con una tooltip, e potrebbe essere utile per chi ha deciso di nascondere la barra in basso, consentendogli di vedere l'ora senza andare ogni volta a farla spuntare fuori... Wink

eccovi lo script:

Codice:: While 1
ToolTip(@HOUR&':'&@MIN&":"&@SEC, 0, 0); ToolTip (testo, posizione x, posizione y)
sleep (1000); riposo per 1 secondo e poi ricomincia il ciclo (cosi sarà aggiornato )
WEnd

Titolo: Re: orologi vari.. Lun Nov 05, 2007 6:34 pm

per visualizzare l'ora si può anche attraverso la funzione SplashTextOn(per chi trova la gui troppo complicata e la tool tip troppo piccola)