$regfile = "m8def.dat"                                      ' мега8
$crystal = 8000000
Ddrb = 255
Config Portd.6 = Output
Portd.6 = 0
Dim K As Integer , Chastota As Long                         ', A As Integer , Amplituda As Double , Temp As Double , Skz As Long
Enable Aci                                                  ' разрешаем прерывание от компаратора
On Aci Analogkomp                                           ' при срабатывании компаратора переходим к подпрограмме
Config Timer0 = Timer , Prescale = 1 : On Timer0 Pulse : Enable Timer0
Enable Interrupts



 Do
If Chastota < 20 Then Portb = 0
If Chastota >= 15000 Then Portb = 0
If Chastota < 300 Then Set Portb.0 Else Reset Portb.0
If Chastota > 300 And Chastota < 1500 Then Set Portb.1 Else Reset Portb.1
If Chastota > 1200 And Chastota < 3000 Then Set Portb.2 Else Reset Portb.2
If Chastota > 2500 And Chastota < 4500 Then Set Portb.3 Else Reset Portb.3
If Chastota > 3700 And Chastota < 4810 Then Set Portb.4 Else Reset Portb.4
If Chastota > 4860 And Chastota < 15000 Then Set Portb.5 Else Reset Portb.5
If Portb <> 0 Then Waitms 50
If Portb.5 = 1 Then Waitms 150
Select Case Chastota
  Case Is > 4870 : Waitms 80
  Case Is < 300 : Waitms 20
End Select
Delay
Loop

 Analogkomp:
 Stop Timer0
 Chastota = K * 256
 Chastota = Chastota + Timer0
 Chastota = 3685000 / Chastota
 Timer0 = 255
 K = 1
 Start Timer0
 Return

 Pulse:
 Incr K
 Return

      $regfile = "m8def.dat"                                ' мега8
$crystal = 8000000
Ddrb = 255
Config Portd.6 = Output
Portd.6 = 0
Dim K As Integer , Chastota As Long , A As Byte , I As Byte , Adc_ As Long , Temp As Integer , Shetchik As Integer , Amplituda As Integer
' переменные ШИМа
Dim Canal(6) As Byte , Shim(6) As Byte

Enable Aci                                                  ' разрешаем прерывание от компаратора
On Aci Analogkomp                                           ' при срабатывании компаратора переходим к подпрограмме
Config Timer0 = Timer , Prescale = 1 : On Timer0 Pulse : Enable Timer0
Config Timer2 = Timer , Prescale = 1 : On Timer2 Shim_ : Enable Timer2
Enable Interrupts
Config Adc = Single , Prescaler = Auto , Reference = Internal : Enable Adc : Start Adc



Do
Stop Timer2
Temp = Getadc(5)
Start Timer2
Adc_ = Adc_ + Temp
Incr Shetchik

Loop


Shim_:
 For I = 0 To 5
  Incr Shim(i + 1) : If Shim(i + 1) >= Canal(i + 1) Then : Set Portb.i : Shim(i + 1) = 0 : Else : Reset Portb.i : End If
 Next
Return


 Analogkomp:

 Stop Timer0
 Chastota = K * 256
 Chastota = Chastota + Timer0
 Chastota = 3685000 / Chastota
 Timer0 = 255
 K = 1
 Start Timer0
 Amplituda = Adc_ / Shetchik
 Amplituda = Amplituda / 4

If Chastota < 300 Then Canal(1) = Amplituda Else Canal(1) = 255
If Chastota > 300 And Chastota < 1500 Then Set Canal(2) = Amplituda Else Canal(2) = 255
If Chastota > 1200 And Chastota < 3000 Then Canal(3) = Amplituda Else Canal(3) = 255
If Chastota > 2500 And Chastota < 4500 Then Canal(4) = Amplituda Else Canal(4) = 255
If Chastota > 3700 And Chastota < 4810 Then Canal(5) = Amplituda Else Canal(5) = 255
If Chastota > 4860 And Chastota < 15000 Then Canal(6) = Amplituda Else Canal(6) = 255
Amplituda = 0
 Return

 Pulse:
 Incr K
 Return