Reply To: HELP with segmented displays!

April 26, 2020 at 3:40 pm #175535

Participant

@32assassin

this might not be the mos elegant way of doing things

but you can add a second set of display calls

add a second timer Displaytimer1 and change the variable name Digits(num)

your number of displays should be changed to 40 (assuming this is an original table)

Sub DisplayTimer1_Timer

Dim ChgLED,ii,num,chg,stat, obj

ChgLed = Controller.ChangedLEDs(&HFFFFFFFF, &HFFFFFFFF)

If Not IsEmpty(ChgLED) Then

‘ If not b2son Then

For ii = 0 To UBound(chgLED)

num = chgLED(ii, 0) : chg = chgLED(ii, 1) : stat = chgLED(ii, 2)

if (num < 40 ) then

For Each obj In Digits1(num)

If chg And 1 Then obj.State = stat And 1

chg = chg\2 : stat = stat\2

Next else

end if

‘ end if

end if

End Sub

you can then add your Digits1 calls starting at 0

Dim Digits1(40)

‘Player 2 (Player 1 mirror)

Digits1(0)=Array(c0, c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15)

Digits1(1)=Array(c16, c17, c18, c19, c20, c21, c22, c23, c24, c25, c26, c27, c28, c29, c30, c31)

Digits1(2)=Array(c32, c33, c34, c35, c36, c37, c38, c39, c40, c41, c42, c43, c44, c45, c46, c47)

Digits1(3)=Array(c48, c49, c50, c51, c52, c53, c54, c55, c56, c57, c58, c59, c60, c61, c62, c63)

Digits1(4)=Array(c64, c65, c66, c67, c68, c69, c70, c71, c72, c73, c74, c75, c76, c77, c78, c79)

Digits1(5)=Array(c80, c81, c82, c83, c84, c85, c86, c87, c88, c89, c90, c91, c92, c93, c94, c95)

see a table you like help me find the resources so that I can finish it
https://www.dropbox.com/sh/7qtake9whi5ium2/AAB4K4W78oMVlqSxTzKtGHTHa?dl=0

You need to login in order to like this post: click here