help!!!!!!!!!!!!!!!!!!1111

[sqapg]

as i was saying i have 4 led like led1, led2,led3,led4
and my program is a 4 bit counter which counts from 0000, 0001, 0010....to 1111. so what is the code to make the led light up whenever my string of numbers shows a 1. example
when 0010 is being input, the 3rd led is being light up the rest are all off.
to light the led the command is led3 = true
thanks for helping guys/gals

[InvisibleDuncan]

Try:

Led1 = (Mid(CStr(Counter), 1, 1) = 1)
Led2 = (Mid(CStr(Counter), 2, 1) = 1)
Led3 = (Mid(CStr(Counter), 3, 1) = 1)
Led4 = (Mid(CStr(Counter), 4, 1) = 1)

[plenderj]

I'm trying, and I keep trying, but I cant come up with any code any more snug than that of InvisibleDuncan's

[peet]

sqapg

sample for u

[plenderj]

I prefer my binary converter

[peet]

I do agree plenderj

and thanks for that module... seems to contain some good common routines

[Nucleus]

Perhaps a control array will trim it?

For i = 0 To 3
Check1(i) = Mid(b, i + 1, 1)
Next i

To test it add 4 checkboxes in a control array and a command button, then add the code. Press the button to "count".

Option Explicit
Dim c&
 
Private Sub Command1_Click()
    Dim b$, i&
    
    If c > 15 Then c = 0
    b = Format$(bin(c), "0000")
    
    For i = 0 To 3
    Check1(i) = Mid(b, i + 1, 1)
    Next i
    
    c = c + 1
End Sub
 
Function bin(ByVal X As Long) As String
    Do
        bin = (X And 1) & bin
        X = X \ 2
    Loop While X
End Function