Liste der Anhänge anzeigen (Anzahl: 1)
Öhmm so habs fertig verdrahtet.es tut sich nüx. ..bzw. kommt jetzt DATENMÜLL ...(uii das kann aber viele Sonderzeichen ) :D .... ... Pin 5 geht über Jumper auf Portb.0 das Display hat kein Licht somit fällt PWM flach auf Portb.1
Das Display hat auf der Rückseite 4Chips ??.. 3xSEC C924B 1x SEC 0830..habe ich um 14 Eur bei ribu.at ergatter "abverkauf" ...
Pin Kompatibel ist es mit dem 16x2 eindeutig.. oder muss ich ne $lib einbinden ??... 4Prozessor LCD ??
Das ganze ist steckbar ans AVR board gemacht so das ich das Display und unterhalb wenn Notwendig taster noch drauf bekomme alles auf Streifenraster Platine...LCD
""7 = Port B.0 (Jumper R/W) LCD PIN 5 R/W =Read/Write (oder fest auf Low) "" << wenn ich das nicht benutze ?? ist der an Pinb.0 ?? oder gar nciht dran ?? wen ich es benutze geht der Pin7 auf masse ?? liegt es daran ?? das das LCD nicht geht..
Verleihnix
Liste der Anhänge anzeigen (Anzahl: 1)
Ok habs gefunden war Pin 7 Jumper hat jetzt auch 3 Pins und nicht nur 2 einmal auf masse und einmal auf portb.0
Danke an allen die mir geholfen haben...mit tips :) :mrgreen:
Code:
'--------------------------------------------------------------
' (c) 2006-2040 FHS Electronic
'--------------------------------------------------------------
' datei: lcd4_16.BAS
' versuch: Textausgabe auf 4 Zeilen
'--------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200
Dim R As Word
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 ,
Config Lcd = 16 * 4
Config Portd = Output
Initlcd
Do
Cls ' display löschen
Cursor Off 'cursor aus
Locate 1 , 1 'koordinaten text
Lcd "Danke" 'ausgabe lcd
Waitms 500 'warte ms
Locate 2 , 1
Lcd "funktioniert"
Waitms 500
Locate 3 , 1
Lcd "jetzt"
Locate 4 , 1
Lcd "Verleihnix :)"
Waitms 1000
Loop 'schleife endlos
End 'end program
[/code]