10 cls
20 OUT &h378, 1
21 for a=1 to 100000:next a
30 OUT &h378, 2
31 for a=1 to 100000:next a
40 OUT &h378, 3
41 for a=1 to 100000:next a
50 OUT &h378, 4
51 for a=1 to 100000:next a
60 OUT &h378, 0
61 for a=1 to 100000:next a
70 end
輸完后按F5鍵你就可以看到DEL依此閃亮。
解釋一下:
10 cls ‘10是行號,CLS是清屏命令
OUT &h378, 1 ‘點(diǎn)亮d1
for a=1 to 100000:next a '延遲語句
end ‘結(jié)束命令
好了大家自己試一下吧,下節(jié)課我來教大家IO的輸入控制.
_________________
出一個(gè)強(qiáng)大的機(jī)器人。(怎么樣沒花多少錢吧!)
2。運(yùn)行QBASIC.EXE,進(jìn)入界面按一下ESC鍵后輸入:
10 cls
20 IF (INP(&h379) and 8 )/8=1 then print"K2是閉合的"
30 IF (INP(&h379) and 8 )/8=0 then print"K2是打開的"
40 IF (INP(&h379) and 16)/16=1 then print"K1是閉合的"
50 IF (INP(&h379) and 16)/16=0 then print"K2是打開的"
60 goto 20
1。運(yùn)行QBASIC.EXE,進(jìn)入界面按一下ESC鍵后輸入:
10 cls
20 IF (INP(&h379) and 8 ) / 8=1 then OUT &h378, 1
30 IF (INP(&h379) and 8 ) / 8=0 then OUT &h378, 2
40 IF (INP(&h379) and 16)/16=1 then OUT &h378, 3
50 IF (INP(&h379) and 16)/16=0 then OUT &h378, 4
60 goto 20
輸完后按F5鍵后,按下K1或K2你就可以看到LED的變化。
是的,這個(gè)程序用LED代替了屏幕的顯示,也就是說你能通過輸入的變化來控制LED的亮和滅,當(dāng)然也就可以控制別的什么(例:控制電機(jī)、舵機(jī)等),具體怎么做請聽下回分解。
_________________
運(yùn)行QBASIC.EXE,進(jìn)入界面按一下ESC鍵后輸入:
10 cls
20 IF (INP(&h379) and 8 ) /8=0 then OUT &h378, 1
30 IF (INP(&h379) and 16 ) /16=0 then OUT &h378, 2
40 goto 20輸完后按F5鍵后,按下K1或K2你就可以控制電機(jī)正反轉(zhuǎn)了。
下節(jié)課在此基礎(chǔ)上教大家做個(gè)自動(dòng)避障小車.
_________________
己去做,你再焊一塊同樣的板子接到D3、D4就可以了。
把K1、K2換成觸碰開關(guān),一個(gè)自動(dòng)避障小車就有了。
下面我們來看小車工作的程序.
運(yùn)行QBASIC.EXE,進(jìn)入界面按一下ESC鍵后輸入:
10 cls
20 IF (INP(&h379) and 8 ) /8=0 and IF (INP(&h379) and 16 ) /16=0 then OUT &h378, 5
30 IF (INP(&h379) and 8 ) /8=1 then OUT &h378, 1
40 IF (INP(&h379) and 16 ) /16=1 then OUT &h378, 8
60 goto 20
輸完后按F5鍵小車就跑起來了。
程序說明:
1。K1、K2同時(shí)打開左右電機(jī)一起旋轉(zhuǎn)。
2。K1打開左轉(zhuǎn)右停.
3.K2打開右轉(zhuǎn)左停.
我就教這么多剩下的就靠你自己去發(fā)揮了。
_________________
由簡單到復(fù)雜
由有線到無線
由分散到集中