[Visual basic 2008]Orologio

[edoardol]

allora su vb 6 facevo cosi facile facile

Private Sub Form_Load() tempo.Enabled = True tempo.Interval = 1000 End Sub Private Sub tempo_Timer() Dim ora As Date ora = Hour(Time()) & ":" & Minute(Time()) & ":" & Second(Time()) orologio.Caption = ora End Sub

ora con vb8 faccio cosi e mi da errore a time e caption a caption ho messo .name e sembra non dare errore ma a time non so cosa sostituire grazie a chi mi aiuterà (sto cercando delle guide su internet ma si trovano solo dedicate a visual basic 6

EDIT è bastato utilizzare

TimeOfDay()

ma ora c'o un errore qui

orologio.Caption = ora

caption me lo da come errore ho provato a mettere .name ma non va

Edit: mi sono scordato di dire che avevo creato una label dal nome orologio ed un timer di nome tempo

[oregon]

Hai riletto il tuo post?

Mai vista tanta confusione ...

[edoardol]

facciamo prima cosi ho utilizzato una
(questi sono i nomi)
label: orologio
timer: tempo

Public Class Form1 Private Sub Form_Load() 
tempo.Enabled = True tempo.Interval = 1000 tempo.Start() 
End Sub 
Private Sub tempo_Timer()
 Dim ora As Date 
ora = (Hour(TimeOfDay.ToString()) & ":" & Minute(TimeOfDay.ToString()) & ":" & Second(TimeOfDay.ToString())) 
orologio.Text = ora
 End Sub 
End Class

l'errore consiste nel fatto che non cambia il nome alla label (orologio) con la data spero di essere stato più chiaro

[oregon]

Ma lo vedi che il codice che posti è in una sola riga?

[edoardol]

aggiustato scusa ancora

[oregon]

Ma quegli eventi sono del VB6 ... devi usare quelli di VB.NET ...

Fai doppio click sul timer e doppio click sul form e inserisci questo codice in quegli eventi

Private Sub tempo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tempo.Tick
   Dim ora As Date
   ora = (Hour(TimeOfDay.ToString()) & ":" & Minute(TimeOfDay.ToString()) & ":" & Second(TimeOfDay.ToString()))
   orologio.Text = ora
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   tempo.Interval = 1000
   tempo.Enabled = True
End Sub

[edoardol]

grazie dell' aiuto adesso sto facendo una sveglia ma mi da un errore prova a compilare
(questi sono i nomi)
label: orologio
timer: tempo
label: sveglia
timer: tsveglia
Bottone: Button1

Public Class Form1
    Dim ora As Date
    Private Sub tempo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tempo.Tick
        tempo.Interval = 1000
        tempo.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ora = (Hour(TimeOfDay.ToString()) & ":" & Minute(TimeOfDay.ToString()) & ":" & Second(TimeOfDay.ToString()))
        orologio.Text = ora
    End Sub

    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ora = InputBox("Imposta l'Ora di allarme")


        If Not IsDate(ora) Then MsgBox("Ora non valida") : Exit Sub


        If InStr(1, "/", ora) > 0 Then MsgBox("Inserisci l'ora e non una data") : Exit Sub

        sveglia.Text = ora
        
    End Sub
End Class

mi da errore (System.InvalidCastException non è stata gestita)qua

ora = InputBox("Imposta l'Ora di allarme")

[oregon]

Che ne diresti di fornire tu gli errori ?

P.S. hai invertito il codice che ti ho indicato ...

[edoardol]

non mi funge la tastiera sto usando quella su schermo (ho editato vedi se bastano quelle indicazioni)

[gibra]

Originariamente inviato da edoardol
non mi funge la tastiera

Comparne una nuova?

P.S.
Attento! VB8 non è VB2008!
VB2008 corrisponde a VB9.