Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Atmega8 [BASCOM] sterowanie MC145192

mkpl 26 Jan 2012 22:29 887 0
  • #1
    mkpl
    Level 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 :)



    Code:

    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
    [28-30.06.2022, targi] PowerUP EXPO 2022 - zasilanie w elektronice. Zarejestruj się za darmo