www.elektronik.si

[MrFreman2]

lp
mi lahko kdo pomaga kako naj v bascomu naredim program za atmel usb646 čip
tako da bi na lcd prikazovalniku prikazoval stanja-napetostu iz trimerja

[milan62]

Prvi korak je ta, da na enem pinu kontrolerja atmel usb646 vklopiš in izklopiš LED diodo. To že obvladaš ?

LP

[protoncek]

Se mi zdi da je primerov v programu bascom kar veliko, med drugim tudi ta. Poglej v mapi samples, pa bo. Glej pod ADC.

[MrFreman2]

takole sem napisal program

dim napetost as word

vrednost1=getadc(5)'al trimer
vrednost2=getadc(4)

locate 1,1
lcd"u="

locate 1,4
lcd napetost

locate 1,7
lcd "v"

locate 1,3
lcd"vrednost1"

locate 1,3
lcd "vrednost2"

Na lcdju mi po tem program ko ga nalozim normalno začne iz nule potem pa ko pride do konca do 1023 pa ga hoočem sppet na začetek dati mi pa ostane na 1023

[protoncek]

pred tem si gotovo konfiguriral adc?
Na primer:
Config Adc = Single , Prescaler = Auto , Reference = Avcc

pa tale program je malce čuden...ti na lokacijo 1,3 v dveh zaporednih stavkih najprej zapišeš "vrednost1", takoj zatem pa "vrednost2". Torej se to vrednost1 ptikaže za stotinko sekunde, potem pa jo povozi vrednost2. Pa kam se program vrača (kje je zanka)?
kaj imaš na adc(4)?
jaz bi napisal približno takole:
do
vrednost =getadc(5)
locate 1,1
lcd "U=";vrednost;" V"
loop

[igo]

[RGorazd]

spremenljivka napetost bo imela v tvojem primeru vedno vrednost 0, ali pa neko vrednost ki ti jo ob prevajanju programa dodeli kompajler. Kje pa ti spremenljivki napetost dodeliš kako vrednost?

poskusi takole

[MrFreman2]

rad bi da mi prikazuje napetost od 0-5v(0-1023bit)

[MrFreman2]

pa mi ne prikazuje ,gre mi sam do 0.89v

[protoncek]

ŠE enkrat: imaš v programu stavek CONFIG ADC? Kako pa sploh veš, da imaš ADC konfiguriran tako, da uporablja vseh 12 bitov? Zakaj ne bereš, kar ti ljudje odgovarjajo? Kaj imaš navedeno za referenco? Prilepi KOMPLETEN PROGRAM, ne samo izsek, tako bo lažje pomagati.

[MrFreman2]

$regfile = "usb646.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
Dim A As Integer
Dim Dig_vhod As Byte
Dim Tipka As Integer
Dim Vrednost As Word

Dim Kanal As Byte
Dim Pa_5 As Bit , Pa_4 As Bit , Pa_3 As Bit , Pa_2 As Bit , Pa_1 As Bit , Pa_0 As Bit ' vhodi
Dim Napetost As Word


Ddrd = 255

Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Ddrc = 255
Portc = 0
Cls

Do

Vrednost = Getadc(5) 'al trimer

Locate 1 , 1
Lcd Vrednost

Napetost = Vrednost / 200






Locate 2 , 1
Lcd "u="

Locate 2 , 4
Lcd Napetost

Locate 2 , 8
Lcd "v"

Loop
Return


Sedaj sem naredil program, ki mi normalno prikazuje napetost. Problem nastane ko trimer zavrtim do konca (začne se pri 15 pa do 1023). Ko dosežem 1023 kvant, mi ob vrtenju nazaj proti ničli izpiše vrednost večjo od 9000 in jo odšteva nazaj do 150. Napetost pa mi kljub temu izpisuje pravilno od 0-5 V. Program imam za en trimer..

[protoncek]

ena možnost je da ti to dela zaradi tega ker se števika manjša, zelo hitro gre iz 4- mestnega na tri mestno, zadnji karakter pa se ne izbriše...npr. izpiše ti 1005, naslednja vrednost je npr. 995, ti boš pa videl 9955, ker se zadnja petica ne izbriše. To rešiš na primer takole:
lcd napetost; " "

za prikazano napetostjo vedno napišeš prazen prostor (space).

[RGorazd]

Če bi preizkusil, kar sem ti napisal, bi videl, da dela ravno to. Kako si pa pridi sam gor, če nisi toliko da bi en copy/paste napravil.

LP G

[MrFreman2]

r gorazd.
Sem poizkusil tvoj program,pa ni bil vredu,

[MrFreman2]

Ali je še kakšen drugačen način za izbris številk ko ta : Lcd Napetost ; " "