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 ‘點亮d1
for a=1 to 100000:next a '延遲語句
end ‘結束命令
好了大家自己試一下吧,下節課我來教大家IO的輸入控制.
_________________
出一個強大的機器人。(怎么樣沒花多少錢吧!)
2。運行QBASIC.EXE,進入界面按一下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。運行QBASIC.EXE,進入界面按一下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的變化。
是的,這個程序用LED代替了屏幕的顯示,也就是說你能通過輸入的變化來控制LED的亮和滅,當然也就可以控制別的什么(例:控制電機、舵機等),具體怎么做請聽下回分解。
_________________
運行QBASIC.EXE,進入界面按一下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你就可以控制電機正反轉了。
下節課在此基礎上教大家做個自動避障小車.
_________________
第十四課 自動避障小車
課上到這,大家是不是覺得越來越有意思了,如果我講的好大家就頂一下,不然我
就沒有繼續寫的動力了。
上節課我們只講了控制一只電機還有D3、D4沒有用上,是的我是有意留給大家自
己去做,你再焊一塊同樣的板子接到D3、D4就可以了。
把K1、K2換成觸碰開關,一個自動避障小車就有了。
下面我們來看小車工作的程序.
運行QBASIC.EXE,進入界面按一下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同時打開左右電機一起旋轉。
2。K1打開左轉右停.
3.K2打開右轉左停.
我就教這么多剩下的就靠你自己去發揮了。
_________________
由簡單到復雜
由有線到無線
由分散到集中