akbar_online
14-06-2015, 20:24
من مداری شبیه تصویر زیر را طراحی کردم که در این مدار موتورها توسط بلوتوث موبایل کنترل شوند در واقع قرار است اعمال حرکت به جلو و عقب و چپ و راست انجام بده این مدار با led تست کردم و کار می کنه اما وقتی به موتور های یک ماشین اسباب بازی متصل می کنم قادر نیست موتورها را حرکت بده و فقط دو سه ثانیه حرکت می کنند و در آخر با عث میشه میکرو ریست بشه . یک سوال دیگه اینه وقتی ولتاژ ورودی ماژول را از ولتاژ میکرو جدا می کنم عکس العملی انجام نمیشه
You can see links before reply
کد برنامه:
$regfile = "M32def.dat"
$crystal = 11059200
$baud = 9600
Dim A As String * 2
Enable Interrupts
Enable Urxc
Enable Utxc
Config Porta = Output
Do
A = Inkey()
If A = "f" Then 'forward
Porta.1 = 0
Porta.3 = 1
Porta.2 = 1
Porta.4 = 0
End If
If A = "b" Then 'back
Porta.1 = 1
Porta.3 = 0
Porta.2 = 0
Porta.4 = 1
End If
If A = "l" Then 'left
Porta.1 = 0
Porta.3 = 0
Porta.2 = 0
Porta.4 = 1
End If
If A = "r" Then 'right
Porta.1 = 1
Porta.3 = 0
Porta.2 = 0
Porta.4 = 0
End If
If A = "s" Then 'stop
Porta.1 = 0
Porta.3 = 0
Porta.2 = 0
Porta.4 = 0
End If
Loop
End
You can see links before reply
کد برنامه:
$regfile = "M32def.dat"
$crystal = 11059200
$baud = 9600
Dim A As String * 2
Enable Interrupts
Enable Urxc
Enable Utxc
Config Porta = Output
Do
A = Inkey()
If A = "f" Then 'forward
Porta.1 = 0
Porta.3 = 1
Porta.2 = 1
Porta.4 = 0
End If
If A = "b" Then 'back
Porta.1 = 1
Porta.3 = 0
Porta.2 = 0
Porta.4 = 1
End If
If A = "l" Then 'left
Porta.1 = 0
Porta.3 = 0
Porta.2 = 0
Porta.4 = 1
End If
If A = "r" Then 'right
Porta.1 = 1
Porta.3 = 0
Porta.2 = 0
Porta.4 = 0
End If
If A = "s" Then 'stop
Porta.1 = 0
Porta.3 = 0
Porta.2 = 0
Porta.4 = 0
End If
Loop
End