من باید پروژه کنترل از راه دور موتورdc رو به زودی تحویل دهم ولی به یه مشکل بر خوردم
(چپگرد و راستگرد) موتور رو کنترل میکنم و مشکل من کنترل سرعت موتور با pwm هست.
هر برنامه ای که به نظرم رسید نوشتم ولی جواب نداد اگه کسی قبلا با pwm موتور رو از راه
دور کنترل کرده لطفا بهم بگه با چه برنامه ای این کار رو انجام داده
یا دنیا ممنون میشم
فرستنده:
$regfile = "m16def.dat"
Config Portd.3 = Input
Config Portd.4 = Input
Config Portd.5 = Input
Ddrd.3 = 0 : Portd.3 = 1
Ddrd.4 = 0 : Portd.4 = 1
Ddrd.5 = 0 : Portd.5 = 1
Dim B As Byte
Do
Debounce Pind.3 , 0 , Right
Debounce Pind.4 , 0 , Left
Debounce Pind.5 , 0 , Stop
Loop
Right:
For B = 1 To 10
Print "Right"
Waitms 50
Next
Return
Left:
For B = 1 To 10
Print "Left"
Waitms 50
Next
Return
Stop:
For B = 1 To 10
Print "Stop"
Waitms 50
Next
Return
End
گیرنده:
$regfile = "m16def.dat"
Config Portd.4 = Output
Config Portd.5 = Output
Dim B As Byte
Do
B = Waitkey()
If B = "Right" Then
Reset Portd.4
Set Portd.5
End If
If B = "Left" Then
Reset Portd.5
Set Portd.4
End If
If B = "Stop" Then
Reset Portd.4
Reset Portd.5
End If
Loop
End
(چپگرد و راستگرد) موتور رو کنترل میکنم و مشکل من کنترل سرعت موتور با pwm هست.
هر برنامه ای که به نظرم رسید نوشتم ولی جواب نداد اگه کسی قبلا با pwm موتور رو از راه
دور کنترل کرده لطفا بهم بگه با چه برنامه ای این کار رو انجام داده
یا دنیا ممنون میشم
فرستنده:
$regfile = "m16def.dat"
Config Portd.3 = Input
Config Portd.4 = Input
Config Portd.5 = Input
Ddrd.3 = 0 : Portd.3 = 1
Ddrd.4 = 0 : Portd.4 = 1
Ddrd.5 = 0 : Portd.5 = 1
Dim B As Byte
Do
Debounce Pind.3 , 0 , Right
Debounce Pind.4 , 0 , Left
Debounce Pind.5 , 0 , Stop
Loop
Right:
For B = 1 To 10
Print "Right"
Waitms 50
Next
Return
Left:
For B = 1 To 10
Print "Left"
Waitms 50
Next
Return
Stop:
For B = 1 To 10
Print "Stop"
Waitms 50
Next
Return
End
گیرنده:
$regfile = "m16def.dat"
Config Portd.4 = Output
Config Portd.5 = Output
Dim B As Byte
Do
B = Waitkey()
If B = "Right" Then
Reset Portd.4
Set Portd.5
End If
If B = "Left" Then
Reset Portd.5
Set Portd.4
End If
If B = "Stop" Then
Reset Portd.4
Reset Portd.5
End If
Loop
End