• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 4 di 4

Discussione: (VB6) codice scritto giusto?

Cambio titolo
  1. #1
    Utente L'avatar di desmo16
    Registrato il
    02-05
    Messaggi
    306

    (VB6) codice scritto giusto?

    ciao ragazzi vi posto prima il codice:
    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?

  2. #2
    gymvideo
    Ospite
    Citazione desmo16
    ciao ragazzi vi posto prima il codice:
    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

  3. #3
    Utente L'avatar di desmo16
    Registrato il
    02-05
    Messaggi
    306
    Citazione gymvideo
    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
    Codice:
      
    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

  4. #4
    gymvideo
    Ospite
    Citazione desmo16
    Codice:
      
    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?

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •