HELP with segmented displays!

[randr]

I want player1 to simply mirror the same display as player2 but how?

‘Digital Display Player one

Dim Digits(40)

Digits(0)=Array(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15)

Digits(1)=Array(a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31)

Digits(2)=Array(a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47)

Digits(3)=Array(a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59, a60, a61, a62, a63)

Digits(4)=Array(a64, a65, a66, a67, a68, a69, a70, a71, a72, a73, a74, a75, a76, a77, a78, a79)

Digits(5)=Array(a80, a81, a82, a83, a84, a85, a86, a87, a88, a89, a90, a91, a92, a93, a94, a95)

Digits(6)=Array(a96, a97, a98, a99, a100, a101, a102, a103, a104, a105, a106, a107, a108, a109, a110, a111)

Digits(7)=Array(a112, a113, a114, a115, a116, a117, a118, a119, a120, a121, a122, a123, a124, a125, a126, a127)

Digits(8)=Array(a128, a129, a130, a131, a132, a133, a134, a135, a136, a137, a138, a139, a140, a141, a142, a143)

Digits(9)=Array(a144, a145, a146, a147, a148, a149, a150, a151, a152, a153, a154, a155, a156, a157, a158, a159)

Digits(10)=Array(a160, a161, a162, a163, a164, a165, a166, a167, a168, a169, a170, a171, a172, a173, a174, a175)

Digits(11)=Array(a176, a177, a178, a179, a180, a181, a182, a183, a184, a185, a186, a187, a188, a189, a190, a191)

Digits(12)=Array(a192, a193, a194, a195, a196, a197, a198, a199, a200, a201, a202, a203, a204, a205, a206, a207)

Digits(13)=Array(a208, a209, a210, a211, a212, a213, a214, a215, a216, a217, a218, a219, a220, a221, a222, a223)

Digits(14)=Array(a224, a225, a226, a227, a228, a229, a230, a231, a232, a233, a234, a235, a236, a237, a238, a239)

Digits(15)=Array(a240, a241, a242, a243, a244, a245, a246, a247, a248, a249, a250, a251, a252, a253, a254, a255)

Digits(16)=Array(a256, a257, a258, a259, a260, a261, a262, a263, a264, a265, a266, a267, a268, a269, a270, a271)

Digits(17)=Array(a272, a273, a274, a275, a276, a277, a278, a279, a280, a281, a282, a283, a284, a285, a286, a287)

Digits(18)=Array(a288, a289, a290, a291, a292, a293, a294, a295, a296, a297, a298, a299, a300, a301, a302, a303)

Digits(19)=Array(a304, a305, a306, a307, a308, a309, a310, a311, a312, a313, a314, a315, a316, a317, a318, a319)

Digits(20)=Array(b0, b1, b2, b3, b4, b5, b6, b7, b8, b9, b10, b11, b12, b13, b14, b15)

Digits(21)=Array(b16, b17, b18, b19, b20, b21, b22, b23, b24, b25, b26, b27, b28, b29, b30, b31)

Digits(22)=Array(b32, b33, b34, b35, b36, b37, b38, b39, b40, b41, b42, b43, b44, b45, b46, b47)

Digits(23)=Array(b48, b49, b50, b51, b52, b53, b54, b55, b56, b57, b58, b59, b60, b61, b62, b63)

Digits(24)=Array(b64, b65, b66, b67, b68, b69, b70, b71, b72, b73, b74, b75, b76, b77, b78, b79)

Digits(25)=Array(b80, b81, b82, b83, b84, b85, b86, b87, b88, b89, b90, b91, b92, b93, b94, b95)

Digits(26)=Array(b96, b97, b98, b99, b100, b101, b102, b103, b104, b105, b106, b107, b108, b109, b110, b111)

Digits(27)=Array(b112, b113, b114, b115, b116, b117, b118, b119, b120, b121, b122, b123, b124, b125, b126, b127)

Digits(28)=Array(b128, b129, b130, b131, b132, b133, b134, b135, b136, b137, b138, b139, b140, b141, b142, b143)

Digits(29)=Array(b144, b145, b146, b147, b148, b149, b150, b151, b152, b153, b154, b155, b156, b157, b158, b159)

Digits(30)=Array(b160, b161, b162, b163, b164, b165, b166, b167, b168, b169, b170, b171, b172, b173, b174, b175)

Digits(31)=Array(b176, b177, b178, b179, b180, b181, b182, b183, b184, b185, b186, b187, b188, b189, b190, b191)

Digits(32)=Array(b192, b193, b194, b195, b196, b197, b198, b199, b200, b201, b202, b203, b204, b205, b206, b207)

Digits(33)=Array(b208, b209, b210, b211, b212, b213, b214, b215, b216, b217, b218, b219, b220, b221, b222, b223)

Digits(34)=Array(b224, b225, b226, b227, b228, b229, b230, b231, b232, b233, b234, b235, b236, b237, b238, b239)

Digits(35)=Array(b240, b241, b242, b243, b244, b245, b246, b247, b248, b249, b250, b251, b252, b253, b254, b255)

Digits(36)=Array(b256, b257, b258, b259, b260, b261, b262, b263, b264, b265, b266, b267, b268, b269, b270, b271)

Digits(37)=Array(b272, b273, b274, b275, b276, b277, b278, b279, b280, b281, b282, b283, b284, b285, b286, b287)

Digits(38)=Array(b288, b289, b290, b291, b292, b293, b294, b295, b296, b297, b298, b299, b300, b301, b302, b303)

Digits(39)=Array(b304, b305, b306, b307, b308, b309, b310, b311, b312, b313, b314, b315, b316, b317, b318, b319)

‘Digital Display Player two

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

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

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

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

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

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

Digits(6)=Array(c96, c97, c98, c99, c100, c101, c102, c103, c104, c105, c106, c107, c108, c109, c110, c111)

Digits(7)=Array(c112, c113, c114, c115, c116, c117, c118, c119, c120, c121, c122, c123, c124, c125, c126, c127)

Digits(8)=Array(c128, c129, c130, c131, c132, c133, c134, c135, c136, c137, c138, c139, c140, c141, c142, c143)

Digits(9)=Array(c144, c145, c146, c147, c148, c149, c150, c151, c152, c153, c154, c155, c156, c157, c158, c159)

Digits(10)=Array(c160, c161, c162, c163, c164, c165, c166, c167, c168, c169, c170, c171, c172, c173, c174, c175)

Digits(11)=Array(c176, c177, c178, c179, c180, c181, c182, c183, c184, c185, c186, c187, c188, c189, c190, c191)

Digits(12)=Array(c192, c193, c194, c195, c196, c197, c198, c199, c200, c201, c202, c203, c204, c205, c206, c207)

Digits(13)=Array(c208, c209, c210, c211, c212, c213, c214, c215, c216, c217, c218, c219, c220, c221, c222, c223)

Digits(14)=Array(c224, c225, c226, c227, c228, c229, c230, c231, c232, c233, c234, c235, c236, c237, c238, c239)

Digits(15)=Array(c240, c241, c242, c243, c244, c245, c246, c247, c248, c249, c250, c251, c252, c253, c254, c255)

Digits(16)=Array(c256, c257, c258, c259, c260, c261, c262, c263, c264, c265, c266, c267, c268, c269, c270, c271)

Digits(17)=Array(c272, c273, c274, c275, c276, c277, c278, c279, c280, c281, c282, c283, c284, c285, c286, c287)

Digits(18)=Array(c288, c289, c290, c291, c292, c293, c294, c295, c296, c297, c298, c299, c300, c301, c302, c303)

Digits(19)=Array(c304, c305, c306, c307, c308, c309, c310, c311, c312, c313, c314, c315, c316, c317, c318, c319)

Digits(20)=Array(d0, d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, d13, d14, d15)

Digits(21)=Array(d16, d17, d18, d19, d20, d21, d22, d23, d24, d25, d26, d27, d28, d29, d30, d31)

Digits(22)=Array(d32, d33, d34, d35, d36, d37, d38, d39, d40, d41, d42, d43, d44, d45, d46, d47)

Digits(23)=Array(d48, d49, d50, d51, d52, d53, d54, d55, d56, d57, d58, d59, d60, d61, d62, d63)

Digits(24)=Array(d64, d65, d66, d67, d68, d69, d70, d71, d72, d73, d74, d75, d76, d77, d78, d79)

Digits(25)=Array(d80, d81, d82, d83, d84, d85, d86, d87, d88, d89, d90, d91, d92, d93, d94, d95)

Digits(26)=Array(d96, d97, d98, d99, d100, d101, d102, d103, d104, d105, d106, d107, d108, d109, d110, d111)

Digits(27)=Array(d112, d113, d114, d115, d116, d117, d118, d119, d120, d121, d122, d123, d124, d125, d126, d127)

Digits(28)=Array(d128, d129, d130, d131, d132, d133, d134, d135, d136, d137, d138, d139, d140, d141, d142, d143)

Digits(29)=Array(d144, d145, d146, d147, d148, d149, d150, d151, d152, d153, d154, d155, d156, d157, d158, d159)

Digits(30)=Array(d160, d161, d162, d163, d164, d165, d166, d167, d168, d169, d170, d171, d172, d173, d174, d175)

Digits(31)=Array(d176, d177, d178, d179, d180, d181, d182, d183, d184, d185, d186, d187, d188, d189, d190, d191)

Digits(32)=Array(d192, d193, d194, d195, d196, d197, d198, d199, d200, d201, d202, d203, d204, d205, d206, d207)

Digits(33)=Array(d208, d209, d210, d211, d212, d213, d214, d215, d216, d217, d218, d219, d220, d221, d222, d223)

Digits(34)=Array(d224, d225, d226, d227, d228, d229, d230, d231, d232, d233, d234, d235, d236, d237, d238, d239)

Digits(35)=Array(d240, d241, d242, d243, d244, d245, d246, d247, d248, d249, d250, d251, d252, d253, d254, d255)

Digits(36)=Array(d256, d257, d258, d259, d260, d261, d262, d263, d264, d265, d266, d267, d268, d269, d270, d271)

Digits(37)=Array(d272, d273, d274, d275, d276, d277, d278, d279, d280, d281, d282, d283, d284, d285, d286, d287)

Digits(38)=Array(d288, d289, d290, d291, d292, d293, d294, d295, d296, d297, d298, d299, d300, d301, d302, d303)

Digits(39)=Array(d304, d305, d306, d307, d308, d309, d310, d311, d312, d313, d314, d315, d316, d317, d318, d319)

Sub DisplayTimer_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 < 80 ) then

For Each obj In Digits(num)

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

chg = chg\2 : stat = stat\2

Next else

end if

next

‘ end if

end if

End Sub

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

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

[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

next

‘ 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

[randr]

I did try that already @32assassin It’s a rom table (a.g. Soccer) I assume 2nd display is a mirror of first so far can’t get both to work either separately or together but can get either or working as p1

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

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

[randr]

@32assassin i got it! well roth figured it out :) see below change

Sub DisplayTimer_Timer

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

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) : chg2 = chg: stat = chgLED(ii, 2):stat2 = stat

if (num < 80 ) then

For Each obj In Digits(num)

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

chg = chg\2 : stat = stat\2

Next

For Each obj In Digits2(num)

If chg2 And 1 Then obj.State = stat2 And 1

chg2 = chg2\2 : stat2 = stat2\2

Next

else

end if

next

‘ end if

end if

End Sub

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

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

[32assassin]

I merged DisplayTimer and DisplayTimer1

and got it to work

now comes the hard part of making 40  more individual displays

 

https://www.dropbox.com/s/brz23mb7xk05emv/SoccerBall.zip?dl=0

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

[randr]

I did the displays already all working now…

********************************************************
Messing with the VPinball app and push notifications.
So if you haven't downloaded app yet what are you waiting for!?
for IOS and Android

********************************************************

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

[Author]

Posts