Elektronika.ba

by **Kizo** » 17-06-2010, 12:02

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.

by **padova** » 17-06-2010, 13:22

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

by **Kizo** » 17-06-2010, 16:40

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.

by **padova** » 18-06-2010, 03:32

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

by **Kizo** » 18-06-2010, 11:02

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.

by **bob4** » 13-08-2012, 20:30

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...????

by **InTheStillOfTheNight** » 13-08-2012, 20:47

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

by **Kukinjos** » 13-08-2012, 20:50

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 :lol:

by **bob4** » 13-08-2012, 20:51

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

by **InTheStillOfTheNight** » 13-08-2012, 20:54

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

by **bob4** » 13-08-2012, 20:57

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

by **InTheStillOfTheNight** » 13-08-2012, 21:06

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

by **bob4** » 13-08-2012, 21:21

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

by **InTheStillOfTheNight** » 13-08-2012, 21:27

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

by **bob4** » 13-08-2012, 21:38

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 :wink:

by **kikici1** » 15-08-2012, 19:41

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

by **Zez** » 08-01-2013, 21:04

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

by **electron** » 08-01-2013, 22:19

pedja089 wrote: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 :!:

by **juremm** » 07-02-2013, 10:41

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

by **mojalovaa** » 02-04-2013, 15:16

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.

Elektronika.ba

Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Re: Programiranje u Bascomu

Who is online

GOOGLE