Pada penjelasan kali ini akan dibahas mengenai bagaimana cara mengakses motor servo atau mikro servo dengan menggunakan bahasa basic bascom AVR, sebenarnya motor servo merupakan motor dc biasa namun bedanya kalau motor servo terdapat gear yang membuat servo akan berputar hanya 360 derajat dan akan memiliki posisi tertentu dari lebar pulsa yang diberikan, Hardware yang dibutuhkan untuk percobaan kali ini yaitu minimum sistem ATMega dan mikro servo.
1. Minimum System
Kabel dari Mikro Servo ada 3 yaitu
1. VCC
2. GND
3. Data - ke Portb.0
Program Bascom AVR 1
$regfile =
"m16def.dat"
$crystal = 11059200
$baud = 9600
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb.0 = Output
Enable Interrupts
Servo(1) = 220
Do
$crystal = 11059200
$baud = 9600
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb.0 = Output
Enable Interrupts
Servo(1) = 220
Do
Servo(1) =
135
Loop
Program Bascom AVR 2
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb.0 = Output
Enable Interrupts
Dim Perintah As String * 1
Servo(1) = 220
Do
Perintah = Waitkey()
Select Case Perintah
Case "1" :
$crystal = 11059200
$baud = 9600
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb.0 = Output
Enable Interrupts
Dim Perintah As String * 1
Servo(1) = 220
Do
Perintah = Waitkey()
Select Case Perintah
Case "1" :
Servo(1) = 135
Case "2" :
Servo(1) = 60
Case "2" :
Servo(1) = 60
End Select
Loop
Loop
Cara penggunaan program bascom AVR 2 yaitu pertama buka software hyperterminal / Hypoterminal kemudian connect dengan port yang digunakan kemudian tekan angka 1 dan angka 2 pada keyboard komputer maka akan terlihat perubahan gerakan servonya.
No comments:
Post a Comment