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打开右转左停.
我就教这么多剩下的就靠你自己去发挥了。
_________________
由简单到复杂
由有线到无线
由分散到集中