Bascom OLED mit SSD1306

riesen · 28. Jan. 2014

Hallo Knickohr
Habe heute weder mal meine OLED's hervorgeholt ... klappt nicht schlecht, aber
bei der grossen Schrift schneidet es mir bei der ersten Zahl links immer ein paar
Pixel ab. Hast du da eine Idee, an was das liegen könnte?

Vielen Dank und Gruss
Thomas

kuchen25 · 26. Apr. 2014

SSD1306 I2c

Hier der Code für ein SSD1306 via TWI
Als Anmerkung:
Die Displays, die bei euch momentan laufen, sind keine SSD1306.
Dieser Chipsatz unterstützt keinen Ascii-Mode

Code:

[SIZE=1]
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 400000
I2cinit



Dim Resetflag As Bit

Declare Sub Rstoled
Declare Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)




Do



If Resetflag < 1 Then
Call Rstoled
Resetflag = 1
Call Oled( "ich liebe dieses" , 0 , 1)
Call Oled( "Display,denn es " , 0 , 2)
Call Oled( "ist so klein und" , 0 , 3)
Call Oled( "verbraucht kaum " , 0 , 4)
Call Oled( "Strom           " , 0 , 5)
Call Oled( "SSD1306CRIUS I2c" , 0 , 6)
Call Oled( "v1.2 128x64 OLED" , 0 , 7)
Call Oled( "by Mathias Tenge" , 0 , 8)
End If









Loop







Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Dim Buchstabe As String * 1

Dim Q As Integer
Dim H As Integer
Dim Temp As Integer
Dim Senden As Byte
   Col = Col + 16
   Page = Page + 175
  I2cstart
  I2cwbyte &H78
  I2cwbyte &H80
  I2cwbyte Page                                             'Bestimmung Page (Y)
  I2cstop

  I2cstart
  I2cwbyte &H78
  I2cwbyte &H80
  I2cwbyte &H00
  I2cstop

  I2cstart
  I2cwbyte &H78
  I2cwbyte &H80
  I2cwbyte Col                                              'Bestimmung Page (Y)
  I2cstop


  I2cstart
  I2cwbyte &H78
  I2cwbyte &H80
  I2cstop

  I2cstart
  I2cwbyte &H78
  I2cwbyte &H40
                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 16
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 8
For H = 1 To 8
          Senden = Lookup(temp , Asciitab)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop

     End Sub






Sub Rstoled                                                 'OLED RESET, Aufwecken, alles loeschen
Dim I As Byte
Dim J As Integer
Dim Page As Byte
Page = 176
I2cstart
I2cwbyte &H78
 I2cwbyte &H80
 I2cwbyte &HAF                                              'DISPLAY aufwecken sleep= &HAE
 I2cstop

I2cstart
 I2cwbyte &H78
 I2cwbyte &H80
 I2cwbyte &H81                                              'DISPLAY aufwecken sleep= &HAE
 I2cstop

I2cstart
 I2cwbyte &H78
 I2cwbyte &H80
 I2cwbyte &HFF                                              'Kontrast
 I2cstop

 I2cstart
  I2cwbyte &H78
  I2cwbyte &H80
  I2cwbyte &H20                                             'Adressmapping
  I2cstop

 I2cstart
  I2cwbyte &H78
  I2cwbyte &H80
  I2cwbyte &H00                                             'Adressmapping Horizontal
  I2cstop

 I2cstart
  I2cwbyte &H78
  I2cwbyte &H40                                             'Datenempfang
    For J = 0 To 1023
      I2cwbyte &H00                                         'sende "leere Column"
    Next J
  I2cstop
End Sub


Asciitab:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,
Data 0 , 0 , 6 , 95 , 6 , 0 , 0 , 0,
Data 0 , 7 , 3 , 0 , 7 , 3 , 0 , 0,
Data 0 , 36 , 126 , 36 , 126 , 36 , 0 , 0,
Data 0 , 36 , 43 , 106 , 18 , 0 , 0 , 0,
Data 0 , 99 , 19 , 8 , 100 , 99 , 0 , 0,
Data 0 , 54 , 73 , 86 , 32 , 80 , 0 , 0,
Data 0 , 0 , 7 , 3 , 0 , 0 , 0 , 0,
Data 0 , 0 , 62 , 65 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 62 , 0 , 0 , 0 , 0,
Data 0 , 8 , 62 , 28 , 62 , 8 , 0 , 0,
Data 0 , 8 , 8 , 62 , 8 , 8 , 0 , 0,
Data 0 , 0 , 224 96 , 0 , 0 , 0 , 0,
Data 0 , 8 , 8 , 8 , 8 , 8 , 0 , 0,
Data 0 , 0 , 96 , 96 , 0 , 0 , 0 , 0,
Data 0 , 32 , 16 , 8 , 4 , 2 , 0 , 0,
Data 0 , 62 , 81 , 73 , 69 , 62 , 0 , 0,
Data 0 , 0 , 66 , 127 , 64 , 0 , 0 , 0,
Data 0 , 98 , 81 , 73 , 73 , 70 , 0 , 0,
Data 0 , 34 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 24 , 20 , 18 , 127 , 16 , 0 , 0,
Data 0 , 47 , 73 , 73 , 73 , 49 , 0 , 0,
Data 0 , 60 , 74 , 73 , 73 , 48 , 0 , 0,
Data 0 , 1 , 113 , 9 , 5 , 3 , 0 , 0,
Data 0 , 54 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 6 , 73 , 73 , 41 , 30 , 0 , 0,
Data 0 , 0 , 108 , 108 , 0 , 0 , 0 , 0,
Data 0 , 0 , 236 , 108 , 0 , 0 , 0 , 0,
Data 0 , 8 , 20 , 4 , 65 , 0 , 0 , 0,
Data 0 , 36 , 36 , 36 , 36 , 36 , 0 , 0,
Data 0 , 0 , 65 , 34 , 20 , 8 , 0 , 0,
Data 0 , 2 , 1 , 89 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 93 , 85 , 30 , 0 , 0,
Data 0 , 126 , 17 , 17 , 17 , 126 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 34 , 0 , 0,
Data 0 , 127 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 65 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 1 , 0 , 0,
Data 0 , 62 , 65 , 73 , 73 , 122 , 0 , 0,
Data 0 , 127 , 8 , 8 , 8 , 127 , 0 , 0,
Data 0 , 0 , 65 , 127 , 65 , 0 , 0 , 0,
Data 0 , 48 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 127 , 8 , 20 , 34 , 65 , 0 , 0,
Data 0 , 127 , 64 , 64 , 64 , 64 , 0 , 0,
Data 0 , 127 , 2 , 4 , 2 , 127 , 0 , 0,
Data 0 , 127 , 2 , 4 , 8 , 127 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 81 , 33 , 94 , 0 , 0,
Data 0 , 127 , 9 , 9 , 25 , 102 , 0 , 0,
Data 0 , 38 , 73 , 73 , 73 , 50 , 0 , 0,
Data 0 , 1 , 1 , 127 , 1 , 1 , 0 , 0,
Data 0 , 63 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 31 , 32 , 64 , 32 , 31 , 0 , 0,
Data 0 , 63 , 64 , 60 , 64 , 63 , 0 , 0,
Data 0 , 99 , 20 , 8 , 20 , 99 , 0 , 0,
Data 0 , 7 , 8 , 112 , 8 , 7 , 0 , 0,
Data 0 , 113 , 73 , 69 , 67 , 0 , 0 , 0,
Data 0 , 0 , 127 , 65 , 65 , 0 , 0 , 0,
Data 0 , 2 , 4 , 8 , 16 , 32 , 0 , 0,
Data 0 , 0 , 65 , 65 , 127 , 0 , 0 , 0,
Data 0 , 4 , 2 , 1 , 2 , 4 , 0 , 0,
Data 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128,
Data 0 , 0 , 3 , 7 , 0 , 0 , 0 , 0,
Data 0 , 32 , 84 , 84 , 84 , 120 , 0 , 0,
Data 0 , 127 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 40 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 127 , 0 , 0,
Data 0 , 56 , 84 , 84 , 84 , 8 , 0 , 0,
Data 0 , 8 , 126 , 9 , 9 , 0 , 0 , 0,
Data 0 , 24 , 164 , 164 , 164 , 124 , 0 , 0,
Data 0 , 127 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 0 , 0 , 125 , 64 , 0 , 0 , 0,
Data 0 , 64 , 128 , 132 , 125 , 0 , 0 , 0,
Data 0 , 127 , 16 , 40 , 68 , 0 , 0 , 0,
Data 0 , 0 , 0 , 127 , 64 , 0 , 0 , 0,
Data 0 , 124 , 4 , 24 , 4 , 120 , 0 , 0,
Data 0 , 124 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 252 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 252 , 0 , 0,
Data 0 , 68 , 120 , 68 , 4 , 8 , 0 , 0,
Data 0 , 8 , 84 , 84 , 84 , 32 , 0 , 0,
Data 0 , 4 , 62 , 68 , 36 , 0 , 0 , 0,
Data 0 , 60 , 64 , 32 , 124 , 0 , 0 , 0,
Data 0 , 28 , 32 , 64 , 32 , 28 , 0 , 0,
Data 0 , 60 , 96 , 48 , 96 , 60 , 0 , 0,
Data 0 , 108 , 16 , 16 , 108 , 0 , 0 , 0,
Data 0 , 156 , 160 , 96 , 60 , 0 , 0 , 0,
Data 0 , 100 , 84 , 84 , 76 , 0 , 0 , 0,
Data 0 , 8 , 62 , 65 , 65 , 0 , 0 , 0,
Data 0 , 0 , 0 , 119 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 65 , 62 , 8 , 0 , 0,
Data 0 , 2 , 1 , 2 , 1 , 0 , 0 , 0,
Data 0 , 60 , 38 , 35 , 38 , 60 , 0 , 0,[/SIZE]

Viel Spass damit!

riesen · 26. Apr. 2014

Hallo Mathias

Vielen Dank! Der Code funktionierte bei mir auf Anhieb, auch mit Adafruit OLED 128x64. Beim Adafruit
128x32 muss ich wohl noch Anpassungen machen und schauen, was mit Reset Pin zu tun ist.

Hast du auch schon mit grösseren Fonts getestet? Deine Code-Grundlage ist aber super, da kann
ich auch mal selber was weiter machen.

Grüsse aus der Schweiz
Thomas

kuchen25 · 26. Apr. 2014

Ich wüsste momentan nicht was du beim 128x32Display ändern müsstest.
Versuche die "CALL OLED (blaa,0,5678) zu löschen, weil die "Pages" bzw Zeilen hat es nunmal nicht.
Eigentlich sollte es dann laufen.
Je nach Lötjumper der Platine kann das Display eine andere Adresse haben.
Lass das Programm I2C-Scanner drüberrasseln und seh zu, wann es antwortet.

Code:

' BASCOM-Programm
' I2C-Scanner mit ATMega8
'
' In:  beliebige I2C-Slaves  an C.4=SDA und C.5=SCL
' Out: LCD an D2 bis D.7
'      B.6 Piezo-Buzzer ohne Elektronik
' Funktion dieses Demo-Programmes:
' Scannen der Slave-Adressen
$regfile = "m8def.dat"                                      ' benutzter Mikrocontroller
$crystal = 1000000                                          ' Taktfrequenz
$hwstack = 40                                               ' Hardware Stack
$swstack = 32                                               ' SW Stack
$framesize = 60                                             ' Frame
Config Portb = Output                                       ' Buzzer
Buzzer Alias Portb.6
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
baud 9600
Cls
Cursor Off
Waitms 250
Config Sda = Portc.4
Config Scl = Portc.5
I2cinit
Dim Slaveadresse As Byte
Do
Cls
Lcd "I2C Slaves"
Print "I2C Slaves"
Lowerline
Lcd "suchen..."
Wait 2
 
For Slaveadresse = 0 To 254 Step 2                          ' für alle geraden Adressen
 I2cstart                                                   'Startbedingung senden
 I2cwbyte Slaveadresse                                      ' Addresse senden
 If Err = 0 Then
   Cls                                                      'I2C-Slave gefunden?
   Sound Buzzer , 55 , 189
   Lcd "Slave dec: " ; Slaveadresse
 Print "Slave dec: " ; Slaveadresse
   Lowerline
   Lcd "h" ; Hex(slaveadresse) ; "  b" ; Bin(slaveadresse)
Print "h" ; Hex(slaveadresse) ; "  b" ; Bin(slaveadresse)
   Wait 2
 End If
 I2cstop                                                    'Bus freigeben
Next
Cls
Lcd "Ende Scan"
Wait 2
Loop
End

Die 8x8 Font-Datei habe ich ganz unten im Code, wirst du sicher gesehen haben.
Die Sonderzeichen habe ich auch weggelassen um Speicher zu sparen.

Du kannst gern auf meinen Code aufbauen. Ich würde mich auch über 32x32Dot-Anzeige freuen.
Hierbei musst du im Datenblatt nachsehen, wie man den Pointer des Displays so deklariert, dass es weiss,
von wo bis wo es die Column anzeigt.

Am besten machst du unter meiner Asciitab-Tabelle eine weitere.
Dann solltest du ausschließlich 0-9 und A-F einfügen,damit Speicher gespart wird.
Je groeßer der Font, desto mehr Speicher brauchst du.

Ich kümmere mich derzeit dann um die Bildausgabe.
Später können wir unsere Codes dann kombinieren.

LG aus der Eifel

riesen · 26. Apr. 2014

Hallo Mathias

Bastle relativ viel mit TFT's, die Sache mit den Fonts ist mir somit nicht neu. Muss mich aber dem SSD1306
mal einlesen, wie da die Adressierung überhaupt funktioniert.

Das Adafruit 128x32 hat noch so einen RST Pin. Die I2C-Adresse werde ich auch nochmals checken.

Nochmals vielen Dank und Grüsse
Thomas

kuchen25 · 27. Apr. 2014

Bugfixes, ADD Kontrast, ADD Status Balkendiagramm in %

Code:

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 400000
I2cinit

Declare Sub Rstoled
Declare Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Declare Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)
Declare Sub Oled_kontrast(byval Kontrast_oled As Byte )

Dim A As String * 20
Dim B As Byte                                              'Zum Test
                                                            'Zum Test
Dim Resetflag As Bit
Dim Kontrast As Byte

Const Oledad = &H78      'OLED Adresse
Kontrast = &HFF         '00-FF Kontrast





Do
'Call Oled_statusleiste(PROZENTZAHL , y)
'Call Oled( "Text" , x , y)
'Call Oled_kontrast(0-255)
If Resetflag < 1 Then
Call Rstoled
Resetflag = 1

Call Oled( "Stromverbrauch  " , 0 , 5)
Call Oled_statusleiste(21 , 6 )
Call Oled( "Temperatur      " , 0 , 7)
Call Oled_statusleiste(57 , 8)
End If


B = B + 1                                                   'Zum Test
If B = 98 Then                                              'Zum Test
B = 0                                                       'Zum Test
End If                                                      'Zum Test
A = Str(b) + "         "                                    'Zum Test



Call Oled( "Kontrast             " , 0 , 1)                  'Zum Test
Call Oled_statusleiste(b , 2)                                 'Zum Test
Call Oled_kontrast(b)                                         'Zum Test


Loop









Sub Oled_kontrast(byval Kontrast_oled As Byte )


 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cstop


I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte Kontrast_oled                                     'Kontrast
 I2cstop
End Sub









Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)

Dim U As Byte
Dim G As Byte
Dim T As Byte
Dim R As Byte
Dim Senden1 As Byte
Dim Prozent_leer As Byte
Dim Prozentstr As String * 4
Dim Buchstabe1 As String * 1
Dim Temp1 As Integer

Page = Page + 175
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte Page                                             'Bestimmung Page (Y)
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
  I2cwbyte &HFF
                                                               'ausgefuellte Zeichen des Balkens
  For U = 0 To Prozent
         I2cwbyte &HBD
  Next U

Prozent_leer = 100 - Prozent

  For G = 0 To Prozent_leer
         I2cwbyte &H81
  Next G

  I2cwbyte &HFF
  I2cwbyte &H00
  I2cwbyte &H00
If Prozent < 10 Then
Prozentstr = " " + Str(prozent) + "%"
Else
Prozentstr = Str(prozent) + "%"
End If
  For T = 1 To 3
     Temp1 = 0
     Buchstabe1 = Mid(prozentstr , T , 1)
     Temp1 = Asc(buchstabe1)
     Temp1 = Temp1 - 32
     Temp1 = Temp1 * 8
For R = 1 To 8
          Senden1 = Lookup(temp1 , Asciitab)
          I2cwbyte Senden1
    Incr Temp1
    Next R

  Next T
  I2cstop

End Sub







Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Dim Buchstabe As String * 1

Dim Q As Integer
Dim H As Integer
Dim Temp As Integer
Dim Senden As Byte
   Col = Col + 16
   Page = Page + 175
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte Page                                             'Bestimmung Page (Y)
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte Col                                              'Bestimmung Page (Y)
  I2cstop


  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 16
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 8
For H = 1 To 8
          Senden = Lookup(temp , Asciitab)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop

End Sub


















Sub Rstoled                                                 'OLED RESET, Aufwecken, alles loeschen
Dim I As Byte
Dim J As Integer
Dim Page As Byte
Page = 176
I2cstart
I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &HAF                                              'DISPLAY aufwecken sleep= &HAE
 I2cstop


 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cstop


I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte Kontrast                                          'Kontrast
 I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H20                                             'Adressmapping
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00                                             'Adressmapping Horizontal
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40                                             'Datenempfang
    For J = 0 To 1023
      I2cwbyte &H00                                         'sende "leere Column"
    Next J
  I2cstop
End Sub


Asciitab:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,
Data 0 , 0 , 6 , 95 , 6 , 0 , 0 , 0,
Data 0 , 7 , 3 , 0 , 7 , 3 , 0 , 0,
Data 0 , 36 , 126 , 36 , 126 , 36 , 0 , 0,
Data 0 , 36 , 43 , 106 , 18 , 0 , 0 , 0,
Data 0 , 99 , 19 , 8 , 100 , 99 , 0 , 0,
Data 0 , 54 , 73 , 86 , 32 , 80 , 0 , 0,
Data 0 , 0 , 7 , 3 , 0 , 0 , 0 , 0,
Data 0 , 0 , 62 , 65 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 62 , 0 , 0 , 0 , 0,
Data 0 , 8 , 62 , 28 , 62 , 8 , 0 , 0,
Data 0 , 8 , 8 , 62 , 8 , 8 , 0 , 0,
Data 0 , 0 , 224 96 , 0 , 0 , 0 , 0,
Data 0 , 8 , 8 , 8 , 8 , 8 , 0 , 0,
Data 0 , 0 , 96 , 96 , 0 , 0 , 0 , 0,
Data 0 , 32 , 16 , 8 , 4 , 2 , 0 , 0,
Data 0 , 62 , 81 , 73 , 69 , 62 , 0 , 0,
Data 0 , 0 , 66 , 127 , 64 , 0 , 0 , 0,
Data 0 , 98 , 81 , 73 , 73 , 70 , 0 , 0,
Data 0 , 34 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 24 , 20 , 18 , 127 , 16 , 0 , 0,
Data 0 , 47 , 73 , 73 , 73 , 49 , 0 , 0,
Data 0 , 60 , 74 , 73 , 73 , 48 , 0 , 0,
Data 0 , 1 , 113 , 9 , 5 , 3 , 0 , 0,
Data 0 , 54 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 6 , 73 , 73 , 41 , 30 , 0 , 0,
Data 0 , 0 , 108 , 108 , 0 , 0 , 0 , 0,
Data 0 , 0 , 236 , 108 , 0 , 0 , 0 , 0,
Data 0 , 8 , 20 , 4 , 65 , 0 , 0 , 0,
Data 0 , 36 , 36 , 36 , 36 , 36 , 0 , 0,
Data 0 , 0 , 65 , 34 , 20 , 8 , 0 , 0,
Data 0 , 2 , 1 , 89 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 93 , 85 , 30 , 0 , 0,
Data 0 , 126 , 17 , 17 , 17 , 126 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 34 , 0 , 0,
Data 0 , 127 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 65 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 1 , 0 , 0,
Data 0 , 62 , 65 , 73 , 73 , 122 , 0 , 0,
Data 0 , 127 , 8 , 8 , 8 , 127 , 0 , 0,
Data 0 , 0 , 65 , 127 , 65 , 0 , 0 , 0,
Data 0 , 48 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 127 , 8 , 20 , 34 , 65 , 0 , 0,
Data 0 , 127 , 64 , 64 , 64 , 64 , 0 , 0,
Data 0 , 127 , 2 , 4 , 2 , 127 , 0 , 0,
Data 0 , 127 , 2 , 4 , 8 , 127 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 81 , 33 , 94 , 0 , 0,
Data 0 , 127 , 9 , 9 , 25 , 102 , 0 , 0,
Data 0 , 38 , 73 , 73 , 73 , 50 , 0 , 0,
Data 0 , 1 , 1 , 127 , 1 , 1 , 0 , 0,
Data 0 , 63 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 31 , 32 , 64 , 32 , 31 , 0 , 0,
Data 0 , 63 , 64 , 60 , 64 , 63 , 0 , 0,
Data 0 , 99 , 20 , 8 , 20 , 99 , 0 , 0,
Data 0 , 7 , 8 , 112 , 8 , 7 , 0 , 0,
Data 0 , 113 , 73 , 69 , 67 , 0 , 0 , 0,
Data 0 , 0 , 127 , 65 , 65 , 0 , 0 , 0,
Data 0 , 2 , 4 , 8 , 16 , 32 , 0 , 0,
Data 0 , 0 , 65 , 65 , 127 , 0 , 0 , 0,
Data 0 , 4 , 2 , 1 , 2 , 4 , 0 , 0,
Data 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128,
Data 0 , 0 , 3 , 7 , 0 , 0 , 0 , 0,
Data 0 , 32 , 84 , 84 , 84 , 120 , 0 , 0,
Data 0 , 127 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 40 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 127 , 0 , 0,
Data 0 , 56 , 84 , 84 , 84 , 8 , 0 , 0,
Data 0 , 8 , 126 , 9 , 9 , 0 , 0 , 0,
Data 0 , 24 , 164 , 164 , 164 , 124 , 0 , 0,
Data 0 , 127 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 0 , 0 , 125 , 64 , 0 , 0 , 0,
Data 0 , 64 , 128 , 132 , 125 , 0 , 0 , 0,
Data 0 , 127 , 16 , 40 , 68 , 0 , 0 , 0,
Data 0 , 0 , 0 , 127 , 64 , 0 , 0 , 0,
Data 0 , 124 , 4 , 24 , 4 , 120 , 0 , 0,
Data 0 , 124 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 252 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 252 , 0 , 0,
Data 0 , 68 , 120 , 68 , 4 , 8 , 0 , 0,
Data 0 , 8 , 84 , 84 , 84 , 32 , 0 , 0,
Data 0 , 4 , 62 , 68 , 36 , 0 , 0 , 0,
Data 0 , 60 , 64 , 32 , 124 , 0 , 0 , 0,
Data 0 , 28 , 32 , 64 , 32 , 28 , 0 , 0,
Data 0 , 60 , 96 , 48 , 96 , 60 , 0 , 0,
Data 0 , 108 , 16 , 16 , 108 , 0 , 0 , 0,
Data 0 , 156 , 160 , 96 , 60 , 0 , 0 , 0,
Data 0 , 100 , 84 , 84 , 76 , 0 , 0 , 0,
Data 0 , 8 , 62 , 65 , 65 , 0 , 0 , 0,
Data 0 , 0 , 0 , 119 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 65 , 62 , 8 , 0 , 0,
Data 0 , 2 , 1 , 2 , 1 , 0 , 0 , 0,
Data 0 , 60 , 38 , 35 , 38 , 60 , 0 , 0,

riesen · 27. Apr. 2014

Hallo Mathias

Schön gemacht mit den Balken. Ich versuche mit noch mit den Basics. Die ganze Adressierung
begreife ich noch nicht. Wenn ich beim Aufruf der Sub Oled den Wert Col auf auf 1 setze, startet
die Anzeige zwei Stellen weiter rechts auf Position 3, mit Wert Col=2 auf Position 5 usw.

Ist das bei dir auch so?

Dankende Grüsse
Thomas

kuchen25 · 27. Apr. 2014

Add showlogo

Hi Thomas, entweder du hast einen der textstrings zu voll gepackt oder es gibt Timingprobleme. Versuche mal in der Sub ein paar waitms 50 einzubauen. Ggf machst du den String kürzer! Ich werde das aber testen.
Merkwürdig ist, das aus und einschalten des Controllers bzw Displays scheint einen positiven Effekt zu haben. Scheinbar ist der Pointer auf irgendeiner Position.
Vielleicht hilft dir dies schonmal

Ich hab mich dann mal um eine Logoausgabe bemüht.

Code:

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 400000
I2cinit

Declare Sub Showlogo
Declare Sub Rstoled
Declare Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Declare Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)
Declare Sub Oled_kontrast(byval Kontrast_oled As Byte )

Dim A As String * 20
Dim B As Byte                                               'Zum Test
                                                            'Zum Test
Dim Resetflag As Bit
Dim Kontrast As Byte

Const Oledad = &H78                                         'OLED Adresse
Kontrast = &HFF                                             '00-FF Kontrast





Do
'Call Oled_statusleiste(PROZENTZAHL , y)
'Call Oled( "Text" , x , y)
'Call Oled_kontrast(0-255)
If Resetflag < 1 Then
Call Rstoled
Resetflag = 1
Call Rstoled
Wait 1
Call Showlogo
Wait 5
Call Rstoled

Call Oled( "Stromverbrauch  " , 0 , 5)
Call Oled_statusleiste(21 , 6 )
Call Oled( "Temperatur      " , 0 , 7)
Call Oled_statusleiste(57 , 8)
End If


B = B + 1                                                   'Zum Test
If B = 98 Then                                              'Zum Test
B = 0                                                       'Zum Test
End If                                                      'Zum Test
A = Str(b) + "         "                                    'Zum Test



Call Oled( "Kontrast             " , 0 , 1)                 'Zum Test
Call Oled_statusleiste(b , 2)                               'Zum Test
Call Oled_kontrast(b)                                       'Zum Test


Loop









Sub Oled_kontrast(byval Kontrast_oled As Byte )


 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cstop


I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte Kontrast_oled                                     'Kontrast
 I2cstop
End Sub




Sub Showlogo
Dim P As Integer
Dim Logocolumn As Byte



  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte 175                                              'Bestimmung Page (Y)
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte 16                                               'Bestimmung Page (Y)
  I2cstop


I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H20                                             'Adressmapping
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00                                             'Adressmapping Horizontal
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40                                             'Datenempfang
    For P = 0 To 1023
    Logocolumn = Lookup(p , Logo)
      I2cwbyte Logocolumn                                   'sende "Logoculumns aus Tabelle logo"
    Next P
  I2cstop
End Sub




Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)

Dim U As Byte
Dim G As Byte
Dim T As Byte
Dim R As Byte
Dim Senden1 As Byte
Dim Prozent_leer As Byte
Dim Prozentstr As String * 4
Dim Buchstabe1 As String * 1
Dim Temp1 As Integer

Page = Page + 175
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte Page                                             'Bestimmung Page (Y)
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
  I2cwbyte &HFF
                                                               'ausgefuellte Zeichen des Balkens
  For U = 0 To Prozent
         I2cwbyte &HBD
  Next U

Prozent_leer = 100 - Prozent

  For G = 0 To Prozent_leer
         I2cwbyte &H81
  Next G

  I2cwbyte &HFF
  I2cwbyte &H00
  I2cwbyte &H00
If Prozent < 10 Then
Prozentstr = " " + Str(prozent) + "%"
Else
Prozentstr = Str(prozent) + "%"
End If
  For T = 1 To 3
     Temp1 = 0
     Buchstabe1 = Mid(prozentstr , T , 1)
     Temp1 = Asc(buchstabe1)
     Temp1 = Temp1 - 32
     Temp1 = Temp1 * 8
For R = 1 To 8
          Senden1 = Lookup(temp1 , Asciitab)
          I2cwbyte Senden1
    Incr Temp1
    Next R

  Next T
  I2cstop

End Sub







Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Dim Buchstabe As String * 1

Dim Q As Integer
Dim H As Integer
Dim Temp As Integer
Dim Senden As Byte
   Col = Col + 16
   Page = Page + 175
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte Page                                             'Bestimmung Page (Y)
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte Col                                              'Bestimmung Page (Y)
  I2cstop


  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cstop

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 16
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 8
For H = 1 To 8
          Senden = Lookup(temp , Asciitab)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop

End Sub


Sub Rstoled                                                 'OLED RESET, Aufwecken, alles loeschen
Dim I As Byte
Dim J As Integer
Dim Page As Byte
Page = 176
I2cstart
I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &HAF                                              'DISPLAY aufwecken sleep= &HAE
 I2cstop


 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cstop


I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte Kontrast                                          'Kontrast
 I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H20                                             'Adressmapping
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00                                             'Adressmapping Horizontal
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40                                             'Datenempfang
    For J = 0 To 1023
      I2cwbyte &H00                                         'sende "leere Column"
    Next J
  I2cstop
End Sub


Logo:                                                       'Logo
                                                            'LCDAssistant.exe verwenden "Vertical" auswählen, datei als .txt speichern
                                                            'notepad öffnen, "0x" ersetzen durch "&h" (diese Funktion gibt es dort!!!!!)
                                                            'NICHT EDITOR, WORDPAD! Die Funktion befindet sich unter "suchen"
                                                            'Hier eintragen und "Data" vorsetzen.

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HC0 , &H60 , &H18 , &H04 , &H04 , &H04 , &H0C , &H18,
Data &H60 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HF0 , &HC0 , &H00,
Data &H00 , &H00 , &H00 , &HC0 , &HF0 , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &HE0 , &H3C , &H07 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H03 , &H1C , &HF0 , &H80 , &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &H01 , &H03 , &H0F , &H3F , &HFF,
Data &HFC , &HFC , &HFF , &H3F , &H07 , &H01 , &HFF , &HFF , &HFF , &HFF , &HFF , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H80 , &HF8 , &H0E , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H07 , &H78 , &H80 , &H1F , &H1F , &H1F , &H1F , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H1F , &H1F , &H1F , &H1F , &H1F , &H00 , &H0E , &H1F , &H15 , &H17,
Data &H16 , &H00 , &H1A , &H17 , &H1D , &H0B , &H00 , &H1A , &H17 , &H1D , &H0B , &H00 , &H0E , &H1F , &H15 , &H17,
Data &H16 , &H00 , &H11 , &H1F , &H1F , &H01 , &H1F , &H1E , &H10 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &HC0 , &H78 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H3C , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFE , &HFE , &HFE , &HFE , &H06 , &H06 , &H06 , &H0E , &H8E,
Data &HFE , &HFE , &HFC , &HF8 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H3C , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &H06 , &H06 , &H0F , &H1F , &H7F,
Data &HFF , &HFB , &HE1 , &HC0 , &H80 , &H00 , &H00 , &HC0 , &HE0 , &HA0 , &HE0 , &HC0 , &H00 , &H40 , &HE0 , &HA0,
Data &HE0 , &H60 , &H20 , &HC0 , &HE0 , &HA0 , &HE0 , &HC0 , &H00 , &H04 , &HFC , &HFC , &H00 , &H20 , &HE0 , &HE0,
Data &H20 , &HE0 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H7E , &HC0 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H03 , &H03 , &H83 , &H70 , &H0C , &H00 , &H00 , &H00,
Data &H00 , &H03 , &HC3 , &HC3 , &HC3 , &HC3 , &HC0 , &HC1 , &HC3 , &HC2 , &HC2 , &HC2 , &HC0 , &HC5 , &H8F , &H0A,
Data &H0A , &H0E , &H06 , &H01 , &H03 , &H02 , &H02 , &H02 , &H00 , &H02 , &H03 , &H03 , &H02 , &H00 , &H03 , &H03,
Data &H00 , &H03 , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H1E , &H70 , &H80,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H60 , &H1C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &HE1 , &HC0 , &HC0 , &HC1 , &HE1 , &HFF , &HFF , &HFF , &H7F , &H9E,
Data &H80 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03,
Data &H0C , &H10 , &H20 , &H40 , &H20 , &H10 , &H0C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H7F , &H7F , &H7F , &H7F , &H01 , &H01 , &H01 , &H45 , &H7D , &H7D , &H44 , &H0C , &H00 , &H3D,
Data &H7D , &H40 , &H7D , &H7D , &H40 , &H04 , &H7F , &H7F , &H04 , &H39 , &H7C , &H54 , &H5C , &H58 , &H04 , &H7C,
Data &H7C , &H04 , &H7C , &H78 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00




Asciitab:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,
Data 0 , 0 , 6 , 95 , 6 , 0 , 0 , 0,
Data 0 , 7 , 3 , 0 , 7 , 3 , 0 , 0,
Data 0 , 36 , 126 , 36 , 126 , 36 , 0 , 0,
Data 0 , 36 , 43 , 106 , 18 , 0 , 0 , 0,
Data 0 , 99 , 19 , 8 , 100 , 99 , 0 , 0,
Data 0 , 54 , 73 , 86 , 32 , 80 , 0 , 0,
Data 0 , 0 , 7 , 3 , 0 , 0 , 0 , 0,
Data 0 , 0 , 62 , 65 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 62 , 0 , 0 , 0 , 0,
Data 0 , 8 , 62 , 28 , 62 , 8 , 0 , 0,
Data 0 , 8 , 8 , 62 , 8 , 8 , 0 , 0,
Data 0 , 0 , 224 , 96 , 0 , 0 , 0 , 0,
Data 0 , 8 , 8 , 8 , 8 , 8 , 0 , 0,
Data 0 , 0 , 96 , 96 , 0 , 0 , 0 , 0,
Data 0 , 32 , 16 , 8 , 4 , 2 , 0 , 0,
Data 0 , 62 , 81 , 73 , 69 , 62 , 0 , 0,
Data 0 , 0 , 66 , 127 , 64 , 0 , 0 , 0,
Data 0 , 98 , 81 , 73 , 73 , 70 , 0 , 0,
Data 0 , 34 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 24 , 20 , 18 , 127 , 16 , 0 , 0,
Data 0 , 47 , 73 , 73 , 73 , 49 , 0 , 0,
Data 0 , 60 , 74 , 73 , 73 , 48 , 0 , 0,
Data 0 , 1 , 113 , 9 , 5 , 3 , 0 , 0,
Data 0 , 54 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 6 , 73 , 73 , 41 , 30 , 0 , 0,
Data 0 , 0 , 108 , 108 , 0 , 0 , 0 , 0,
Data 0 , 0 , 236 , 108 , 0 , 0 , 0 , 0,
Data 0 , 8 , 20 , 4 , 65 , 0 , 0 , 0,
Data 0 , 36 , 36 , 36 , 36 , 36 , 0 , 0,
Data 0 , 0 , 65 , 34 , 20 , 8 , 0 , 0,
Data 0 , 2 , 1 , 89 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 93 , 85 , 30 , 0 , 0,
Data 0 , 126 , 17 , 17 , 17 , 126 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 34 , 0 , 0,
Data 0 , 127 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 65 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 1 , 0 , 0,
Data 0 , 62 , 65 , 73 , 73 , 122 , 0 , 0,
Data 0 , 127 , 8 , 8 , 8 , 127 , 0 , 0,
Data 0 , 0 , 65 , 127 , 65 , 0 , 0 , 0,
Data 0 , 48 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 127 , 8 , 20 , 34 , 65 , 0 , 0,
Data 0 , 127 , 64 , 64 , 64 , 64 , 0 , 0,
Data 0 , 127 , 2 , 4 , 2 , 127 , 0 , 0,
Data 0 , 127 , 2 , 4 , 8 , 127 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 81 , 33 , 94 , 0 , 0,
Data 0 , 127 , 9 , 9 , 25 , 102 , 0 , 0,
Data 0 , 38 , 73 , 73 , 73 , 50 , 0 , 0,
Data 0 , 1 , 1 , 127 , 1 , 1 , 0 , 0,
Data 0 , 63 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 31 , 32 , 64 , 32 , 31 , 0 , 0,
Data 0 , 63 , 64 , 60 , 64 , 63 , 0 , 0,
Data 0 , 99 , 20 , 8 , 20 , 99 , 0 , 0,
Data 0 , 7 , 8 , 112 , 8 , 7 , 0 , 0,
Data 0 , 113 , 73 , 69 , 67 , 0 , 0 , 0,
Data 0 , 0 , 127 , 65 , 65 , 0 , 0 , 0,
Data 0 , 2 , 4 , 8 , 16 , 32 , 0 , 0,
Data 0 , 0 , 65 , 65 , 127 , 0 , 0 , 0,
Data 0 , 4 , 2 , 1 , 2 , 4 , 0 , 0,
Data 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128,
Data 0 , 0 , 3 , 7 , 0 , 0 , 0 , 0,
Data 0 , 32 , 84 , 84 , 84 , 120 , 0 , 0,
Data 0 , 127 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 40 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 127 , 0 , 0,
Data 0 , 56 , 84 , 84 , 84 , 8 , 0 , 0,
Data 0 , 8 , 126 , 9 , 9 , 0 , 0 , 0,
Data 0 , 24 , 164 , 164 , 164 , 124 , 0 , 0,
Data 0 , 127 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 0 , 0 , 125 , 64 , 0 , 0 , 0,
Data 0 , 64 , 128 , 132 , 125 , 0 , 0 , 0,
Data 0 , 127 , 16 , 40 , 68 , 0 , 0 , 0,
Data 0 , 0 , 0 , 127 , 64 , 0 , 0 , 0,
Data 0 , 124 , 4 , 24 , 4 , 120 , 0 , 0,
Data 0 , 124 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 252 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 252 , 0 , 0,
Data 0 , 68 , 120 , 68 , 4 , 8 , 0 , 0,
Data 0 , 8 , 84 , 84 , 84 , 32 , 0 , 0,
Data 0 , 4 , 62 , 68 , 36 , 0 , 0 , 0,
Data 0 , 60 , 64 , 32 , 124 , 0 , 0 , 0,
Data 0 , 28 , 32 , 64 , 32 , 28 , 0 , 0,
Data 0 , 60 , 96 , 48 , 96 , 60 , 0 , 0,
Data 0 , 108 , 16 , 16 , 108 , 0 , 0 , 0,
Data 0 , 156 , 160 , 96 , 60 , 0 , 0 , 0,
Data 0 , 100 , 84 , 84 , 76 , 0 , 0 , 0,
Data 0 , 8 , 62 , 65 , 65 , 0 , 0 , 0,
Data 0 , 0 , 0 , 119 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 65 , 62 , 8 , 0 , 0,
Data 0 , 2 , 1 , 2 , 1 , 0 , 0 , 0,
Data 0 , 60 , 38 , 35 , 38 , 60 , 0 , 0,

kuchen25 · 01. Mai 2014

Jetzt müsste es funktionieren

Habe den Bug gefunden.

Hier der funktionierende Code:

Code:

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 400000
I2cinit

Declare Sub Showlogo
Declare Sub Rstoled
Declare Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Declare Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)
Declare Sub Oled_kontrast(byval Kontrast_oled As Byte )

Dim A As String * 20
Dim B As Byte                                               'Zum Test
                                                            'Zum Test
Dim Resetflag As Bit
Dim Kontrast As Byte

Const Oledad = &H78                                         'OLED Adresse
Kontrast = &HFF                                             '00-FF Kontrast

Call Rstoled

'Call Oled_statusleiste(PROZENTZAHL , y)
'Call Oled( "Text" , x , y)
'Call Oled_kontrast(0-255)

Do



 Call Showlogo





Loop








'==========================================================
Sub Oled_kontrast(byval Kontrast_oled As Byte )
 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cwbyte &H80
 I2cwbyte Kontrast_oled                                     'Kontrast
 I2cstop
End Sub
'==========================================================
Sub Showlogo
Dim P As Integer
Dim Logocolumn As Byte

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &HB0
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte 0
  I2cwbyte &H80
  I2cwbyte 127
  I2cstop

  I2cstart
  I2cwbyte Oledad                                           'Bestimmung Page (Y)
  I2cwbyte &H40                                             'Datenempfang
    For P = 0 To 1023
    Logocolumn = Lookup(p , Logo)
      I2cwbyte Logocolumn                                   'sende "Logoculumns aus Tabelle logo"
    Next P
  I2cstop
End Sub
'==========================================================



Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)
Dim U As Byte
Dim G As Byte
Dim T As Byte
Dim R As Byte
Dim Senden1 As Byte
Dim Prozent_leer As Byte
Dim Prozentstr As String * 4
Dim Buchstabe1 As String * 1
Dim Temp1 As Integer
Page = Page + 175
     I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte 0
  I2cwbyte &H80
  I2cwbyte 127
  I2cwbyte &H80
  I2cwbyte Page
  I2cstop
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
  I2cwbyte &HFF
                                                               'ausgefuellte Zeichen des Balkens
  For U = 0 To Prozent
         I2cwbyte &HBD
  Next U
Prozent_leer = 100 - Prozent
For G = 0 To Prozent_leer
         I2cwbyte &H81
Next G
I2cwbyte &HFF
I2cwbyte &H00
I2cwbyte &H00
If Prozent < 10 Then
Prozentstr = " " + Str(prozent) + "%"
Else
Prozentstr = Str(prozent) + "%"
End If
  For T = 1 To 3
     Temp1 = 0
     Buchstabe1 = Mid(prozentstr , T , 1)
     Temp1 = Asc(buchstabe1)
     Temp1 = Temp1 - 32
     Temp1 = Temp1 * 8
For R = 1 To 8
          Senden1 = Lookup(temp1 , Asciitab)
          I2cwbyte Senden1
    Incr Temp1
    Next R
Next T
I2cstop

End Sub


'==========================================================




Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Dim Buchstabe As String * 1

Dim Q As Integer
Dim H As Integer
Dim Temp As Integer
Dim Senden As Byte
   Page = Page + 175
   Col = Col * 8
   I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte Col
  I2cwbyte &H80
  I2cwbyte 127
  I2cwbyte &H80
  I2cwbyte Page
  I2cstop
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 16
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 8
For H = 1 To 8
          Senden = Lookup(temp , Asciitab)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop

End Sub
'==========================================================

Sub Rstoled                                                 'OLED RESET, Aufwecken, alles loeschen
Dim I As Byte
Dim J As Integer
Dim Page As Byte
Page = 176
I2cstart
I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &HAF                                              'DISPLAY aufwecken sleep= &HAE
 I2cstop


 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cstop


I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte Kontrast                                          'Kontrast
 I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H20                                             'Adressmapping
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00                                             'Adressmapping Horizontal
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40                                             'Datenempfang
    For J = 0 To 1023
      I2cwbyte &H00                                         'sende "leere Column"
    Next J
  I2cstop
End Sub


Logo:                                                       'Logo
                                                            'LCDAssistant.exe verwenden "Vertical" auswählen, datei als .txt speichern
                                                            'notepad öffnen, "0x" ersetzen durch "&h" (diese Funktion gibt es dort!!!!!)
                                                            'NICHT EDITOR, WORDPAD! Die Funktion befindet sich unter "suchen"
                                                            'Hier eintragen und "Data" vorsetzen.

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HC0 , &H60 , &H18 , &H04 , &H04 , &H04 , &H0C , &H18,
Data &H60 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HF0 , &HC0 , &H00,
Data &H00 , &H00 , &H00 , &HC0 , &HF0 , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &HE0 , &H3C , &H07 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H03 , &H1C , &HF0 , &H80 , &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &H01 , &H03 , &H0F , &H3F , &HFF,
Data &HFC , &HFC , &HFF , &H3F , &H07 , &H01 , &HFF , &HFF , &HFF , &HFF , &HFF , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H80 , &HF8 , &H0E , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H07 , &H78 , &H80 , &H1F , &H1F , &H1F , &H1F , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H1F , &H1F , &H1F , &H1F , &H1F , &H00 , &H0E , &H1F , &H15 , &H17,
Data &H16 , &H00 , &H1A , &H17 , &H1D , &H0B , &H00 , &H1A , &H17 , &H1D , &H0B , &H00 , &H0E , &H1F , &H15 , &H17,
Data &H16 , &H00 , &H11 , &H1F , &H1F , &H01 , &H1F , &H1E , &H10 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &HC0 , &H78 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H3C , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFE , &HFE , &HFE , &HFE , &H06 , &H06 , &H06 , &H0E , &H8E,
Data &HFE , &HFE , &HFC , &HF8 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H3C , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &H06 , &H06 , &H0F , &H1F , &H7F,
Data &HFF , &HFB , &HE1 , &HC0 , &H80 , &H00 , &H00 , &HC0 , &HE0 , &HA0 , &HE0 , &HC0 , &H00 , &H40 , &HE0 , &HA0,
Data &HE0 , &H60 , &H20 , &HC0 , &HE0 , &HA0 , &HE0 , &HC0 , &H00 , &H04 , &HFC , &HFC , &H00 , &H20 , &HE0 , &HE0,
Data &H20 , &HE0 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H7E , &HC0 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H03 , &H03 , &H83 , &H70 , &H0C , &H00 , &H00 , &H00,
Data &H00 , &H03 , &HC3 , &HC3 , &HC3 , &HC3 , &HC0 , &HC1 , &HC3 , &HC2 , &HC2 , &HC2 , &HC0 , &HC5 , &H8F , &H0A,
Data &H0A , &H0E , &H06 , &H01 , &H03 , &H02 , &H02 , &H02 , &H00 , &H02 , &H03 , &H03 , &H02 , &H00 , &H03 , &H03,
Data &H00 , &H03 , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H1E , &H70 , &H80,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H60 , &H1C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &HE1 , &HC0 , &HC0 , &HC1 , &HE1 , &HFF , &HFF , &HFF , &H7F , &H9E,
Data &H80 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03,
Data &H0C , &H10 , &H20 , &H40 , &H20 , &H10 , &H0C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H7F , &H7F , &H7F , &H7F , &H01 , &H01 , &H01 , &H45 , &H7D , &H7D , &H44 , &H0C , &H00 , &H3D,
Data &H7D , &H40 , &H7D , &H7D , &H40 , &H04 , &H7F , &H7F , &H04 , &H39 , &H7C , &H54 , &H5C , &H58 , &H04 , &H7C,
Data &H7C , &H04 , &H7C , &H78 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00




Asciitab:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,
Data 0 , 0 , 6 , 95 , 6 , 0 , 0 , 0,
Data 0 , 7 , 3 , 0 , 7 , 3 , 0 , 0,
Data 0 , 36 , 126 , 36 , 126 , 36 , 0 , 0,
Data 0 , 36 , 43 , 106 , 18 , 0 , 0 , 0,
Data 0 , 99 , 19 , 8 , 100 , 99 , 0 , 0,
Data 0 , 54 , 73 , 86 , 32 , 80 , 0 , 0,
Data 0 , 0 , 7 , 3 , 0 , 0 , 0 , 0,
Data 0 , 0 , 62 , 65 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 62 , 0 , 0 , 0 , 0,
Data 0 , 8 , 62 , 28 , 62 , 8 , 0 , 0,
Data 0 , 8 , 8 , 62 , 8 , 8 , 0 , 0,
Data 0 , 0 , 224 , 96 , 0 , 0 , 0 , 0,
Data 0 , 8 , 8 , 8 , 8 , 8 , 0 , 0,
Data 0 , 0 , 96 , 96 , 0 , 0 , 0 , 0,
Data 0 , 32 , 16 , 8 , 4 , 2 , 0 , 0,
Data 0 , 62 , 81 , 73 , 69 , 62 , 0 , 0,
Data 0 , 0 , 66 , 127 , 64 , 0 , 0 , 0,
Data 0 , 98 , 81 , 73 , 73 , 70 , 0 , 0,
Data 0 , 34 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 24 , 20 , 18 , 127 , 16 , 0 , 0,
Data 0 , 47 , 73 , 73 , 73 , 49 , 0 , 0,
Data 0 , 60 , 74 , 73 , 73 , 48 , 0 , 0,
Data 0 , 1 , 113 , 9 , 5 , 3 , 0 , 0,
Data 0 , 54 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 6 , 73 , 73 , 41 , 30 , 0 , 0,
Data 0 , 0 , 108 , 108 , 0 , 0 , 0 , 0,
Data 0 , 0 , 236 , 108 , 0 , 0 , 0 , 0,
Data 0 , 8 , 20 , 4 , 65 , 0 , 0 , 0,
Data 0 , 36 , 36 , 36 , 36 , 36 , 0 , 0,
Data 0 , 0 , 65 , 34 , 20 , 8 , 0 , 0,
Data 0 , 2 , 1 , 89 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 93 , 85 , 30 , 0 , 0,
Data 0 , 126 , 17 , 17 , 17 , 126 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 34 , 0 , 0,
Data 0 , 127 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 65 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 1 , 0 , 0,
Data 0 , 62 , 65 , 73 , 73 , 122 , 0 , 0,
Data 0 , 127 , 8 , 8 , 8 , 127 , 0 , 0,
Data 0 , 0 , 65 , 127 , 65 , 0 , 0 , 0,
Data 0 , 48 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 127 , 8 , 20 , 34 , 65 , 0 , 0,
Data 0 , 127 , 64 , 64 , 64 , 64 , 0 , 0,
Data 0 , 127 , 2 , 4 , 2 , 127 , 0 , 0,
Data 0 , 127 , 2 , 4 , 8 , 127 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 81 , 33 , 94 , 0 , 0,
Data 0 , 127 , 9 , 9 , 25 , 102 , 0 , 0,
Data 0 , 38 , 73 , 73 , 73 , 50 , 0 , 0,
Data 0 , 1 , 1 , 127 , 1 , 1 , 0 , 0,
Data 0 , 63 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 31 , 32 , 64 , 32 , 31 , 0 , 0,
Data 0 , 63 , 64 , 60 , 64 , 63 , 0 , 0,
Data 0 , 99 , 20 , 8 , 20 , 99 , 0 , 0,
Data 0 , 7 , 8 , 112 , 8 , 7 , 0 , 0,
Data 0 , 113 , 73 , 69 , 67 , 0 , 0 , 0,
Data 0 , 0 , 127 , 65 , 65 , 0 , 0 , 0,
Data 0 , 2 , 4 , 8 , 16 , 32 , 0 , 0,
Data 0 , 0 , 65 , 65 , 127 , 0 , 0 , 0,
Data 0 , 4 , 2 , 1 , 2 , 4 , 0 , 0,
Data 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128,
Data 0 , 0 , 3 , 7 , 0 , 0 , 0 , 0,
Data 0 , 32 , 84 , 84 , 84 , 120 , 0 , 0,
Data 0 , 127 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 40 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 127 , 0 , 0,
Data 0 , 56 , 84 , 84 , 84 , 8 , 0 , 0,
Data 0 , 8 , 126 , 9 , 9 , 0 , 0 , 0,
Data 0 , 24 , 164 , 164 , 164 , 124 , 0 , 0,
Data 0 , 127 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 0 , 0 , 125 , 64 , 0 , 0 , 0,
Data 0 , 64 , 128 , 132 , 125 , 0 , 0 , 0,
Data 0 , 127 , 16 , 40 , 68 , 0 , 0 , 0,
Data 0 , 0 , 0 , 127 , 64 , 0 , 0 , 0,
Data 0 , 124 , 4 , 24 , 4 , 120 , 0 , 0,
Data 0 , 124 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 252 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 252 , 0 , 0,
Data 0 , 68 , 120 , 68 , 4 , 8 , 0 , 0,
Data 0 , 8 , 84 , 84 , 84 , 32 , 0 , 0,
Data 0 , 4 , 62 , 68 , 36 , 0 , 0 , 0,
Data 0 , 60 , 64 , 32 , 124 , 0 , 0 , 0,
Data 0 , 28 , 32 , 64 , 32 , 28 , 0 , 0,
Data 0 , 60 , 96 , 48 , 96 , 60 , 0 , 0,
Data 0 , 108 , 16 , 16 , 108 , 0 , 0 , 0,
Data 0 , 156 , 160 , 96 , 60 , 0 , 0 , 0,
Data 0 , 100 , 84 , 84 , 76 , 0 , 0 , 0,
Data 0 , 8 , 62 , 65 , 65 , 0 , 0 , 0,
Data 0 , 0 , 0 , 119 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 65 , 62 , 8 , 0 , 0,
Data 0 , 2 , 1 , 2 , 1 , 0 , 0 , 0,
Data 0 , 60 , 38 , 35 , 38 , 60 , 0 , 0,

kuchen25 · 02. Mai 2014

Add bigger Font, Invert OLED

Code:

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 400000
I2cinit

Declare Sub Showlogo
Declare Sub Rstoled
Declare Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Declare Sub Oled_gross(byval Text As String * 8 , Byval Col As Integer , Byval Page As Integer)
Declare Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)
Declare Sub Oled_kontrast(byval Kontrast_oled As Byte )
Declare Sub Oled_invert(byval Inv As Byte )


Dim A As String * 20
Dim B As Byte                                               'Zum Test
                                                            'Zum Test
Dim Resetflag As Bit
Dim Kontrast As Byte

Const Oledad = &H78                                         'OLED Adresse
Kontrast = &HFF                                             '00-FF Kontrast

Call Rstoled

'Call Oled_statusleiste(PROZENTZAHL , y)
'Call Oled( "Text" , x , y)
'Call Oled_kontrast(0-255)
Dim Zaehler As Integer
Dim Zaehlertest As String * 8
Dim Prozentzahl As Byte
Dim Invert As Byte
Call Rstoled
Call Showlogo
Wait 3
Call Rstoled
Do

 Incr Zaehler
 Zaehlertest = Str(zaehler)
 Prozentzahl = Zaehler \ 2
   Call Oled(zaehlertest , 4 , 3)
 Call Oled_statusleiste(PROZENTZAHL , 0)

  Call Oled_gross(zaehlertest , 8 , 2)


 Call Oled_gross(zaehlertest , 0 , 5)
  Call Oled(zaehlertest , 8 , 6)

 If Zaehler = 199 Then
 Zaehler = 1
 Toggle Invert.0
 Call Oled_invert(invert)
 End If

Waitms 100

Loop


'==========================================================

Sub Oled_invert(byval Inv As Byte )

If Inv.0 = 1 Then
 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &HA7                                              'Kontrast
 I2cstop

Else

 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &HA6                                              'Kontrast
 I2cstop
 End If

End Sub


'==========================================================


'==========================================================
Sub Oled_kontrast(byval Kontrast_oled As Byte )
 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cwbyte &H80
 I2cwbyte Kontrast_oled                                     'Kontrast
 I2cstop
End Sub
'==========================================================
Sub Showlogo
Dim P As Integer
Dim Logocolumn As Byte

  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &HB0
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte 0
  I2cwbyte &H80
  I2cwbyte 127
  I2cstop

  I2cstart
  I2cwbyte Oledad                                           'Bestimmung Page (Y)
  I2cwbyte &H40                                             'Datenempfang
    For P = 0 To 1023
    Logocolumn = Lookup(p , Logo)
      I2cwbyte Logocolumn                                   'sende "Logoculumns aus Tabelle logo"
    Next P
  I2cstop
End Sub
'==========================================================



Sub Oled_statusleiste(byval Prozent As Byte , Byval Page As Integer)
Dim U As Byte
Dim G As Byte
Dim T As Byte
Dim R As Byte
Dim Senden1 As Byte
Dim Prozent_leer As Byte
Dim Prozentstr As String * 4
Dim Buchstabe1 As String * 1
Dim Temp1 As Integer
Page = Page + 176
     I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte 0
  I2cwbyte &H80
  I2cwbyte 127
  I2cwbyte &H80
  I2cwbyte Page
  I2cstop
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
  I2cwbyte &HFF
                                                               'ausgefuellte Zeichen des Balkens
  For U = 0 To Prozent
         I2cwbyte &HBD
  Next U
Prozent_leer = 100 - Prozent
For G = 0 To Prozent_leer
         I2cwbyte &H81
Next G
I2cwbyte &HFF
I2cwbyte &H00
I2cwbyte &H00
If Prozent < 10 Then
Prozentstr = " " + Str(prozent) + "%"
Else
Prozentstr = Str(prozent) + "%"
End If
  For T = 1 To 3
     Temp1 = 0
     Buchstabe1 = Mid(prozentstr , T , 1)
     Temp1 = Asc(buchstabe1)
     Temp1 = Temp1 - 32
     Temp1 = Temp1 * 8
For R = 1 To 8
          Senden1 = Lookup(temp1 , Asciitab)
          I2cwbyte Senden1
    Incr Temp1
    Next R
Next T
I2cstop

End Sub


'==========================================================




Sub Oled(byval Text As String * 16 , Byval Col As Integer , Byval Page As Integer)
Dim Buchstabe As String * 1

Dim Q As Integer
Dim H As Integer
Dim Temp As Integer
Dim Senden As Byte
   Page = Page + 176
   Col = Col * 8
   I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte Col
  I2cwbyte &H80
  I2cwbyte 127
  I2cwbyte &H80
  I2cwbyte Page
  I2cstop
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 16
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 8
For H = 1 To 8
          Senden = Lookup(temp , Asciitab)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop

End Sub
'==========================================================
Sub Oled_gross(byval Text As String * 8 , Byval Col As Integer , Byval Page As Integer)

   Page = Page + 176
   Col = Col * 8
   I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte Col
  I2cwbyte &H80
  I2cwbyte 127
  I2cwbyte &H80
  I2cwbyte Page

  I2cstop
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40
                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 8
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 32
For H = 1 To 16
          Senden = Lookup(temp , Asciitab_gross)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop

Page = Page + 1
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H21
  I2cwbyte &H80
  I2cwbyte Col
  I2cwbyte &H80
  I2cwbyte 127
  I2cwbyte &H80
  I2cwbyte Page
  I2cstop
  I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40

                                              'Umwandlung von Buchstaben zu Asciiwert zu Clumndata der Datenbank
For Q = 1 To 8
     Temp = 0
     Buchstabe = Mid(text , Q , 1)
     Temp = Asc(buchstabe)
     Temp = Temp - 32
     Temp = Temp * 32
     Temp = Temp + 16
For H = 1 To 16
          Senden = Lookup(temp , Asciitab_gross)
          I2cwbyte Senden
    Incr Temp
    Next H
Next Q
    I2cstop


End Sub

Sub Rstoled                                                 'OLED RESET, Aufwecken, alles loeschen
Dim I As Byte
Dim J As Integer
Dim Page As Byte
Page = 176
I2cstart
I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &HAF                                              'DISPLAY aufwecken sleep= &HAE
 I2cstop


 I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte &H81                                              'Set Kontrast
 I2cstop


I2cstart
 I2cwbyte Oledad
 I2cwbyte &H80
 I2cwbyte Kontrast                                          'Kontrast
 I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H20                                             'Adressmapping
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H80
  I2cwbyte &H00                                             'Adressmapping Horizontal
  I2cstop

 I2cstart
  I2cwbyte Oledad
  I2cwbyte &H40                                             'Datenempfang
    For J = 0 To 1023
      I2cwbyte &H00                                         'sende "leere Column"
    Next J
  I2cstop
End Sub
'==========================================================

Logo:                                                       'Logo
                                                            'LCDAssistant.exe verwenden "Vertical" auswählen, datei als .txt speichern
                                                            'notepad öffnen, "0x" ersetzen durch "&h" (diese Funktion gibt es dort!!!!!)
                                                            'NICHT EDITOR, WORDPAD! Die Funktion befindet sich unter "suchen"
                                                            'Hier eintragen und "Data" vorsetzen.

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HC0 , &H60 , &H18 , &H04 , &H04 , &H04 , &H0C , &H18,
Data &H60 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &HF0 , &HC0 , &H00,
Data &H00 , &H00 , &H00 , &HC0 , &HF0 , &HFC , &HFC , &HFC , &HFC , &HFC , &HFC , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &HE0 , &H3C , &H07 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H03 , &H1C , &HF0 , &H80 , &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &H01 , &H03 , &H0F , &H3F , &HFF,
Data &HFC , &HFC , &HFF , &H3F , &H07 , &H01 , &HFF , &HFF , &HFF , &HFF , &HFF , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H80 , &HF8 , &H0E , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H07 , &H78 , &H80 , &H1F , &H1F , &H1F , &H1F , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H1F , &H1F , &H1F , &H1F , &H1F , &H00 , &H0E , &H1F , &H15 , &H17,
Data &H16 , &H00 , &H1A , &H17 , &H1D , &H0B , &H00 , &H1A , &H17 , &H1D , &H0B , &H00 , &H0E , &H1F , &H15 , &H17,
Data &H16 , &H00 , &H11 , &H1F , &H1F , &H01 , &H1F , &H1E , &H10 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &HC0 , &H78 , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H3C , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFE , &HFE , &HFE , &HFE , &H06 , &H06 , &H06 , &H0E , &H8E,
Data &HFE , &HFE , &HFC , &HF8 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H3C , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &H06 , &H06 , &H0F , &H1F , &H7F,
Data &HFF , &HFB , &HE1 , &HC0 , &H80 , &H00 , &H00 , &HC0 , &HE0 , &HA0 , &HE0 , &HC0 , &H00 , &H40 , &HE0 , &HA0,
Data &HE0 , &H60 , &H20 , &HC0 , &HE0 , &HA0 , &HE0 , &HC0 , &H00 , &H04 , &HFC , &HFC , &H00 , &H20 , &HE0 , &HE0,
Data &H20 , &HE0 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H7E , &HC0 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H03 , &H03 , &H83 , &H70 , &H0C , &H00 , &H00 , &H00,
Data &H00 , &H03 , &HC3 , &HC3 , &HC3 , &HC3 , &HC0 , &HC1 , &HC3 , &HC2 , &HC2 , &HC2 , &HC0 , &HC5 , &H8F , &H0A,
Data &H0A , &H0E , &H06 , &H01 , &H03 , &H02 , &H02 , &H02 , &H00 , &H02 , &H03 , &H03 , &H02 , &H00 , &H03 , &H03,
Data &H00 , &H03 , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H1E , &H70 , &H80,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H60 , &H1C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &HFF , &HFF , &HFF , &HFF , &HE1 , &HC0 , &HC0 , &HC1 , &HE1 , &HFF , &HFF , &HFF , &H7F , &H9E,
Data &H80 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03,
Data &H0C , &H10 , &H20 , &H40 , &H20 , &H10 , &H0C , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H7F , &H7F , &H7F , &H7F , &H01 , &H01 , &H01 , &H45 , &H7D , &H7D , &H44 , &H0C , &H00 , &H3D,
Data &H7D , &H40 , &H7D , &H7D , &H40 , &H04 , &H7F , &H7F , &H04 , &H39 , &H7C , &H54 , &H5C , &H58 , &H04 , &H7C,
Data &H7C , &H04 , &H7C , &H78 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00




Asciitab:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,
Data 0 , 0 , 6 , 95 , 6 , 0 , 0 , 0,
Data 0 , 7 , 3 , 0 , 7 , 3 , 0 , 0,
Data 0 , 36 , 126 , 36 , 126 , 36 , 0 , 0,
Data 0 , 36 , 43 , 106 , 18 , 0 , 0 , 0,
Data 0 , 99 , 19 , 8 , 100 , 99 , 0 , 0,
Data 0 , 54 , 73 , 86 , 32 , 80 , 0 , 0,
Data 0 , 0 , 7 , 3 , 0 , 0 , 0 , 0,
Data 0 , 0 , 62 , 65 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 62 , 0 , 0 , 0 , 0,
Data 0 , 8 , 62 , 28 , 62 , 8 , 0 , 0,
Data 0 , 8 , 8 , 62 , 8 , 8 , 0 , 0,
Data 0 , 0 , 224 , 96 , 0 , 0 , 0 , 0,
Data 0 , 8 , 8 , 8 , 8 , 8 , 0 , 0,
Data 0 , 0 , 96 , 96 , 0 , 0 , 0 , 0,
Data 0 , 32 , 16 , 8 , 4 , 2 , 0 , 0,
Data 0 , 62 , 81 , 73 , 69 , 62 , 0 , 0,
Data 0 , 0 , 66 , 127 , 64 , 0 , 0 , 0,
Data 0 , 98 , 81 , 73 , 73 , 70 , 0 , 0,
Data 0 , 34 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 24 , 20 , 18 , 127 , 16 , 0 , 0,
Data 0 , 47 , 73 , 73 , 73 , 49 , 0 , 0,
Data 0 , 60 , 74 , 73 , 73 , 48 , 0 , 0,
Data 0 , 1 , 113 , 9 , 5 , 3 , 0 , 0,
Data 0 , 54 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 6 , 73 , 73 , 41 , 30 , 0 , 0,
Data 0 , 0 , 108 , 108 , 0 , 0 , 0 , 0,
Data 0 , 0 , 236 , 108 , 0 , 0 , 0 , 0,
Data 0 , 8 , 20 , 4 , 65 , 0 , 0 , 0,
Data 0 , 36 , 36 , 36 , 36 , 36 , 0 , 0,
Data 0 , 0 , 65 , 34 , 20 , 8 , 0 , 0,
Data 0 , 2 , 1 , 89 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 93 , 85 , 30 , 0 , 0,
Data 0 , 126 , 17 , 17 , 17 , 126 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 54 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 34 , 0 , 0,
Data 0 , 127 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 73 , 73 , 73 , 65 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 1 , 0 , 0,
Data 0 , 62 , 65 , 73 , 73 , 122 , 0 , 0,
Data 0 , 127 , 8 , 8 , 8 , 127 , 0 , 0,
Data 0 , 0 , 65 , 127 , 65 , 0 , 0 , 0,
Data 0 , 48 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 127 , 8 , 20 , 34 , 65 , 0 , 0,
Data 0 , 127 , 64 , 64 , 64 , 64 , 0 , 0,
Data 0 , 127 , 2 , 4 , 2 , 127 , 0 , 0,
Data 0 , 127 , 2 , 4 , 8 , 127 , 0 , 0,
Data 0 , 62 , 65 , 65 , 65 , 62 , 0 , 0,
Data 0 , 127 , 9 , 9 , 9 , 6 , 0 , 0,
Data 0 , 62 , 65 , 81 , 33 , 94 , 0 , 0,
Data 0 , 127 , 9 , 9 , 25 , 102 , 0 , 0,
Data 0 , 38 , 73 , 73 , 73 , 50 , 0 , 0,
Data 0 , 1 , 1 , 127 , 1 , 1 , 0 , 0,
Data 0 , 63 , 64 , 64 , 64 , 63 , 0 , 0,
Data 0 , 31 , 32 , 64 , 32 , 31 , 0 , 0,
Data 0 , 63 , 64 , 60 , 64 , 63 , 0 , 0,
Data 0 , 99 , 20 , 8 , 20 , 99 , 0 , 0,
Data 0 , 7 , 8 , 112 , 8 , 7 , 0 , 0,
Data 0 , 113 , 73 , 69 , 67 , 0 , 0 , 0,
Data 0 , 0 , 127 , 65 , 65 , 0 , 0 , 0,
Data 0 , 2 , 4 , 8 , 16 , 32 , 0 , 0,
Data 0 , 0 , 65 , 65 , 127 , 0 , 0 , 0,
Data 0 , 4 , 2 , 1 , 2 , 4 , 0 , 0,
Data 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128,
Data 0 , 0 , 3 , 7 , 0 , 0 , 0 , 0,
Data 0 , 32 , 84 , 84 , 84 , 120 , 0 , 0,
Data 0 , 127 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 40 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 127 , 0 , 0,
Data 0 , 56 , 84 , 84 , 84 , 8 , 0 , 0,
Data 0 , 8 , 126 , 9 , 9 , 0 , 0 , 0,
Data 0 , 24 , 164 , 164 , 164 , 124 , 0 , 0,
Data 0 , 127 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 0 , 0 , 125 , 64 , 0 , 0 , 0,
Data 0 , 64 , 128 , 132 , 125 , 0 , 0 , 0,
Data 0 , 127 , 16 , 40 , 68 , 0 , 0 , 0,
Data 0 , 0 , 0 , 127 , 64 , 0 , 0 , 0,
Data 0 , 124 , 4 , 24 , 4 , 120 , 0 , 0,
Data 0 , 124 , 4 , 4 , 120 , 0 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 252 , 68 , 68 , 68 , 56 , 0 , 0,
Data 0 , 56 , 68 , 68 , 68 , 252 , 0 , 0,
Data 0 , 68 , 120 , 68 , 4 , 8 , 0 , 0,
Data 0 , 8 , 84 , 84 , 84 , 32 , 0 , 0,
Data 0 , 4 , 62 , 68 , 36 , 0 , 0 , 0,
Data 0 , 60 , 64 , 32 , 124 , 0 , 0 , 0,
Data 0 , 28 , 32 , 64 , 32 , 28 , 0 , 0,
Data 0 , 60 , 96 , 48 , 96 , 60 , 0 , 0,
Data 0 , 108 , 16 , 16 , 108 , 0 , 0 , 0,
Data 0 , 156 , 160 , 96 , 60 , 0 , 0 , 0,
Data 0 , 100 , 84 , 84 , 76 , 0 , 0 , 0,
Data 0 , 8 , 62 , 65 , 65 , 0 , 0 , 0,
Data 0 , 0 , 0 , 119 , 0 , 0 , 0 , 0,
Data 0 , 0 , 65 , 65 , 62 , 8 , 0 , 0,
Data 0 , 2 , 1 , 2 , 1 , 0 , 0 , 0,
Data 0 , 60 , 38 , 35 , 38 , 60 , 0 , 0

kuchen25 · 02. Mai 2014

Bitte ganz unten einfügen.

Code:

Asciitab_gross:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       '
Data 0 , 0 , 0 , 0 , 0 , 0 , 124 , 255 , 255 , 124 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 51 , 51 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' !
Data 0 , 0 , 0 , 0 , 0 , 60 , 60 , 0 , 0 , 60 , 60 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' "
Data 0 , 0 , 16 , 144 , 240 , 126 , 30 , 144 , 240 , 126 , 30 , 16 , 0 , 0 , 0 , 0 , 0 , 2 , 30 , 31 , 3 , 2 , 30 , 31 , 3 , 2 , 0 , 0 , 0 , 0 , 0 , 0       ' #
Data 0 , 0 , 0 , 0 , 120 , 252 , 204 , 255 , 255 , 204 , 204 , 136 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 4 , 12 , 12 , 63 , 63 , 12 , 15 , 7 , 0 , 0 , 0 , 0       ' $
Data 0 , 0 , 0 , 28 , 28 , 28 , 128 , 192 , 224 , 112 , 56 , 28 , 14 , 0 , 0 , 0 , 0 , 0 , 24 , 28 , 14 , 7 , 3 , 1 , 0 , 28 , 28 , 28 , 0 , 0 , 0 , 0       ' %
Data 0 , 0 , 0 , 0 , 0 , 184 , 252 , 198 , 226 , 62 , 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 31 , 63 , 49 , 33 , 55 , 30 , 28 , 54 , 34 , 0 , 0 , 0       ' &
Data 0 , 0 , 0 , 0 , 0 , 0 , 39 , 63 , 31 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' '
Data 0 , 0 , 0 , 240 , 252 , 254 , 7 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 15 , 31 , 56 , 32 , 32 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 1 , 1 , 7 , 254 , 252 , 240 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 32 , 32 , 56 , 31 , 15 , 3 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 76 , 92 , 240 , 252 , 252 , 240 , 92 , 76 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 7 , 1 , 7 , 7 , 1 , 7 , 6 , 0 , 0 , 0 , 0       ' *
Data 0 , 0 , 0 , 0 , 128 , 128 , 128 , 240 , 240 , 128 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 15 , 15 , 1 , 1 , 1 , 0 , 0 , 0 , 0       ' +
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 184 , 248 , 120 , 0 , 0 , 0 , 0 , 0 , 0       ' ,
Data 0 , 0 , 0 , 0 , 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0       ' -
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 56 , 56 , 56 , 0 , 0 , 0 , 0 , 0 , 0       ' .
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 128 , 192 , 224 , 112 , 56 , 28 , 14 , 6 , 0 , 0 , 0 , 0 , 24 , 28 , 14 , 7 , 3 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' /
Data 0 , 0 , 0 , 248 , 254 , 6 , 3 , 131 , 195 , 99 , 51 , 30 , 254 , 248 , 0 , 0 , 0 , 0 , 0 , 7 , 31 , 30 , 51 , 49 , 48 , 48 , 48 , 24 , 31 , 7 , 0 , 0       ' 0
Data 0 , 0 , 0 , 0 , 0 , 12 , 12 , 14 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 48 , 48 , 63 , 63 , 48 , 48 , 48 , 0 , 0 , 0       ' 1
Data 0 , 0 , 0 , 28 , 30 , 7 , 3 , 3 , 131 , 195 , 227 , 119 , 62 , 28 , 0 , 0 , 0 , 0 , 0 , 48 , 56 , 60 , 62 , 55 , 51 , 49 , 48 , 48 , 48 , 48 , 0 , 0       ' 2
Data 0 , 0 , 0 , 12 , 14 , 7 , 195 , 195 , 195 , 195 , 195 , 231 , 126 , 60 , 0 , 0 , 0 , 0 , 0 , 12 , 28 , 56 , 48 , 48 , 48 , 48 , 48 , 57 , 31 , 14 , 0 , 0       ' 3
Data 0 , 0 , 0 , 192 , 224 , 112 , 56 , 28 , 14 , 7 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 63 , 63 , 3 , 3 , 0 , 0       ' 4
Data 0 , 0 , 0 , 63 , 127 , 99 , 99 , 99 , 99 , 99 , 99 , 227 , 195 , 131 , 0 , 0 , 0 , 0 , 0 , 12 , 28 , 56 , 48 , 48 , 48 , 48 , 48 , 56 , 31 , 15 , 0 , 0       ' 5
Data 0 , 0 , 0 , 0 , 192 , 240 , 248 , 220 , 206 , 199 , 195 , 195 , 195 , 128 , 0 , 0 , 0 , 0 , 0 , 7 , 15 , 31 , 57 , 48 , 48 , 48 , 48 , 48 , 57 , 31 , 15 , 0       ' 6
Data 0 , 0 , 0 , 3 , 3 , 3 , 3 , 3 , 3 , 195 , 243 , 63 , 15 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 60 , 15 , 3 , 0 , 0 , 0 , 0 , 0 , 0       ' 7
Data 0 , 0 , 0 , 188 , 254 , 231 , 195 , 195 , 195 , 231 , 254 , 188 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 57 , 48 , 48 , 48 , 48 , 48 , 57 , 31 , 15 , 0 , 0 , 0       ' 8
Data 0 , 0 , 0 , 60 , 126 , 231 , 195 , 195 , 195 , 195 , 195 , 231 , 254 , 252 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 48 , 48 , 56 , 28 , 14 , 7 , 3 , 0 , 0 , 0       ' 9
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 112 , 112 , 112 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 28 , 28 , 28 , 0 , 0 , 0 , 0 , 0 , 0       ' :
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 112 , 112 , 112 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 156 , 252 , 124 , 0 , 0 , 0 , 0 , 0 , 0       ' '
Data 0 , 0 , 192 , 224 , 240 , 56 , 28 , 14 , 7 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 3 , 7 , 14 , 28 , 56 , 48 , 0 , 0 , 0 , 0 , 0 , 0       ' <
Data 0 , 0 , 0 , 0 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 0 , 0 , 0       ' =
Data 0 , 0 , 0 , 0 , 0 , 0 , 3 , 7 , 14 , 28 , 56 , 240 , 224 , 192 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 56 , 28 , 14 , 7 , 3 , 1 , 0 , 0 , 0       ' >
Data 0 , 0 , 0 , 28 , 30 , 7 , 3 , 131 , 195 , 227 , 119 , 62 , 28 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 55 , 55 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' ?
Data 0 , 0 , 248 , 254 , 7 , 243 , 251 , 27 , 251 , 251 , 7 , 254 , 248 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 24 , 51 , 55 , 54 , 55 , 55 , 54 , 3 , 1 , 0 , 0 , 0       ' @
Data 0 , 0 , 0 , 0 , 0 , 224 , 252 , 31 , 31 , 252 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 56 , 63 , 7 , 6 , 6 , 6 , 6 , 7 , 63 , 56 , 0 , 0 , 0       ' A
Data 0 , 0 , 0 , 255 , 255 , 195 , 195 , 195 , 195 , 231 , 254 , 188 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 48 , 48 , 48 , 48 , 48 , 57 , 31 , 15 , 0 , 0 , 0       ' B
Data 0 , 0 , 0 , 240 , 252 , 14 , 7 , 3 , 3 , 3 , 7 , 14 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 15 , 28 , 56 , 48 , 48 , 48 , 56 , 28 , 12 , 0 , 0 , 0       ' C
Data 0 , 0 , 0 , 255 , 255 , 3 , 3 , 3 , 3 , 7 , 14 , 252 , 240 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 48 , 48 , 48 , 48 , 56 , 28 , 15 , 3 , 0 , 0 , 0       ' D
Data 0 , 0 , 0 , 0 , 255 , 255 , 195 , 195 , 195 , 195 , 195 , 195 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 48 , 48 , 48 , 48 , 48 , 48 , 48 , 48 , 0 , 0       ' E
Data 0 , 0 , 0 , 255 , 255 , 195 , 195 , 195 , 195 , 195 , 195 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' F
Data 0 , 0 , 0 , 0 , 240 , 252 , 14 , 7 , 3 , 195 , 195 , 195 , 199 , 198 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 15 , 28 , 56 , 48 , 48 , 48 , 48 , 63 , 63 , 0 , 0       ' G
Data 0 , 0 , 0 , 255 , 255 , 192 , 192 , 192 , 192 , 192 , 192 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0       ' H
Data 0 , 0 , 0 , 0 , 0 , 3 , 3 , 255 , 255 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 48 , 63 , 63 , 48 , 48 , 0 , 0 , 0 , 0 , 0       ' I
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 30 , 56 , 48 , 48 , 48 , 48 , 56 , 31 , 7 , 0 , 0 , 0       ' J
Data 0 , 0 , 0 , 255 , 255 , 192 , 224 , 240 , 56 , 28 , 14 , 7 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 1 , 3 , 7 , 14 , 28 , 56 , 48 , 0 , 0 , 0       ' K
Data 0 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 48 , 48 , 48 , 48 , 48 , 48 , 48 , 48 , 0 , 0 , 0       ' L
Data 0 , 0 , 0 , 255 , 255 , 30 , 120 , 224 , 224 , 120 , 30 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 1 , 1 , 0 , 0 , 63 , 63 , 0 , 0 , 0       ' M
Data 0 , 0 , 0 , 255 , 255 , 14 , 56 , 240 , 192 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 3 , 7 , 28 , 63 , 63 , 0 , 0 , 0       ' N
Data 0 , 0 , 0 , 240 , 252 , 14 , 7 , 3 , 3 , 7 , 14 , 252 , 240 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 15 , 28 , 56 , 48 , 48 , 56 , 28 , 15 , 3 , 0 , 0 , 0       ' O
Data 0 , 0 , 0 , 255 , 255 , 131 , 131 , 131 , 131 , 131 , 199 , 254 , 124 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0       ' P
Data 0 , 0 , 0 , 240 , 252 , 14 , 7 , 3 , 3 , 7 , 14 , 252 , 240 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 15 , 28 , 56 , 48 , 54 , 62 , 28 , 63 , 51 , 0 , 0 , 0       ' Q
Data 0 , 0 , 0 , 255 , 255 , 131 , 131 , 131 , 131 , 131 , 199 , 254 , 124 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 1 , 1 , 3 , 7 , 15 , 29 , 56 , 48 , 0 , 0 , 0       ' R
Data 0 , 0 , 0 , 60 , 126 , 231 , 195 , 195 , 195 , 195 , 199 , 142 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 12 , 28 , 56 , 48 , 48 , 48 , 48 , 57 , 31 , 15 , 0 , 0 , 0       ' S
Data 0 , 0 , 0 , 0 , 3 , 3 , 3 , 255 , 255 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' T
Data 0 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 31 , 56 , 48 , 48 , 48 , 48 , 56 , 31 , 7 , 0 , 0 , 0       ' U
Data 0 , 0 , 0 , 7 , 63 , 248 , 192 , 0 , 0 , 192 , 248 , 63 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 15 , 62 , 62 , 15 , 1 , 0 , 0 , 0 , 0 , 0       ' V
Data 0 , 0 , 0 , 255 , 255 , 0 , 0 , 128 , 128 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 28 , 6 , 3 , 3 , 6 , 28 , 63 , 63 , 0 , 0 , 0       ' W
Data 0 , 0 , 0 , 3 , 15 , 28 , 48 , 224 , 224 , 48 , 28 , 15 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 60 , 14 , 3 , 1 , 1 , 3 , 14 , 60 , 48 , 0 , 0 , 0       ' X
Data 0 , 0 , 0 , 3 , 15 , 60 , 240 , 192 , 192 , 240 , 60 , 15 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' Y
Data 0 , 0 , 0 , 3 , 3 , 3 , 3 , 195 , 227 , 51 , 31 , 15 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 60 , 62 , 51 , 49 , 48 , 48 , 48 , 48 , 48 , 0 , 0 , 0       ' Z
Data 0 , 0 , 0 , 0 , 0 , 255 , 255 , 3 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 48 , 48 , 48 , 48 , 0 , 0 , 0 , 0 , 0       ' [
Data 0 , 14 , 28 , 56 , 112 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 3 , 7 , 14 , 28 , 24 , 0 , 0 , 0 , 0       ' \
Data 0 , 0 , 0 , 3 , 3 , 3 , 3 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 48 , 48 , 48 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' ]
Data 0 , 96 , 112 , 56 , 28 , 14 , 7 , 14 , 28 , 56 , 112 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' ^
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 192 , 192 , 192 , 192 , 192 , 192 , 192 , 192 , 192 , 192 , 192 , 0 , 0       '
Data 0 , 0 , 0 , 0 , 0 , 0 , 62 , 126 , 78 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' `
Data 0 , 0 , 0 , 0 , 64 , 96 , 96 , 96 , 96 , 96 , 96 , 224 , 192 , 0 , 0 , 0 , 0 , 0 , 0 , 28 , 62 , 51 , 51 , 51 , 51 , 51 , 51 , 63 , 63 , 0 , 0 , 0       ' a
Data 0 , 0 , 0 , 255 , 255 , 192 , 96 , 96 , 96 , 96 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 48 , 48 , 48 , 48 , 48 , 56 , 31 , 15 , 0 , 0 , 0       ' b
Data 0 , 0 , 0 , 128 , 192 , 224 , 96 , 96 , 96 , 96 , 96 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 56 , 48 , 48 , 48 , 48 , 48 , 24 , 8 , 0 , 0 , 0       ' c
Data 0 , 0 , 0 , 128 , 192 , 224 , 96 , 96 , 96 , 224 , 192 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 56 , 48 , 48 , 48 , 48 , 48 , 63 , 63 , 0 , 0 , 0       ' d
Data 0 , 0 , 0 , 128 , 192 , 224 , 96 , 96 , 96 , 96 , 96 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 59 , 51 , 51 , 51 , 51 , 51 , 19 , 1 , 0 , 0 , 0       ' e
Data 0 , 0 , 0 , 192 , 192 , 252 , 254 , 199 , 195 , 195 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' f
Data 0 , 0 , 0 , 128 , 192 , 224 , 96 , 96 , 96 , 96 , 96 , 224 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 199 , 206 , 204 , 204 , 204 , 204 , 230 , 127 , 63 , 0 , 0 , 0       ' g
Data 0 , 0 , 0 , 255 , 255 , 192 , 96 , 96 , 96 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0       ' h
Data 0 , 0 , 0 , 0 , 0 , 0 , 96 , 236 , 236 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 48 , 63 , 63 , 48 , 48 , 0 , 0 , 0 , 0 , 0       ' i
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 96 , 236 , 236 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 96 , 224 , 192 , 192 , 255 , 127 , 0 , 0 , 0 , 0 , 0       ' j
Data 0 , 0 , 0 , 0 , 0 , 255 , 255 , 0 , 128 , 192 , 224 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 3 , 7 , 15 , 28 , 56 , 48 , 0 , 0 , 0       ' k
Data 0 , 0 , 0 , 0 , 0 , 0 , 3 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 48 , 63 , 63 , 48 , 48 , 0 , 0 , 0 , 0 , 0       ' l
Data 0 , 0 , 0 , 224 , 192 , 224 , 224 , 192 , 192 , 224 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 63 , 63 , 0 , 0 , 63 , 63 , 0 , 0 , 0       ' m
Data 0 , 0 , 0 , 0 , 224 , 224 , 96 , 96 , 96 , 96 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0       ' n
Data 0 , 0 , 0 , 128 , 192 , 224 , 96 , 96 , 96 , 96 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 56 , 48 , 48 , 48 , 48 , 56 , 31 , 15 , 0 , 0 , 0       ' o
Data 0 , 0 , 0 , 224 , 224 , 96 , 96 , 96 , 96 , 96 , 224 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 12 , 24 , 24 , 24 , 24 , 28 , 15 , 7 , 0 , 0 , 0       ' p
Data 0 , 0 , 0 , 128 , 192 , 224 , 96 , 96 , 96 , 96 , 96 , 224 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 15 , 28 , 24 , 24 , 24 , 24 , 12 , 255 , 255 , 0 , 0 , 0       ' q
Data 0 , 0 , 0 , 0 , 224 , 224 , 192 , 96 , 96 , 96 , 96 , 224 , 192 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' r
Data 0 , 0 , 0 , 0 , 192 , 224 , 96 , 96 , 96 , 96 , 96 , 64 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 17 , 51 , 51 , 51 , 51 , 51 , 63 , 30 , 0 , 0 , 0 , 0       ' s
Data 0 , 0 , 0 , 0 , 96 , 96 , 254 , 254 , 96 , 96 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 31 , 63 , 48 , 48 , 48 , 48 , 0 , 0 , 0 , 0       ' t
Data 0 , 0 , 0 , 224 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 224 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 56 , 48 , 48 , 48 , 48 , 24 , 63 , 63 , 0 , 0 , 0       ' u
Data 0 , 0 , 0 , 96 , 224 , 128 , 0 , 0 , 0 , 0 , 128 , 224 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 7 , 30 , 56 , 56 , 30 , 7 , 1 , 0 , 0 , 0 , 0       ' v
Data 0 , 0 , 0 , 224 , 224 , 0 , 0 , 224 , 224 , 0 , 0 , 224 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 31 , 56 , 28 , 15 , 15 , 28 , 56 , 31 , 7 , 0 , 0 , 0       ' w
Data 0 , 0 , 0 , 0 , 96 , 224 , 192 , 128 , 0 , 128 , 192 , 224 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 56 , 29 , 15 , 7 , 15 , 29 , 56 , 48 , 0 , 0 , 0       ' x
Data 0 , 0 , 0 , 0 , 0 , 96 , 224 , 128 , 0 , 0 , 128 , 224 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 129 , 231 , 126 , 30 , 7 , 1 , 0 , 0 , 0 , 0       ' y
Data 0 , 0 , 0 , 0 , 96 , 96 , 96 , 96 , 96 , 224 , 224 , 96 , 32 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 48 , 56 , 60 , 54 , 51 , 49 , 48 , 48 , 48 , 0 , 0 , 0       ' z
Data 0 , 0 , 128 , 192 , 252 , 126 , 7 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 31 , 63 , 112 , 96 , 96 , 96 , 0 , 0 , 0 , 0 , 0 , 0       ' {
Data 0 , 0 , 0 , 0 , 0 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 63 , 63 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' |
Data 0 , 0 , 0 , 0 , 0 , 3 , 3 , 3 , 7 , 126 , 252 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 96 , 96 , 96 , 112 , 63 , 31 , 1 , 0 , 0 , 0 , 0       ' }
Data 0 , 0 , 0 , 16 , 24 , 12 , 4 , 12 , 24 , 16 , 24 , 12 , 4 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0       ' ~
Data 0 , 0 , 0 , 128 , 192 , 96 , 48 , 24 , 24 , 48 , 96 , 192 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 7 , 6 , 6 , 6 , 6 , 6 , 6 , 7 , 7 , 0 , 0 , 0       '

Konnte man nicht alles auf einmal posten...

Wer weitermachen bzw optimieren möchte, darf meinen Code gerne bearbeiten!
Viel Spass!

riesen · 10. Juli 2014

Hallo kuchen25 (Mathias??)

Vielen Dank für die Anpassung betreffend dem grösseren Font. Der Code hat auf meinen Crius-Displays
auf Anhieb funktioniert. Wie hast du den Font umgewandelt? Würde gerne noch so eine 7-Segment-Anzeige
"simulieren" auf dem OLED.

Bei der Qualität der Crius-Displays happert es aber etwas, bei mir haben alle drei Displays Pixelfehler,
nehme doch mal an, dass das nicht an der Ansteuerung liegt, da die Fehler immer an unterschiedlichen
Stellen auftreten bei den drei Displays.

Viele Grüsse
Thomas

kuchen25 · 18. Juli 2014

SSD1306 I2c

Hallo Thomas,

Leider fehlt mir die Zeit mich weiter um das Display zu kümmern.
Ich sehe es für mich als abgeschlossen.
Für meine Projekte tut es mir gute Dienste.

Ich kaufe aus der Bucht für ~6 Euro die Version 1.2
(Bisher keinen einzigen Pixelfehler)
Leider muss man nach der Bestellung 3 Wochen warten bis diese ankommen.

7Segmentanzeige?

Ich kaufe dafür diese Anzeige ebenfalls in der Bucht
http://arduino.alhin.de/images/Module/MAX7219_7segment/MAX7219_7segment_550px.png
(Drei bis Vier Euro)
Dazu gibts im Bascom-forum auch einen Code der wunderbar funktioniert.

VlG Mathias

Moblits · 16. Sep. 2014

Hello,
I'm trying to draw big letters 8x12 (display SSD1306 128x64), but instead of drawing vertical draws on the Horizontal.
For Example: Number 1: (&H18,&H38,&H38,&H58,&H18,&H18,&H18,&H18,&H18,&H18,&H18,&H7E)

Number 1 Vertical (OK)

01234567 (POS Bits X-Y)

00011000 &H18
00111000 &H38
00111000 &H38
01011000 &H58
00011000 &H18
00011000 &H18
00011000 &H18
00011000 &H18
00011000 &H18
00011000 &H18
00011000 &H18
01111110 &H7E

Number 1 Horizontal (BAD)

000000000000
000000000001
000000000001
111111111111
111111111111
011000000001
000100000001
000000000000

Because it can be due.
As I have set it up?.

THX.

maxelectronic · 31. Okt. 2014

hi how to turn on / off pixel in ssd1306 ? setpixel(x,y) for draw line,box,..

khz · 28. Jan. 2016

Hallo zusammen,
habe Euere Programme getestet, und dachte, mein OLED-Display ist defekt. Dunkel. Dann habe ich heute ein Arduino Sketch aufgespielt (ich verwende Arduinos) und siehe da, es lief. Linien, Texte Driecke usw. wurden angezeigt.
Aber nun kommt es: Ohne Untebrechung habe ich Euer Bascom aufgespielt und das Display zeigete die Texte an. Wird die Spannung aber abgeschaltet, bleibt das Display wieder Dunkel. Habe ich das Bascom PRG während das Arduino PRG den Text gescrollt hat, so scrollte auch der Text des BASCOM PRG.
Also scheint mein Display eine anderes Wecksignal zu benötigen.
Ich verwende Displays mit der Anschlussfolge: GND - VCC - SCL - SDA. Im Internet gibt es viele Bilder die eine andere Anschlussfolge haben, links ist dann VCC.

Könnt Ihr mir weiterhelfen?

Viele Grüße!

khz · 01. Feb. 2016

Hallo,
habe inzwischen den Arduino-Code mittels Logik-Analyzer ausgewertet. Die Displays mit Gnd links wollen doch anders angesteuert werden. Habe die Sub RstOled etwas umgeschrieben, die Kommandos in DATA's gepackt. Selbst das Prg von kuchen28 mit den großen Buchstaben läuft nun wunderbar.

Viele Grüße
KHZ

CodeBox BascomAVR


Const Oled_adr = &H78
Const Oled_cmd = &H00

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Rstoled  'OLED RESET, Aufwecken, alles loeschen
'  Dim I As Byte
  Dim J As Integer
  Dim Page As Byte
  Page = 176
  Temp = 0
  Do
      Senden = Lookup(temp , Oled_rst)  'Daten holen bis
      If Senden = &HFF Then Exit Do  'FF geladen wird
      I2cstart
        I2cwbyte Oled_adr
        I2cwbyte Oled_cmd
        I2cwbyte Senden  'DISPLAY aufwecken sleep= &HAE
     I2cstop
     'Print Temp ; " " ; Hex(senden)
     Incr Temp
  Loop
  I2cstart
  I2cwbyte Oled_adr
  I2cwbyte &H40  'Datenempfang
  For J = 0 To 1023
     I2cwbyte &H00 'sende "leere Column"
  Next J
  I2cstop
End Sub
'****************** DATA's *****************************************************
Oled_rst:
Data &HAE , &HD5 , &H80 , &HA8 , &H3F , &HD3 , &H00 , &H40 , &H8D , &H14 , &H20,
Data &H00 , &HA1 , &HC8 , &HDA , &H12 , &H81 , &HCF , &HD9 , &HF1 , &HDB , &H40,
Data &HA4 , &HA6 , &HAF , &HFF  'FF markiert das Ende

'==========================================================

dg2ffp · 08. Dez. 2016

Hallo, kann man eigentlich das oled auch für kleinere avr's nutzen? Ich dachte an einen tiny24. Ich benötige nur ein paar Textzeilen, keine aufwendige Grafik.
Es gibt mittlerweile eine lib für den ssd1306, würde diese auch mit dem tiny24 funktionieren? Gruß Heiko

LotadaC · 08. Dez. 2016

Sicher wird man diese OLEDs auch mit ATtinies ansteuern können, ob s für BASCOM da schon was gibt, weiß ich aber nicht.
Der Tiny24 hätte "nur" 2k Flash, und kein Hardware I²C. Immerhin gibts 'ne USI, die I²C nachbildet (wobei die Clock in Software erledigt werden muß). BASCOM kann SoftTWI (also bringt entsprechende Bibliotheken mit/setzt das für Dich um), aber das kostet (gegenüber der Nutzung der vorhandenen Hardware) unnötig Rechenzeit und Speicherressourcen (gerade bei 'nem 2k-Tiny).

Was steht denn in der Dokumentation zu Deiner Bibliothek?

P.S.: ich hab irgendwann mal vor, eines dieser Displays an einen Tiny841 anzubinden - leider muß ich dabei zu Fuß gehen, weil der 441/841 kein USI hat sondern "nur" zwei UARTs, ein SPI und ein Slave-I²C, ich aber den differentiellen ADC brauche.
Genau genommen ist mir kein Tiny mit Master-TWI bekannt, aber ich bin mit meiner Tiny-Übersicht ja auch noch nicht fertig...

dg2ffp · 08. Dez. 2016

Hallo LotadaC,
Danke für deine Infos. Wie ich das sehe, wird das wohl nichts mit nem tiny24. Alles was man so findet beruht auf m328. So wie ich das entnommen habe, sollte ich auf eine hardware i2c ausweichen.
Was meintest du mit der Dokumentation zu der Bibliothek?

Gruß Heiko

Bascom OLED mit SSD1306

Mitglied

Neues Mitglied

Mitglied

Neues Mitglied

Mitglied

Neues Mitglied

Mitglied

Neues Mitglied

Neues Mitglied

Neues Mitglied

Neues Mitglied

Mitglied

Neues Mitglied

Neues Mitglied

Neues Mitglied

Neues Mitglied

Neues Mitglied

Neues Mitglied

Sehr aktives Mitglied

Neues Mitglied