(VB6) codice scritto giusto?

[desmo16]

ciao ragazzi vi posto prima il codice:

Private Sub Command1_Click()
TempoAllaFine = ToSeconds(Text1.Text) * 100
Timer1.Interval = 10
Randomize (Timer)
If Text1.Text = "00.00" Then
Timer1.Enabled = False
MsgBox ("nessun timer inserito")
'beep
End If
End Sub

dovrebbe in pratica non partire quando nel text1 c'è 00.00
e poi partire quando inserisco il tempo.
perchè una volta che non metto il tempo e poi lo rimetto non parte?
dove sbaglio?

[gymvideo]

ciao ragazzi vi posto prima il codice:

Private Sub Command1_Click()
TempoAllaFine = ToSeconds(Text1.Text) * 100
Timer1.Interval = 10
Randomize (Timer)
If Text1.Text = "00.00" Then
Timer1.Enabled = False
MsgBox ("nessun timer inserito")
'beep
End If
End Sub

dovrebbe in pratica non partire quando nel text1 c'è 00.00
e poi partire quando inserisco il tempo.
perchè una volta che non metto il tempo e poi lo rimetto non parte?
dove sbaglio?

allora, devi capire un concetto

Testo = "00.00" STRINGA
Numero=00.00 NUMERO

non puoi moltiplicare per 100 una stringa...
come fai a moltiplicare per 100 una frase del tipo "gymvideo is gosu!" ?

Occorrerà prima dichiarare una variabile integer o double e settargli il valore 00.00

[desmo16]

allora, devi capire un concetto

Testo = "00.00" STRINGA
Numero=00.00 NUMERO

non puoi moltiplicare per 100 una stringa...
come fai a moltiplicare per 100 una frase del tipo "gymvideo is gosu!" ?

Occorrerà prima dichiarare una variabile integer o double e settargli il valore 00.00

  
Dim TempoTrascorso As Integer 
Dim TempoAllaFine As Single 

Private Function ToSeconds(str As String) As Double 
ToSeconds = Val(Mid$(str, 1, 2)) * 60 + Val(Mid$(str, 4, 2)) 
End Function

ok

[gymvideo]

  
Dim TempoTrascorso As Integer 
Dim TempoAllaFine As Single 

Private Function ToSeconds(str As String) As Double 
ToSeconds = Val(Mid$(str, 1, 2)) * 60 + Val(Mid$(str, 4, 2)) 
End Function

ok

ok nel senso che parte?