|
Svet elektronike Revija za prave elektronike
|
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
marc Profesionalec
Pridružen/-a: Ned Maj 2009 10:08 Prispevkov: 243 Kraj: Polzela
|
Objavljeno: Tor Apr 26, 2011 4:45 pm Naslov sporočila: |
|
|
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 |
|
|
RudiP Profesionalec
Pridružen/-a: Sre Jul 2008 8:39 Prispevkov: 128 Kraj: KOPER
|
Objavljeno: Tor Apr 26, 2011 6:22 pm Naslov sporočila: |
|
|
Je v helpu in drugod čudno napisano. Tako preverjeno dela. _________________ Lep pozdrav ! |
|
Nazaj na vrh |
|
|
marc Profesionalec
Pridružen/-a: Ned Maj 2009 10:08 Prispevkov: 243 Kraj: Polzela
|
Objavljeno: Tor Apr 26, 2011 8:48 pm Naslov sporočila: |
|
|
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 .
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 .
LPM |
|
Nazaj na vrh |
|
|
marc Profesionalec
Pridružen/-a: Ned Maj 2009 10:08 Prispevkov: 243 Kraj: Polzela
|
Objavljeno: Tor Apr 26, 2011 8:55 pm Naslov sporočila: |
|
|
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 |
|
|
|
|
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
|