Ajout du fichier BASIC/pwm_ctrl.bas

BASIC/pwm_ctrl.bas

@@ -0,0 +1,19 @@
+NEW
+1 PWM.CTRL 
+5 ' PWM control on channel 2 on D5 
+10 ' enable PWM control, 10 bits resolution
+12 ? "LED control at 244 hertz 16 bits on D5" 
+20 PWM.EN 1,16 ' 0 to disable 
+30 'enable channel 2
+40 PWM.CH.EN 2,1 
+50 ADCON 1 
+60 ' read analog input channel and set TIM1.CCR1 register with value.
+70 DO 
+80 ? "\b\b\b\b\b\b";:LET N=ADCREAD(0)*64: ? n;
+90 PWM.OUT 2,N  
+100 UNTIL KEY? ' quit when a key is pressed 
+110 ' disable PWM control 
+120  PWM.CH.EN 2,0 ' disable channel 0
+130  PWM.EN 0 ' disable TIMER1 
+140 END 
+