L298N Motor Driver using pwm code not working..

[tacbanon]

Hi Henrik,
My bad, uploaded the wrong image(must be very tired last night)
[ATTACH=CONFIG]6686[/ATTACH
Thanks for the replying...I will try it today and post here my output.

and if you meant to PWM the Enable pins you have those too on the wrong pins.

..aren't pin5 and pin6 the PWM pins on JP6?


/tacbanon

[tacbanon]

Hi, kindly check if this should be the right pins assignment.
PortD.0 to input3 of l298
PortD.1 to input4 of l28
PortC.0 to enable of l298

by henrik: I'm surprised if that code even compiles.

Really sorry..next time I will double check before uploading.
Code:
PWM PORTD.0, 127,100
PWM PORTD.1, 127,100
PortC.0 = 1

Hope I'm close...

/tacbanon

[HenrikOlsson]

Concentrate on one bridge and motor to begin with, when you have that working apply the same procedure to the second bridge/motor.

Bridge 1 is controlled In1, In2 and ENA - in your case (according to your latest schematic) PortD.0, PortD.1 and PortC.4 respectively.
To drive the motor forward you drive PortD.0 high, PortD.1 low and apply the PWM signal to PortC.4

PortD.0 = 1
PortD.1 = 0

Main:
For i = 0 to 200              ' Ramp up.
   PWM PortC.4, i, 10
NEXT

For i = 200 to 0 Step -1  ' Ramp down.
   PWM PortC.4, i, 10
NEXT

Pause 500

Goto Main

According to the photo of the board there are a jumper for each bridge which says Remove jumper for PWM - did you do that? If you didn't the EN-pins are tied high and will short your PWM signal to the boards Vcc.

/Henrik.

[tacbanon]

Thank you Henrik for saving me hours of time just to make it ...I got it finally! I will try to add the other bridge, then post here my result.

regards,
tacbanon

[tacbanon]

Hi, I did manage to add the other motor, right now I made as a line tracker robot . Not very well on the curves yet and a little slow..hope you can look onto my codes and might able to improve the performance..

DEFINE osc 4         
ANSEL = %00000111 ' Make AN0-AN7 Analog
ANSELH= %00000000 ' Make AN8-AN13 digital

TRISA  = %00111111
ADCON1 = %00001001 
TRISC = 0
TRISD = 0
TRISB = 0

;-------------Variables
senCenter var byte
senRight  var byte
senLeft   var byte 

i var word
i = 0
PORTD.0 = 1 ' In1 
PORTD.1 = 0 ' In2
PORTB.0 = 1 ' In3 
PORTB.1 = 0 ' In4

; PORTC.4 PWM Signal  

loop1:
   Adcin 0, senCenter
   Adcin 1, senRight
   Adcin 2, senLeft
   ;Serout2 PORTD.2, 84, [$1B,$45,Dec senCenter," ", DEc senRight," ",Dec senLeft]
   ;------------------------Select options seen by the sensors
   IF senCenter > 150 and senRight > 150  then 
       Gosub movExtRight
    Endif
   
   IF senCenter > 150 and senLeft > 150  then 
       Gosub movExtLeft
    Endif
   
    IF senCenter > 150 then 
       ;Serout2 PORTD.2, 84, [$1B,$45]       
       ;Serout2 PORTD.2, 84, [$D,"     Center"]
       gosub movForward
    Endif
    IF senRight > 150 then        
       ;Serout2 PORTD.2, 84, [$1B,$45]
       ;Serout2 PORTD.2, 84, [$D,"Rigth"]
       gosub movRight
    Endif
    IF senLeft > 150 then        
       ;Serout2 PORTD.2, 84, [$1B,$45] 
       ;Serout2 PORTD.2, 84, [$D,"           Left"]
       gosub movLeft
    Endif
   ;------------------------
   
   ;gosub movForward

 
GOTO loop1               ' Do it forever

    END

movForward: '  forward
PORTD.0 = 1 ' In1 
PORTD.1 = 0 ' In2
PORTB.0 = 1 ' In3 
PORTB.1 = 0 ' In4
PWM PORTC.4 ,200,10 
PWM PORTC.5 ,200,10
return

movExtRight: ' turn more to the right
PWM PORTC.4 ,50,10 
PWM PORTC.5 ,200,10
return

movRight: '  short right
PWM PORTC.4 ,100,10 
PWM PORTC.5 ,200,10
return

movLeft: '   short left
PWM PORTC.4 ,200,10 
PWM PORTC.5 ,100,10
return

movExtLeft: ' turn more to the left
PWM PORTC.4 ,200,10 
PWM PORTC.5 ,50,10
return

senLost: ' Getback no line detected
PORTD.0 = 0 ' In1 
PORTD.1 = 1 ' In2
PORTB.0 = 0 ' In3 
PORTB.1 = 1 ' In4
PWM PORTC.4 ,200,5 
PWM PORTC.5 ,200,5
pause 50
return

Thanks in advance,
tacbanon

[HenrikOlsson]

Since you're using the 16F887 which has two CCP-modules the first thing I'd do is the rewire the thing so that the EN-pins of the L298N are connected to PortC.1 and PortC.2 and use HPWM instead.
That way the PWM generation is handled in the background, by the CCP-modules (instead of tying up the processor) and you only need to update it when you want to change the speed. Your program gets a lot of time to do other things.

Then I'd probably set up a timer interrupt to trip every 25ms or something. In the ISR I'd read the sensors and set the PWM dutycycles accordingly.

[tacbanon]

Hi, I'm back...I got the HPWM working and also the timer. But I can never make the robot stay on track/line . Probably my setup is not right or something...kindly check my codes, hoping you can help me out spot what I'm doing wrong.

DEFINE OSC 4  
         
ANSEL = %00000000 ' Make AN0-AN7 Digital
ANSELH= %00000000 ' Make AN8-AN13 digital
;--------- Setup Interrupt-------------------------- 
INCLUDE "DT_INTS-14.bas"     ' Base Interrupt System
INCLUDE "ReEnterPBP.bas"     ' Include if using PBP interrupts

ASM
INT_LIST  macro    ; IntSource,        Label,  Type, ResetFlag?
        INT_Handler   TMR1_INT,  _CheckSensors,   PBP,  yes
    endm
    INT_CREATE               ; Creates the interrupt processor
ENDASM
;--------------------------------------------------
T1CON = %00100001                ; 00110001  Prescaler = 8, TMR1ON
@ INT_ENABLE  TMR1_INT     ; enable Timer 1 interrupts

;--Setting HPWM
TRISC.1 = 0 'Set CPP2 to PWM output
TRISC.2 = 0 'Set CPP1 to PWM output
CCP1CON = %0001100 ' Set CCP1 to PWM, Active High
CCP2CON = %0001100 ' Set CCP1 to PWM, Active High

TRISA  = %00111111 ' did not anymore use this for now
ADCON1 = %00001001 
TRISC = 0
TRISD = 0
TRISB = %10000111 ' 0-2 for sensors
PortB = %00000000 ' Reset PortB
OPTION_REG = $7f
;--Init variables
i var Byte
i = 0 ; 200
;-- wheel on forward
PORTD.0 = 1 ' In1 
PORTD.1 = 0 ' In2
PORTD.2 = 1 ' In3 
PORTD.3 = 0 ' In4
;-------------------Speed of motor--
Gear var byte[10]

;--Set allowable speed---
Gear[1] = 0 
Gear[2] = 75 ' start slow roll
Gear[3] = 80

pause 2000
i = 2

MainLoop:  
 ;pause 100 
 
; Start rolling
HPWM 1 ,Gear[i],10
HPWM 2 ,Gear[i],10

GOTO Mainloop               ' Do it forever

END

'---[TMR1 - interrupt handler]--------------------------------------------------
CheckSensors:

if PortB.0 = 1 and PortB.2 = 0 then ' Left sensor
   HPWM 1 ,Gear[3],10
   HPWM 2 ,Gear[2],10
   pause 20          
   ;Serout2 PORTB.6, 84, [$D,"Right           "]
ELSE
if PortB.1 = 1 and PortB.2 = 0 then ' Right sensor
   
   HPWM 1 ,Gear[2],10
   HPWM 2 ,Gear[3],10  
   ;Serout2 PORTB.6, 84, [$D,"            Left"]
   pause 20
ELSE
if PortB.2 = 1 and PortB.0 = 0 and PortB.1 = 0  then  ' Center sensor
   i = i + 1
   if i > 2 then
   i = 3
   ENdif
   ;Serout2 PORTB.6, 84, [$D,"    Center      "]
ELSE
;-------------------More than 1 sensors detected
if PortB.0 = 1 and PortB.2 = 1 then ' Left and Center sensor
   
   HPWM 1 ,Gear[3],10
   HPWM 2 ,Gear[3],10 
   ;Serout2 PORTB.6, 84, [$D,"Right-Center    "]
Else
if PortB.1 = 1 and PortB.2 = 1 then ' Right and Center sensor    
   
   HPWM 1 ,Gear[3],10
   HPWM 2 ,Gear[3],10  
   Serout2 PORTB.6, 84, [$D,"Center-Left     "]
Else
if PortB.0 = 0 and PortB.2 = 0 and PortB.1 = 0 then ' Can't see no line
   ;HPWM 1 ,Gear[0],10
   ;HPWM 2 ,Gear[1],10 
   Serout2 PORTB.6, 84, [$D,"No more line?   "]
   pause 50
ELSE
   Serout2 PORTB.6, 84, [$D,"Error???         "]  ' Others
ENdif:ENDIF:ENDIF:ENDIF:ENDIF:ENDIF 
  
@ INT_RETURN

Thank you in advance,
tacbanon