Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

Čtení dat z LCD BASCOM

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: po únor 22 2010, 13:50    Předmět: Čtení dat z LCD BASCOM Citovat

Dobrý den,

prosím ještě o tuto radu:
Jedná se o čtení dat z klasického LCD displeje 16x2 s řadičem, například na tomto zapojení:

http://www.extremeelectronics.co.in/avrtutorials/images/DS1307_INTERFACE_ATMEGA8.gif

Jak prosím provést čtení dat z tohoto displeje tak, abych je třeba po tomto přečtení mohl vypsat přes seriový port a to vše v bascomu?

prosím Vás o radu,
děkuji
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: po únor 22 2010, 16:37    Předmět: Citovat

Data se z displeje nečtou.
Data se do něho zapisují a displej je zobrazuje.

Michalino, měl bys nám raději vždycky podrobně popsat o co se snažíš.
Např. takto:
Tady je schema atmelu s hodinami reálného času. Chtěl bych to vyzkoušet,
ale chtěl bych čas zobrazovat na terminálu v PC, ne na displeji.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: po únor 22 2010, 19:58    Předmět: Citovat

AB1,

děkuji za odpověď. Zkusím to nyní napravit:

Představte si prosím tento názorný příklad:

Mám ATmega8 a v tomto obvodu tlačítko. Podle toho jak dlouho ho držím, takové písmenko se mi zobrazí an LCD.
Takto můžu vedle sebe napsat třeba 10 písmenek, příčemž druhým tlačítkem se posouvám na řádku LCD displeje doprava na další znak.
Až jak mám napsané třeba: "elektroavr" tak chci stisknout třetí tlačítko, díky kterému atmega přečte z tohoto LCD všechny znaky a umozni mi je dale zpracovavat.

Prosím Vás o radu,
děkuji
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Atlan



Založen: May 10, 2004
Příspěvky: 4511
Bydliště: Košice

PříspěvekZaslal: po únor 22 2010, 20:34    Předmět: Citovat

pre pocet znakov ktore vypisujes na displej vytvor pole alebo ich uloz do jednotlivych registrov.... potom ti uz len staci nacitat obsah pola/regisdtrov a poslat do PC.... na displej budes len vypisovat znaky z registrov.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: po únor 22 2010, 21:39    Předmět: Citovat

Děkuji za radu, vyzkouším.....
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: út únor 23 2010, 14:34    Předmět: Citovat

Začni třeba s tímhle kódem a zkus ho vylepšovat
kód:
$regfile = "m8def.dat"
$crystal = 8000000                      'Kmitočet oscilátoru v Hz
$hwstack = 100
$swstack = 64
$framesize = 64
$baud = 9600

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , _
                      Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5


 Tlac1 Alias Pind.5
 Portd.5 = 1                            'pull-up
 Tlac2 Alias Pind.6
 Portd.6 = 1                            'pull-up
 Tlac3 Alias Pind.7
 Portd.7 = 1                            'pull-up


 ''''''''''''''' HLAVNI PROGRAM '''''''''''''''''''''''''''''''''''''''''''''''
 Dim Pozice As Byte
 Dim Znak As Byte
 Dim Vsechny_znaky As String * 20

   Znak = "A" - 1
   Pozice = 1
   Cls

   Do
      If Tlac1 = 0 Then                 'vyber znak
            Incr Znak
            Locate 1 , Pozice
            Lcd Chr(znak)
            Waitms 500
      End If

      If Tlac2 = 0 Then                 'potvrď znak
           Waitms 500
           Vsechny_znaky = Vsechny_znaky + Chr(znak)       'přidej znak do stringu
           Incr Pozice                  'další znak
           Znak = "A" - 1
      End If

      If Tlac3 = 0 Then                 'pošli string do PC
         Waitms 500
         Print Vsechny_znaky
         Znak = "A" - 1
         Pozice = 1
         Vsechny_znaky = ""
         Cls
      End If

   Loop                                 'jdi na Do

 ''''''''''''''' KONEC HLAVNIHO PROGRAMU ''''''''''''''''''''''''''''''''''''''
End
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: po březen 01 2010, 10:52    Předmět: Citovat

AB1,

děkuji za ukázku tohoto programu, který úplně nádherně člověka nakopne. Už to chodí v simulaci jak má, prostě paráda a přesně tohle jsem potřeboval.

Prosím ještě o radu....

Když chci opravit některé písmenko, třeba napíšu slovo:

"elektrPworld"

a písmeno "P" chci přepsat na "o" a po této opravě odeslat slovo "elektroworld" po seriovem portu...

Prosím, jakym smerem mam jit, aby reseni bylo efektivni?

Dekuji a hezky den
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: po březen 01 2010, 14:37    Předmět: Citovat

Můžeš třeba přidat další tlačítko, které udělá to co Tlac3 kromě odeslání znaku.

Nebo opravíš špatně napsaný znak tak, že stlačení Tlac2 delší než 2 vteřiny vymaže poslední znak z "Vsechny_znaky" a nastaví zpátky pozici v displeji.

atd...
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: po březen 01 2010, 14:45    Předmět: Citovat

Dekuji za odpoved AB1..

u posledního písmenka opravu chapu, to ano...

ale problém nastane třeba u situace, kdy chci opravit třetí písmenka z 10....

Najedu na to 3 písmenko, opravim, ale vytiskne se mi na konci všech znaků...a ne na třetí pozici....

Řešení by spočívalo v tom, kdyby bylo možné z deseti znaků opravit pouze třetí znak, aniž by se pohlo zbývajícími devíti znaky....

je to prosím nějak snadno řešitelné? Je to modelový příklad nebo musím bádat nad vlastní funkcí?

Děkuji
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
popopepe



Založen: Oct 26, 2005
Příspěvky: 549

PříspěvekZaslal: po březen 01 2010, 14:55    Předmět: Citovat

příkaz LOCATE?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: po březen 01 2010, 15:00    Předmět: Citovat

Popopepe..

příkaz Locate samozřejmě ano....

ale vyřeší to pouze to, že vidím správně znaky na LCD....


ovšem v řetězci znaků, které ukládám:

Vsechny_znaky = Vsechny_znaky + Chr(znak)

to problém neřeší....ve znacích je pak chaos....když opravím 3 znak z 10 a potvrdím jej, uloží se mi jako znak v pořadí jedenáctý.....
a já h potřebuju uložit jako třetí bez změny ostatních znaků před a za tímto třetím znakem



děkuji
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
AB1



Založen: Nov 23, 2009
Příspěvky: 312

PříspěvekZaslal: po březen 01 2010, 22:38    Předmět: Citovat

Nevím přesně proč když se spleteš v písmenu tak napíšeš dalších pět a pak teprve to špatné opravíš.
Ale budiž, berme to jako teoretické cvičení.

Abys mohl snadno přistupovat k jednotlivým znakům ve stringu, napiš tyto deklarace
kód:
Dim Vsechny_znaky As String * 20
Dim Znaky(20) As Byte At Vsechny_znaky Overlay

String "Vsechny_znaky" a pole "Znaky" se budou překrývat.
Co napíšeš např. do Znaky(3) bude zároveň v třetím znaku stringu.

kód:
Vsechny_znaky = Vsechny_znaky + Chr(znak)

změň na
kód:
Znaky(pozice) = Znak         'přidej znak do stringu


Dalším tlačítkem pak dekrementuj pozici a posuň kurzor doleva.
Až budeš na špatném znaku, opravíš ho tlačítkem1, potvrdíš tlačítkem2 atd.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
michalino



Založen: Aug 03, 2009
Příspěvky: 348

PříspěvekZaslal: út březen 02 2010, 7:36    Předmět: Citovat

AB1,

děkuji, děkuji, děkuji!!!!!!!!!!

To opravdu funguje....zkoušil jsem to řešit sám různými funkcemi jako zapamatování předchozích znaků od znaku v opravované pozici a zapamatování znaků za touto pozicí, pak tyto dvě množiny spojit...

a ono to funguje podle chytrého řešení AB1 na jeden řádek tak přesně, jak jsem potřeboval...


AB1 ještě jednou mockrát děkuji za pomoc a Váš čas!!!!!!!!!!! Funguje to a je to přesně to, co bylo potřeba!!
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.22 sekund