logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Atmega8 [BASCOM] sterowanie MC145192

mkpl 26 Sty 2012 22:29 944 0
REKLAMA
  • #1 10453358
    mkpl
    Poziom 37  
    Witam
    Jak wyliczyć (ustawić bity) w tej syntezie dla kwarcu 10.350 MHz ?
    Siedzę już nad tym od przeszło godziny i nic nie wymyśliłem
    Zakres częstotliwości w jakich chcę ją przestrajać to 98 - 120 MHz (głowica UKF)


    Link do karty katalogowej: http://www.datasheetarchive.com/dl/Datasheets-21/DSA-409262.pdf

    Na chwilę obecna mam taką procedurkę (zaadaptowana z mojego starego programu sterującego innym podobnym scalakiem)

    Częstotliwość i opcje będą zmieniane przez Rs232 (komunikacje już odpaliłem)

    Poprawki i ulepszenia zaprezentowanego kodu też mile widziane :)

    
    Sub Synteza
    
        Sterowanie = &B00000000                                 'pre config układu
    
    
    
      Reset Portd.3                                             ' CLK
      Set Portd.4                                               ' Enable
      For A = 0 To 13                                           ' wysyłanie bitów częstotliwości  D0 - D13
        If Fpom.a = 1 Then                                      ' bit po bicie
            Set Portd.2
        Else
            Reset Portd.2
        End If
        Call Zegarek                                            ' po każdym bicie takt zegara
      Next A                                                    '
      Reset Portd.2                                             ' wysłanie T0=0
      Call Zegarek                                              ' takt zegara
      Reset Portd.2                                             ' wysłanie T1=0
      Call Zegarek                                              ' takt zegara
      For A = 0 To 7                                            ' wysyłanie bitów sterujących LM7001
          If Sterowanie.a = 1 Then                              ' B0,B1,B2,TB,R0,R1,R2,S
             Set Portd.2
          Else
             Reset Portd.2
          End If
          Call Zegarek                                          ' po każdym bicie takt zegara
      Next A                                                    '
      Reset Portd.4                                             ' koniec transmisji CE=0
    
    End Sub
    '-------------------------------------------------------------------------------
    
    Sub Zegarek
      Waitus 10
      Set Portd.3
      Waitus 10
      Reset Portd.3
      Waitus 10
    End Sub
    
  • REKLAMA
REKLAMA