' ' 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 bufferout(1 to 100) as byte dim bufferin(1 to 100) as byte call openqueue(bufferout, 100) call openqueue(bufferin, 100) dim tiempo as single tiempo=1.0 call definecom3(0, 20, bx0100_1000) call opencom(3, 9600, bufferin, bufferout) do call call call call call call call call call call call
putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout,
"#2:136" & chr(13))'0 "#2:219" & chr(13))'1 "#2:162" & chr(13))'2 "#2:146" & chr(13))'3 "#2:209" & chr(13))'4 "#2:148" & chr(13))'5
call call call call call call call call call
delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo) putqueuestr(bufferout, delay(tiempo)
call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) call putqueuestr(bufferout, call delay(tiempo) loop end sub
"#2:132" & chr(13))'6 "#2:218" & chr(13))'7 "#2:128" & chr(13))'8 "#2:144" & chr(13))'9 "#2:8"
& chr(13))'1.
"#2:91"
& chr(13))'2.
"#2:34"
& chr(13))'3.
"#2:18"
& chr(13))'4.
"#2:81"
& chr(13))'5.
"#2:20"
& chr(13))'6.
"#2:4"
& chr(13))'7.
"#2:90"
& chr(13))'8.
"#2:0"
& chr(13))'9.
"#2:16"
& chr(13))'10.