I have a data sctucture as follows:
Code: Select all
Structure Escena
MaxTime As Byte
MinTime As Byte
Actuado As Byte
NextE As Byte
Lights(48) As Byte
ActList(32) As word
End Structure
Code: Select all
Dim ProgRun(24) As Escena
with this code can show you:
Code: Select all
ActEsc=0
NumAct=4
For sa = 0 To NumAct-1
jt=ProgRun(ActEsc).ActList(sa).byte0
jg=ProgRun(ActEsc).ActList(sa).byte1
usart2.write("Esc:",dectostr(actesc)," Act:",dectostr(sa), " T:",dectostr(ProgRun(ActEsc).ActList(sa).byte0), " G:",dectostr(ProgRun(ActEsc).ActList(sa).byte1),13,10)
usart2.write("Esc:",dectostr(actesc)," Act:",dectostr(sa), " T:",dectostr(jt), " G:",dectostr(jg),13,10)
Next
Code: Select all
Esc:0 Act:0 T:0 G:0
Esc:0 Act:0 T:0 G:0
Esc:0 Act:1 T:0 G:0
Esc:0 Act:1 T:32 G:49
Esc:0 Act:2 T:1 G:1
Esc:0 Act:2 T:6 G:16
Esc:0 Act:3 T:1 G:2
Esc:0 Act:3 T:59 G:197
I'm really perplexed here...
any Insight will be apreciated...