پاسخ : خرید میکرو AVR و پروگرمر برای شروع
ممنون مازیار خان
ممنون مازیار خان
$regfile = "m16def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1 Dim A As Byte Dim B As Byte Config portd = output Do Pwm1a = A Pwm1b = B Incr A Incr B Waitms 500 loop end
$regfile = "m16def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1 Dim A As Byte Dim B As Byte Config portd = output Do Pwm1a = A Pwm1b = B Incr A Incr B Waitms 500 loop end
$regfile = "m16def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1 Dim A As Byte Dim B As Byte Config portd = output Do Pwm1a = A Pwm1b = B Incr A Incr B Waitms 500 loop end
دیدگاه