ใครเก่ง picbasic pro ช่วยตอบหน่อยครับ

[jam_007]

ช่วยอธิบายว่ามันทำงานยังไงครับ    ถ้าไม่รบกวนจนเกินไปก็ขอทั้งหมดครับ

[laser]

มันเปน เงื่อนไขที่ตั้งไว้ว่า ถ้า portB มากกว่า 4 และไม่เท่ากับ 11110000 จำทำงานอ่ะคัฟ

มันจาใช้งานได้หรอ ในเมื่อ lable    getkey: ไม่มีการรับค่าใด ๆ นอกจากสั่ง พักการทำงาน 50 ms -*-

[laser]

col var byte คือการกำหนด ให้ตัวแปร col มีค่า 0-255
row เหมือนกับด้านบน
key เหมือนกับ ด้านบน
baud var porta.0 คือกำหนดให้ porta.0 เป็นชื่อตัวแปร baud
serpin เหมือนกับด้านบนแต่เป็น port a.1

loop:
   gosub getkey  ให้ไปทำงานที่ lable getkey

send:
   if baud = 1 then fast ถ้า baud ถูกกระทำโดยการจ่ายไปเข้า ขาA.0
จะทำตามเงื่อนไข ซึ่ง = fast
serout serpin,n2400,[key]
กำหนด serpin = n2400 อยู่ใน ตัวแปร key กรณีที่ baud เป็น 0 หรือ เป็น กราวน์
goto loop กลับไปทำงานที่ลูปอีกครั้ง

fast:
 serout serpin,n9600,[key] อธิบายไปแล้ว

getkey:
   pause 50 คือการพัก โปรแกรม 50ms
getkeyu:
   portb = 0 กำหนด portb ให้เป็น เอาท์พุท หรือ เป็นกราวน์ ทุกขา
   Trisb = $f0 เป็นการกำหนด portB ให้เป็น อินพุต 4 บน และ 4 บิทล่างเป็นเอาท์พุต
   if portB >> 4 != $F then getkeyu เป็น ฟังชั่นย้อนกลับ ถ้า portB มากกว่า4
แต่ไม่เท่ากับ 16 จะย้อนกลับไปที่ lable getkeyu

พอแล้วเน้อ เมื่อ ผมบอกเท่าที่รู้ถ้าผิดก้อขออภัย

[jam_007]