سلام به اساتید عزیز .
من برای پروژه احتیاج دارم کدهای QBasic زیر رو به C به درخواست استاد پروژه تبدیل کنم و با زبان C هیچ اشنایی ندارم .
ممنون میشم دوستان راهنمایی کنند .
برد فرستنده :
برد گیرنده :
من برای پروژه احتیاج دارم کدهای QBasic زیر رو به C به درخواست استاد پروژه تبدیل کنم و با زبان C هیچ اشنایی ندارم .
ممنون میشم دوستان راهنمایی کنند .
برد فرستنده :
کد:
$Regfile = "m8def.dat" $Crystal = 8000000 Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = , _ Clear Down , Compare B Pwm = Clear Up Config Portb.1 = Output Config Portb.2 = Output Dim T As Word Config Adc = Single , Prescaler = Auto , Reference = Internal Do Start Adc T = Getadc(0) T = T / 8 Pwm1a = T Pwm1b = T Waitus 1 Loop End
کد:
$Regfile = "m8def.dat" $Crystal = 16000000 Config Pinc.0 = Input Config Portc.5 = Output Config Portd = Output Config Timer1 = Timer , Prescale = 8 Stop Timer1 Do If Pinc.0 = 0 Then Set Portc.5 Bitwait Pinc.0 , Reset Start Timer1 Bitwait Pinc.0 , Set Stop Timer1 Timer1 = Timer1 * 2 Portd = Timer1 Timer1 = 0 Loop End
دیدگاه