Programiranje u Bascomu

[Kizo]

Bilo bi korisno kad bi dao shemu kako si pospojio displeje, ovako nisi najjasniji. Kažeš da su displeji u multipleksu, a s druge strane koristiš "shiftout" što sugerira na shift registre.

[padova]

Evo programa u celini, to je skinuto sa jednog sajta.To je PLL sa SAA1057.
Sada bih hteo da ubacim prikaz frekvencije na displejima, ako je izvodljivo.

Code: Select all

' Hardware Pwm Abstimmung für das Pollin Tunermodul

$regfile = "m32def.dat"
$crystal = 1000000

Dim A As Integer                                            'Tuningvariable

Dlen Alias Portc.0                                          'Dlen Leitung = Portc.0  'Anschluss 13

Dat Alias Portc.1                                           'Data Leitung = Portc.1   'Anschluss 12

Clb Alias Portd.7                                           'Clock Leitung = Portd.7  'Anschluss 14

Config Dat = Output                                         'Data Leitung als Ausgang

Config Pind.3 = Input                                       'Taster vorheriger Sender

Config Pind.4 = Input                                       'Taster Nächster Sender

Config Pind.2 = Input                                       'Anschluss für das Stoppsignal

Config Portd.6 = Output                                     'Led zeigt laufendes Tuning an

Config Portd.1 = Output                                     'Muting


'Programm starten

Waitms 100                                                  'MC hochfahren lassen

Dat = 0                                                     'Anführende Null

Dlen = 0

Clb = 0

'Saa1057 initalisieren

Dlen = 1                                                    'Datenübertragung beginnen

Gosub Uebertragen                                           'Bit übernehmen

Dat = 1                                                     'Latch B auswählen

Gosub Uebertragen

Dat = 1                                                     'Fm Bit: Fm Modus auswählen


Gosub Uebertragen

Dat = 1                                                     'REFH: Zweites Bit Abstimmschritte 12,5khz auswählen

Gosub Uebertragen

   'Current Amplifier programmieren (0,07 mV)

   Dat = 1                                                  'Cp 3:=0

   Gosub Uebertragen

   Dat = 1                                                  'Cp 2:=0

   Gosub Uebertragen

   Dat = 1                                                  'Cp 1:=0

   Gosub Uebertragen

   Dat = 0                                                  'Cp 0:=1

   Gosub Uebertragen

   'Currentamplifier programmieren Ende

Dat = 0                                                     'SB2: Letzten 8 Bits (werden nich benötigt) automatisch auf 0 setzen

Gosub Uebertragen

Dlen = 0                                                    'Datenübertragung beenden

Clb = 0

Waitus 20

Dat = 0                                                     'Führende Null

'Saa1057 initalisieren Ende

Waitus 20



'Beginn des Tuningparts

   Dlen = 1                                                 'Datenübertragung beginnen

   Gosub Uebertragen                                        'Null übernehmen

   Dat = 0                                                  'Latch A auswählen

   Gosub Uebertragen

'Teilerwert für Startfrequenz in Binärform übertragen ()

Dlen = 1

A = 8120                                                    'Teilerwert für 90,8 Mhz

Shiftout , Dat , Clb , A                                    'Teilerwert auf Dat ausgeben

Portd.1 = 1                                                 'Audio muting aus

Waitus 20

'Hauptschleife des Programmes

Do

'Tuninghoch

Portd.6 = 0

   If Pind.3 = 1 Then                                       'wenn Pind.3 gedrückt und losgelassen

   Portd.6 = 1                                          'Led an
         Portd.1 = 0                                        'Muting an

   Do


       If A < 8460 Then                                     'Begrenzung nach oben

       A = A + 8

       Dat = 0                                              'Leading Zero

       Dlen = 1                                             'Datenübertragung beginnen

       Gosub Uebertragen

       Dat = 0                                              'Latch A auswählen

       Gosub Uebertragen

       Shiftout , Dat , Clb , A                             'Teilerwert als Binärzahl auf Dat ausgeben

       Dlen = 0                                             'Datenübertragung beenden

   Loop Until Pind.2 = 0 Or Pind.4 = 1

      End If

      Portd.6 = 0                                          'Led aus
    Portd.1 = 1                                             'Muting aus

  End If




'Tuningrunter

   If Pind.4 = 1 Then
                                       '...
   Portd.6 = 1                                           'Led an
         Portd.1 = 0                                        'Muting an

   Do


      If A > 7000 Then                                      'Begrenzung nach unten

      A = A - 8

      Dat = 0                                                 'Leading Zero

      Dlen = 1                                                'Datenübertragung beginnen

      Gosub Uebertragen

      Dat = 0                                               '...A

      Gosub Uebertragen

      Shiftout , Dat , Clb , A

      Dlen = 0                                              'Datenübertragung beenden

   Loop Until Pind.2 = 0 Or Pind.3 = 1

      End If

      Portd.6 = 0                                               'Led aus
    Portd.1 = 1                                             'Muting aus

   End If

Loop


Uebertragen:                                                'Routine um Data an den Saa zu übertragen

Waitus 15                                                   'Warten

Clb = 0

Waitus 15                                                   '""

Clb = 1

Waitus 15                                                   '""

Clb = 0

Waitus 15                                                   '""

Return

End

[Kizo]

Programski je sve izvedivo, sve zavisi od programera.

Evo za svaki slučaj shema displeja u multiplexu koja se stalno provlači po forumu.
http://www.postimage.org/image.php?v=gxxnbg9

Što se tiče programa, po simulaciji mi izgleda dosta protočan, tj. nigdje se ne zadržava previše dugo tako da možeš svoj program za displej nadopisati ispred zadnje LOOP naredbe. Možeš to svoje dodati u jedan podprogram da to ne izgleda previše nabacano.
Npr. ovako:

Code: Select all

' Hardware Pwm Abstimmung für das Pollin Tunermodul

$regfile = "m32def.dat"
$crystal = 1000000

Dim A As Integer                                            'Tuningvariable

Dlen Alias Portc.0                                          'Dlen Leitung = Portc.0  'Anschluss 13

Dat Alias Portc.1                                           'Data Leitung = Portc.1   'Anschluss 12

Clb Alias Portd.7                                           'Clock Leitung = Portd.7  'Anschluss 14

Config Dat = Output                                         'Data Leitung als Ausgang

Config Pind.3 = Input                                       'Taster vorheriger Sender

Config Pind.4 = Input                                       'Taster Nächster Sender

Config Pind.2 = Input                                       'Anschluss für das Stoppsignal

Config Portd.6 = Output                                     'Led zeigt laufendes Tuning an

Config Portd.1 = Output                                     'Muting


'Programm starten

Waitms 100                                                  'MC hochfahren lassen

Dat = 0                                                     'Anführende Null

Dlen = 0

Clb = 0

'Saa1057 initalisieren

Dlen = 1                                                    'Datenübertragung beginnen

Gosub Uebertragen                                           'Bit übernehmen

Dat = 1                                                     'Latch B auswählen

Gosub Uebertragen

Dat = 1                                                     'Fm Bit: Fm Modus auswählen


Gosub Uebertragen

Dat = 1                                                     'REFH: Zweites Bit Abstimmschritte 12,5khz auswählen

Gosub Uebertragen

   'Current Amplifier programmieren (0,07 mV)

   Dat = 1                                                  'Cp 3:=0

   Gosub Uebertragen

   Dat = 1                                                  'Cp 2:=0

   Gosub Uebertragen

   Dat = 1                                                  'Cp 1:=0

   Gosub Uebertragen

   Dat = 0                                                  'Cp 0:=1

   Gosub Uebertragen

   'Currentamplifier programmieren Ende

Dat = 0                                                     'SB2: Letzten 8 Bits (werden nich benötigt) automatisch auf 0 setzen

Gosub Uebertragen

Dlen = 0                                                    'Datenübertragung beenden

Clb = 0

Waitus 20

Dat = 0                                                     'Führende Null

'Saa1057 initalisieren Ende

Waitus 20



'Beginn des Tuningparts

   Dlen = 1                                                 'Datenübertragung beginnen

   Gosub Uebertragen                                        'Null übernehmen

   Dat = 0                                                  'Latch A auswählen

   Gosub Uebertragen

'Teilerwert für Startfrequenz in Binärform übertragen ()

Dlen = 1

A = 8120                                                    'Teilerwert für 90,8 Mhz

Shiftout , Dat , Clb , A                                    'Teilerwert auf Dat ausgeben

Portd.1 = 1                                                 'Audio muting aus

Waitus 20

'Hauptschleife des Programmes

Do

'Tuninghoch

Portd.6 = 0

   If Pind.3 = 1 Then                                       'wenn Pind.3 gedrückt und losgelassen

   Portd.6 = 1                                          'Led an
         Portd.1 = 0                                        'Muting an

   Do


       If A < 8460 Then                                     'Begrenzung nach oben

       A = A + 8

       Dat = 0                                              'Leading Zero

       Dlen = 1                                             'Datenübertragung beginnen

       Gosub Uebertragen

       Dat = 0                                              'Latch A auswählen

       Gosub Uebertragen

       Shiftout , Dat , Clb , A                             'Teilerwert als Binärzahl auf Dat ausgeben

       Dlen = 0                                             'Datenübertragung beenden

   Loop Until Pind.2 = 0 Or Pind.4 = 1

      End If

      Portd.6 = 0                                          'Led aus
    Portd.1 = 1                                             'Muting aus

  End If




'Tuningrunter

   If Pind.4 = 1 Then
                                       '...
   Portd.6 = 1                                           'Led an
         Portd.1 = 0                                        'Muting an

   Do


      If A > 7000 Then                                      'Begrenzung nach unten

      A = A - 8

      Dat = 0                                                 'Leading Zero

      Dlen = 1                                                'Datenübertragung beginnen

      Gosub Uebertragen

      Dat = 0                                               '...A

      Gosub Uebertragen

      Shiftout , Dat , Clb , A

      Dlen = 0                                              'Datenübertragung beenden

   Loop Until Pind.2 = 0 Or Pind.3 = 1

      End If

      Portd.6 = 0                                               'Led aus
    Portd.1 = 1                                             'Muting aus

   End If


   Gosub Moja_display_rutina

Loop
End

Uebertragen:                                                'Routine um Data an den Saa zu übertragen

Waitus 15                                                   'Warten

Clb = 0

Waitus 15                                                   '""

Clb = 1

Waitus 15                                                   '""

Clb = 0

Waitus 15                                                   '""

Return


Moja_display_rutina:

'ovdje piši svoj program

Return

Imaj na umu da ova varijabla A nije frekvencija u MHz nego mi se čini da ona množi osnovnu frekvenciju 12.5kHz.

[padova]

Pokušao sam samo ovo i radi na simulatoru.
Sa led displejima nisam siguran kako da uradim to, ako može malo pomoći, hvala.

Moja_display_rutina:
Cls
Lcd A
Return

I promenio sam množilac,sada je to prava frekvencija u MHz

Code: Select all

' Hardware Pwm Abstimmung für das Pollin Tunermodul

'$regfile = "m8def.dat"
$regfile = "m32def.dat"
$crystal = 1000000

Dim A As Integer                                            'Tuningvariable

Dlen Alias Portc.0                                          'Dlen Line = Portc.0  'Port 13

Dat Alias Portc.1                                           'Data Line = Portc.1   'Port 12

Clb Alias Portd.7                                           'Clock Line = Portd.7  'Port 14

Config Dat = Output                                         'Data Line as Output

Config Pind.3 = Input                                       'Taster vorheriger Sender  [ UP ]

Config Pind.4 = Input                                       'Taster Next Sender  [ DOWN ]

Config Pind.2 = Input                                       'Port für das Stoppsignal [ STOP ]

Config Portd.6 = Output                                     'Led shows current Tuning an

Config Portd.1 = Output                                     'Muting


'Programm starten

Waitms 100                                                  'MC start up lassen

Dat = 0                                                     'Directing Null

Dlen = 0

Clb = 0

'Saa1057 initalisieren

Dlen = 1                                                    'Data transfer beginnen

Gosub Transfered                                            'Bit übernehmen [Transfered]

Dat = 1                                                     'Latch B single out

Gosub Transfered

Dat = 0                                                     'Fm Bit: Fm Modus single out


Gosub Transfered

Dat = 0                                                     'REFH: Second bit tuning 1khz single out

Gosub Transfered

   'Current Amplifier programmieren (0,07 mV)

   Dat = 1                                                  'Cp 3:=0

   Gosub Transfered

   Dat = 1                                                  'Cp 2:=0

   Gosub Transfered

   Dat = 1                                                  'Cp 1:=0

   Gosub Transfered

   Dat = 0                                                  'Cp 0:=1

   Gosub Transfered

   'Currentamplifier programmieren Ende

Dat = 0                                                     'SB2: Last 8 bits (will nich needed) automatically set to 0

Gosub Transfered

Dlen = 0                                                    'Data transfer finish

Clb = 0

Waitus 20

Dat = 0                                                     'Leading zero

'Saa1057 initalisieren Ende

Waitus 20



'Beginn des Tuningparts

   Dlen = 1                                                 'Data transfer beginnen

   Gosub Transfered                                         'Assume zero

   Dat = 0                                                  'Latch A single out

   Gosub Transfered

'Divider value for start frequency transmitted in binary form ()

Dlen = 1

'A = 8120
A = 6500                                                    'Divider value for   Mhz

Shiftout , Dat , Clb , A                                    'Divider value on Dat emit

Portd.1 = 1                                                 'Audio muting aus

Gosub Moja_display_rutina

Waitus 20

'Main loop des Programmes

Do

'Tuning up

Portd.6 = 0

   If Pind.3 = 0 Then                                       'wenn Pind.3 pressed and released 

   Portd.6 = 1                                              'Led an
         Portd.1 = 0                                        'Muting an

   Do


       If A < 7200 Then                                     'limit up

       A = A + 1

       Dat = 0                                              'Leading Zero

       Dlen = 1                                             'Data transfer beginnen

       Gosub Transfered

       Dat = 0                                              'Latch A single out

       Gosub Transfered

       Shiftout , Dat , Clb , A                             'Divider value as binary output to Dat

       Dlen = 0                                             'Data transfer finish

   Loop Until Pind.2 = 0 Or Pind.4 = 1

      End If

      Portd.6 = 0                                           'Led aus
    Portd.1 = 1                                             'Muting aus

  End If

Gosub Moja_display_rutina


'Tuning down

   If Pind.4 = 1 Then
                                       '...
   Portd.6 = 1                                              'Led an
         Portd.1 = 0                                        'Muting an

   Do                                                       '


      If A > 6000 Then                                      'Limit down

      A = A - 1

      Dat = 0                                               'Leading Zero

      Dlen = 1                                              'Data transfer beginnen

      Gosub Transfered

      Dat = 0                                               '...A

      Gosub Transfered

      Shiftout , Dat , Clb , A

      Dlen = 0                                              'Data transfer finish

   Loop Until Pind.2 = 0 Or Pind.3 = 1

      End If

      Portd.6 = 0                                           'Led aus
    Portd.1 = 1                                             'Muting aus

   End If

   Gosub Moja_display_rutina

Loop
End


Transfered:                                                 'Routine Data to be transferred to the Saa

Waitus 15                                                   'Wait

Clb = 0

Waitus 15                                                   '""

Clb = 1

Waitus 15                                                   '""

Clb = 0

Waitus 15                                                   '""

Return

Moja_display_rutina:

 Cls
 Lcd A

Return

[Kizo]

Nisam gledao, a niti imam vremena da vidim kako se točno generira potrebna PLL frekvencija, možda se netko susretao sa time pa se javi. Mislim da taj "množilac" ne možeš samo tako po volji mijenjati kako tebi paše, a i to i dalje što si napravio nije frekvencija u MHz. Da bi dobio MHz trebaš pomnožiti "A" sa 0.0125 (12.5 kHz), dakle trebaš definirati još jednu varijablu. Ne znam kako si ti to zamislio.

Za led displeje, prije nego što kreneš programirati moraš shvatiti na kojem principu radi shema sa multipleksiranim displejima. Više možeš pronaći na PIC podforumu gdje je to Pedja dobro objasnio. LINK. Neka te ne buni što tamo na shemi piše PIC, a ne neki AVR, princip rada je identičan. Čak možeš i program "ukrasti" pošto je tamo isto bejzik tako da je sintaksa jako slična.

[bob4]

LCD ekran mi blinka; najvjerojatnije zbog cls

Do
Call mjerenje
Cls
Upperline
Lcd A
lowerline
lcd B
Thirdline
lcd C
Fourthline
lcd D
Loop

Da li se taj CLS može zamijeniti s nekom drugom naredbom; možda nešto uz pomoć asemblera...????

[InTheStillOfTheNight]

Staviš si kontrolnu varijablu za ono mjerenje, i prije nego što ispišeš, provjeris jeli trebas uopce ispisati...

Nesto tipa ovako:

Dim my_backup as nesto
Dim my_mjerenje as nesto

' pozoves mjerenje i kazes ovako:
if my_backup <> my mjerenje then
' e sad ispisujes
' izjednacis varijable za sljedeci krug
my_backup=my_mjerenje
endif

U principu ispisujes samo kada ti se nesto stvarno promjeni... Ako i tada blinka, onda moras usporiti ispis sa nekom kontrolnom varijablom. nesto ovako:

delay_ms(1)
my_control_lcd = my_control_lcd +1
if my_control_lcd > 100 then
' ispises sto trebas
' resetiras my_control_lcd na 0
' i znas da ces ponovno ispisati tek nakon 100ms
endif

Imaš u pravilu samo 2 načina, jedan je da ispišeš kad se nešto stvarno promijeni, a drugi je da si stvoriš bilo kakvu referencu vremena po kojoj kažeš "Ispisujem svakih toliko i toliko vremena"

Jasno, da ja to radim u tartufima, onda bi mi ISR dizao neku varijablu, a moja servisna funkcija bi ispisala na LCD svakih 100mS što trebam. Ne bih imao delay

[Kukinjos]

Stavi Cls samo na početak programa za inicijalizaciju LCD-a, a ovdje u petlji ga izostaviti. Formatiraj podatke u svakoj liniji i ostatak "ispuni" s space-ima, ako očekuješ da se broj znamenki može mjenjat. To će ti uklonit treptanje, ili smanji osvježavanje LCD-a, ako ti ne trebaju brze promjene.
edit:
evo Still je brži

[bob4]

OK . Probam
Broj znamenki se mijenja; zato sam i zamislio brisanje ekrana

[InTheStillOfTheNight]

ili jos bolje, ne pozivaj CLS uopce nego ispisuj slova preko slova, s time da moraš u naredbama ispisa osigurati da između broja 100 i broja 3 ne dobijes na LCD-u recimo 103. nego da ovaj 10, prepišeš sa praznim prostorom... tada ti nece blinkati

edit, tek sad skuzio da ti je i kukinjos rekao istu stvar... ne koristi clear, nego piši slova po slovima... Dakle imas 3 nacina kako to napraviti

[bob4]

Broj je temperatura iz DS-a; znači promjenjiv, još i minus predznak

[InTheStillOfTheNight]

Nemam instaliran Bascom na laptopu, a ne mogu se spojiti na firmu posto mi je komp ugasen. No trazi u HELPU bascoma neke parametre za LCD naredbu...

Ako ne mozes naci napravi onda ovo:
Lociraj recimo 1,1 LCD-a
namjerno isprintaj nekoliko razmaka
lociraj ponovno 1,1
i tek sad ispisi varijablu

Brisanje LCD-a dosta traje i zato ti blinka.... onda radije prepisi sa praznim prostorom lokaciju na kojoj ispisujes temperaturu, pa je ispisi ponovno... Na taj nacin ti se nece brisati citav tekst koji treba ostati isti...

Predpostavljam da se bascomom LCD moze natjerati da ti sam obrise neku lokaciju za print, pa interno racuna koliko praznih prostora treba ubaciti da bi novi broj bio pravilo ispisan... to bi moralo biti navedeno u help-u LCD-a

[bob4]

Za sada sam probao tako da sam:

1. locirao kurzor
2. napisao prazni red
3. locirao kurzor na isto mjesto
4. napisao podatak

ALI

uzeo mi je 10% memorije od 89c2051

[InTheStillOfTheNight]

Bascom Ne znam kako su napisali funkcije za LCD... E sad nam na forumu nedostaje jedan @kizo, koji bi vjerojatno iz rukava potegao najbolje rjesenje...

Aj probaj iza varijable ostaviti 4 prazna prostora... jer ako lib lijepi varijablu za kursos LCD-a onda ce ti to prazno mjesto uvijek prepisati onaj visak sto ostane iza velikog broja

[bob4]

TO JE TO.
1. pozicioniranje kursora
2. varijabla
3. prazni text

Ovaj prazni obriše ostatak broja; recimo pisalo je 105 a sad treba 6. Na mjesto 1 dolazi 6, i varijabla je gotova; a a nakon nje slijedi prazni text

Evo otvaram bocu Škrleta. Živjeli

[kikici1]

Pa ja obično napravim cls prije do-loop petlje, pa dalje u petlji koristim naredbu home za pojedini red za ispis varijable. Ukoliko se očekuje broj sa više znamenki, pa nakon toga sa manje, tada se dogodi da ostane zadnja znamenka ispisana i nakon ispisa varijable sa manje znamenki pa se tu treba snaći na neki način.
Ja brišem lcd sa cls kad mi je varijabla pala sa 4 znamenke na 3, ili sa 3 na dvije i stvar štima.
dakle home + jedna if then petlja i to radi bez greške

[Zez]

Gospodo, sjeća li se itko prva dva posta? A prošlo je skoro tri godine koje ste uludo ulupali. Žalosno.

[electron]

Zasto ne probate napraviti nesto kao sto sam ja napisao za pic basic
Nije da se hvalim, ali mnogi su prosli i vise su nego zadovoljni.

Pedja je ovde sve rekao

[juremm]

Pozdrav,

ako niste znali, na toj stranici je puno toga, kako početi sa Bascom-AVR: http://www.svet-el.si/bazaznanja/progra ... ntrolerjev

Lp
Jure

[mojalovaa]

Pozdrav svima
Volio bi da vi koji se razumijete u programiranje u BASCOM-u , da se pridruzite pisanju teme Bascom za totalne neznalice , ja sam to poceo pisati , u stvari ucim se i sve sto naucim prenosim na ovu temu , ali bi volio kada dodjem do slozenijih petlji i naredbi da mi ako imate volje pomognete , ujedno ce mo tako pomoci i mnogima drugima koji zele da nesto nauce.