|
在昨天做的小车前面加两个看地的传感器,就可以走黑线了。
BASCOMAVR代码:
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto
Declare Sub Go(byval L As Integer , Byval R As Integer)
Config Portc = Input
Config Portd = Output
Start Adc
Dim L As Integer
Dim R As Integer
Do
L = Getadc(0)
R = Getadc(1)
Lcd L
Lcd ","
Lcd R
Cls
If L < 600 And R >= 600 Then
Go -1 , 1
End If
If L >= 600 And R < 600 Then
Go 1 , -1
End If
If L >= 600 And R >= 600 Then
Go 1 , 1
End If
Loop
Sub Go(byval L As Integer , Byval R As Integer)
Select Case L
Case -1
Portd.2 = 1
Portd.3 = 0
Portd.4 = 1
Case 0
Portd.2 = 0
Portd.3 = 0
Portd.4 = 0
Case 1
Portd.2 = 0
Portd.3 = 1
Portd.4 = 1
End Select
Select Case R
Case -1
Portd.7 = 1
Portd.6 = 0
Portd.5 = 1
Case 0
Portd.7 = 0
Portd.6 = 0
Portd.5 = 0
Case 1
Portd.7 = 0
Portd.6 = 1
Portd.5 = 1
End Select
End Sub |
阿莫论坛20周年了!感谢大家的支持与爱护!!
你熬了10碗粥,别人一桶水倒进去,淘走90碗,剩下10碗给你,你看似没亏,其实你那10碗已经没有之前的裹腹了,人家的一桶水换90碗,继续卖。说白了,通货膨胀就是,你的钱是挣来的,他的钱是印来的,掺和在一起,你的钱就贬值了。
|