www.elektronik.si

Swaggeru · Objavljeno: Čet Maj 05, 2011 6:03 pm Naslov sporočila: testiranje lcd-ja

LP!
Zanima kako naj testiram svoj lcd na svojem krmilniku avr atmega 8.
imam program, ki je sledeč:
Do

Gosub Invvhodi:

If Vh4 = 1 Then

Locate 1 , 1
Lcd "besedilo"

Else

Locate 1 , 1
Lcd "besedilo"

End If

Loop

End
'**************
Invvhodi:
Vh1 = Not Di1
Vh2 = Not Di2
Vh3 = Not Di3
Vh4 = Not Di4
Vh5 = Not Di5
Return
**************

vendar mi ne prenese na krmilnik, ne vem kje je težava, mogoče sem skuril čip, vendar ne verjamem. imam definirane vse spremenljivke in tudi za lcd.
lp.

RGorazd · Objavljeno: Čet Maj 05, 2011 9:01 pm Naslov sporočila:

Zakaj ne prilepiš celega programa?

Ko definiraš LCD, ga je pametno obrisati Clrlcd;

LP G

Swaggeru · Objavljeno: Pet Maj 06, 2011 6:30 pm Naslov sporočila:

cel program:
'SPREMENLJIVKE ZA DIGITALNI VHOD
'Dim Di1 As Bit
'Dim Di2 As Bit
'Dim Di3 As Bit
'Dim Di4 As Bit
'Dim Di5 As Bit

Dim Vh1 As Bit
Dim Vh2 As Bit
Dim Vh3 As Bit
Dim Vh4 As Bit
Dim Vh5 As Bit

'SPRMENLJIVKE ZA DIGITALNI IZHOD
'Dim Do1 As Bit
'Dim Do2 As Bit
'Dim Do3 As Bit
'Dim Do4 As Bit

'SPREMENLJIVKE ZA ANALOGNI VHOD
Dim Ai1 As Byte
Dim Ai2 As Byte
Dim Ai3 As Byte
Dim Ai4 As Byte

'PRIKLJUČITEV DIGITALNIH VHODOV NA uP
Di1 Alias Pind.0
Di2 Alias Pind.1
Di3 Alias Pind.2
Di4 Alias Pind.3
Di5 Alias Pind.4

'PRIKLJUČITEV DIGITALNIH IZHODOV NA uP
Do1 Alias Portc.1
Do2 Alias Portc.0
Do3 Alias Portb.2
Do4 Alias Portb.1

'KONFIGURIRANJE PRIKLJUČKOV uP
Config Portb = &B11000111

Config Portc = &B00000011

Config Portd = &B11100000
Portd = &B00011111

'NASTAVITEV LCD PRIKAZOVALNIKA
Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.5 , Db6 = Portb.7 , Db7 = Portb.6 , E = Portd.7 , Rs = Portb.0

Config Lcd = 16 * 2

Reset Do1
Reset Do2
Reset Do3
Reset Do4

Cls

'*********************************PROGRAM***************************************

Do

Gosub Invvhodi:

If Vh4 = 1 Then

Locate 1 , 1
Lcd "Reppensek Marrtin"

Else

Locate 1 , 1
Lcd "Reppensek Marrtin"

End If

Loop

End
'*******************************************************************************

Invvhodi:
Vh1 = Not Di1
Vh2 = Not Di2
Vh3 = Not Di3
Vh4 = Not Di4
Vh5 = Not Di5
Return

Swaggeru · Objavljeno: Pet Maj 06, 2011 7:24 pm Naslov sporočila:

ali ne funkcija cls izbriše zaslona clear screen?

fluffy111 · Objavljeno: Pet Maj 06, 2011 10:45 pm Naslov sporočila:

CLS izbriše kaj je na zaslonu.

Imaš pa kar pomankljiv program. Nikjer ne vidim, kje imaš definiran mikrokrmilnik in oscilator. Delaš v Bascomu in programiraš s čim drugim? Priporočam, da v vsakem primeru to napišeš. Napiši pa: