LCD Display leuchtet nur grün !

mc19dg · 31. Januar 2012

Es funktioniert juhu

Habe die version 1.11.9.1 verwendet.
Auf Pesis Beitrag hab ich mir die neue 2.0.7.1 runtergeladen und hokus pokus es funktioniert.

Bei mir ist es egal ob ich "Initlcd" schreibe oder nicht.
Die Größenangabe (16 oder 20) scheint auch egal zu sein.
Außerdem funktionieren beide Codes einwandfrei.

Nochmal danke an alle, habt mir extrem geholfen.

fliege_m · 31. Januar 2012

Glückwunsch

Komisch das es bei mir ohne initlcd nicht geht. Naja hauptsache es läuft und es kann weitergehn !

Gruß Maddin

mc19dg · 31. Januar 2012

I kenne mich da ja nicht wirklich aus, aber was ich schon öfters las ist dass die unterschiedlichen Displays so ihre Eigenheiten haben!

Quaerito · 31. Januar 2012

Zitat von mc19dg

Es funktioniert juhu

Glückwunsch

Zitat von fliege_m

Komisch das es bei mir ohne initlcd nicht geht. Naja hauptsache es läuft und es kann weitergehn !

Hast du es mal mit Pesis Code ausprobiert?
Vielleicht liegt es ja an deinem Code?
Vielleicht aber auch am Display? Wäre auch mal interessant das zu wissen!

Pesi · 31. Januar 2012

Zitat von mc19dg

Die Größenangabe (16 oder 20) scheint auch egal zu sein.

Ja - nur zur Erläuterung: diese Controller gehen immer von nem Display mit 2x40 Zeichen aus, man sieht davon halt nur 16 oder 20 Zeichen (also je nach dem, wie viele tatsächlich vorhanden sind) - deswegen ist es egal, ob da nun 2x16 oder 2x20 steht, die Ansteuerung ist die selbe...

anders wird's nur bei nem Display mit 4 Zeilen, da sind nämlich einfach 2 solche Controller drauf, also praktisch wie zwei 2-zeilige Displays untereinander gepappt - da gibt's dann noch ne extra Leitung, die auswählt, für welchen der beiden Controller die Daten/Befehle sind...

Mirfaelltkeinerein · 1. Februar 2012

Das stimmt so nicht ganz und ist eigentlich nur richtig für vierzeilige Displays mit mehr als 20 Zeichen Breite. Bei 4x20-Zeichen-Displays hat man oft die zweite Hälfte der ersten 40-Zeichen-Zeile in der dritten Zeile fortgesetzt, die zweite Zeile wird in der vierten fortgesetzt. Bei 4x16-Zeichen-Displays gibt es auch noch die Varianten, dass die Zeilen 3 und 4 bei Spalte 20 anfangen (üblich) oder bei Spalte 17 (habe ich bisher nur ein Mal gesehen). Jedenfalls kann sich der Hersteller durch diesen Zeilenumbruch einen Controller sparen.

Pesi · 1. Februar 2012

wieder was gelernt! - mir wurde das mal so verklickert, dass bei 4 Zeilen immer 2 Controller drauf wären... wie z.B. hier auch auf dem Foto von der Rückseite zu sehen

Ansteuerung (= Initialisierung, die Kommandos, was an welcher Leitung etc.) ist dann hier also trotzdem wie bei 2x16 bzw 2x20 - die Anweisung ist dann praktisch nur für Bascom intern, damit der Compiler weiß, auf welchen Wert er die Display RAM Adresse setzen muss, wenn man z.B. "thirdline" hin schreibt, richtig..?

Mirfaelltkeinerein · 1. Februar 2012

Zitat von Pesi

wieder was gelernt! - mir wurde das mal so verklickert, dass bei 4 Zeilen immer 2 Controller drauf wären... wie z.B. hier auch auf dem Foto von der Rückseite zu sehen

Da ist auch nur ein Controller und vier Segmenttreiber drauf.

fliege_m · 1. Februar 2012

Ich möchte meine Universal Fernbedienung auslesen und bekomme wieder nur schwarze Balken. Ich habe schon unterschiedliche Philipscodes eingegeben. Der TSOP1136 bekommt auch seine vorgegebene Spannung.

Hatte auch seinen Ausgang auf PortC.2 ausprobiert leider ohne Erfolg.

Den Code habe ich gefunden und zurecht geschnitten, aber was ist falsch, vll kann mir jemand auf die Sprünge helfen !

Code

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
$hwstack = 64
$swstack = 30
$framesize = 120


Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , _
Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0


Config Lcd = 16 * 2


Cursor Off


Cls








$lib "mcsbyte.lbx"




Config Rc5 = Pind.2




Enable Interrupts






Dim Address As Byte , Command As Byte




Lcd "Waiting for RC5."








Do
Initlcd
'Config Pind.2 = Input


Getrc5(address , Command)


I


Cls
Locate 1 , 1
Lcd Command
Locate 2 , 1
Lcd Address




End If


Loop


End

Alles anzeigen

Gruß Maddin

Andy_KEH · 1. Februar 2012

Hast du dir mal angesehen was dein Code überhaupt macht?

Es geht los mit $baud
Das ist völlig überflüssig und sorgt in deinem Fall noch dafür, das D0 und D1 für die serielle Übertragung konfiguriert werden = Display geht nicht mehr.

Dann löschst du das Display, anschließend schreibst du Text rein um es danach in der MAIN bei jedem Durchlauf zu initialisieren.
Da in der Main auch keinerlei Pause ist, würde das Display selbst wenn es funktionieren würde, nach jedem Anzeigen eines Wertes gleich wieder initialisiert werden.

Ist ja schön wenn man den Code wild zusammenkopieren kann, aber ein bisschen Gedanken sollte man sich schon machen, was denn die Befehle bewirken. Die Bascom-Hilfe ist ja nicht schlecht.
Vielleicht solltest du erst mal mit dem vorhandenen und dokumentierten Code in der Hilfe arbeiten....

fliege_m · 1. Februar 2012

Code

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 32


$swstack = 10   	'


$framesize = 40


$lib "mcsbyte.lbx"


Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , _
Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0


Config Lcd = 16 * 2


Cursor Off


Config Rc5 = Pind.5




Enable Interrupts




Dim Address As Byte , Command As Byte


Print "Waiting for RC5."


Waitms 500










Do








Getrc5(address , Command)


If Address = 0 Then


Print Address ; "  " ; Command






End If


Loop


End

Alles anzeigen

Habe mir den Code zur Brust genommen aber immer noch das selbe, die Fernbedienung müsste doch gehn, habe ja Philipscode´s dafür

salocin_13 · 1. Februar 2012

Der Print Befehl ist NICHT dazu da, etwas aufs LCD zu schreiben.
Der Print Befehl dient dazu, etwas über die UART auszugeben.
Das LCD wird mit dem Befehl lcd beschrieben. Schaue dir dazu mal die Bascom hilfe an.

Andy_KEH · 1. Februar 2012

Läuft der Prozessor jetzt plötzlich auf 4MHz?!
Hast du etwa einen Quarz eingelötet und die Fusebits richtig gesetzt?

fliege_m · 2. Februar 2012

Ich habe "print" geschrieben, da in der Bascom Hilfe "rc5" der Befehl print benutzt wird.

Ich hatte 4 MHz einfach nur so mal ausprobiert, normal teste ich alles auf 1 MHz

Habe jetzt lcd eingefügt für print, aber leider immer noch das selbe.

Die LCD Config passt noch, da ich daran nichts geändert habe seit meinem letzten Test mit dem Text "siehe weiter oben im Text"

Normal müsste mir das Display "Waiting for RC5." anzeigen ohne das ich die Fernbedienung drücke, aber nicht mal das kommt !

Gruß Maddin

mc19dg · 3. Februar 2012

Wen du schreibst :

Cls
LCD "Waiting for RC5."
Wait 1

an der stelle wo Print "Waiting for RC5." steht, dann muss das Display zumindest für eine Sekunde diesen Text hinschreiben. Falls dann noch immer nichts dortsteht Ist die konfiguration des Display falsch.

Snowfly · 3. Februar 2012

Zitat

Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , _
Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0

Config Lcd = 16 * 2

Cursor Off

Config Rc5 = Pind.5

Alles anzeigen

Den Pind.5 hast du an den TSOP UND das LCD angeschlossen?

fliege_m · 5. Februar 2012

@mcdog19 Habe es ausprobiert, immer noch das gleiche. Was mich wundert, wenn ich das Lcd Testprogramm lade um einen Text anzuzeigen geht es sofort

Snowfly Ich hatte vergessen das noch zu ändern, hatte alles mal durchgetest Config Rc5 = Pinc.5

Was ich mich frage, die Config Lcdpin stimmt ja aber wieso wird dann nichts angezeigt

fliege_m · 9. Februar 2012

So es geht

Habe 7 Jumper auf dem Board gezogen und nun werden mir die Commands eingezeigt endlich kann es weitergehn

Code

$regfile "m8def.dat"


$crystal = 1000000


$hwstack = 32


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


Config Rc5 = Pinc.5






Enable Interrupts


Dim Address As Byte , Command As Byte
Dim Flag As Bit
Flag = 1
Do
Getrc5(address , Command)
If Flag = 1 Then
Lcd "Wait for commando"
Flag = 0
End If
If Address <> 255 Then


Cls
Locate 1 , 1
Lcd "Adres:" ; Address;
Locate 2 , 1
Lcd "command" ; Command
Flag = 1
End If
Loop
End

Alles anzeigen

Gruß Maddin

PS: Wie man sieht brauche ich initlcd nicht mehr

fliege_m · 17. Februar 2012

Wo finde ich Anhaltspunkte, dass ich mit der Funke mehrere Ports steuern kann, leider bin ich nicht weitergekommen "sprich der Code geht nicht"

Code

$regfile "m8def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 20
$framesize = 32




Config Portb.1 = Output
Config Pind.2 = Input
Dim Address As Byte , Command As Byte




Config Rc5 = Pind.2




Enable Interrupts


    	Do
      	Getrc5(address , Command )
      	If Command = 1 Then
      	Portb.1 = 1
      	End If


    	Loop
    	End

Alles anzeigen

DjTommyB · 17. Februar 2012

Hab zwar noch keine RC5 programmiert aber: "Getrc5(address , Command )" - welche "adress"? Denke die Steuerung fragt sich das selbe.

EDIT: Lies dir mal das durch -> Microcontroller-Tutorial - RC5 LCD Tester

Teilen