BASCOM LCD 20*4

[Ch S. (spelli)]

Hallo,

habe folgendes Problem:

http://www.youtube.com/watch?v=jb1hbH2tqcI&feature=plcp

Bei dem Atmega128 handelt es sich um das Modul von Avr-Praxis.

Db7 ist an PE.4 (OCB3)
Db6 ist an PE.6 (T3 INT6)
Db5 ist an PB.0 (SS\)
Db4 ist an PB.2 (MOSI)
E   ist an PB.4 (OC0)
RS  ist an PB.6 (OC1B)
GND LCD ist an PG.3 (TOSC2)

in Klammern die Alternativbelegung...


Danek für Eure Hilfe!
Christoph

'--------------------------------------------------------------------------
' Compilerinstruktionen und Compilerdirektiven
'--------------------------------------------------------------------------

$regfile = "m128def.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 64
$baud = 9600

'--------------------------------------------------------------------------
' Definition von Ressourcen
'--------------------------------------------------------------------------

Pwr_all Alias Portg.0                                       ' Relais 12 Volt für alles
Pwr_tft Alias Portg.1
Pwr_video Alias Portb.7
Pwr_xbee Alias Porte.2
Pwr_gps Alias Portc.6

Pwr_lcd Alias Portg.3                                       ' LCD GND

Tft1 Alias Portb.5
Tft2 Alias Portb.3
Tft3 Alias Portb.1
Tft4 Alias Porte.7
Tft5 Alias Porte.5

Led_gruen Alias Portd.6                                     ' link-LED

Ledduo_rot Alias Portd.5                                    ' Duo-LED für Battery-Status rot und grüen
Ledduo_gruen Alias Portd.7

Lcd_led Alias Porte.3                                       ' LCD-Beleuchtung

Bit0 Alias Portd.1
Bit1 Alias Portd.4
Bit2 Alias Portd.0

Piezo Alias Portg.4                                         ' Piezo

Joy_taster_rechts Alias Pinf.0                              ' Taster Joystick rechts
Joy_taster_links Alias Pinf.2                               ' Taster Joystick links



'--------------------------------------------------------------------------
' Definition von Konstanten
'--------------------------------------------------------------------------

Const Adc_multi = 0.0048828125                              ' = 5.0 / 1024.0 -> ADC auflösen
Const Timerstartwert1 = 36735


'--------------------------------------------------------------------------
' Definition von Variablen und Datentypen
'--------------------------------------------------------------------------

'---- Command senden ----
Dim Cmd As Byte

'---- Betriebsspannung messen ----
Dim Spannung As Word
Dim Battery_orig As Single
Dim Battery As String * 5

'---- Commands einlesen ----
Dim Dollarzeicheneingang As Byte                            'Beginn des Datenstrings mit Dollarzeichen
Dim Teildaten(14) As String * 20                            ' Array mit den extrahierten Daten
Dim Anzahl As Byte
Dim Datenstring As String * 40
Dim Datenkopf As String * 7

'---- LCD Darstellung ----
Dim Lcd_command As String * 20
Dim Lcd_voltage As String * 20
Dim Lcd_temperatur As String * 20
Dim Lcd_gps As String * 20

'---- Link-Flag ----
Dim Connect As Bit

'---- GPS RS232 TTl einlesen ----
Dim Gelesen As Byte                                         'eingelesenes Zeichen

Dim Teilstring(14) As String * 12
Dim Anzahl2 As Byte
Dim Gpsdaten As String * 98
Dim Header As String * 6
Dim Stunde As Byte
Dim Tempstring As String * 2

'---- Sekundenzähler/Timer ---
Dim Sec1 As Word                                            ' Variable für Timer1
Dim Sec0 As Word

'---- ADC Joysticks ----
Dim Joy_links_y As Word                                     ' Y-Achse LINKS
Dim Joy_links_x As Word                                     ' X-Achse LINKS

Dim Joy_rechts_y As Word                                    ' Y-Achse RECHTS
Dim Joy_rechts_x As Word                                    ' X-Achse RECHTS


'---- LCd Menü ----


'--------------------------------------------------------------------------
' Konfiguration und Basiseinstellungen
'--------------------------------------------------------------------------

'---- RS232 Software GPS ----
' RS232 Hardware
Config Serialin = Buffered , Size = 110                     ' konfig serial in
Open "COMC.0:9600,8,N,1" For Input As #1                    ' PC.2 = RxD SoftUART / GPS
Open "COMC.2:9600,8,N,1" For Output As #2                   ' PC.3 = TxD SoftUART / GPS

'---- ADC ----
Config Adc = Single , Prescaler = Auto , Reference = Avcc   'ADC Wandler definieren

'---- Timer ----
Config Timer1 = Timer , Prescale = 256                      ' für zähler Timer1 konfigurieren

Config Timer3 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1       ' für led und kontrast timer3


'---- Outputs ----
Config Pwr_all = Output
Config Pwr_video = Output
Config Pwr_tft = Output
Config Pwr_xbee = Output
Config Pwr_gps = Output
Config Pwr_lcd = Output
Config Led_gruen = Output
Config Ledduo_rot = Output
Config Ledduo_gruen = Output
Config Lcd_led = Output
Config Bit0 = Output
Config Bit1 = Output
Config Bit2 = Output
Config Tft1 = Output
Config Tft2 = Output
Config Tft3 = Output
Config Tft4 = Output
Config Tft5 = Output

'---- Joysticks ----
Config Joy_taster_links = Input
Config Joy_taster_rechts = Input








Pwr_lcd = 0                                                 ' LCD einschalten

Wait 2

'---- LCD ----
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.0 , Db6 = Porte.6 , Db7 = Porte.4 , E = Portb.4 , Rs = Portb.6
Cursor Off

Deflcdchar 0 , 32 , 32 , 21 , 14 , 4 , 4 , 4 , 4            ' Link-Zeichen
Deflcdchar 1 , 32 , 14 , 31 , 31 , 31 , 31 , 31 , 31        ' battery-full
Deflcdchar 2 , 32 , 14 , 31 , 17 , 17 , 31 , 31 , 31        ' battery-half
Deflcdchar 3 , 32 , 14 , 31 , 17 , 17 , 17 , 17 , 31        ' battery empty

'---- Interrupts ----
Enable Interrupts
Enable Timer1
Enable Timer3

On Timer1 Timer1_isr

Start Adc


'--------------------------------------------------------------------------
' Init
'--------------------------------------------------------------------------

Pwr_all = 1                                                 ' Relais für POWER ON einschalten

Waitms 250

Bit0 = 1                                                    ' Kanal für 5,8 Ghz alles zunächst high
Bit1 = 1
Bit2 = 1

Pwr_xbee = 1                                                ' XBee einschalten ON
Pwr_gps = 1                                                 ' GPS Modul einschalten ON

Led_gruen = 1                                               ' Led-grün OFF
Ledduo_rot = 0                                              ' Duo-LEDs OFF
Ledduo_gruen = 0



                                            '
Lcd_led = 0                                                 ' LCD-Beleuchtung ON

Connect = 0                                                 ' connect-flag = 0

Sec1 = 0                                                    ' sec1-Zähler = 0
Battery_orig = 12                                           ' zunächst von voller Batterie 12 Volt ausgehen

Tft1 = 1
Tft2 = 1
Tft3 = 1
Tft4 = 1
Tft5 = 1



Pwr_tft = 1                                                 ' TFT einschalten ON


Pwr_video = 0                                               '1                                               ' 5,8 Ghz einschalten ON



Sound Piezo , 220 , 227
Waitms 125
Sound Piezo , 220 , 227
Waitms 125
Sound Piezo , 220 , 227
Waitms 125

Wait 1

' Begrüßung
Cls
Cursor Off

Locate 1 , 1
Lcd "KaprigControlRxZ1"
Locate 2 , 1
Lcd "KaprigControlRxZ2"
Locate 3 , 1
Lcd "KaprigControlRxZ3"
Locate 4 , 1
Lcd "KaprigControlRxZ4"



'--------------------------------------------------------------------------
' Hauptprogramm
'--------------------------------------------------------------------------

Cls

Do
Loop
End

[der Gast (Gast)]

Hallo,

da würde ich erstmal 99% vom Code auskommentieren und nur die LCD 
Routine testen.

Wenn die dann funktioniert, dann Stück für Stück den Rest wieder rein 
und Du wirst das Problem finden.

[no time for wait (Gast)]

Vielleicht solltest du die Pause einfügen nachdem das LCD den Text 
anzeigt ;-)

[holger (Gast)]

Als erstes würde ich mal die M103C Fuse abschalten.
Wenn das nicht hilft den Fehler in der Verdrahtung zum
LCD suchen.

Cls  ' Das hier hätte das Display eigentlich löschen müssen.
     ' Im Video sieht man aber den Müll immer noch;)

Do
Loop
End

[Chr. M. (snowfly)]

Vielleicht spukt dir auch die nicht existente Isr rein

Ich würd mal das auskomentieren:
On Timer1 Timer1_isr