[VB.NET] Lampeggiamento di led con un Timer

[Vb.net master]

Salve ragazzi,

a scuola stiamo realizzando un programma che simula la porta parallela in Vb.net io ho creato un form con i led rosso quando è spento quindi il valore è zero e il led verde quando è accesso quindi valore 1, ho fatto tutto però ora voglio realizzare attraverso un timer e una track bar il lampeggiamento dei led però non ci riesco qualcuno mi sa dare una mano????....rispondete a presto....

[Vb.net master]

Originariamente inviato da Vb.net master
Salve ragazzi,

a scuola stiamo realizzando un programma che simula la porta parallela in Vb.net io ho creato un form con i led rosso quando è spento quindi il valore è zero e il led verde quando è accesso quindi valore 1, ho fatto tutto però ora voglio realizzare attraverso un timer e una track bar il lampeggiamento dei led però non ci riesco qualcuno mi sa dare una mano????....rispondete a presto....

[Pr1!!]

aumentando il valore(proprietà value) della track bar(che genera l'evento valueCanghed) aumenti l' intervallo(interval) del timer
a ogni tik se il led è verde(o rosso) allora lo fai diventare grigio altrimenti lo colori di verde o rosso. il led lo hai fatto con una label,no?

[Vb.net master]

Originariamente inviato da Pr1!!
aumentando il valore(proprietà value) della track bar(che genera l'evento valueCanghed) aumenti l' intervallo(interval) del timer
a ogni tik se il led è verde(o rosso) allora lo fai diventare grigio altrimenti lo colori di verde o rosso. il led lo hai fatto con una label,no?

no sono immagini con paint sovvrapposte se mi riesci a mandare il codice forse è meglio perchè ho provato in tutti i sensi ma niente....

[alka]

Originariamente inviato da Vb.net master
no sono immagini con paint sovvrapposte se mi riesci a mandare il codice forse è meglio perchè ho provato in tutti i sensi ma niente....

Posta il codice che hai scritto, così possiamo eventualmente correggerlo.

[Pr1!!]

immagini su una picturebox immagino, basta cambiare l'immagine invece che il colore
aggiungi alle risorse(esplora soluz\risorse\aggiungi file esistenti)
le tre immagini:
bollino rosso,verde,grigio(per il lampeggio)

sub trackbar1_valueChanged(.....
timer1.interval=trackbar1.value
end sub

sub T1_tick(.....
if ptb1.image=my.resource.ImmagineGrigia then 'il nome del immagine con il bollino grigio
if Rosso=true then 'variabile che indica se il led deve essere rosso o verde, ovviamente devi impostarne il valore nel codice
ptb1.image=my.resource.immagineRossa
else
ptb1.image=my.resource.immagineVerde
end if
end sub
 :unz:

[Vb.net master]

Originariamente inviato da alka
Posta il codice che hai scritto, così possiamo eventualmente correggerlo.

ECCO IL CODICE SE RIUSCITE A FARMI IL FATTO DEL LAMPEGGIAMENTO DEI LED MANDATEMI DINUOVO TUTTO IL CODICE
Public Class Form1

Private Sub ledrosso_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_7.Click
ledrosso_7.Visible = False
tb_1.Text = tb_1.Text + 128
ct_7.Text = 1

End Sub

Private Sub ledverde_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_7.Click
ledrosso_7.Visible = True
tb_1.Text = tb_1.Text - 128
ct_7.Text = 0
End Sub

Private Sub ledrosso_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_6.Click
ledrosso_6.Visible = False
tb_1.Text = tb_1.Text + 64
ct_6.Text = 1
End Sub

Private Sub ledverde_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_6.Click
ledrosso_6.Visible = True
tb_1.Text = tb_1.Text - 64
ct_6.Text = 0
End Sub

Private Sub ledrosso_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_5.Click
ledrosso_5.Visible = False
tb_1.Text = tb_1.Text + 32
ct_5.Text = 1
End Sub

Private Sub ledverde_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_5.Click
ledrosso_5.Visible = True
tb_1.Text = tb_1.Text - 32
ct_5.Text = 0
End Sub

Private Sub ledrosso_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_4.Click
ledrosso_4.Visible = False
tb_1.Text = tb_1.Text + 16
ct_4.Text = 1
End Sub

Private Sub ledverde_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_4.Click
ledrosso_4.Visible = True
tb_1.Text = tb_1.Text - 16
ct_4.Text = 0
End Sub

Private Sub ledrosso_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_3.Click
ledrosso_3.Visible = False
tb_1.Text = tb_1.Text + 8
ct_3.Text = 1
End Sub

Private Sub ledverde_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_3.Click
ledrosso_3.Visible = True
tb_1.Text = tb_1.Text - 8
ct_3.Text = 0
End Sub

Private Sub ledrosso_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_2.Click
ledrosso_2.Visible = False
tb_1.Text = tb_1.Text + 4
ct_2.Text = 1
End Sub

Private Sub ledverde_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_2.Click
ledrosso_2.Visible = True
tb_1.Text = tb_1.Text - 4
ct_2.Text = 0
End Sub

Private Sub ledrosso_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_1.Click
ledrosso_1.Visible = False
tb_1.Text = tb_1.Text + 2
ct_1.Text = 1
End Sub

Private Sub ledverde_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_1.Click
ledrosso_1.Visible = True
tb_1.Text = tb_1.Text - 2
ct_1.Text = 0
End Sub

Private Sub ledrosso_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledrosso_0.Click
ledrosso_0.Visible = False
tb_1.Text = tb_1.Text + 1
ct_0.Text = 1
End Sub

Private Sub ledverde_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ledverde_0.Click
ledrosso_0.Visible = True
tb_1.Text = tb_1.Text - 1
ct_0.Text = 0
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cont1, contatore As Integer
cont1 = 0
contatore = 0

If Track_1.Value = 0 Then
T_1.Stop()
Else
T_1.Start()
End If

End Sub

Private Sub Bt_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_1.Click
Dim cont1, contatore As Integer
cont1 = tb_1.Text
For i = 7 To 0 Step -1
If cont1 - Math.Pow(2, i) >= 0 Then
cont1 = cont1 - Math.Pow(2, i)
contatore = 1
Else
contatore = 0
End If
If i = 7 Then
ct_7.Text = contatore
End If
If i = 6 Then
ct_6.Text = contatore
End If
If i = 5 Then
ct_5.Text = contatore
End If
If i = 4 Then
ct_4.Text = contatore
End If
If i = 3 Then
ct_3.Text = contatore
End If
If i = 2 Then
ct_2.Text = contatore
End If
If i = 1 Then
ct_1.Text = contatore
End If
If i = 0 Then
ct_0.Text = contatore
End If
Next i
End Sub

Private Sub ct_7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_7.TextChanged
If ct_7.Text = 1 Then
ledrosso_7.Visible = False
Else
ledrosso_7.Visible = True
End If
End Sub

Private Sub ct_6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_6.TextChanged
If ct_6.Text = 1 Then
ledrosso_6.Visible = False
Else
ledrosso_6.Visible = True
End If
End Sub

Private Sub ct_5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_5.TextChanged
If ct_5.Text = 1 Then
ledrosso_5.Visible = False
Else
ledrosso_5.Visible = True
End If
End Sub

Private Sub ct_4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_4.TextChanged
If ct_4.Text = 1 Then
ledrosso_4.Visible = False
Else
ledrosso_4.Visible = True
End If
End Sub

Private Sub ct_3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_3.TextChanged
If ct_3.Text = 1 Then
ledrosso_3.Visible = False
Else
ledrosso_3.Visible = True
End If
End Sub

Private Sub ct_2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_2.TextChanged
If ct_2.Text = 1 Then
ledrosso_2.Visible = False
Else
ledrosso_2.Visible = True
End If
End Sub

Private Sub ct_1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_1.TextChanged
If ct_1.Text = 1 Then
ledrosso_1.Visible = False
Else
ledrosso_1.Visible = True
End If
End Sub

Private Sub ct_0_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ct_0.TextChanged
If ct_0.Text = 1 Then
ledrosso_0.Visible = False
Else
ledrosso_0.Visible = True
End If
End Sub

Private Sub Bt_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_2.Click
ct_7.Text = 1
ct_6.Text = 1
ct_5.Text = 1
ct_4.Text = 1
ct_3.Text = 1
ct_2.Text = 1
ct_1.Text = 1
ct_0.Text = 1
ledrosso_7.Visible = False
ledrosso_6.Visible = False
ledrosso_5.Visible = False
ledrosso_4.Visible = False
ledrosso_3.Visible = False
ledrosso_2.Visible = False
ledrosso_1.Visible = False
ledrosso_0.Visible = False
tb_1.Text = 255
End Sub

Private Sub Bt_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_3.Click
ct_7.Text = 0
ct_6.Text = 0
ct_5.Text = 0
ct_4.Text = 0
ct_3.Text = 0
ct_2.Text = 0
ct_1.Text = 0
ct_0.Text = 0
ledrosso_7.Visible = True
ledrosso_6.Visible = True
ledrosso_5.Visible = True
ledrosso_4.Visible = True
ledrosso_3.Visible = True
ledrosso_2.Visible = True
ledrosso_1.Visible = True
ledrosso_0.Visible = True
tb_1.Text = 0
End Sub

[alka]

Originariamente inviato da Vb.net master
ECCO IL CODICE SE RIUSCITE A FARMI IL FATTO DEL LAMPEGGIAMENTO DEI LED MANDATEMI DINUOVO TUTTO IL CODICE

Non hai capito: il codice per il lampeggiamento devi scriverlo tu, ed eventualmente - se non funziona o se qualcosa non ti è chiaro - allora noi lo correggiamo, o ti segnaliamo dove si trova l'errore e così via.

[Vb.net master]

Originariamente inviato da alka
Non hai capito: il codice per il lampeggiamento devi scriverlo tu, ed eventualmente - se non funziona o se qualcosa non ti è chiaro - allora noi lo correggiamo, o ti segnaliamo dove si trova l'errore e così via.

allora forse non sono stato chiaro...non riesco proprio a farlo il fatto del lampeggiamento dei led...non so neanche come fare...sono alle prime armi con questo programmazione...ecco tutto...