saleem4289
New Member
Dear Expert,
Kindly Help my friend make code for me with Bascom-AVR, encoder 1024PPR and motor RPM is 1400, I need pwm out put.
Awaiting your help,
Asif.
$regfile = "m8def.dat"
$crystal = 1000000
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Yard As Word
Dim Cb As Byte
Dim B As Bit
Dim Y As Word
Config Timer0 = Counter , Edge = Rising
Stop Timer0
Tccr1a = &B10100011
Tccr1b = &B00000001
Config Portb = Output
Config Portd.0 = Input
Config Portd.1 = Input
Config Debounce = 10
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Do
For Cb = 1 To 10 Step 1
Debounce Pind.0 , 1 , Int0_isr , Sub
Debounce Pind.1 , 1 , Int1_isr , Sub
Start Timer0
Waitms 100
Stop Timer0
Yard = Yard + Counter0 : Counter0 = 0
Next
Pwm1a = Yard
Yard = 0 : Cb = 0
Loop
End
Kindly Help my friend make code for me with Bascom-AVR, encoder 1024PPR and motor RPM is 1400, I need pwm out put.
Awaiting your help,
Asif.
$regfile = "m8def.dat"
$crystal = 1000000
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Yard As Word
Dim Cb As Byte
Dim B As Bit
Dim Y As Word
Config Timer0 = Counter , Edge = Rising
Stop Timer0
Tccr1a = &B10100011
Tccr1b = &B00000001
Config Portb = Output
Config Portd.0 = Input
Config Portd.1 = Input
Config Debounce = 10
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Do
For Cb = 1 To 10 Step 1
Debounce Pind.0 , 1 , Int0_isr , Sub
Debounce Pind.1 , 1 , Int1_isr , Sub
Start Timer0
Waitms 100
Stop Timer0
Yard = Yard + Counter0 : Counter0 = 0
Next
Pwm1a = Yard
Yard = 0 : Cb = 0
Loop
End