[VB6] Eseguire un'istruzione ad intervalli di un'ora

[akus]

Salve a tutto il newsgroup,vorrei un consiglio su cosa utilizzare per la mia applicazione:
in pratica ho un form e da quando viene aperto deve stampare un messaggio ogni ora sul form stesso.
La mia idea era quella di prendere l'orario di sistema all'apertura e calcolare ed inseire il valore in ms nell'interval del timer solo che ho letto adesso che la proprietà interval supporta poco piu di un minuto....come potrei implementare tutto ciò ?

[Bingop]

Prendi un timer impostalo a 1 sec.
E nell'esecuzione del timer controlli l'ora di sistema se l'ora di sistema supera di un ora
l'ora impostata all'apertura form o all'esecuzione dell'evento di "Mostra informazione" allora
esegui "mostra informazione".

Era questo che volevi sapere?

[akus]

Il fatto sta che quando io apro il form viene stampato il messaggio "Il Form è stato aperto alle ore: xx.xx.xx "
Se il form rimane aperto per un ora all'ora precisa da quando è stato aperto deve essere stampato il messaggio "Il Form è aperto da un ora xx.xx.xx"

[oregon]

Originariamente inviato da akus
Il fatto sta che quando io apro il form viene stampato il messaggio "Il Form è stato aperto alle ore: xx.xx.xx "
Se il form rimane aperto per un ora all'ora precisa da quando è stato aperto deve essere stampato il messaggio "Il Form è aperto da un ora xx.xx.xx"

Non hai aggiunto nulla di piu' al suggerimento che ti era stato proposto ...

Hai usato il timer come ti e' stato detto?

[akus]

Mi da un errore di overflow ti posto il codice

Dim Orario As String
Dim mat() As String
Dim h As Integer, m As Integer, s As Integer

Option Explicit

Private Sub Form_Load()
 Orario = Format(Time, "Long Time")
 mat = Split(Orario, ".")
 h = mat(0)
 m = mat(1)
 s = mat(2)
 Print "form è stato aperto alle ore "
 Print h
 Print m
 Print s
 Timer1.Enabled = True
 
 
 
End Sub

Private Sub Timer1_Timer()
Dim tmp() As Integer
Dim sys As Integer

sys = Format(Time, "Long Time")
tmp = Split(sys, ".")
If (tmp(0) = h) And (m = tmp(1) + 1) And (s = tmp(2)) Then
 Print ""
 Print "E' passato un minuto"
 Print tmp(0)
 Print tmp(1)
 Print tmp(2)
Else
 Print "no"
End If
End Sub

[akus]

Come non detto l'ho sistemato ho messo:

Dim tmp() As String
Dim sys As String