Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it L'avatar di daspide
    Registrato dal
    Nov 2001
    Messaggi
    132

    [VB.NET]:Timer, funzione ogni secondo

    ciao a tutti,
    vorrei gestire una funzione che si attivi ogni tot di tempo stabilito dall'utente.

    ho provato ad usarre l'oggetto timer, ma con scarso risultato, nel senso che non riesco a far partire il contatore da 0 secondi.
    mi spiego meglio:
    codice:
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Dim strK As Integer
            Dim strB As Integer
            Dim str60 As Integer = 60
           strB = Second(TimeString) 
           if strB >= Me.campolim.text then
                 me.timer1.Enabled = false
           end if
        End Sub
    strB parte dai secondi di sistema
    io vorrei che partisse da 0 e si incrementasse di 1 secondo fino al limite imposto dall'utente.

    come posso fare?

    ciao
    Grazie
    ...cosa puoi fare con un rasoio,un limone ed un gatto?!?......
    d%asp%ide

  2. #2
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,463
    Perché effettuare un conteggio? Se hai un intervallo da rispettare, ti basta memorizzare l'ultima volta che hai eseguito il comando e, ad ogni "tick" del Timer, calcolare se - considerando l'ora corrente e sottraendola da quella iniziale - il periodo di attesa è trascorso.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

  3. #3
    Utente di HTML.it L'avatar di daspide
    Registrato dal
    Nov 2001
    Messaggi
    132
    Si effettivamento ho provato a fare una cosa del genere, ho portato l'Elapsed a 1000 invece che a 100 e funziona abbastanza.

    codice:
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Static Dim secondi As Integer
            secondi += 1
            Me.TextBox1.Text = secondi
            If secondi = 599 Then
                secondi = 0
                MsgBox("è passato 1 minuto")
            End If
    end sub
    pero vorrei capire di +
    ad ogni "tick" del Timer
    che cosè e come funziona il "tick", ho letto qualcosa, ma non ho capito molto, lo uso per la prima volta im questa sede

    ciao grazie
    ...cosa puoi fare con un rasoio,un limone ed un gatto?!?......
    d%asp%ide

  4. #4
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,463
    Il Timer consente di eseguire ad intervalli (quasi) regolari una serie di operazioni.
    Con "tick", mi riferivo appunto al nome dell'evento, che coincide con il momento in cui tali operazioni vengono eseguite.

    Esiste anche la documentazione per informazioni più dettagliate sul componente.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.