Contador 400 Decimas De Segundo Con Solo Dos Displays

' ' 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 for unidades=0 to 19 display2(unidades)=display1 (unidades) next call definecom3(0, 20, bx0100_1000) call opencom(3, 9600, bufferin, bufferout) do for decenas=0 to 9 for unidades =0 to 9 call putqueuestr(bufferout, "#2:"&cstr (display1(unidades))& chr(13)) call putqueuestr(bufferout, "#3:"&cstr (display2(decenas))& chr(13)) call delay(0.1) next next for decenas=0 to 9 for unidades =10 to 19 call putqueuestr(bufferout, "#2:"&cstr (display1(unidades))& chr(13)) call putqueuestr(bufferout, "#3:"&cstr (display2(decenas))& chr(13)) call delay(0.1) next next for decenas=10 to 19 for unidades =0 to 9 call putqueuestr(bufferout, "#2:"&cstr (display1(unidades))& chr(13)) call putqueuestr(bufferout, "#3:"&cstr (display2(decenas))& chr(13)) call delay(0.1) next next for decenas=10 to 19 for unidades =10 to 19 call putqueuestr(bufferout, "#2:"&cstr (display1(unidades))& chr(13)) call putqueuestr(bufferout, "#3:"&cstr (display2(decenas))& chr(13)) call delay(0.1) next next loop end sub