PDA

Visualizza la versione completa : visual basic - tempo alla rovescia


lofcarlos
11-05-2002, 21:39
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 (http://www.loffredocarlo.3000.it) :master:

debbelandia
11-05-2002, 22:48
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
12-05-2002, 03:27
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
12-05-2002, 03:30
Anche il parametro del timer "Intervall" va impostato a 1000 prima di eseguire e il parametro "Enabled" a false
ciao...

Loading