پاسخ : روش کار با پرینتر
من هنوز سر کار هستم. عصر یک نگاهی میکنم.
من هنوز سر کار هستم. عصر یک نگاهی میکنم.
' Strobe : PORTD.1 o_char var byte i var byte TRISB = 0 TRISD = 0 top: PORTB = $ff PORTD = $ff o_char="N" gosub out_char gosub ret for i=0 to 16 LOOKUP i,["A99,15,0,1,1,1,N,"],o_char gosub out_char next i o_char=34 gosub out_char for i=0 to 14 LOOKUP i,["==is is font ++"],o_char gosub out_char next i o_char=34 gosub out_char gosub ret o_char="P" gosub out_char o_char="1" gosub out_char gosub ret pause 2000 goto top ret: ' print a return and line feed o_char=13 gosub out_char o_char=10 gosub out_char return out_char: ' print charcter in o_char PORTD=$3 'strobe high PORTB = o_char pauseus 10 PORTD=$01 pauseus 10 PORTD=$03 return
دیدگاه