Synteza na AD9851 a Bascom AVR

[SQ9GAC]

Mój kawałek kodu scanera

Kod:

Dim Scanstop As Long  
Debounce Pind.5 , 0 , Scan , Sub

Scan:
   If Pind.5 = 0 Then : Waitms 30
   Locate 1 , 7 : Lcd "Scan" :
   For Freq = Freq To Bandup Step Krok :
    If Krok = 1 Then Waitms 50                              '
    If Krok = 10 Then Waitms 100                            '                        
    If Krok = 100 Then Waitms 150                           '
    If Krok = 1000 Then Waitms 200                          '
    Gosub Freq_update :
    If Pind.5 = 0 Then : Waitms 30
     Scanstop = Freq :
    If Freq = Scanstop Then
    Exit For :
   End If : End If : End If :
   Next Freq :

   Locate 1 , 7 : Lcd "     "
Return