Lutoniall
12-15-2007, 01:42 PM
Dim Digits(0 To 9)
Digits(0) = Array(1, 1, 1, 1, 1, 1, 0)
Digits(1) = Array(0, 0, 1, 1, 0, 0, 0)
Digits(2) = Array(0, 1, 1, 0, 1, 1, 1)
Digits(3) = Array(0, 1, 1, 1, 1, 0, 1)
Digits(4) = Array(1, 0, 1, 1, 0, 0, 1)
Digits(5) = Array(1, 1, 0, 1, 1, 0, 1)
Digits(6) = Array(1, 1, 0, 1, 1, 1, 1)
Digits(7) = Array(0, 1, 1, 1, 0, 0, 0)
Digits(8) = Array(1, 1, 1, 1, 1, 1, 1)
Digits(9) = Array(1, 1, 1, 1, 1, 0, 1)
InNum = InputBox("Enter number")
If Isnumeric(Innum) Then
If INNum > 0 And InNum < 1000 Then
Hundreds = InNum \ 100
Tens = InNUm \ 10 Mod 10
For Segment = 1 To 7
Controls("Line" & Segment).Visible = Digits(Number)(Segment - 1) = 1
Next
Ive mentioned this before somewhere (I think) but how do change it to do another one with lines 8 to 14? Then 15 to 21 and finally 22 to 28?
Digits(0) = Array(1, 1, 1, 1, 1, 1, 0)
Digits(1) = Array(0, 0, 1, 1, 0, 0, 0)
Digits(2) = Array(0, 1, 1, 0, 1, 1, 1)
Digits(3) = Array(0, 1, 1, 1, 1, 0, 1)
Digits(4) = Array(1, 0, 1, 1, 0, 0, 1)
Digits(5) = Array(1, 1, 0, 1, 1, 0, 1)
Digits(6) = Array(1, 1, 0, 1, 1, 1, 1)
Digits(7) = Array(0, 1, 1, 1, 0, 0, 0)
Digits(8) = Array(1, 1, 1, 1, 1, 1, 1)
Digits(9) = Array(1, 1, 1, 1, 1, 0, 1)
InNum = InputBox("Enter number")
If Isnumeric(Innum) Then
If INNum > 0 And InNum < 1000 Then
Hundreds = InNum \ 100
Tens = InNUm \ 10 Mod 10
For Segment = 1 To 7
Controls("Line" & Segment).Visible = Digits(Number)(Segment - 1) = 1
Next
Ive mentioned this before somewhere (I think) but how do change it to do another one with lines 8 to 14? Then 15 to 21 and finally 22 to 28?