🚀 go-pugleaf

"AgoZx" <Agozx@agozx.it> ha scritto nel messaggio 
news:5vDdf.58845$Pe2.1099201@twister2.libero.it...
>
> Copia questo codice in un form, aggiungi un controllo Timer e una 
> Command-Button, dovrebbe funzionare.
> Ciao.
>
> '****************************************
> Option Explicit
> Public Ore As Integer
> Public Minuti As Integer
> Public Secondi As Integer
> '*************************************
> Private Sub Command1_Click()
> Unload Me
> End
> End Sub
> '************************************
>
> Private Sub Form_Load()
>    Timer1.Interval = 1000  'Imposta il Timer a 1 secondo
>    Timer1.Enabled = True
>    Label1.Caption = "Timer    "
>    Label1.AutoSize = True
>    Ore = 0
>    Minuti = 0
>    Secondi = 0
> End Sub
>
> '*******************************************
> Private Sub Timer1_Timer()
> 'questa sub viene chiamata ad ogni secondo
>            Secondi = Secondi + 1
> If Secondi = 60 Then
>            Minuti = Minuti + 1
>    If Minuti = 60 Then
>            Ore = Ore + 1
>            Minuti = 0
>    End If
>            Secondi = 0
> End If
'Scusa dimenticavo i 15 minuti.
'incolla questo frammento di codice.

   If Minuti = 15 Then
            MsgBox "Tempo Scaduto!!"
    End If


>   Label1.Caption = "     Ore : " & Ore & vbCrLf _
>                  & "  Minuti : " & Minuti & vbCrLf _
>                  & " Secondi : " & Secondi
> End Sub
>
> '*******************************************