program PWM_DC_Motor
dim momentalno as byte
sub procedure InitMain()
PORTA = 1
TRISA = 1
PORTB = 0
TRISB = 0
PWM1_Init(500)
end sub
main:
InitMain()
momentalno = 16
PWM1_Start()
PWM1_Set_Duty(momentalno)
While (TRUE)
if (RA0_bit <> 0)then
Delay_ms(40)
Inc(momentalno)
PWM1_Set_Duty(momentalno)
end if
Delay_ms(10)
if (RA1_bit <> 0) then
Delay_ms(40)
Dec(momentalno)
PWM1_Set_Duty(momentalno)
end if
Delay_ms(10)
Wend
end.
на RA0 Имаш тастер уклучен кој уклучува према маса, пинот е со Pull-Up отпорник, кога ќе се прицне тастерот паѓа на ниско...
на RA1 исто..
на RB3 имаш PWM сигнал, стави нешто лед или нешто што било да се гледа дали менува интензитет, планирано е моторче да има тука
на RB0 би требало да зголемува, а на RB1 да намалува
само хелс има во атачмент