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