'SterowanieSyntezyMC145151_02

Bascom

Synteza częstotliwości w urządzeniu odbiorczym na pasmo 2m współpracującya z odbiornikiem CB-radio. W tym przykładzie występuje tylko przeszukiwanie pasma przy pomocy skanera. Krok przeszukiwasnia 12,5KHz. Wszystkie czynności obserwowane są na wyświetlaczu Lcd.
Uwaga! Zamiast na 12,5KHz, napisałem program na programowanie kanałów i kroki co 125KHz.


'SterowanieSyntezyMC145151_02.bas

'Automatyczne przeszukiwanie pasma, skaner (tylko).

'Synteza sterowana jest bezpośrednio z procesora bez liczników rewersyjnych.

'Patrz schemat blokowy SterowanieSyntezyMC145151.png.

'Ze schematu blokowego wynika, jaki musi być podział w syntezie dla uzyskania wpisanej częstotliwości.

'Liczba podziału została wpisana do zmiennej Bity.

'Po wciśnięciu F2 na wyjściach BCD pojawi się liczba podziału dla syntezy w kodzie binarnym.

'Liczba podziału zostanie wpisana do syntezy i otrzymamy wpisaną z klawiatury częstotliwość.

'Vco ustawi się na częstotliwość potrzebną do otrzymania f wprowadzonej z klawiatury.

'Inny klawisz niż F2 powoduje komunikat "Błędny klawisz".

'Krok syntezy 12,5KHz co 2 sek.

'Opracował Henryk Wydmuch.

'Pamięć zajęta w 75%.

'Procesor Atmega8.

'Zastosujemy oscylator RC wewnętrzny 8MHz, Fusebit ustawiony na 0100.

 

 $regfile = "m8def.dat"                                     'Dyrektyway dla kompilatora.

 $crystal = 8000000                                         'Zastosujemy generator wewnętrzny 8MHz.

Config Lcd = 16 * 2                                         'Konfigurujemy Lcd.

Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5

                                       'LCD dłączony do Port 2, 3, 4, 6, 1, 0.

Config Keyboard = Pinb.1 , Data = Pinb.2 , Keydata = Keydata       'Keyboard=klawiatura, podłączona do Pinc.2 i 3.

 Display Off                                                'Wyłącz Lcd.

 Waitms 300                                                 'Czekaj 300mS.

 Display On                                                 'Załącz Lcd.

 Cls                                                        'Czyść Lcd.

 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Wyjścia BCD.

 Config Pind.0 = Output                                     'A

 Config Pind.1 = Output                                     'B

 Config Pind.2 = Output                                     'C

 Config Pind.3 = Output                                     'D

 Config Pind.4 = Output                                     'E

 Config Pinb.6 = Output                                     'F

 Config Pinb.7 = Output                                     'G

 Config Pind.5 = Output                                     'H

 Config Pind.6 = Output                                     'I

 Config Pind.7 = Output                                     'J

 Config Pinb.0 = Output                                     'K

 Config Pinb.3 = Output                                     'L

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

 Deflcdchar 0 , 32 , 16 , 20 , 24 , 16 , 16 , 30 , 32       'Narysowano ł. (Rysujemy tutaj: Ctrl+L i LCD Designer).

 Deflcdchar 1 , 32 , 32 , 28 , 2 , 30 , 18 , 30 , 1         'Narysowano ą.

 Deflcdchar 2 , 1 , 2 , 15 , 8 , 6 , 1 , 15 , 32            'Narysowano ś.

 Deflcdchar 3 , 2 , 4 , 30 , 18 , 16 , 16 , 30 , 32         'Narysowano ć.

 Deflcdchar 4 , 32 , 32 , 30 , 18 , 30 , 16 , 30 , 4        'Narysowano ę.

 

Dim Kodklaw As Byte                                         'Deklarujemy zmienną Kodklaw, tu będzie umieszczany kod naciśniętego klawisza.

Dim Bity As Long                                            'Zmienna zawierać będzie bity kodu BCD w trzech bajtach.

Dim Wynik As Long                                           'Deklarujemy 4 Bajty pamięci dla zmiennej.

 

  Kodklaw = Getatkbd()                                      'Odczytywanie kodu klawiatury do zmiennej Kodklaw.                                  '

 

 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 Do                                                         'Pętla.

  If Kodklaw < 6 Then                                       'Jeśli naciśnięto klawisz < F2...

  Lcd "B" ; Chr(0) ; Chr(4) ; "dny klawisz"                 'Pokaż komunikat.

  Locate 2 , 1                                              '

  Lcd "Reset"                                               '

 Else                                                       'W przeciwnym razie...

  If Kodklaw > 6 Then                                       'Jeśli naciśnięto klawisz > F2...

  Lcd "B" ; Chr(0) ; Chr(4) ; "dny klawisz"                 'Pokaż komunikat.

  Locate 2 , 1                                              '

  Lcd "Reset"                                               '

End If                                                      'Koniec warunku.

End If                                                      '

 Waitms 200                                                 'Powtarzaj komunikat co 200mS.

 Cls                                                        'Czyść.

 

 If Kodklaw = 6 Then                                        'Jeśli naciśnięto klawisz F2.

 Lcd "Skaner"                                               'Komunikat.

'Zmniejszanie liczby podziału syntezy co 500mS, czyli kroczenie w dół.

'Portb.3 przyjmie poziom bitu 11 zmiennej Bity, itd.

 Bity = 243                                                 'Zmienna zawiera taką liczbę podziału dla syntezy, f=146,125MHz.

 Lcd "146" ; "," ; "125"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     'Przerwa między skanowaniem jednego kanału, a drugiego.

 Bity = 242                                                 '

 Cls                                                        '                                               '

 Lcd "146" ; ",'" ; "000"                                   '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 241                                                 '

 Cls                                                        '                                               '

 Lcd "145" ; "," ; "875"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 240                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "750"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 239                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "625"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 238                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "500"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 237                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "375"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 236                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "250"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 235                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "125"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 234                                                 '

 Cls                                                        '

 Lcd "145" ; "," ; "000"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 233                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "875"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 232                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "750"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 231                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "625"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 230                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "500"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2

 Bity = 229

 Cls

 Lcd "144" ; "," ; "375"

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 228                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "250"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 227                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "125"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 226                                                 '

 Cls                                                        '

 Lcd "144" ; "," ; "000"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

 Bity = 225                                                 '

 Cls                                                        '

 Lcd "143" ; "," ; "875"                                    '

 Portb.3 = Bity.11                                          'L. Dwunasta wartość binarnej zmiennej Bity.

 Portb.0 = Bity.10                                          'K. Jedenasta wartość binarnej zmiennej Bity.

 Portd.7 = Bity.9                                           'J. Dziesiąta wartość binarnej zmiennej Bity.

 Portd.6 = Bity.8                                           'I. Dziewiąta wartość binarnej zmiennej Bity.

 Portd.5 = Bity.7                                           'H. Ósma wartość binarnej zmiennej Bity.

 Portb.7 = Bity.6                                           'G. Siódma wartość binarnej zmiennej Bity.

 Portb.6 = Bity.5                                           'F. Szósta wartość binarnej zmiennej Bity.

 Portd.4 = Bity.4                                           'E. Piąta wartość binarnej zmiennej Bity.

 Portd.3 = Bity.3                                           'D. Czwarta wartość binarnej zmiennej Bity.

 Portd.2 = Bity.2                                           'C. Trzecia wartość binarnej zmiennej Bity.

 Portd.1 = Bity.1                                           'B. Druga wartość binarnej zmiennej Bity.

 Portd.0 = Bity.0                                           'A. Pierwsza wartość binarnej zmiennej Bity.

 Wait 2                                                     '

  End If                                                    'Koniec warunku - jeśli naćiśnięto klawisz F1.

  Loop                                                      'Powtarzaj pętlę.

End                                                         'Tu jest koniec tej pętli.

 

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

  'Tablica numerów przycisków klawiatury AT w kodzie ASCI:

Keydata:                                                    'Podprogram tablicy.

     'Małe litery

   Data 0 , 5 , 0 , 3 , 4 , 5 , 6 , &H07 , 5 , 5 , 5 , &H0B , &H0C , 0,       ''''''''''''A

   Data 63 , 63 , 63 , 63 , 63 , 63 , 63 , 113 , 49 , 63 , 63 , 63 , 122,       ''''''''''B

   Data 115 , 97 , 119 , 50 , 63 , 63 , 99 , 120 , 100 , 101 , 52 ,       ''''''''''''''''C

   Data 51 , 63 , 63 , 32 , 118 , 102 , 116 , 114 , 53 , 63 , 63 , 110 ,       '''''''''''D

   Data 98 , 104 , 103 , 121 , 54 , 63 , 63 , 63 , 109 , 106 , 117 , 55 ,       ''''''''''E

   Data 56 , 63 , 63 , 44 , 107 , 105 , 111 , 48 , 57 , 63 , 63 , 46 , 47 ,       ''''''''F

   Data 108 , 59 , 112 , 95 , 63 , 63 , 63 , 63 , 63 , 63 , 61 , 63 , 63 , 63 ,       ''''G

   Data 63 , 13 , 63 , 63 , 124 , 63 , 63 , 63 , 63 , 63 , 63 , 63 , 63 , 63 , 63,       'H

   Data 63 , 49 , 63 , 52 , 55 , 63 , 63 , 63 , 48 , 127 , 50 , 53 , 54 , 56,       ''''''I

   Data 1 , 63 , 5 , 43 , 51 , 45 , 42 , 57 , 63 , 63       ''''''''''''''''''''''''''''''J

 

    'Duże litery

  Data 0 , 0 , 0 , 5 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,       ''''''''''K

  Data 0 , 0 , 0 , 0 , 0 , 0 , 81 , 33 , 03 , 0 , 0 , 90 , 83 , 65,       ''''''''L

  Data 87 , 64 , 0 , 0 , 67 , 88 , 68 , 69 , 36 , 35 , 0 , 0 , 0 , 86,       '''''M

  Data 70 , 84 , 82 , 37 , 0 , 0 , 78 , 66 , 72 , 71 , 89 , 94 , 0,       ''''''''N

  Data 0 , 0 , 77 , 74 , 85 , 38 , 42 , 0 , 0 , 60 , 75 , 73 , 79,       '''''''''O

  Data 41 , 40 , 0 , 0 , 62 , 63 , 76 , 58 , 80 , 0 , 0 , 0 , 0 , 0,       '''''''P

  Data 0 , 123 , 43 , 0 , 0 , 0 , 0 , 0 , 125 , 0 , 0 , 0 , 0 , 0 , 0,       '''''Q

  Data 0 , 0 , 0 , 0 , 0 , 0 , 49 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 48,       '''''R

  Data 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0       'S