[VB.NET] Orologio digitale

[ferrate]

Ciao a tutti...
sto cercando di creare un piccolo orologio digitale...

ho creato un timer e unsa semplice label


al evento form_load del form dove vorrei visualizzare questo orologio
ho inserito il seguente codice

VISUALIZZO TRANQUILLAMENTE L'ORA... MA NN SI AGGIORNA IN BASE ALL'INTERVALLO...



GRAZIE E

Public Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 500
Timer1.Enabled = True
Timer1.Start()

Dim ora As Date
ora = CDate(Hour(CDate(TimeOfDay.ToString())) & ":" & Minute(CDate(TimeOfDay.ToString())) & ":" & Second(CDate(TimeOfDay.ToString())))
Lblora.Text = CStr(ora)


End Sub

[xam85reBanned]

il codice ke hai messo nell load lo devi inserire anche nell' evento timer_tick

[oregon]

Non basta mettere il tutto nella Load ... devi inserire il codice della visualizzazione nell'evento Timer ...

Il Load non viene richiamato periodicamente ma solo una volta ...

[ferrate]

Originariamente inviato da xam85reBanned
il codice ke hai messo nell load lo devi inserire anche nell' evento timer_tick

ok...
spero di aver eseguito alla lettere ciò che mi hai detto :

MA NN MI GIRA COMUNQUE... MI POSTI UN ESEMPIO DI COME DOVREI FARE ??
grazie e scusa...

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub



#Region "APERTURA FORM"
Public Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim ora As Date

ora = CDate(Hour(CDate(TimeOfDay.ToString())) & ":" & Minute(CDate(TimeOfDay.ToString())) & ":" & Second(CDate(TimeOfDay.ToString())))
Lblora.Text = CStr(ora)


End Sub

[ferrate]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = 1000
Timer1.Enabled = True
Timer1.Start()

ora = CDate(Hour(CDate(TimeOfDay.ToString())) & ":" & Minute(CDate(TimeOfDay.ToString())) & ":" & Second(CDate(TimeOfDay.ToString())))
Lblora.Text = CStr(ora)

End Sub


avevate ragione...
però ho dovuto modificare nel proprietà del design l' enabled...

l'enable = true da codice non mi viene preso...
solo se lo imposto da editor grafico sul true

mi funge tutto...
cmq grazie amici siete grandi

[MItaly]

Guarda che questo codice, se lo vuoi inserire, va lasciato in Form_Load.

 Timer1.Interval = 1000
Timer1.Enabled = True
Timer1.Start()

Il resto va bene in Timer1_Tick.

[ferrate]

ah ecco... il motivo...

grazie per l'info...

ciao e grazie