Moin,

Ich habe ein LCD, Standartcontrollerkompatibel...

Es ist folgendermasen angeschlossen (an einem AtMega:

Pin 1 - GND
Pin 2 - +5V
Pin 3 - mit Poti an neg. Spannung (erw. Tempbereich)
Pin 4 - (RS) PC0
Pin 5 - (R/W) PC1 (wird dann auf GND geschalten)
Pin 6 - (En) PB2
Pin 7-10- GND
Pin 11 - PC5
Pin 12 - PC4
Pin 13 - PC3
Pin 14 - PC2

Als erstes kommt mit komisch vor: Wenn ich am Kontrast Poti dreh, wierd erstmal nur eine Zeile dunkel, und erst wenn ich weiter dreh, auch die zweite...

Ich habe folgenden Beispielcode zur Ansteuerung benutzt:

Code:
$regfile = "m8def.dat"
$crystal = 1000000



 ' Im I/O Mode wird jeder Prozessor Pin einzeln angegeben
 Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portb.2 , Rs = Portc.0
 Config Lcd = 16 * 2                                        'wir verwenden ein 2 x 16 Zeichen Display
 Config Portc.1 = Output                                    'R/W to GND
 Portc.1 = 0
Dim A As Byte

 Do
   Cls                                                      'clear the LCD display
   Lcd "Hello world."                                       'display this at the top line
   Wait 1
   Lowerline                                                'select the lower line
   Wait 1
   Lcd "Shift this."                                        'display this at the lower line
   Wait 1
   For A = 1 To 10
     Shiftlcd Right                                         'shift the text to the right
     Wait 1                                                 'wait a moment
   Next

   For A = 1 To 10
     Shiftlcd Left                                          'shift the text to the left
     Wait 1                                                 'wait a moment
   Next

   Locate 2 , 1                                             'set cursor position
   Lcd "*"                                                  'display this
   Wait 1                                                   'wait a moment

   Shiftcursor Right                                        'shift the cursor
   Lcd "@"                                                  'display this
   Wait 1                                                   'wait a moment

   Home Upper                                               'select line 1 and return home
   Lcd "Replaced."                                          'replace the text
   Wait 1                                                   'wait a moment

   Cursor Off Noblink                                       'hide cursor
   Wait 1                                                   'wait a moment
   Cursor On Blink                                          'show cursor
   Wait 1                                                   'wait a moment
   Display Off                                              'turn display off
   Wait 1                                                   'wait a moment
   Display On
 Loop

End
Und es passier absolut nichts... Habe ich irgendwo einen Fehler??