Pagina 1 di 1
Visual basic timer
Inviato: lunedì 10 dicembre 2007, 21:27
da ciro_!
avrei bisogno di creare un timer in visual basic, premetto che ho iniziato ad imparare il visual basic da due giorni quindi non conosco nomi di funzioni esistenti e ho poca dimestichezza con utilizzi di oggetti proprietà etc.
in pratica ho questo scenario: ho una text boxt nel quale è visualizzato:"erogazione in corso"
voglio che dopo x secondo venga visualizzato "prelevare prodotto"
Codice: Seleziona tutto
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.TextChanged
If tipo Like "select" And selezione Like "12" And credito >= 40 And punto < "....." Then
display.Text = "erogazione in corso"
Else <altre istruzioni>
End If
End Sub
come faccio ad inserire un timer?
Re: Visual basic timer
Inviato: lunedì 10 dicembre 2007, 21:45
da danilo84
Ciao, per il Timer in VB6 c'è l'oggetto timer che puoi mettere nel form e dare come valore 1000. Se non ricordo male è Interval che inizialmente lo setti a 0. Quando ti serve lo metti a 1000 e il timer parte.
Re: Visual basic timer
Inviato: lunedì 10 dicembre 2007, 22:05
da ciro_!
si ho trovato l'oggetto timer ma mi servirebbe un aiuto pratico.
ho fatto cosi:
Codice: Seleziona tutto
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.TextChanged
If tipo Like "select" And selezione Like "12" And credito >= 40 Then
Timer1.Enabled = True
Timer1.Interval = 6000
ElseIf <altre istruzioni>
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
display.Text = "preleva prodotto"
Timer1.Enabled = False
End Sub
se faccio cosi dopo 6 secondi riesco ad ottenere che viene visualizzata la scritta desiderata... il fatto è che nn riesco ad ottenere che 6 secondi prima venga visualizzata una scritta del tipo "erogazione in corso"
cioè se aggiungo al codice:
Codice: Seleziona tutto
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles display.TextChanged
If tipo Like "select" And selezione Like "12" And credito >= 40 Then
display.Text = "erogazione in corso" <------------------------------------------------------
Timer1.Enabled = True
Timer1.Interval = 6000
ElseIf <altre istruzioni>
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
display.Text = "preleva prodotto"
Timer1.Enabled = False
End Sub
mi da errore
Re: Visual basic timer
Inviato: martedì 11 dicembre 2007, 7:31
da Pixel
Siccome la programmazione in VB non è supportata da Ubuntu (ovviamente
) sposto al Bar Informatico.
Buon proseguo
