+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Electronics and Robotics (http://parsicoders.com/forumdisplay.php?fid=149)
+--- انجمن: micro (http://parsicoders.com/forumdisplay.php?fid=154)
+---- انجمن: AVR (http://parsicoders.com/forumdisplay.php?fid=155)
+---- موضوع: pwm و adc ! (/showthread.php?tid=3624)
pwm و adc ! - a.mehran - 09-01-2014
کد پیاچپی:
$regfile = "m16def.dat"
$crystal = 800000
Config Pind.7 = Input
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Adc = Single , Prescaler = Auto , Reference = Off
Enable Adc
Start Adc
Dim A As Word
Dim B As Word
Config Portd = Output
Config Pinc.1 = Output
Config Pinc.0 = Output
Config Pinc.2 = Output
Config Pinc.3 = Output
Portc.0 = 1
Portc.1 = 0
Portc.2 = 1
Portc.3 = 0
A = 1
A:
Do
A = Getadc(0)
Pwm1a = A
Loop