Sos !!! Các pác nào biết về ngôn ngữ pic-basicpro giúp em với...!!!!

[KVLV]

thay mấy links này chữ xx thành tt mới có thể vào

official website hxxp://melabs.com/
forum for picbasic pro hxxp://www.picbasic.co.uk/forum/

xài đồ chôm hxxp://www.sonsivri.com/forum/index.php?topic=25291.0
MicroCode Studio 4 hxxp://melabs.com/resources/win_ide.htm#Studio
MPLAB IDE hxxp://www.microchip.com/stellent/idcplg?IdcService=SS_GET_PAGE&nodeId=1406&dDocName =en019469&part=SW007002

những links trên là những gì cần thiết để học picbasic pro.

$fe = số hex tương tự trong c là 0xfe

%00001010 = số nhị phân (binary)

dấu ' là comment trong picbasic pro, hay là lời ghi chú/giải thích

st: là label, 1 nơi/địa chỉ mà trong chương trình có thể dùng goto hoặc gosub để gọi tới

dg1 var byte 'khai báo variable dg1 là 1 byte

POT porta.0,255,dg1 'đọc biến trở ở porta0 và chứa data trong variable dg1, 255 scale (maximum value cho dg1, số thập phân (decimal))

lcdout $fe,1,"Telephone" 'hiển thị trên lcd chữ Telephone, clear lcd first, hàng 1 của lcd
pause 50 'chờ 50 millisecond

if i=50 then 'nếu i=50 thì set i=0 quay về main, goto st là quay về label st.
i=0
goto main
endif
goto st

DTMFOUT PORTa.4,500,100,[0,9,3,8,6,3,4,7,8,6] ' câu này tra trong manual ở post #2 sẽ hiểu thêm.

những câu nào không biết thì hỏi ?

[loveofteens8x]

anh giải thích giùm em thêm 2 lệnh này nữa được ko ạ !
t1 var byte

if dg1<(t1-1) or dg1>(t1+1) then call ct1

[KVLV]

t1 var byte 'khai báo t1 là byte (8 bits)


if dg1<(t1-1) or dg1>(t1+1) then call ct1
if dg1 ít hơn t1 trừ 1 hoặc là dg1 lớn hơn t1 cộng 1 thì gọi ct1 (theo tôi nên dùng gosub thay cho call)

Nguyên văn bởi loveofteens8x

anh giải thích giùm em thêm 2 lệnh này nữa được ko ạ !
t1 var byte

if dg1<(t1-1) or dg1>(t1+1) then call ct1

[loveofteens8x]

ok. tại code này đã chạy rồi , nên em dùng Call luôn. Em cám ơn anh nhìu nghen..!