visual basic - tempo alla rovescia

[lofcarlos]

qualcuno che se ne intende, potrebbe gentilmente dirmi come potrei fare a mettere un conto alla rovesia di 20 minuti?Grazie



www.loffredocarlo.3000.it :master:

[debbelandia]

devi usare l'oggetto time , sulla barra ogggetti è un orologio, esso in pratica ti fa partire un collegamento ad una procedura o funzione dopo un tot di tempo, detto questo fare un contatore alla rofescia mi sembra banale!!!!CIAO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[kikko81]

Option Explicit
Dim secondi As Integer, minuti As Integer, msg As String


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
minuti = 20
secondi = 0
End Sub

Private Sub Timer1_Timer()
If secondi = 0 Then
secondi = 60
minuti = minuti - 1
End If
secondi = secondi - 1
If secondi < 10 And secondi >= 0 Then
Text1.Text = minuti & ":" & "0" & secondi
Else
Text1.Text = minuti & ":" & secondi
End If
If minuti = 0 And secondi = 0 Then
msg = MsgBox("FINITO", vbOKOnly, "ESECUZIONE TERMINATA")
Timer1.Enabled = False
End If
End Sub

sul form metti un timer (timer1),un command(command1) e una text(text1)
in text1 alla voce text scrivi invece di "text": 20:00 e fallo partire, poi mi dirai....scrivimi pure a kikko81@inwind.it

[kikko81]

Anche il parametro del timer "Intervall" va impostato a 1000 prima di eseguire e il parametro "Enabled" a false
ciao...