پاسخ : فانکشن ژنراتور
کسی کمک نمیکنه؟؟
مشکل عمده من در تغیر دادن فرکانسشه :read:
کسی کمک نمیکنه؟؟
مشکل عمده من در تغیر دادن فرکانسشه :read:
$regfile = "m16def.dat" $crystal = 1000000 Config Timer1 = Pwm , Prescale = 1 , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1 Cursor Off Dim A As Single , B As Byte , D As Single , T As Single , F As Single M: Do Pwm1a = A Pwm1b = B Goto N Loop N: Do If Pina.0 = 1 Then A = A + 1 Waitms 1 Locate 1 , 1 Lcd "w :" ; A Waitms 50 D = A * 2 D = 1 / D D = D * 1000 Locate 2 , 1 Lcd "freq:" ; Fusing(d , "#.##") Waitms 50 Goto M End If If Pina.1 = 1 Then A = A - 1 Waitms 1 Locate 1 , 1 Lcd "w :" ; A Waitms 100 D = A * 2 D = 1 / D D = D * 1000 Locate 2 , 1 Lcd "freq:" ; Fusing(d , "#.##") Waitms 50 Goto M End If Loop
$regfile = "m16def.dat" $crystal = 1000000 Config Timer1 = Pwm , Prescale = 1 , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1 Cursor Off Dim A As Single , B As Byte , D As Single , T As Single , F As Single M: Do Pwm1a = A Pwm1b = B Goto N Loop N: Do If Pina.0 = 1 Then A = A + 1 Waitms 1 Locate 1 , 1 Lcd "w :" ; A Waitms 50 D = A * 2 D = 1 / D D = D * 1000 Locate 2 , 1 Lcd "freq:" ; Fusing(d , "#.##") Waitms 50 Goto M End If If Pina.1 = 1 Then A = A - 1 Waitms 1 Locate 1 , 1 Lcd "w :" ; A Waitms 100 D = A * 2 D = 1 / D D = D * 1000 Locate 2 , 1 Lcd "freq:" ; Fusing(d , "#.##") Waitms 50 Goto M End If Loop
دیدگاه