[VB6] Creazione sveglia

[master666]

Ciao a tutti... avendo molti impegni, volevo creare un prog in vb che all'ora X, che viene visualizzata in una textbox, mi avvisa con un MsgBox impostata da me.. tutto ciò penso sia realizzabile.. ma non so come iniziare.. grazie

[LMondi]

Ciao master666!
Ti posto un esempio commentato di Timer. Attorno al predetto controllo ci puoi costruire la tua sveglia.

Private Sub Command1_Click()
'Legge la textbox #3  per personalizzare il valore Interval
'che corrisponde alla frazione di tempo in cui il Timer deve eseguire le
'sue sub.
'Se il contenuto della textbox è "Inserire il tempo in millisecondi
'(1000 = 1 secondo)" si fa tenere al Timer
'un valore Interval di 1000 che corrisponde a 1 secondo.
If Text3.Text = "Inserire il tempo in millisecondi ( 1000 = 1 secondo)" Then
Timer1.Interval = "1000"
'se la textbox ha il testo con altro valore , allora setta un valore all'interval
'del contenuto della textbox stessa.
Timer1.Enabled = True
Else
Timer1.Interval = Text3.Text
'abilita il timer
Timer1.Enabled = True
End If
'disabilita il pulsante di Start così il conto non riparte ogni volta che premi
'facendo così un corretto ciclo di conteggio.
'Abilita inoltre il pulsante di Stop facendo così uno stop del conteggio.
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
'ferma il conteggio si disabilita ed abilita il tasto start.
'E' possibile anche mettere che si resettano le textbox quando premi STOP
'aggiungendo prima di End Sub la seguente riga (copia & incolla)
'text1.text = "0"
'text2.text = "18"
'Se invece lasciamo così , il conteggio potra ricominciare dal punto in è stato interrotto.
'Utile per conteggiare la durata di una applicazione in esecuzione
'(la vostra però), oppure le ore di esecuzione della vostra applicazione dal 1°
'utilizzo fino a quel momento. Trova anche tu gli usi possibili.

Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'quando il tempo specificato in Interval scade , viene eseguito
'la sub Timer , dove è possibile fare qualsialsi operazione.
'in questa parte dell'esempio la text1 INCREMENTA il suo valore ogni secondo di 1
'ottenendo così un contatore o cronometro
'Invece la text2 DECREMENTA il suo valore di 1 ogni secondo.
'Otteniamo così un countdown , o conto alla rovescia , utile ad esempio
'per specificare il tempo di un operazione di cui si conosce la durata, oppure
'eseguire una operazione e dopo un certo tempo continuare l'esecuzione
'del programma , facendo magari aggiornare dei controlli o
'addiruttura Windows stesso , ma non scendiamo neio particolari.
Text1.Text = Text1.Text + 1
Text2.Text = Text2.Text - 1
'Fa ripartire il timer facendo così che il conto continui
'(scusate il gioco di parole) e riesegua il conto finche non premiamo stop
'O CHE accade un evento che NOI specifichiamo 'quindi per esempio:
'if text1.text = "18" Or text2.text = "0" then
'timer1.enabled = false
'OPERAZIONI
'end if
Timer1.Enabled = True
End Sub

Nella Form inserisci il predetto controllo, 3 TxtBox e 2 CommandButton.
Ciao!

[master666]

ti ringrazio.. l'ho modificato come volevo.. funziona tutto.. grazie!

[LMondi]

Giorni fa ho trovato a quest'indirizzo
http://www.visual-basic.it/articoli/fddAudio.htm
un interessante articolo sull'uso dei file di risorse per i file Wav. Se dai un'occhiata troverai alcuni soluzioni per personalizzare il suono ai vari eventi.
Ciao!

[master666]

ti ringrazio.. adesso ci faccio un giro!