点击此处下载录象
程序:
Config Servos = 3 , Servo1 = Porta.0 , Servo2 = Porta.1 , Servo3 = Porta.2 , Reload = 18
Config Porta = Output
Enable Interrupts
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
Dim S As String * 3
Dim Z As String * 1
Dim A As Byte
Dim B As Byte
Dim C As Byte
Do
Input "" , S
Z = Mid(s , 1 , 1)
A = Val(z)
Z = Mid(s , 2 , 1)
B = Val(z)
Z = Mid(s , 3 , 1)
C = Val(z)
Cls
Servo(1) = A * 10
Servo(2) = B * 10
Servo(3) = C * 10
Lcd S
Loop |