[VB6] Creazione orologio con Timer

[ing.tammaro]

Private Sub cmdAPRI_Click()
        
    MSComm1.Output = "S" & vbCrLf            ' Invio il carattere "S" nel momento in cui click su cmdAPRI
    
    End Sub

Private Sub cmdChiudi_Click()

    MSComm1.Output = "N"             ' Invio il carattere "N" nel momento in cui click su cmdCHIUDI

End Sub

Private Sub Form_Load()
    MSComm1.CommPort = 1             ' Selezioniamo la COM1
    MSComm1.Settings = "9600,n,8,1"  ' Le impostazioni della seriale
    MSComm1.RThreshold = 1           ' voglio essere informato della ricezione di ogni singolo carattere
    MSComm1.SThreshold = 1
    On Error Resume Next
    MSComm1.PortOpen = True          ' Apriamo la porta.
        If Err.Number = 8018 Then
        MsgBox "La porta è aperta" & MSComm1.CommPort & vbCrLf & Error$
        End If
    On Error GoTo 0
End Sub



Private Sub MSComm1_OnComm()
    Dim Rx$
    Rx$ = MSComm1.Input              ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
    If Len(Rx$) Then               ' Se ho ricevuto qualcosa lo scrivo nella TextBox
    Text1.Text = Text1.Text & Rx$
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

MSComm1.Output = Chr$(KeyAscii)
End Sub

Nel codice sopra vorrei aggiungere un orologio. Come faccio ? Vi ringrazio per ogni vostro aiuto. Ho provato ad utilizzare lbltimer.caption = Time ma niente. Ovviamente con l'oggetto Timer. Potreste aiutarmi?

[oregon]

Cosa non andava nel codice che avevi scritto?

Dato un timer attivato con un tempo di 1000 ms e una label, il codice puo' essere

Private Sub Timer1_Timer()
    Label1.Caption = Time
End Sub

[814(k m49!(]

imposta l'interval del timer a 500 e poi nell'evento timer (del timer) scrivi label1.caption=time

[ing.tammaro]

Ok perfetto ... ho risolto ... non impostavo correttamente l'interval. E se volessi inserire anche la data?

[oregon]

Cerca nell'help

Now

oppure

Date