darkjoker
Admin
Numero di messaggi: 813
Data d'iscrizione: 30.07.07
 | | Oggetto: orologi vari.. Ven Nov 02, 2007 3: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
|
_________________ L'unico computer sicuro, è un computer spento. Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia  |
|
darkjoker
Admin
Numero di messaggi: 813
Data d'iscrizione: 30.07.07
| | Oggetto: Re: orologi vari.. Ven Nov 02, 2007 5: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...  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
|
_________________ L'unico computer sicuro, è un computer spento. Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia |
|
certaindeath
Admin
Numero di messaggi: 343
Data d'iscrizione: 30.07.07
| | Oggetto: Re: orologi vari.. Lun Nov 05, 2007 4: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) |
|
