۱۸-دى-۱۳۹۳, ۱۱:۴۵:۵۷
سلام به همه
من برا اولین بار دارم از سرو استفاده می کنم سرو من هم MG995 هستش
من ی برنامه نوشتم که باپتانسیومتر سرو کنترل شود و در پروتئوس هم امتحان کردم و جواب گرفتم اما موقعی که داشتم مدار را رو بردبرد می ساختم اشتباهی سیم + و - سرو رو جا به جا زدم و بعد موقع تست سرو کار نکرد یعنی سرو سوخته یا مشکلی وجود داره؟
در ضمن همان روز سرو رو موقع خرید تست کردم سالم بود
اینم برنامه
$regfile = "M16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = Portd.4 , E = Portd.1 , Rs = Portd.0
Config Adc = Single , Prescaler = Auto
Start Adc
Config Portb.0 = Output
Config Servos = 1 , Servo1 = Portb.0 , Reload = 15
Dim A As Word
Dim B As Word
Cursor Off
Enable Interrupts
Do
Cls
A = Getadc(0)
B = A / 5
If B < 30 Then B = 30
If B > 130 Then B = 130
Servo(1) = B
Lcd "Servo: " ; B ; " deg"
Waitms 100
Loop
End
من برا اولین بار دارم از سرو استفاده می کنم سرو من هم MG995 هستش
من ی برنامه نوشتم که باپتانسیومتر سرو کنترل شود و در پروتئوس هم امتحان کردم و جواب گرفتم اما موقعی که داشتم مدار را رو بردبرد می ساختم اشتباهی سیم + و - سرو رو جا به جا زدم و بعد موقع تست سرو کار نکرد یعنی سرو سوخته یا مشکلی وجود داره؟
در ضمن همان روز سرو رو موقع خرید تست کردم سالم بود
اینم برنامه
$regfile = "M16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = Portd.4 , E = Portd.1 , Rs = Portd.0
Config Adc = Single , Prescaler = Auto
Start Adc
Config Portb.0 = Output
Config Servos = 1 , Servo1 = Portb.0 , Reload = 15
Dim A As Word
Dim B As Word
Cursor Off
Enable Interrupts
Do
Cls
A = Getadc(0)
B = A / 5
If B < 30 Then B = 30
If B > 130 Then B = 130
Servo(1) = B
Lcd "Servo: " ; B ; " deg"
Waitms 100
Loop
End