سلام دوستان این برنامه من هست ولی سرعت موتور هام تغییر نمیکنه نمی دونم چرا ؟ حتی اسکوپ رو هم گذاشتم روی پایه هایoc1a,b ولی پالس ها تغییر نمی کردن با فشار دادن پین 0 یا 1 :cry2:
اینم مدارم
http://upload.parsiking.com/file3/1268908282.rar
اینم مدارم
http://upload.parsiking.com/file3/1268908282.rar
کد:
$regfile = "M8DEF.DAT" : $crystal = 8000000 Config Portb = Output : Config Portd = Input Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64 Dim A As Word , B As Word A = 0 : B = 0 Do If Pind.0 = 1 Then : A = A + 10 : B = B + 10 : Waitms 100 : End If If Pind.1 = 1 Then : A = A -10 : B = B -10 : Waitms 100 : End If If Pind.2 = 1 Then : B = 0 : A = 100 : Else : A = 0 : B = 100 : End If Pwm1a = A : Pwm1b = B Loop End
دیدگاه