Bascom, program do obsługi SAA1057, jak wstawić przecinek?

Question

Witam Napisalem ostatnio program do obsługi SAA1057 ;) Wszystko chodzi ok ale nie mam pojecia jak do wyświetlanej wartości wstawic przecinek. Wyświelta mi 10700 a chciałbym to zmienić na 107,00 MHz oraz w drugiej lini po podaniu stanu wysokiego na portb.0 aby w 2 linijce wyświetlacza pojawił się...

Prodig · Accepted Answer

Sprawdź ten kod. Powinno być wszystko OK. Początkowo chciałem tego "PLL Lock" zrobić na przerwaniu ale widzę, że podłączyłeś tam LCD.


$regfile = "M8def.dat"
$crystal = 1000000
Dim X As Byte
Dim Wpis As Word

Dim Wpis2 As String * 5
Dim Przed As String * 3
Dim Po As String * 3
Dim Dlugosc As Byte

Config Portd.13 = 1
Config Portd.12 = 1
Config Portd.11 = 1
Config Pinb.2 = 0 : Portb.2 = 1
Config Pinb.1 = 0 : Portb.1 = 1

Dat Alias Portd.13
Ena Alias Portd.12
Clk Alias Portd.11
Config Lcd = 24 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.5 , Db7 = Portd.6 , E = Portd.0 , Rs = Portd.1
Cursor On

Cls : Lcd Wpis : Wait 1
Gosub Saa
Wpis = 10700                                                'To jest początkowa watrość częstotliwości 107,00MHz
Gosub Przecinek

Cls : Lcd Przed ; "," ; Po ; " MHz"
Gosub Saa

Do

Debounce Pinb.2 , 0 , Zwieksz , Sub
Debounce Pinb.1 , 0 , Zmniejsz , Sub

If Pinb.0 = 1 Then
               Locate 2 , 1
               Lcd "PLL Lock"
              Else
               Locate 2 , 1
               Lcd "        "
              End If

Loop

End

Zwieksz:
Wpis = Wpis + 10
Gosub Przecinek

Cls : Lcd Przed ; "," ; Po ; " MHz"
Gosub Saa
Return

Zmniejsz:
Wpis = Wpis - 10
Gosub Przecinek

Cls : Lcd Przed ; "," ; Po ; " MHz"
Gosub Saa
Return

Saa:
Dat = 0
Ena = 0
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
For X = 15 To 0 Step -1

   Dat = Wpis.x                                             'Tu wartość Wpis wysyłamy do syntezy bit po bicie.

   Waitms 5
   Clk = 1
   Waitms 5
   Clk = 0
   Waitms 5
Next X

Ena = 0
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Dat = 1
Clk = 1
Waitms 100

Return

Przecinek:
Wpis2 = Str(wpis)
Dlugosc = Len(wpis2)
If Dlugosc = 5 Then
                  Przed = Left(wpis2 , 3)
                  Po = Right(wpis2 , 2)
               End If
If Dlugosc = 4 Then
                  Przed = Left(wpis2 , 2)
                  Po = Right(wpis2 , 2)
               End If
Return

End

Mam na sprzedaż:
27.02.2006 Kabel RG-58 - 23 metry - Technokabel

Prodig · Answer

Co do przecinka jest kilka sposobów w zależności od potrzeb, najprościej chyba tak:


$regfile = "M8def.dat"
$crystal = 1000000
Dim X As Byte
Dim Wpis As Word
Dim Wpis2 As String * 5
Dim Przed As String * 2
Dim Po As String * 3

Config Portd.13 = 1
Config Portd.12 = 1
Config Portd.11 = 1
Config Pinb.2 = 0 : Portb.2 = 1
Config Pinb.1 = 0 : Portb.1 = 1

Dat Alias Portd.13
Ena Alias Portd.12
Clk Alias Portd.11
Config Lcd = 24 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.5 , Db7 = Portd.6 , E = Portd.0 , Rs = Portd.1
Cursor On

Cls : Lcd Wpis : Wait 1
Gosub Saa
Wpis = 10700                                                'To jest początkowa watrość częstotliwości 107,00MHz
Wpis2 = Str(wpis)
Przed = Left(wpis2 , 3)
Po = Right(wpis2 , 2)

Cls : Lcd Przed ; "," ; Po ; " MHz"
Gosub Saa

Do

Debounce Pinb.2 , 0 , Zwieksz , Sub
Debounce Pinb.1 , 0 , Zmniejsz , Sub
Loop

End

Zwieksz:
Wpis = Wpis + 10
Wpis2 = Str(wpis)
Przed = Left(wpis2 , 3)
Po = Right(wpis2 , 2)

Cls : Lcd Przed ; "," ; Po ; " MHz"
Gosub Saa
Return

Zmniejsz:
Wpis = Wpis - 10
Wpis2 = Str(wpis)
Przed = Left(wpis2 , 3)
Po = Right(wpis2 , 2)

Cls : Lcd Przed ; "," ; Po ; " MHz"
Gosub Saa
Return

Saa:
Dat = 0
Ena = 0
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
For X = 15 To 0 Step -1

   Dat = Wpis.x                                             'Tu wartość Wpis wysyłamy do syntezy bit po bicie.

   Waitms 5
   Clk = 1
   Waitms 5
   Clk = 0
   Waitms 5
Next X

Ena = 0
Waitms 5
Clk = 1
Waitms 5
Clk = 0
Waitms 5
Ena = 1
Waitms 5
Dat = 1
Clk = 1
Waitms 100

Return

Ten kod będzie dobry przy liczbach z zakresu od 100,00 do 999,99. Jeżeli zakres ma być inny, daj znać, rozbuduje się program albo inny algorytm zastosuje

Mam na sprzedaż:
27.02.2006 Kabel RG-58 - 23 metry - Technokabel

mkpl · Answer

Program ma pracowac na wartościach od 87,50 do 108,5 a masz moze jakis pomys na wyświetlanie stanu synchronicacji? Generalnie chodzi o to ze scalak którym steruje ten program jak sie zsynchronizuje z reszta ukladu wystawia na jednym z wyjść stan logiczny 1 a ja chcialbym zeby atmega go wykryla i wyświetliła w 2 lini lcd PLL Lock

Prodig · Answer

Można wykorzystać przerwanie zewnętrzne. Jutro przerobię program dla zakresu 87,50-108,5 oraz dorobię obsługę przerwania. Teraz jestem już trochę śpiący

mkpl · Answer

Ok wogóle to dzieki za pomoc mało jest takich jak ty:D Ale cos jest nie tak skopiowałem twój kod i bacom wywala mi błędy. Niewiem co jest grane ale mam nadzieje ze sie przyda

Prodig · Answer

Jaką wersję BascomAVR posiadasz?

mkpl · Answer

Dosyc stara 1.11.8.3

Prodig · Answer

To jest wersja najnowsza chyba Możesz udostępnić swój plik z źródłem programu? Ten z rozszerzeniem .bas U mnie kompiluje się bez problemu a mam tą samą wersję BascomAVR.

mkpl · Answer

Ok prgram jest tu

M. S. · Answer

A może taki knif

Wartość o nazwie Czestotliwosc = 10700 (kHz) wyświetli jako 10.700 MHz

Locate 1 , 3
Lcd " " ; Czestotliwosc ; "       "
Czestotliwosc = Czestotliwosc \ 1000
Locate 1 , 2
Lcd " " ; Czestotliwosc ; "."
Locate 1 , 11 : Lcd " MHz   "

I jak to działa?

Promuję tematy:
22.11.2020 Emulator czujników TPMS dla Opla.

mkpl · Answer

Dzieki Sofcik śmiga aż miło

Bascom, program do obsługi SAA1057, jak wstawić przecinek?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Podsumowanie tematu