سلام
واسه یه پروژه باید دور موتور دوتا موتور 12 ولتی حدود 5 آمپری رو با ATMega8 و به کمک PWM کنترل کنم
واسه تقویت یه شماتیک از اینترنت پیدا کردم و PCB رو زدم
اما مشکلی که الان پیش اومده اینه که وقتی یک موتور خاموشه و به موتور دیگه حداقل PWN اعمال میشه(دیوتی سایکل حدود 5%) موتور دوم هم استارت میخوره و با سرعت کم روشن میشه!
من که کاملا گیج شدم
خودم حدس میزنم مشکل از مدار ماسفتی باشه که بستم
شماتیک اون قسمت و برنامه تست رو میذارم دوستان لطفا راهنمایی بفرمایید مشکل از چیه؟
ممنونم
برنامه:
[code=qbasic]$regfile = "m8def.dat"
$crystal = 16000000
'######################################### ##
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64
'######################################### ##
Enable Interrupts
'######################################### ##
Config Adc = Single , Prescaler = Auto , Reference = Off
Enable Adc
Start Adc
'######################################### ##
Dim Vol1 As Long , Vol2 As Long
'######################################### ##
Compare1a = 0
Compare1b = 0
'######################################### ##
Do
Vol1 = Getadc(5)
Waitms 5
Vol2 = Getadc(4)
Waitms 5
Compare1a = Vol1
Compare1b = Vol2
Waitms 5
Loop
End
'######################################### ##[/code]
شماتیک:
واسه یه پروژه باید دور موتور دوتا موتور 12 ولتی حدود 5 آمپری رو با ATMega8 و به کمک PWM کنترل کنم
واسه تقویت یه شماتیک از اینترنت پیدا کردم و PCB رو زدم
اما مشکلی که الان پیش اومده اینه که وقتی یک موتور خاموشه و به موتور دیگه حداقل PWN اعمال میشه(دیوتی سایکل حدود 5%) موتور دوم هم استارت میخوره و با سرعت کم روشن میشه!
من که کاملا گیج شدم
خودم حدس میزنم مشکل از مدار ماسفتی باشه که بستم
شماتیک اون قسمت و برنامه تست رو میذارم دوستان لطفا راهنمایی بفرمایید مشکل از چیه؟
ممنونم
برنامه:
[code=qbasic]$regfile = "m8def.dat"
$crystal = 16000000
'######################################### ##
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64
'######################################### ##
Enable Interrupts
'######################################### ##
Config Adc = Single , Prescaler = Auto , Reference = Off
Enable Adc
Start Adc
'######################################### ##
Dim Vol1 As Long , Vol2 As Long
'######################################### ##
Compare1a = 0
Compare1b = 0
'######################################### ##
Do
Vol1 = Getadc(5)
Waitms 5
Vol2 = Getadc(4)
Waitms 5
Compare1a = Vol1
Compare1b = Vol2
Waitms 5
Loop
End
'######################################### ##[/code]
شماتیک:
دیدگاه