lcd und TEXT ausgabe

Thorsten Sch. · 8. Mai 2011

Hallo liebes Forum und bastler wie mache ich das das ich beispiel:

Fakten zur schaltung:
1xLCD 20x4 Zeilen
1x ATtiny2313
4 x Tasten ( ein und aus )
4 x LED schaltzustand anzeige

und hier das beispiel:

Taster 1 drücke ( LED1 an ) - Neues Drücken der Taste LED1 aus )
Taster 2 drücke ( LED2 an ) - Neues Drücken der Taste LED2 aus )
Taster 3 drücke ( LED3 an ) - Neues Drücken der Taste LED3 aus )
Taster 4 drücke ( LED4 an ) - Neues Drücken der Taste LED4 aus )

wenn alles an ist sollte jedes der zutände im LCD zusehen sein, wenn aber
Alles aus ist soll da stehen Hallo Du da im Display das Hallo du da sollte auch beim anschalten da im LCD stehen.

wie füge ich das ein....

Bitte um rat oder hilfe beim code

Gruß Thorsten Sch.

walter99 · 8. Mai 2011

wie sieht es aus, wenn du erstmal selber was produktives dazu tust und selber einen code einstellst, bevor du hier die lorbeeren einsammeln tust.
schönen sonntag noch.

Bloody · 8. Mai 2011

Erstmal ist zu wissen wie weit Kentnisse vorhanden sind. Und ich habe so eine Ahnung, das die µC-Programmierung noch nicht oft gemacht wurde..

Dazu sollte man sich reinlesen und beginnen EINEN FESTEN TEXT auf dem LCD anzeigen zu lassen, wenn das klappt ist es auch nicht mehr viel die Taster zu implementieren.

Thorsten Sch. · 8. Mai 2011

hi forum, und bastler

ich hab ein LCD am ATtiny2313 angesteuert und bringt ein text auf den LCD

hier den code

Code

' Beispiel: Ansteuerung eines LCD im 4-Bit Modus
' ATtiny2313 Mit 16 x 2 Zeilen LCD
' Copyright (c) 2011 Thorsten Sch.
$regfile = "2313def.dat"                                	' ATtiny2313
$crystal = 8000000                                      	' 8MHz Takt


' LCD im 4-Bit Modus
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , _
Db7 = Portb.5 , E = Portb.7 , Rs = Portb.6


' Größe des LCD einstellen
' Mögliche Werte:
' 16 * 1, 16 * 1a, 16 * 2, 16 * 4
' 20 * 2, 20 * 4, 20 * 4a
' 40 * 4
Config Lcd = 16 * 2
' LCD initialisieren
Initlcd
' Cursor ausschalten
Cursor Off
' Anzeige leeren und zu Zeile 1, Zeichen 1 springen
Cls
Locate 1 , 1
' Text schreiben ( zeile 1 )
Lcd "LCD 4Bit Modus"
' zu Position springen
' Zeile 2, Zeichen 5
Locate 2 , 1
' Text schreiben ( Zeile 2 )
Lcd "DICE & KNIFFELN"
' Programmende
End

Alles anzeigen

so ´könnt ihr damit was anfangen ach ja einen code hab ich selber geschrieben fängt mit Klingel an und es Fonktioniert gut...
aber mal anderes verleicht könnt ihr mir helfen....
Gruß Thorsten Sch.

x20011 · 8. Mai 2011

Sehe ich das richtig dass du den LCD Kontrast Hardwaremäßig steuerst?
Kann aus eigener erfahrung sagen, es lohnt sich das ganze über die Software zu steuern... man weiss nie wann man es mal brauchen kann. (Außerdem ist es günstiger :p )

walter99 · 8. Mai 2011

naja da haste doch schon alles, tasterabfrage und lcd ausgabe machste in einer schleife und der rest in einer sub. für die lcd ausgabe fragste die ports der led ab und vergleichst das ganze und wertest es aus.mit frdl grüßen

Thorsten Sch. · 8. Mai 2011

kann da mal jemand da beispiele geben hab schon ganz google abgesucht und hompege durch forstet und nichts gefunden....

Gruß Thorsten Sch.

Tomate · 8. Mai 2011

Auf Mikrocontroller.net findest sicher so ein Beispiel wie man mit Tasten nen LCD ansteuert und auch wie man die Schleifen dazu programmiert.

Thorsten Sch. · 9. Mai 2011

wieso bekommt man hier keine jilfe oder mal tipps wie man es macht nur weil ich ein kleines proplem habe oder was.....
traurig traurig....

ich habe bei microcontroller schon geschaut hab da nichts gefunden leider darum bitte ich euch zu hilfe danke

Gruß thorsten Sch.

wallace · 9. Mai 2011

Walter hat dir doch gesagt wie es geht. Willst doch schließlich was lernen und nicht nur kopieren.
Dazu solltest du dir dann vielleicht mal die Grundfunktionen anschauen und verstehen.

Kanwas · 9. Mai 2011

Was denn nun

Zitat

Fakten zur schaltung:
1xLCD 20x4 Zeilen

Zitat

ATtiny2313 Mit 16 x 2 Zeilen LCD
Config Lcd = 16 * 2

Thorsten Sch. · 9. Mai 2011

hallo Forum und Bastler

habe das mit 20x4 Als BEISPIEL dahin geschrieben und nicht

Zitat

Zitat
ATtiny2313 Mit 16 x 2 Zeilen LCD

Config Lcd = 16 * 2

damit wollte ich sagen das ich sowohl das 16x2 display & und das display 20x4 beide im code drinne habe und es fonktionierte gut,
jede zeile stand da ein text.... nein ich kopiere nicht das einizige wo ich mit angefangen habe das wahr der 3x3x3x LED CUBE.
sonstige schaltungen und lauflichter hab ich selber weiter endwikelt......

ich will ja nur Tipps haben von euch meher ja nicht hab ja nicht gesgat das ich den kompletten code haben möchte oder?
sondern nur TIPPS

Gruß Thorsten Sch

Tomate · 9. Mai 2011

Zitat von Thorsten Sch.

endwikelt

Ich weiß warum du bei google nichts findest...

Thorsten Sch. · 9. Mai 2011

Zitat von Tomate

Ich weiß warum du bei google nichts findest...

hab ihr was mit den augen?!?!
was habe ich da unten in mein profil stehen, ich habe propleme mit den schreiben wie ich das meine OKAY

walter99 · 9. Mai 2011

du hast doch schon genügend tips bekommen, tasterabfrage haste auch schon erfragt und den rest wirste doch noch alleine hinbekommen. du wirst niemals einen fertigen code von uns entwickelt bekommen, bevor du hier nicht selber mal hand anlegst und deinen code einstellst. selbst ist der mann.
mit frdl grüßen

Mirfaelltkeinerein · 9. Mai 2011

Okay, ich habe gerade wohl zu viel Zeit, oder ich kann mir das nicht mehr ansehen...
Port toggeln: Wenn Taster gedrückt und wieder losgelassen wurde nachsehen, ob der Portpin gesetzt ist, wenn nicht ein schalten, wenn doch ausschalten. Geht mit jedem Taster genauso. Für die LCD-Ausgabe: Wenn nicht alle gewünschten Portpins gesetzt sind wird ein Text auf das LCD geschrieben, wenn alle gewünschen Portpins gesetzt sind wird ein anderer Text auf das LCD geschrieben.
Und weil das so ziemlich die allerersten Beispiele zur µC-Programmierung sind, die in so gut wie allen Tutorials behandelt werden, wurdest du hier auch so blöd angemacht.
In der Hauptschleife steht eigentlich immer das gleiche: WENN (IF) eine Bedingung erfüllt ist, DANN (THEN) mach was, ANDERNFALLS (ELSE) was anderes.

Thorsten Sch. · 9. Mai 2011

hallo Forum und Bastler hier mal der code, lcd funktioniert schon mal aber leider kein text

Code

'-----------------------------------------------
'Schaltung Für
'Klingel Privat - KatzenPension - Lichtschranke
'Eingänge: 2 x klingeltaster und Lichtschranke
'Ausgänge: 2 Klingeln über realis geschaltet
'      	Deverse Led`s zur anzeige
'-----------------------------------------------
$regfile "2313def.dat"
$crystal = 8000000


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


Config Portb.0 = Output                                 	'Klingel P
Config Portb.1 = Output                                 	'Klingel K
Config Portb.2 = Output
Config Portb.7 = Output                                 	'Klingel B
Config Pinb.3 = Input                                   	'Klingeltaster P
Portb.3 = 0
Config Pinb.4 = Input                                   	'Klingeltaster K
Portb.4 = 0
Config Pind.6 = Input                                   	'Lichtschranke
Portd.6 = 0


Declare Sub Klingelp
Declare Sub Klingelk
Declare Sub Lichtschranke
Dim I As Byte


Do


If Pinb.0 = 0 Then
Locate 1 , 2
Lcd " Klingelmelder"
If Pinb.3 = 0 Then Gosub Klingelp
If Pinb.4 = 0 Then Gosub Klingelk
If Pind.6 = 0 Then Gosub Lichtschranke


Loop


End If


Sub Klingelp
Portb = &B10000010
Waitms 500


Portb = &B00000000
Waitms 400
End Sub


Sub Klingelk
Portb = &B10000011
Waitms 100


Portb = &B10000000
Waitms 150


Portb = &B10000010
Waitms 100


Portb = &B10000001
Waitms 150


Portb = &B10000010
Waitms 100


Portb = &B10000000
Waitms 150


Portb = &B10000011
Waitms 100


Portb = &B00000000
Waitms 150
End Sub


Sub Lichtschranke
Portb = &B10000011
Waitms 200


Portb = &B10000010
Waitms 250


Portb = &B10000011
Waitms 200


Portb = &B10000000
Waitms 200


Portb = &B10000011
Waitms 200


Portb = &B10000010
Waitms 250


Portb = &B10000011
Waitms 200


Portb = &B00000000
Waitms 200
End Sub


End
Return

Alles anzeigen

so wie oder wo muiss ich da den tetxt einfügen oder einfach mall HILFEEEEEE
GHru? Thorsten sch.

Killerawft · 9. Mai 2011

Ich erbarme mich mal, da ich eh so wenig schreibe

Der Text, der nur einmal am Anfang auf dem LCD angezeigt werden soll kommt VOR die Do Loop. Der Text, der beim Taster drücken angezeigt werden soll, kommt in die jeweilige SUB rein. Vorher noch ein CLS, damit das LCD auch "sauber" ist wenn der neue Text angezeigt werden soll.
Wenn der Anfangstext auf dem LCD nochmal angezeigt werden soll brauchst du dafür eine weitere Bedinung.

Und für weitere Fragen lies Hier -> http://halvar.at/elektronik/kleiner_bascom_avr_kurs/

Thorsten Sch. · 9. Mai 2011

so habe ich das jetzt im code gemacht aber im LCD kommt nichts. hier mal den code

Code

'-----------------------------------------------
'Schaltung Für
'Klingel Privat - KatzenPension - Lichtschranke
'Eingänge: 2 x klingeltaster und Lichtschranke
'Ausgänge: 2 Klingeln über realis geschaltet
'      	Deverse Led`s zur anzeige
'-----------------------------------------------
$regfile "2313def.dat"
$crystal = 8000000


Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , _
Db7 = Portd.2 , E = Portd.1 , Rs = Portd.0
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "klingelmelder"


Config Portb.0 = Output                                 	'Klingel P
Config Portb.1 = Output                                 	'Klingel K
Config Portb.2 = Output
Config Portb.7 = Output                                 	'Klingel B
Config Pinb.3 = Input                                   	'Klingeltaster P
Portb.3 = 0
Config Pinb.4 = Input                                   	'Klingeltaster K
Portb.4 = 0
Config Pind.6 = Input                                   	'Lichtschranke
Portd.6 = 0


Declare Sub Klingelp
Declare Sub Klingelk
Declare Sub Lichtschranke
Dim I As Byte


Do


If Pinb.3 = 0 Then Gosub Klingelp
If Pinb.4 = 0 Then Gosub Klingelk
If Pind.6 = 0 Then Gosub Lichtschranke


Loop


End


Sub Klingelp
Cls
Locate 2 , 1
lcd " Klingel ( P )"
Portb = &B10000010
Waitms 500


Portb = &B00000000
Waitms 400
End Sub


Sub Klingelk
Cls
Locate 2 , 1
Lcd "Klingel ( K )"
Portb = &B10000011
Waitms 100


Portb = &B10000000
Waitms 150


Portb = &B10000010
Waitms 100


Portb = &B10000001
Waitms 150


Portb = &B10000010
Waitms 100


Portb = &B10000000
Waitms 150


Portb = &B10000011
Waitms 100


Portb = &B00000000
Waitms 150
End Sub


Sub Lichtschranke
Cls
Locate 2 , 1
Lcd "melder"
Portb = &B10000011
Waitms 200


Portb = &B10000010
Waitms 250


Portb = &B10000011
Waitms 200


Portb = &B10000000
Waitms 200


Portb = &B10000011
Waitms 200


Portb = &B10000010
Waitms 250


Portb = &B10000011
Waitms 200


Portb = &B00000000
Waitms 200
End Sub


End
Return

Alles anzeigen

ist da was falsch oder liege ich jetzt daneben bitte um rat
Gruß Thorsten sch.

Killerawft · 9. Mai 2011

Das sollte so Funktionieren.

Aber wenn du schon mit Subs arbeitest solltest du auch im Kopf

$hwstack = 32 'im Speicher werden für den Hardware-Stack 32 Byte reserviert
$swstack = 32 'im Speicher werden für den Software-Stack 32 Byte reserviert
$framesize = 32 'im Speicher werden für den Frame 32 Byte reserviert

schreiben. In dem Link den ich dir gegeben habe steht, was das für einzelne sachen sind.

Teilen