Kazalo po Svet elektronike forumu Svet elektronike
Revija za prave elektronike
 
AlbumAlbum   Pomoč pogostih vprašanjPomoč pogostih vprašanj   IščiIšči   Seznam članovSeznam članov   Skupine uporabnikovSkupine uporabnikov   Registriraj seRegistriraj se 
 Tvoj profilTvoj profil   Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil   PrijavaPrijava 

LCD 2x16
Pojdi na stran Prejšnja  1, 2, 3, 4, 5, 6
 
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Za začetnike
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
marc
Profesionalec


Pridružen/-a: Ned Maj 2009 10:08
Prispevkov: 243
Kraj: Polzela

PrispevekObjavljeno: Tor Apr 26, 2011 4:45 pm    Naslov sporočila: Odgovori s citatom

Hi,
ja imaš prav glede ukaza alias.Sem sprobal in res deluje.Že na začetku bi moral pravilno deklarirati izhode.

LPM
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
RudiP
Profesionalec


Pridružen/-a: Sre Jul 2008 8:39
Prispevkov: 128
Kraj: KOPER

PrispevekObjavljeno: Tor Apr 26, 2011 6:22 pm    Naslov sporočila: Odgovori s citatom

Je v helpu in drugod čudno napisano. Tako preverjeno dela.
_________________
Lep pozdrav !
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
marc
Profesionalec


Pridružen/-a: Ned Maj 2009 10:08
Prispevkov: 243
Kraj: Polzela

PrispevekObjavljeno: Tor Apr 26, 2011 8:48 pm    Naslov sporočila: Odgovori s citatom

Hi,
si ne morem pomagati,ker sem navdušen ko nekaj deluje-od prejšnih postov.Tako da sem nahitro nekaj stvari sestavil in napisal kodo.

evo fotki:





In še koda,da boste vedeli kaj se dogaja Wink .

Koda:
$regfile = "m32def.dat"
$crystal = 8000000

Config Pind.0 = Input
Config Pind.1 = Input

Config Portd.5 = Output
Config Portd.6 = Output

Tpz Alias Pind.1
Tps Alias Pind.0


Set Portd.5
Reset Portd.6


Do
 If Tpz = 0 Then
  Reset Portd.5
   Set Portd.6
    End If

 If Tps = 0 Then
  Set Portd.5
    Reset Portd.6
     End If
Loop

 End


rezultat je en velik Very Happy .


LPM
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
marc
Profesionalec


Pridružen/-a: Ned Maj 2009 10:08
Prispevkov: 243
Kraj: Polzela

PrispevekObjavljeno: Tor Apr 26, 2011 8:55 pm    Naslov sporočila: Odgovori s citatom

Hi,
nekaj sem še dolžan na to temo.čeprav sem mislil to kodo uporabiti za drugo temo.kodo sem sam naredil.Bilo je kar nekaj dela.Podobno zadevo sem videl na portalu AVR-freaks.Tam konj na mestu skače.Tukaj pa naš prijatelj stick se sprehodi čez cel ekran.lušna animacija.

Namenjena je za 20x4 LCD zaslone,lahko tudi 20x3 če obstaja.Preizkusite lahko animacijo v simulatorju.Na LCD-ju je bolj razločna.

koda:

Koda:
$regfile = "m32def.dat"
Config Lcd = 20 * 4
Config Lcdbus = 4
Config Lcdpin = Pin , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = Portd.4 , E = Portd.2 , Rs = Portd.1

Dim Ponovitve As Byte
Cursor Off Noblink
Cls
For Ponovitve = 1 To 20
Gosub Slika1
Gosub Prikaz1
Cls
Gosub Slika2
Gosub Prikaz2
Cls
Gosub Slika1
Gosub Prikaz3
Cls
Gosub Slika2
Gosub Prikaz4
Cls
 Gosub Slika1
Gosub Prikaz5
Cls
Gosub Slika2
Gosub Prikaz6
Cls
Gosub Slika1
Gosub Prikaz7
Cls
Gosub Slika2
Gosub Prikaz8
Cls
Gosub Slika1
Gosub Prikaz9
Cls
Gosub Slika2
Gosub Prikaz10
Cls
Gosub Slika1
Gosub Prikaz11
Cls
Gosub Slika2
Gosub Prikaz12
Cls
 Gosub Slika1
Gosub Prikaz13
Cls
Gosub Slika2
Gosub Prikaz14
Cls
Gosub Slika1
Gosub Prikaz15
Cls
Gosub Slika2
Gosub Prikaz16
Cls
Gosub Slika1
Gosub Prikaz17
Cls
Gosub Slika2
Gosub Prikaz18
Cls
Gosub Slika1
Gosub Prikaz19
Cls
Gosub Slika2
Gosub Prikaz20
Cls
Next Ponovitve

Prikaz1:
Locate 1 , 1
Lcd Chr(0) ; Chr(1)
Locate 2 , 1
Lcd Chr(2) ; Chr(3)
Locate 3 , 1
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz2:
Locate 1 , 2
Lcd Chr(0) ; Chr(1)
Locate 2 , 2
Lcd Chr(2) ; Chr(3)
Locate 3 , 2
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz3:
Locate 1 , 3
Lcd Chr(0) ; Chr(1)
Locate 2 , 3
Lcd Chr(2) ; Chr(3)
Locate 3 , 3
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz4:
Locate 1 , 4
Lcd Chr(0) ; Chr(1)
Locate 2 , 4
Lcd Chr(2) ; Chr(3)
Locate 3 , 4
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz5:
Locate 1 , 5
Lcd Chr(0) ; Chr(1)
Locate 2 , 5
Lcd Chr(2) ; Chr(3)
Locate 3 , 5
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz6:
Locate 1 , 6
Lcd Chr(0) ; Chr(1)
Locate 2 , 6
Lcd Chr(2) ; Chr(3)
Locate 3 , 6
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz7:
Locate 1 , 7
Lcd Chr(0) ; Chr(1)
Locate 2 , 7
Lcd Chr(2) ; Chr(3)
Locate 3 , 7
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz8:
Locate 1 , 8
Lcd Chr(0) ; Chr(1)
Locate 2 , 8
Lcd Chr(2) ; Chr(3)
Locate 3 , 8
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz9:
Locate 1 , 9
Lcd Chr(0) ; Chr(1)
Locate 2 , 9
Lcd Chr(2) ; Chr(3)
Locate 3 , 9
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz10:
Locate 1 , 10
Lcd Chr(0) ; Chr(1)
Locate 2 , 10
Lcd Chr(2) ; Chr(3)
Locate 3 , 10
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz11:
Locate 1 , 11
Lcd Chr(0) ; Chr(1)
Locate 2 , 11
Lcd Chr(2) ; Chr(3)
Locate 3 , 11
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz12:
Locate 1 , 12
Lcd Chr(0) ; Chr(1)
Locate 2 , 12
Lcd Chr(2) ; Chr(3)
Locate 3 , 12
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz13:
Locate 1 , 13
Lcd Chr(0) ; Chr(1)
Locate 2 , 13
Lcd Chr(2) ; Chr(3)
Locate 3 , 13
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz14:
Locate 1 , 14
Lcd Chr(0) ; Chr(1)
Locate 2 , 14
Lcd Chr(2) ; Chr(3)
Locate 3 , 14
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz15:
Locate 1 , 15
Lcd Chr(0) ; Chr(1)
Locate 2 , 15
Lcd Chr(2) ; Chr(3)
Locate 3 , 15
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz16:
Locate 1 , 16
Lcd Chr(0) ; Chr(1)
Locate 2 , 16
Lcd Chr(2) ; Chr(3)
Locate 3 , 16
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz17:
Locate 1 , 17
Lcd Chr(0) ; Chr(1)
Locate 2 , 17
Lcd Chr(2) ; Chr(3)
Locate 3 , 17
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz18:
Locate 1 , 18
Lcd Chr(0) ; Chr(1)
Locate 2 , 18
Lcd Chr(2) ; Chr(3)
Locate 3 , 18
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz19:
Locate 1 , 19
Lcd Chr(0) ; Chr(1)
Locate 2 , 19
Lcd Chr(2) ; Chr(3)
Locate 3 , 19
Lcd Chr(4) ; Chr(5)
Waitms 650
Return

Prikaz20:
Locate 1 , 20
Lcd Chr(0) ; Chr(1)
Locate 2 , 20
Lcd Chr(2) ; Chr(3)
Locate 3 , 20
Lcd Chr(4) ; Chr(5)
Waitms 650
Return



Slika1:
Deflcdchar 0 , 224 , 227 , 228 , 232 , 232 , 232 , 228 , 227       ' replace ? with number (0-7)
Deflcdchar 1 , 224 , 224 , 240 , 232 , 232 , 232 , 240 , 224       ' replace ? with number (0-7)
Deflcdchar 2 , 225 , 225 , 227 , 229 , 233 , 229 , 225 , 225       ' replace ? with number (0-7)
Deflcdchar 3 , 224 , 224 , 226 , 244 , 232 , 224 , 224 , 224       ' replace ? with number (0-7)
Deflcdchar 4 , 225 , 225 , 225 , 225 , 226 , 228 , 224 , 224       ' replace ? with number (0-7)
Deflcdchar 5 , 240 , 232 , 228 , 228 , 228 , 228 , 224 , 224       ' replace ? with number (0-7)
Return


Slika2:
Deflcdchar 0 , 224 , 227 , 228 , 232 , 232 , 232 , 228 , 227       ' replace ? with number (0-7)
Deflcdchar 1 , 224 , 224 , 240 , 232 , 232 , 232 , 240 , 224       ' replace ? with number (0-7)
Deflcdchar 2 , 225 , 225 , 227 , 229 , 227 , 225 , 225 , 225       ' replace ? with number (0-7)
Deflcdchar 3 , 224 , 224 , 232 , 240 , 224 , 224 , 224 , 224       ' replace ? with number (0-7)
Deflcdchar 4 , 225 , 225 , 225 , 225 , 224 , 224 , 224 , 224       ' replace ? with number (0-7)
Deflcdchar 5 , 224 , 224 , 240 , 240 , 240 , 240 , 224 , 224       ' replace ? with number (0-7)
Return


LPM
Nazaj na vrh
Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Za začetnike Časovni pas GMT + 1 ura, srednjeevropski - zimski čas
Pojdi na stran Prejšnja  1, 2, 3, 4, 5, 6
Stran 6 od 6

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
You cannot attach files in this forum
You cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group