تغییر فرکانس میکرو بدون تغییر صدای آژیر

[rezashoja]

سلام
کد زیر برای تولید صدای آژیر میباشد

  For Frq = 50 To 20 Step -1
      D = 51 - Frq
      Sound Spkr , D , Frq
  Next Frq
  For Frq = 20 To 50 Step 1
  D = 51 - Frq
  Sound Spkr , D , Frq
  Next Frq

اما این کد فقط برای فرکانس 1 مگ با صدای قابل قبولی عمل میکنه و برای تغییر به فرکانس11.0592MHz عملکرد درستی نداره
ممنون میشم دوستان این کد رو اصلاح کنند