-
        

Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 13

Thema: Grafik Display mit Bascom

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    02.06.2005
    Ort
    Olpe
    Alter
    47
    Beiträge
    70

    Grafik Display mit Bascom

    Anzeige

    Moin,

    ich habe mir ein wenig übereilt das Grafik Display EA DIP122-5 von der Fa. Electronic Assembley gekauft und ich weiß jetzt nicht wie ich das Grafik Display mit Bascom ansteuern kann.

    Laut Datenblatt hat das Display keinen Zeichensatz??

    Kann mir jemand sagen wie ich die Zeichen aufs Display bekommen, bzw. wie ich das Teil ansteuere mit einem Mega32 ????

    Siehe Datenblatt anbei!

    Gruß
    xcool
    Angehängte Dateien Angehängte Dateien

  2. #2
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    08.11.2005
    Ort
    QTH: JO43BC
    Alter
    49
    Beiträge
    112
    Also laut EA hat das Modul den SED1520 drauf. Und wenn Du in der Hilfe von Bascom mal nach "SED1520" suchst, dann wirste auch fuendig. Incl. Beispiellisting. Also ich denke das sollte dann kein Problem sein!?

    Mit freundlichen Gruessen
    Digitali

  3. #3
    Benutzer Stammmitglied
    Registriert seit
    02.06.2005
    Ort
    Olpe
    Alter
    47
    Beiträge
    70

    Verdrahtung des Grafil LCD Display

    Zitat Zitat von digitali
    Also laut EA hat das Modul den SED1520 drauf. Und wenn Du in der Hilfe von Bascom mal nach "SED1520" suchst, dann wirste auch fuendig. Incl. Beispiellisting. Also ich denke das sollte dann kein Problem sein!?

    Mit freundlichen Gruessen
    Digitali

    Mhmm, habe dort nachgeschaut, ich komme da jedoch nicht ganz mit klar??


    Aber wie sieht es mit der Verdrahtung aus??

    In der Bascom Anleitung-Demo steht .....

    Code:
    Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
    warum Porta und Portc und wie ist da die genaue Zuordnung der Pins (MC zum LCD)

    Hats Du einen Schaltplan wo ich die Verdrahtung mit der Pin Zuordnung genau sehen kann??

    Gruß
    xcool

  4. #4
    Neuer Benutzer Öfters hier
    Registriert seit
    17.03.2006
    Ort
    Neu Wulmstorf
    Alter
    52
    Beiträge
    29
    Die Wahl der Ports für den Dataport und den Controlport steht dir grundsätzlich frei, muß nicht PA und PD sein.

    Also wenn Du diese config-Zeile nimmst sollte die Verdrahtung so aussehen:

    Config Graphlcd = 120 * 64sed , Dataport = Porta , Controlport = Portd , Ce = 5 , Ce2 = 7 , Cd = 3 , Rd = 4

    AVRPin LCDPin
    PA0 -- 7 (D0)
    PA1 -- 8 (D1)
    PA2 -- 9 (D2)
    PA3 -- 10 (D3)
    PA4 -- 11 (D4)
    PA5 -- 12 (D5)
    PA6 -- 13 (D6)
    PA7 -- 14 (D7)

    PD3 -- 4 (A0)
    PD4 -- 5 (R/W)
    PD5 -- 6 (E1)
    PD7 -- 15 (E2)

    Bei dem Beispielprogramm in der Bascom Hilfe ist auch das ausgeben von Zeichen schön beschrieben. Die Hilfe geht ausdrücklich auf das nichtvorhandensein von Fonts im LCD ein, und wie man die Softfonts in Bascom einbindet.

    Viel Erfolg

    Jimmy

  5. #5
    Erfahrener Benutzer Robotik Einstein Avatar von Vitis
    Registriert seit
    06.01.2005
    Ort
    Südpfalz
    Alter
    43
    Beiträge
    2.240
    Doof bei der Geschichte ist, das man immer ganze Ports haben muß für die Konfiguration in Bascom. Möcht man TWI, nen AD-Port, INT0 und evtl. OC2 in einem Projekt mit dem GLCD verwenden wirds schon eng in der Geschichte. Gibts da schon n Workaound in Bascom? ICh hab mir da für ne Anwendung meine eigenen (wenn auch lang nicht perfekte) Ansteuerung, die pinweise läuft zusammengestrickt, aber die ist halt nicht gerade schnell und halt auch nicht so umfangreich.
    Vor den Erfolg haben die Götter den Schweiß gesetzt

  6. #6
    Benutzer Stammmitglied
    Registriert seit
    02.06.2005
    Ort
    Olpe
    Alter
    47
    Beiträge
    70
    Zitat Zitat von d.andres
    Die Wahl der Ports für den Dataport und den Controlport steht dir grundsätzlich frei, muß nicht PA und PD sein.

    Also wenn Du diese config-Zeile nimmst sollte die Verdrahtung so aussehen:

    Config Graphlcd = 120 * 64sed , Dataport = Porta , Controlport = Portd , Ce = 5 , Ce2 = 7 , Cd = 3 , Rd = 4

    AVRPin LCDPin
    PA0 -- 7 (D0)
    PA1 -- 8 (D1)
    PA2 -- 9 (D2)
    PA3 -- 10 (D3)
    PA4 -- 11 (D4)
    PA5 -- 12 (D5)
    PA6 -- 13 (D6)
    PA7 -- 14 (D7)

    PD3 -- 4 (A0)
    PD4 -- 5 (R/W)
    PD5 -- 6 (E1)
    PD7 -- 15 (E2)

    Bei dem Beispielprogramm in der Bascom Hilfe ist auch das ausgeben von Zeichen schön beschrieben. Die Hilfe geht ausdrücklich auf das nichtvorhandensein von Fonts im LCD ein, und wie man die Softfonts in Bascom einbindet.

    Viel Erfolg

    Jimmy
    ----------------------------------------------------------------------------------
    Moin Jimmy,

    erstmal vielen Dank für Deine Antwort!!

    Aber ich habe da doch noch eine (mehrere??) Frage(n)?

    Muss ich da nicht auch noch den Reset anschließen?? Ich komme mit Deiner Zuordung der ConfigLCD nicht ganz zurecht!

    In der Bascom Anleitung habe ich folgendes gefunden!!
    Code:
    Config GRAPHLCD = type , DATAPORT = port, CONTROLPORT=port , CE = pin , CD = pin , WR = pin, RD=pin, RESET= pin, FS=pin, MODE = mode
    In der Bascom Hilfe steht ......

    The following connections were used for the T6963C:


    PORTA.0 to PORTA.7 to DB0-DB7 of the LCD

    PORTC.5 to FS, font select of LCD

    PORTC.2 to CE, chip enable of LCD

    PORTC.3 to CD, code/data select of LCD

    PORTC.0 to WR of LCD, write

    PORTC.1 to RD of LCD, read

    PORTC.4 to RESET of LCD, reset LCD

    Nur wo finde ich die Zuordnung für den SED????

    Wenn ich in der Spezifikation vom LCD-Grafik-Modul EADip122*32 schaue da ist der Reset =Pin 16!

    Warum ist das bei Deiner Zuordnung nicht so??

    Warum eigentlich CE und CE2 ???

    gruß
    xcool

  7. #7
    Benutzer Stammmitglied
    Registriert seit
    02.06.2005
    Ort
    Olpe
    Alter
    47
    Beiträge
    70
    Zitat Zitat von Vitis
    Doof bei der Geschichte ist, das man immer ganze Ports haben muß für die Konfiguration in Bascom. Möcht man TWI, nen AD-Port, INT0 und evtl. OC2 in einem Projekt mit dem GLCD verwenden wirds schon eng in der Geschichte. Gibts da schon n Workaound in Bascom? ICh hab mir da für ne Anwendung meine eigenen (wenn auch lang nicht perfekte) Ansteuerung, die pinweise läuft zusammengestrickt, aber die ist halt nicht gerade schnell und halt auch nicht so umfangreich.
    Moin,

    zeig doch mal wie Deine Lösung aussieht!!

    gruß
    xcool

  8. #8
    Neuer Benutzer Öfters hier
    Registriert seit
    17.03.2006
    Ort
    Neu Wulmstorf
    Alter
    52
    Beiträge
    29
    Bei SED basierten LCD gibt es keinen FS (Font Select) Pin. Geh mal auf die Hilfe, dann "suchen" und SED eingeben. Da steht alles drin. Es gibt eine spezielle Lib für SED Displays der Reset Pin ist im Config Statement der Beispielprogramme nicht angeschlossen. Ich denke den kannst Du fest mit +5V verbinden. CE1 und CE2 sind getrennte Chip Enable Pins. Jeweils ein Pin pro SED Chip. Schau mal in die Anleitung des Displays, da steht was von "linke Hälfte" und "rechte Hälfte".

  9. #9
    Erfahrener Benutzer Robotik Einstein Avatar von Vitis
    Registriert seit
    06.01.2005
    Ort
    Südpfalz
    Alter
    43
    Beiträge
    2.240
    Also hier wie gefordert mein Code für das 64128, den ich zu testzwecken zusammengepfriemelt hab. Es ging bei dem Projekt um ein einfaches "Digitaloszi" mit dem ATMega mit internem ADC und GLCD. Hat also dementsprechend nur den Zweck Linien auf dem Display zu zeichnen. Der Vorteil meiner Ansteuerung war halt, das man beliebige Pins für die Ansteuerung nutzen kann, dafür ists halt etwas langsamer als die Bascominterne Routine.

    Code:
    '----------------------------------------------------------
    ' Programm initialisieren
    '----------------------------------------------------------
    '$dbg
    '
    ' ACHTUNG JTAG per Fuse abschalten !!!!
    '
    
    $regfile = "m16def.dat"
    $crystal = 8000000
    
    $baud = 19200
    
    Declare Sub Glcd_wdata(byval Outbyte As Byte)
    Declare Function Glcd_rdata(byval Outbyte As Byte)as Byte
    Declare Sub Glcd_busycheck
    Declare Sub Glcd_pixpos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Byval Modus As Byte)
    Declare Sub Glcd_framepos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Byval Framedata As Byte)
    Declare Sub Glcd_line(byval Sx As Byte , Byval Sy As Byte , Byval Ex As Byte , Byval Ey As Byte)
    
    
    Glcd_db0 Alias Portd.7
    Glcd_pindb0 Alias Pind.7
    Glcd_db1 Alias Portd.6
    Glcd_pindb1 Alias Pind.6
    Glcd_db2 Alias Porta.2
    Glcd_pindb2 Alias Pina.2
    Glcd_db3 Alias Porta.3
    Glcd_pindb3 Alias Pina.3
    Glcd_db4 Alias Porta.4
    Glcd_pindb4 Alias Pina.4
    Glcd_db5 Alias Porta.5
    Glcd_pindb5 Alias Pina.5
    Glcd_db6 Alias Porta.6
    Glcd_pindb6 Alias Pina.6
    Glcd_db7 Alias Porta.7
    Glcd_pindb7 Alias Pina.7
    Glcd_cs0 Alias Portb.0
    Glcd_cs1 Alias Portb.1
    Glcd_e Alias Portb.2
    Glcd_rs Alias Portb.4
    Glcd_res Alias Portb.3
    Glcd_rw Alias Portd.3
    
    Config Glcd_db0 = Output
    Config Glcd_db1 = Output
    Config Glcd_db2 = Output
    Config Glcd_db3 = Output
    Config Glcd_db4 = Output
    Config Glcd_db5 = Output
    Config Glcd_db6 = Output
    Config Glcd_db7 = Output
    Config Glcd_cs0 = Output
    Config Glcd_cs1 = Output
    Config Glcd_e = Output
    Config Glcd_rs = Output
    Config Glcd_res = Output
    Config Glcd_rw = Output
    
    Config Porta.0 = Input
    Config Adc = Single , Prescaler = 64 , Reference = Off
    Start Adc
    
    
    Dim A As Byte
    Dim B As Word
    
    Dim Senstemp(120) As Word
    Dim Tempword As Word                                        ' variablen deklarieren
    Dim I As Byte
    Dim X As Byte
    Dim Tmpsingle As Single
    Dim Temp As Word
    Dim Tempint As Integer
    Dim Tempstr As String * 16
    Dim Sx As Byte , Sy As Byte , Ex As Byte , Ey As Byte , Xsingle As Single , Ysingle As Single
    Dim Framedata As Byte
    Dim Pixpos_x As Byte
    Dim Pixpos_y As Byte
    Dim Tmp As Byte
    Dim Outbyte As Byte
    Dim Modus As Byte
    Dim Y_alt As Byte
    Dim X_alt As Byte
    Dim Y_neu As Byte
    Dim X_neu As Byte
    Dim Y_alt2 As Byte
    Dim X_alt2 As Byte
    Dim Y_neu2 As Byte
    Dim X_neu2 As Byte
    Dim Pwm1ab As Word
    X_alt = 1
    Y_alt = 1
    X_neu = 1
    Y_neu = 1
    
    Config Pinc.2 = Output
    Config Pinc.3 = Input
    Config Portc.5 = Output
    Config Portc.6 = Output
    Config Portc.7 = Output
    
    Enable Interrupts
    
    Gosub Glcd_init
    Gosub Glcd_cls
    
    Call Glcd_line(1 , 1 , 126 , 62)
    Call Glcd_line(1 , 62 , 126 , 1 )
    Call Glcd_line(20 , 20 , 106 , 42)
    Call Glcd_line(20 , 42 , 106 , 20)
    Wait 1
    Gosub Glcd_cls
    
    Do
    
    Loop
    End
    
    ' --------------------------------------------------------------------
    
    Sub Glcd_pixpos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Modus As Byte)
         Local Templocal As Integer
         If Pixpos_y < 62 Then
         If Pixpos_x < 126 Then
         Glcd_rs = 1
         Glcd_rw = 0
         If Modus = 1 Then
             Tmp = Pixpos_y
             Shift Tmp , Right , 3                              ' pixel im Frame setzen
             Shift Tmp , Left , 3
             Pixpos_y = Pixpos_y - Tmp
             Tmp = 0
             Tmp.pixpos_y = 1
             Tmp = Framedata Or Tmp
             Call Glcd_wdata(tmp)                               ' pixel schreiben
          Else
             Call Glcd_wdata(0)                                 ' frame löschen
          End If
          Glcd_rs = 0
          End If
          End If
    End Sub
    
    '------------------------------------------------------------------
    
    Sub Glcd_framepos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Byref Framedata As Byte)
         Local Tempbyte As Byte
         If Pixpos_y < 62 Then
         If Pixpos_x < 126 Then
         Glcd_cs0 = 0
         Glcd_cs1 = 0
         Glcd_rs = 0
         Glcd_rw = 0
         If Pixpos_x > 61 Then                                  ' chip auswählen
            Glcd_cs1 = 1
            Pixpos_x = Pixpos_x And &B00111111
         Else
            Glcd_cs0 = 1
            Pixpos_x = Pixpos_x And &B00111111
            'Decr Pixpos_x
            'Decr Pixpos_x
            'Decr Pixpos_x
         End If
    
         Tmp = Pixpos_x
         Tmp = Tmp And &B00111111
         Tmp = Tmp Or &B01000000
         Call Glcd_wdata(tmp)                                   ' x-Adresse setzen
    
         Shift Pixpos_y , Right , 3
         Tmp = Pixpos_y And &B00011111                          '/ 8
         Tmp = Tmp Or &B10111000                                ' frame setzen für Abfrage
         Call Glcd_wdata(tmp)
         Glcd_rs = 1
         Glcd_rw = 1
             Framedata = Glcd_rdata(0)                          ' Frame auslesen
         Glcd_rw = 0
         Glcd_rs = 0
         Call Glcd_wdata(tmp)
         End If
         End If
    End Sub
    End
    
    ' --------------------------------------------------------------------
    
    Sub Glcd_wdata(byval Outbyte As Byte)
    
        nop
        nop
        Glcd_e = 0
        Glcd_db0 = Outbyte.0
        Glcd_db1 = Outbyte.1
        Glcd_db2 = Outbyte.2
        Glcd_db3 = Outbyte.3
        Glcd_db4 = Outbyte.4
        Glcd_db5 = Outbyte.5
        Glcd_db6 = Outbyte.6
        Glcd_db7 = Outbyte.7
        nop
        Glcd_e = 1
        nop
        Glcd_e = 0
    End Sub
    End
    
    ' --------------------------------------------------------------------
    
    Function Glcd_rdata(byval Outbyte As Byte)as Byte
        Config Glcd_db0 = Input
        Config Glcd_db1 = Input
        Config Glcd_db2 = Input
        Config Glcd_db3 = Input
        Config Glcd_db4 = Input
        Config Glcd_db5 = Input
        Config Glcd_db6 = Input
        Config Glcd_db7 = Input
        Glcd_e = 0
        nop
        Glcd_e = 1
        nop
        Glcd_e = 0
        nop
        Glcd_e = 1
        nop
    
        Outbyte.0 = Glcd_pindb0
        Outbyte.1 = Glcd_pindb1
        Outbyte.2 = Glcd_pindb2
        Outbyte.3 = Glcd_pindb3
        Outbyte.4 = Glcd_pindb4
        Outbyte.5 = Glcd_pindb5
        Outbyte.6 = Glcd_pindb6
        Outbyte.7 = Glcd_pindb7
        Glcd_rdata = Outbyte
        Framedata = Outbyte
        nop
        Config Glcd_db0 = Output
        Config Glcd_db1 = Output
        Config Glcd_db2 = Output
        Config Glcd_db3 = Output
        Config Glcd_db4 = Output
        Config Glcd_db5 = Output
        Config Glcd_db6 = Output
        Config Glcd_db7 = Output
        nop
        Glcd_e = 0
        nop
        nop
    End Function
    End
    
    ' --------------------------------------------------------------------
    
    Glcd_init:
       Glcd_res = 1
       Waitms 400
       Glcd_res = 0
       Waitms 400
       Glcd_res = 1
       Waitms 400
       Glcd_rs = 0
       Glcd_rw = 0
       nop
       nop
       nop
       Glcd_cs0 = 1                                             ' Instruktionen
       Glcd_cs1 = 0
       Call Glcd_wdata(&B00111111 )
       nop
       nop
       nop
       Call Glcd_wdata(&B11000000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B10111000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B01000000 )
       Glcd_rs = 0
       Glcd_rw = 0
       nop
       nop
       nop
       Glcd_cs0 = 0                                             ' Instruktionen
       Glcd_cs1 = 1
       Call Glcd_wdata(&B00111111)
       nop
       nop
       nop
       Call Glcd_wdata(&B11000000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B10111000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B01000000 )
    Return
    End
    
    Glcd_cls:
       Glcd_rs = 1
       Glcd_rw = 0
       X = 0
       For A = 1 To 128                                         ' Bildschirm löschen
          For I = 1 To 60 Step 8
             Call Glcd_framepos(a , I , X)
             Call Glcd_pixpos(a , I , X)
          Next I
       Next A
    Return
    End
    
    
    Glcd_mirror:
       Glcd_rs = 1
       Glcd_rw = 0
       For X = 1 To 63
          For A = 1 To 128
             Call Glcd_framepos(a , X , 1)
             Call Glcd_pixpos(a , X , 1)
          Next A
       Next X
    Return
    End
    
    Sub Glcd_line(byval Sx As Byte , Byval Sy As Byte , Byval Ex As Byte , Byval Ey As Byte)
       Local Dx As Integer
       Local Dy As Integer
       Local Yb As Byte
       Local Xb As Byte
       Local Xcount As Byte
       Xb = 0
       Yb = 0
       Dx = Sx - Ex
       Dy = Sy - Ey
       Ysingle = Dy / Dx
       For Xcount = Ex To Sx Step -1
          Yb = Ysingle * Xb
          Yb = Yb + Sy
          Call Glcd_framepos(xcount , Yb , 1)
          Call Glcd_pixpos(xcount , Yb , 1)
          Incr Xb
          Yb = Ysingle * Xb
          Yb = Yb + Sy
          Call Glcd_framepos(xcount , Yb , 1)
          Call Glcd_pixpos(xcount , Yb , 1)
       Next A
    End Sub
    Vor den Erfolg haben die Götter den Schweiß gesetzt

  10. #10
    Benutzer Stammmitglied
    Registriert seit
    02.06.2005
    Ort
    Olpe
    Alter
    47
    Beiträge
    70
    Zitat Zitat von Vitis
    Also hier wie gefordert mein Code für das 64128, den ich zu testzwecken zusammengepfriemelt hab. Es ging bei dem Projekt um ein einfaches "Digitaloszi" mit dem ATMega mit internem ADC und GLCD. Hat also dementsprechend nur den Zweck Linien auf dem Display zu zeichnen. Der Vorteil meiner Ansteuerung war halt, das man beliebige Pins für die Ansteuerung nutzen kann, dafür ists halt etwas langsamer als die Bascominterne Routine.

    Code:
    '----------------------------------------------------------
    ' Programm initialisieren
    '----------------------------------------------------------
    '$dbg
    '
    ' ACHTUNG JTAG per Fuse abschalten !!!!
    '
    
    $regfile = "m16def.dat"
    $crystal = 8000000
    
    $baud = 19200
    
    Declare Sub Glcd_wdata(byval Outbyte As Byte)
    Declare Function Glcd_rdata(byval Outbyte As Byte)as Byte
    Declare Sub Glcd_busycheck
    Declare Sub Glcd_pixpos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Byval Modus As Byte)
    Declare Sub Glcd_framepos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Byval Framedata As Byte)
    Declare Sub Glcd_line(byval Sx As Byte , Byval Sy As Byte , Byval Ex As Byte , Byval Ey As Byte)
    
    
    Glcd_db0 Alias Portd.7
    Glcd_pindb0 Alias Pind.7
    Glcd_db1 Alias Portd.6
    Glcd_pindb1 Alias Pind.6
    Glcd_db2 Alias Porta.2
    Glcd_pindb2 Alias Pina.2
    Glcd_db3 Alias Porta.3
    Glcd_pindb3 Alias Pina.3
    Glcd_db4 Alias Porta.4
    Glcd_pindb4 Alias Pina.4
    Glcd_db5 Alias Porta.5
    Glcd_pindb5 Alias Pina.5
    Glcd_db6 Alias Porta.6
    Glcd_pindb6 Alias Pina.6
    Glcd_db7 Alias Porta.7
    Glcd_pindb7 Alias Pina.7
    Glcd_cs0 Alias Portb.0
    Glcd_cs1 Alias Portb.1
    Glcd_e Alias Portb.2
    Glcd_rs Alias Portb.4
    Glcd_res Alias Portb.3
    Glcd_rw Alias Portd.3
    
    Config Glcd_db0 = Output
    Config Glcd_db1 = Output
    Config Glcd_db2 = Output
    Config Glcd_db3 = Output
    Config Glcd_db4 = Output
    Config Glcd_db5 = Output
    Config Glcd_db6 = Output
    Config Glcd_db7 = Output
    Config Glcd_cs0 = Output
    Config Glcd_cs1 = Output
    Config Glcd_e = Output
    Config Glcd_rs = Output
    Config Glcd_res = Output
    Config Glcd_rw = Output
    
    Config Porta.0 = Input
    Config Adc = Single , Prescaler = 64 , Reference = Off
    Start Adc
    
    
    Dim A As Byte
    Dim B As Word
    
    Dim Senstemp(120) As Word
    Dim Tempword As Word                                        ' variablen deklarieren
    Dim I As Byte
    Dim X As Byte
    Dim Tmpsingle As Single
    Dim Temp As Word
    Dim Tempint As Integer
    Dim Tempstr As String * 16
    Dim Sx As Byte , Sy As Byte , Ex As Byte , Ey As Byte , Xsingle As Single , Ysingle As Single
    Dim Framedata As Byte
    Dim Pixpos_x As Byte
    Dim Pixpos_y As Byte
    Dim Tmp As Byte
    Dim Outbyte As Byte
    Dim Modus As Byte
    Dim Y_alt As Byte
    Dim X_alt As Byte
    Dim Y_neu As Byte
    Dim X_neu As Byte
    Dim Y_alt2 As Byte
    Dim X_alt2 As Byte
    Dim Y_neu2 As Byte
    Dim X_neu2 As Byte
    Dim Pwm1ab As Word
    X_alt = 1
    Y_alt = 1
    X_neu = 1
    Y_neu = 1
    
    Config Pinc.2 = Output
    Config Pinc.3 = Input
    Config Portc.5 = Output
    Config Portc.6 = Output
    Config Portc.7 = Output
    
    Enable Interrupts
    
    Gosub Glcd_init
    Gosub Glcd_cls
    
    Call Glcd_line(1 , 1 , 126 , 62)
    Call Glcd_line(1 , 62 , 126 , 1 )
    Call Glcd_line(20 , 20 , 106 , 42)
    Call Glcd_line(20 , 42 , 106 , 20)
    Wait 1
    Gosub Glcd_cls
    
    Do
    
    Loop
    End
    
    ' --------------------------------------------------------------------
    
    Sub Glcd_pixpos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Modus As Byte)
         Local Templocal As Integer
         If Pixpos_y < 62 Then
         If Pixpos_x < 126 Then
         Glcd_rs = 1
         Glcd_rw = 0
         If Modus = 1 Then
             Tmp = Pixpos_y
             Shift Tmp , Right , 3                              ' pixel im Frame setzen
             Shift Tmp , Left , 3
             Pixpos_y = Pixpos_y - Tmp
             Tmp = 0
             Tmp.pixpos_y = 1
             Tmp = Framedata Or Tmp
             Call Glcd_wdata(tmp)                               ' pixel schreiben
          Else
             Call Glcd_wdata(0)                                 ' frame löschen
          End If
          Glcd_rs = 0
          End If
          End If
    End Sub
    
    '------------------------------------------------------------------
    
    Sub Glcd_framepos(byval Pixpos_x As Byte , Byval Pixpos_y As Byte , Byref Framedata As Byte)
         Local Tempbyte As Byte
         If Pixpos_y < 62 Then
         If Pixpos_x < 126 Then
         Glcd_cs0 = 0
         Glcd_cs1 = 0
         Glcd_rs = 0
         Glcd_rw = 0
         If Pixpos_x > 61 Then                                  ' chip auswählen
            Glcd_cs1 = 1
            Pixpos_x = Pixpos_x And &B00111111
         Else
            Glcd_cs0 = 1
            Pixpos_x = Pixpos_x And &B00111111
            'Decr Pixpos_x
            'Decr Pixpos_x
            'Decr Pixpos_x
         End If
    
         Tmp = Pixpos_x
         Tmp = Tmp And &B00111111
         Tmp = Tmp Or &B01000000
         Call Glcd_wdata(tmp)                                   ' x-Adresse setzen
    
         Shift Pixpos_y , Right , 3
         Tmp = Pixpos_y And &B00011111                          '/ 8
         Tmp = Tmp Or &B10111000                                ' frame setzen für Abfrage
         Call Glcd_wdata(tmp)
         Glcd_rs = 1
         Glcd_rw = 1
             Framedata = Glcd_rdata(0)                          ' Frame auslesen
         Glcd_rw = 0
         Glcd_rs = 0
         Call Glcd_wdata(tmp)
         End If
         End If
    End Sub
    End
    
    ' --------------------------------------------------------------------
    
    Sub Glcd_wdata(byval Outbyte As Byte)
    
        nop
        nop
        Glcd_e = 0
        Glcd_db0 = Outbyte.0
        Glcd_db1 = Outbyte.1
        Glcd_db2 = Outbyte.2
        Glcd_db3 = Outbyte.3
        Glcd_db4 = Outbyte.4
        Glcd_db5 = Outbyte.5
        Glcd_db6 = Outbyte.6
        Glcd_db7 = Outbyte.7
        nop
        Glcd_e = 1
        nop
        Glcd_e = 0
    End Sub
    End
    
    ' --------------------------------------------------------------------
    
    Function Glcd_rdata(byval Outbyte As Byte)as Byte
        Config Glcd_db0 = Input
        Config Glcd_db1 = Input
        Config Glcd_db2 = Input
        Config Glcd_db3 = Input
        Config Glcd_db4 = Input
        Config Glcd_db5 = Input
        Config Glcd_db6 = Input
        Config Glcd_db7 = Input
        Glcd_e = 0
        nop
        Glcd_e = 1
        nop
        Glcd_e = 0
        nop
        Glcd_e = 1
        nop
    
        Outbyte.0 = Glcd_pindb0
        Outbyte.1 = Glcd_pindb1
        Outbyte.2 = Glcd_pindb2
        Outbyte.3 = Glcd_pindb3
        Outbyte.4 = Glcd_pindb4
        Outbyte.5 = Glcd_pindb5
        Outbyte.6 = Glcd_pindb6
        Outbyte.7 = Glcd_pindb7
        Glcd_rdata = Outbyte
        Framedata = Outbyte
        nop
        Config Glcd_db0 = Output
        Config Glcd_db1 = Output
        Config Glcd_db2 = Output
        Config Glcd_db3 = Output
        Config Glcd_db4 = Output
        Config Glcd_db5 = Output
        Config Glcd_db6 = Output
        Config Glcd_db7 = Output
        nop
        Glcd_e = 0
        nop
        nop
    End Function
    End
    
    ' --------------------------------------------------------------------
    
    Glcd_init:
       Glcd_res = 1
       Waitms 400
       Glcd_res = 0
       Waitms 400
       Glcd_res = 1
       Waitms 400
       Glcd_rs = 0
       Glcd_rw = 0
       nop
       nop
       nop
       Glcd_cs0 = 1                                             ' Instruktionen
       Glcd_cs1 = 0
       Call Glcd_wdata(&B00111111 )
       nop
       nop
       nop
       Call Glcd_wdata(&B11000000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B10111000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B01000000 )
       Glcd_rs = 0
       Glcd_rw = 0
       nop
       nop
       nop
       Glcd_cs0 = 0                                             ' Instruktionen
       Glcd_cs1 = 1
       Call Glcd_wdata(&B00111111)
       nop
       nop
       nop
       Call Glcd_wdata(&B11000000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B10111000 )
       nop
       nop
       nop
       Call Glcd_wdata(&B01000000 )
    Return
    End
    
    Glcd_cls:
       Glcd_rs = 1
       Glcd_rw = 0
       X = 0
       For A = 1 To 128                                         ' Bildschirm löschen
          For I = 1 To 60 Step 8
             Call Glcd_framepos(a , I , X)
             Call Glcd_pixpos(a , I , X)
          Next I
       Next A
    Return
    End
    
    
    Glcd_mirror:
       Glcd_rs = 1
       Glcd_rw = 0
       For X = 1 To 63
          For A = 1 To 128
             Call Glcd_framepos(a , X , 1)
             Call Glcd_pixpos(a , X , 1)
          Next A
       Next X
    Return
    End
    
    Sub Glcd_line(byval Sx As Byte , Byval Sy As Byte , Byval Ex As Byte , Byval Ey As Byte)
       Local Dx As Integer
       Local Dy As Integer
       Local Yb As Byte
       Local Xb As Byte
       Local Xcount As Byte
       Xb = 0
       Yb = 0
       Dx = Sx - Ex
       Dy = Sy - Ey
       Ysingle = Dy / Dx
       For Xcount = Ex To Sx Step -1
          Yb = Ysingle * Xb
          Yb = Yb + Sy
          Call Glcd_framepos(xcount , Yb , 1)
          Call Glcd_pixpos(xcount , Yb , 1)
          Incr Xb
          Yb = Ysingle * Xb
          Yb = Yb + Sy
          Call Glcd_framepos(xcount , Yb , 1)
          Call Glcd_pixpos(xcount , Yb , 1)
       Next A
    End Sub
    Ohhh .... werde ich mal ausprobieren, wenn ich nächste Woche wieder Zeit habe!!

    Gruß
    xcool

Seite 1 von 2 12 LetzteLetzte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •