Control Del Display Mediante Matriz

' ' 111111 ' 2 3 ' 2 3 ' 2 3 ' 444444 ' 5 6 ' 5 6 ' 5 6 ' 777777 8 ' 'codigo 'decimal ascii binario ' 0 136 10001000 ' 1 219 11011011 ' 2 162 10100010 ' 3 146 10010010 ' 4 209 11010001 ' 5 148 10010100 ' 6 132 10000100 ' 7 218 11011010 ' 8 128 10000000 ' 9 144 10010000 ' 0. 008 00001000 ' 1. 091 01011011 ' 2. 034 00100010 ' 3. 018 00010010 ' 4. 081 01010001 ' 5. 020 00010100 ' 6. 004 00000100 ' 7. 090 01011010 ' 8. 000 00000000 ' 9. 016 00010000 ' ' sub main() dim display1(0 to 20) as integer dim display2(0 to 20) as integer dim bufferout(1 to 100) as byte dim bufferin(1 to 100) as byte call openqueue(bufferout, 100) call openqueue(bufferin, 100) dim unidades as integer dim decenas as integer display1(0)=136 display1(1)=219 display1(2)=162 display1(3)=146 display1(4)=209 display1(5)=148 display1(6)=132 display1(7)=218 display1(8)=128 display1(9)=144 display1(10)=8 display1(11)=91 display1(12)=34

display1(13)=18 display1(14)=81 display1(15)=20 display1(16)=4 display1(17)=90 display1(18)=0 display1(19)=16 display2(0)=136 display2(1)=219 display2(2)=162 display2(3)=146 display2(4)=209 display2(5)=148 display2(6)=132 display2(7)=218 display2(8)=128 display2(9)=144 display2(10)=8 display2(11)=91 display2(12)=34 display2(13)=18 display2(14)=81 display2(15)=20 display2(16)=4 display2(17)=90 display2(18)=0 display2(19)=16 call definecom3(0, 20, bx0100_1000) call opencom(3, 9600, bufferin, bufferout) for decenas=0 to 19 for unidades =0 to 19 call putqueuestr(bufferout, "#2:"&cstr (display1(unidades))& chr(13)) call putqueuestr(bufferout, "#3:"&cstr (display2(decenas))& chr(13)) call delay(0.01) next next end sub