Hallo,

habe mich jetzt die ganze Zeit durchs Forum gelesen, jedoch finde ich immer nur Bruchteile.
Ich möchte das Samsung 0282a 8x24 Zeichen mit 16 Pin Ansteuerung mit einem AtMega 16 betreiben und dort verschiedene Temperaturen und das Datum plus Uhr anzeigen lassen. Die Uhr soll eine Softclock sein mit 2 Tastern zum Stellen der Uhr. Der Quelltext ist von Andree-HB übernommen worden und nicht bearbeitet. (siehe Quelltext 1) Er benutzt aber leider ein Display das direkt mit Bascom zusammenarbeitet. Jetzt habe ich auf mikrocontroller.net einen Ansatz gefunden, um dieses Display anzusteuern, komme damit aber noch nicht richtig parat.(siehe Quelltext 2)
Ich würde gerne erstmal einfach eine Uhrzeit und ein Datum ausgeben, dafür müsste ich natürlich erstmal das Display ansteuern können.
Kann mir jemand beim Umschreiben des Codes helfen, sodass ich die Softclock benutzen kann? Die Temperatursensoren auszulesen wäre dann wieder kein Problem.



Gruß
Bene
Code:
'************************************************************
'
'Atmega Softclock -> genau Uhrzeit ohne RTC (Real-Time-Clock)
'
'Benutzt wird ein Mega8/8, Fusebits auf Auslieferungszustand,
'Lcd An Portb , Taster Zum Stellen An Pd.0
'zum Hochzählen An Pd.3.
'zwischen XTAL ist ein 32.xxx Uhrenquarz
'14.08.2006, Andree-HB, www.pixelklecks.de
'************************************************************



$regfile = "m8def.dat"


Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Lcd = 24 * 2
Initlcd
Cursor Off
Cls

Enable Interrupts

Config Date = Mdy , Separator = /
Config Clock = Soft
Config Portd = Input


Portd.0 = 1                                                 'Taster1, Zeit/Datum stellen, PullUp ein, schaltet gegen Minus
Portd.3 = 1                                                 'Taster2,  Zahl hochzählen, PullUp ein, schaltet gegen Minus


Time$ = "00:00:00"                                          'Setzen auf Startwert
Date$ = "00/00/00"                                          'Setzen auf Startwert

Do
   Locate 1 , 1
   Lcd Time$                                                'Zeige Zeit in Zeile1
   Locate 2 , 1
   Lcd _day ; "/" ; _month ; "/0" ; _year                   'Zeige Datum in Form DD/MM/YYin Zeile2
'lcd Date$                                                     'zeige Datum in Form MM/DD/YY

   If Pind.0 = 0 Then Gosub Time                            'wiederhole Anzeige bis Taster 1 zum Stellen gedrückt, springe nach Sub "Time"
Loop
End


'Stunde
Time:
Waitms 200
Cls                                                         'lösche Zeilen
Do
Locate 1 , 1
Lcd "Set Hour:"                                             'Stunden setzen
Locate 2 , 1
Lcd _hour
         If Pind.3 = 0 Then                                 'Mit Taster 2
           Incr _hour                                          'hochzählen
           Locate 2 , 1
           Lcd _hour
         End If
If _hour > 23 Then                                          'Zählt bis Max, danach wieder ab 0
Cls
_hour = 00
End If                                                      'solange, bis Taster 1 gedrückt
Loop Until Pind.0 = 0
Waitms 200



'Minute
Cls
Do
Locate 1 , 1
Lcd "Set Minute:"
Locate 2 , 1
Lcd _min
         If Pind.3 = 0 Then
           Incr _min
           Locate 2 , 1
           Lcd _min
         End If
If _min > 59 Then
Cls
_min = 00
End If
Loop Until Pind.0 = 0
Waitms 200
Cls



'Tag
Cls
Do
Locate 1 , 1
Lcd "Set Day :"
Locate 2 , 1
Lcd _day
         If Pind.3 = 0 Then
           Incr _day
           Locate 2 , 1
           Lcd _day
         End If
If _day > 31 Then
Cls
_day = 01
End If
Loop Until Pind.0 = 0
Waitms 200
Cls



'Monat
Cls
Do
Locate 1 , 1
Lcd "Set Month :"
Locate 2 , 1
Lcd _month
         If Pind.3 = 0 Then
           Incr _month
           Locate 2 , 1
           Lcd _month
         End If
If _month > 12 Then
Cls
_month = 01
End If
Loop Until Pind.0 = 0
Waitms 200
Cls



'Jahr
Cls
Do
Locate 1 , 1
Lcd "Set Year :"
Locate 2 , 1
Lcd _year
         If Pind.3 = 0 Then
           Incr _year
           Locate 2 , 1
           Lcd _year
         End If
If _year > 10 Then
Cls
_year = 00
End If
Loop Until Pind.0 = 0
Waitms 200
Cls


_sec = 00                                                   'Springe Nach Setzen Von Zeit / Datum Wieder Zurueck
Return
Code:
'(#############################################################################
Display Mit M50530 Aus Einem Siemenstelefon Optiset Memory E
Samsung 2138a Mit M50530 Controller / Ansteuerung Mit Attiny2313 Und Bascomdemo
Version 1.11.8.3

Die 2 Leds Sind Nur Zur Funktionskontrolle Während Der Erschaffung
dieses Quick-und-Dirty-Codes nötig und können entfallen.

Lcd - > Description
----------------------------------------
Pin 01 - > Ground - > Gnd
Pin 02 - > Data0 - > Portb.0
Pin 03 - > Data1 - > Portb.1
Pin 04 - > Data2 - > Portb.2
Pin 05 - > Data3 - > Portb.3
Pin 06 - > Data4 - > Portb.4
Pin 07 - > Data5 - > Portb.5
Pin 08 - > Data6 - > Portb.6
Pin 09 - > Data7 - > Portb.7
Pin 10 - > Ex - > Portd.3
Pin 11 - > R / W - > Portd.4
Pin 12 - > Oc2 - > Portd.5
Pin 13 - > Oc1 - > Portd.6
Pin 14 - > 8 , 2 Volt - > 8 , 2 Volt Poti Von 5..12v
Pin 15 - > 5 Volt - > 5 Volt
Pin 16 - > Ground - > Gnd

Ziel Ist Es , Das Lcd Per RS232 / V24 Ansteuern Zu Können.
Das Display Soll Werte Einer Heizung(temp , Status Und Uhrzeit) Ausgeben.
Dazu Brauche Ich Funktionen Für Die Ausgabe Von Zeichenketten ,
Cursor Setzen(locate) Und Bildschirm Löschen(cls).

Jede Ausgabe Per V24 An Das Lcd Sieht Folgendermassen Aus:

@zssxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxcrlf

@ Ist Das Kennungszeichen Und Muß Am Anfang Stehen
Z Ist Die Zeile Von 1..8 , Z = 0 Macht Cls
Ss Ist Die Spalte(2stellig) Von 0..23
Xxx..xxx Ist Der Auszugebende String
Cr Muß Folgen
Lf Kann Folgen

###############################################################################
')
$regfile = "2313def.dat"           ' IC-Typ
Const Quarz = 8000000              ' Quarz..
$crystal = Quarz                   ' ..festlegen
$baud = 19200                      ' Baudrate V24

$hwstack = 32                      ' Hardwarestack
$swstack = 24                      ' Softwarestack
$framesize = 24                    ' Framsize

'################################ INIT Timer0 #################################
Const Pre = 8                      ' ergibt alle x ms einen Interrupt
Config Timer0 = Timer , Prescale = Pre
On Ovf0 Tim0_isr                   ' Define the ISR handler
Enable Timer0
Const Reload = Int(quarz /((256 * Pre) * 100))       ' für 10 ms

'################################ INIT UART0 ##################################
On Urxc Ser_inp                    ' Interrupt-Routine setzen
Enable Urxc                        ' Interrupt URXC einschalten

'################################ INIT Watchdog ###############################
Config Watchdog = 2048             ' 2 Sekunden Watchdog

Const Sreload = 100                ' Sollwert für 1 Sekunde
Const Cdispinit = &B1111_1010      ' Display-SF
Const Lmax = 28                    ' Max Buffer-Länge
'----------------------------- Display ----------------------------------------


Lcddata Alias Portb                ' Portb 0-7 ist Data0-7 am Display (Pin 2-9)
                                   ' also 8-Bit-Modus
Ex Alias Portd.3                   ' EX
Rw Alias Portd.4                   ' R/W
Oc2 Alias Portd.5                  ' OC2
Oc1 Alias Portd.6                  ' OC1

Ddrd = &B111_1110                  ' PortD Ausgang außer RxD
Ddrb = &B1111_1111                 ' PortB Ausgang
Portd = &B000_0001                 ' PortD alles auf 0 und RxD PullUp ein
Portb = &B0000_0000                ' PortB alles auf 0

Led_takt Alias Portd.2             ' 2s Takt
Led_v24 Alias Portd.1              ' V24-Bus-Kommunikation

Dim I As Byte                      ' Zählvariable
Dim L As Byte                      ' Zählvariable

Dim C As Byte                      ' ASCII-Wert des aktuellen Zeichens zum LCD
Dim Ch As String * 2               ' Str-Wert des aktuellen Zeichens zum LCD

Dim Led As Bit                     ' Merk-Bit für Takt-LED

Dim S As Byte                      ' Spalte für Locate
Dim Z As Byte                      ' Zeile für Locate

Dim Ioc As Byte                    ' Display-Modus
Dim D As Byte                      ' Datenbyte zum LCD
Dim T As Byte                      ' Temp-Variable in UP "Waitdisprdy"
Dim Now As Byte                    ' Zählvariable in UP "Waitdisprdy"

Dim Mscounter As Word              ' 10ms-Counter
Dim Scounter As Byte               ' 1s-Counter

Dim Buffer As String * 30          ' V24-Buffer

'========================================================================
Startup:

  Enable Interrupts                ' Freigabe der Interrups allgemein.
  Wait 1                           ' kleiner Vorsprung für LCD nach PowerON
  Start Watchdog                   ' Watchdog starten

  Gosub Lcd_init                   ' Init
  Gosub Lcd_cls                    ' CLS
  Gosub Lcd_home                   ' Home (eigentlich sinnlos, weil vorher CLS)


' ##################### Hauptprogramm ######################
  Beginn:
  Do
    Nop                            ' sieht gut aus...    ;-)
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
  Loop
' ##################### Ende Hauptprogramm #################

End                                'End program


'****************************************************************************
Ser_inp:
'****************************************************************************

  C = Udr                          ' Byte aus der UART auslesen
  Led_v24 = 1                      ' V24-LED an
  If C > 31 And L < Lmax Then      ' Grenzen für V24-String überwachen
    Incr L
    Buffer = Buffer + Chr(c)       ' Buffer füllen
  Else
    If C = 13 Then                 ' <Enter> und damit String komplett
      Disable Urxc                 ' V24 aus
      Gosub Handle_buffer          ' Buffer abarbeiten
      Buffer = ""                  ' Buffer leeren
      L = 0                        ' Länge = 0
      Enable Urxc                  ' V24 ein
    End If
  End If

Return

'****************************************************************************
Handle_buffer:
'****************************************************************************


  If Mid(buffer , 1 , 1) = "@" And L > 3 Then       ' erstes Zeichen ein @ ???
     Ch = Mid(buffer , 2 , 1)      ' Zeile holen...
     Z = Val(ch)                   ' ... und in Zahl wandeln
     Ch = Mid(buffer , 3 , 2)      ' Spalte holen...
     S = Val(ch)                   ' ... und in Zahl wandeln
     If Z = 0 Then                 ' Zeile = 0... ?
       Gosub Lcd_cls               ' ...dann CLS
     Else
       Gosub Lcd_locate            ' sonst Cursor setzen...
       For I = 5 To L              ' ... und ab da den String auf dem LCD ausgeben
         Ch = Mid(buffer , I , 1)  ' Zeichen holen...
         C = Asc(ch)               ' ...und als ASC and LCD_print übergeben
         D = I + S                 ' Zeilenende auf LCD beachten
         If D < 24 Then Gosub Lcd_print       ' und Ausgeben...
       Next I
     End If
  End If
Return

'****************************************************************************
Tim0_isr:                          ' Timer0-ISR
'****************************************************************************

  If Mscounter < 1 Then            ' Per Zählvariable eine 10ms-Funktion machen
    Mscounter = Reload             ' Reloadwert für 10ms
    Gosub 10ms                     ' Funktion 10ms
  Else
    Mscounter = Mscounter - 1
  End If

Return

'****************************************************************************
10ms:                              ' 10Milli-Sekunden-Interrupt
'****************************************************************************

  Reset Watchdog

  If Scounter < 1 Then             ' Per Zählvariable eine 1s-Funktion machen
    Scounter = Sreload             ' Reloadwert für 1s
    Gosub 1s                       ' Funktion 1s
  Else
    Scounter = Scounter - 1
  End If

Return

'****************************************************************************
1s:                                ' Sekunden-Interrupt
'****************************************************************************

  Led = Led Xor 1                  ' Merk-Bit toggeln
  Led_takt = Led                   ' Takt-LED blinken lassen

  Led_v24 = 0                      ' ggf. V24-LED aus

Return


'****************************************************************************
Lcd_cls:                           ' LCD löschen
'****************************************************************************

  D = 1 : Ioc = 0
  Gosub Writedata                  ' Clear Display, Cursor Home (CH)

Return

'****************************************************************************
Lcd_home:                          ' Cursor auf 0,0
'****************************************************************************

  D = 0 : Ioc = 3
  Gosub Writedata

Return

'****************************************************************************
Lcd_locate:                        ' Z=1..8 und S=0..23
'****************************************************************************

  If Z < 9 And Z > 0 Then          ' Z=1..8 ?
    Select Case Z                  ' Zeilenadresse setzen
      Case 1 : D = 0
      Case 2 : D = 48
      Case 3 : D = 96
      Case 4 : D = 144
      Case 5 : D = 24
      Case 6 : D = 72
      Case 7 : D = 120
      Case 8 : D = 168
    End Select
    D = D + S                      ' Spalte zur Zeilenadresse addieren
    Ioc = 3                        ' Modus 3 (OC1 und OC2 = 1)
    If S < 24 Then Gosub Writedata ' wenn S=0..23, dann Cursor setzen
  End If
Return

'****************************************************************************
Lcd_print:                         ' Zeichen regulär drucken
'****************************************************************************

  D = C : Ioc = 2
  Gosub Writedata

Return

'============================================================================
Writedatadirect:                   ' ein Byte zum Display ohne Busy-Abfrage
'============================================================================

  Portb = D                        ' Sequenz aus diversen AVR-ASM-Sourcen
  Reset Rw                         ' pollin.de und LCD4Linux (mlcd) abgeguckt...
  Reset Ex                         ' muss nicht alles korrekt sein, geht aber
  Oc1 = Ioc.0
  Oc2 = Ioc.1
  Portb = D
  Waitms 1
  Set Ex
  Waitms 1
  Reset Ex

Return

'============================================================================
Writedata:                         ' ein Byte zum Display mit Busy-Abfrage
'============================================================================

  Gosub Waitdisprdy
  Gosub Writedatadirect

Return

'============================================================================
Waitdisprdy:
'============================================================================

  Now = 0                          ' TimeOUT vorbereiten
  Do
    Set Rw : Reset Oc1 : Reset Oc2 : Reset Ex       ' R/W auf Lesen
    Waitms 1
    Set Ex                         ' Enable-Impuls
    Config Portb = Input           ' PortD nun Eingang
    nop                            ' kurz warten
    T = Pinb And &B1000_0000       ' einlesen und Bit7 maskieren
    Incr Now                       ' TimeOUT-Counter hochzählen
    Reset Ex                       ' Enable=L
  Loop Until T = 0 Or Now > 64     ' Busy-Bit=0 oder TimeOUT zugeschlagen
  Config Portb = Output            ' PortD wieder Ausgang
  Portb = 0                        ' alle Pins wieder auf L
  Reset Rw                         ' R/W wieder auf Schreiben

Return

'============================================================================
Lcd_init:
'============================================================================

  D = Cdispinit : Ioc = 0          ' Init-Sequenz aus pollin.de-Pascal-Source
  Gosub Writedatadirect            ' übernommen und geht scheinbar
  Waitms 5

  D = Cdispinit : Ioc = 0
  Gosub Writedatadirect
  Waitms 5

  D = Cdispinit : Ioc = 0
  Gosub Writedatadirect

  D = Cdispinit : Ioc = 0          ' nun weiter mit Busy-Abfrage
  Gosub Writedata
  Waitms 15

  D = Cdispinit : Ioc = 0
  Gosub Writedata
  Waitms 15

  D = &H50 : Ioc = 0
  Gosub Writedata                  ' SE Set Entrymode: Cursor increment bei R+W, DispStart konstant
  Waitms 15

  D = &B00111100 : Ioc = 0
  Gosub Writedata
  Waitms 15

  D = 1 : Ioc = 0
  Gosub Writedata                  ' Clear Display, Cursor Home (CH)
  Waitms 15

  D = 0 : Ioc = 1
  Gosub Writedata                  ' DisplayStart an Adresse 0
  Waitms 15

  D = &B00001101 : Ioc = 0
  Gosub Writedata                  ' Underlin off (SU)
  Waitms 15

  D = &B00110100 : Ioc = 0
  Gosub Writedata                  ' Cursor off
  Waitms 15

Return
'============================================================================