[VB6] Timer

[tarantino]

Ragazzi devo usare l'oggetto timer in visual basic ma non so usarlo.
Io ho un rettangolo colorato e vorrei che ogni 2 sec lampeggiasse, come posso fare?sto uscendo pazzo

[@less]

Fai una ricerca sul forum, e controlla il tutorial se ti può dare una mano
http://programmazione.html.it/visual...lbasic_14.htm.
All'evento del timer es:

Dim lampeggia=0

Sub timer1_timer
	if lampeggia = 0 then
		image.visible=True
		lampeggia = 1
	else
		image.visible=False
		lampaggia =0
	end if
End Sub

[@less]

ps. Nel titolo c'è da specificare la versione del linguaggio

[tarantino]

NOn funziona ragazzi, e poi io vorrei attivare il timer una volta cliccato su un bottone ,avete qualche idea?

[@less]

Prova a postare il codice

[tarantino]

Sub timer8_timer()
Dim lampeggia As Integer
lampeggia = 0
If lampeggia = 0 Then
a202.Visible = True
lampeggia = 1
ElseIf lampeggia = 1 Then
a202.Visible = False
lampeggia = 0

End If
End Sub

[tarantino]

ho sbagliato scusa:



Dim lampeggia=0

Sub timer1_timer
if lampeggia = 0 then
image.visible=True
lampeggia = 1
else
image.visible=False
lampaggia =0
end if
End Sub

[@less]

Ehm

Dim lampeggia As Integer
lampeggia = 0

Deve essere scritto prima della sub, ogni volta che il timer viene eseguito il valore lampeggia viene sempre posto a zero e l'else if non viene eseguito...

[tarantino]

anche cosi non funziona


Dim lampeggia As Integer

lampeggia = 0


Sub timer8_timer()

If lampeggia = 0 Then
a202.Visible = True
lampeggia = 1
Else
a202.Visible = False
lampaggia = 0
End If
End Sub

[@less]

Originariamente inviato da tarantino
anche cosi non funziona


Dim lampeggia As Integer

lampeggia = 0


Sub timer8_timer()

If lampeggia = 0 Then
a202.Visible = True
lampeggia = 1
Else
a202.Visible = False
lampaggia = 0
End If
End Sub

prova a correggere lampaggia in lampeggia