Gameboy Printer Thermoprinter-Modul

**SIGINT** · 26.04.2008, 19:00

Hier gibts sehr viele Infos zum Gameboy:
http://www.devrs.com/gb/

Und hier Infos zum Thema Gamelink:
http://www.devrs.com/gb/hardware.php#hardlink

Für mich sieht es so aus, als wäre der Linkport eine Art SPI. Also sollte der Drucker ohne größere Probleme am AVR laufen, oder irre ich mich da?!

**SIGINT** · 26.04.2008, 19:04

http://www.it.lth.se/janeric/masters...l/5/index.html <--- siehe 5.3.2!!

**MichWuhr** · 26.04.2008, 21:11

Hallo Signit,
Super Infos,

Aber ich möchte darauf hinweisen, dass sich dieser thread mit dem ThermoDruck-Modul des Printers befasst bzw. wie man dieses ansteuert...

Nicht böse sein, aber mach doch deinen eigenen Thread auf und besprich dort die Verbindung mit dem Gameboy Printerboard mit einem AVR per SPI
Michael

**MichWuhr** · 03.05.2008, 12:08

Hallo midnand,

Hab jetzt ein paar Daten zum Drucker:

Der Motor zieht im Leerlauf 75mA mit Papierrolle im Lauf: 80mA
und 1 Heizpixel 86,2mA

Der Motor sowie die Heizpixel können problemlos umgepolt werden.

Allerdings muss der Druckkopf bei längerem Dauerbetrieb am Stück >5min gekühlt werden, da er sehr sehr heiss wird.

Ich werd die Kühlung mit nem kleinen Kühlkörper auf dem Druckkopf und einem kleinem lüfter im Gehäuse lösen.

Der Endschalter ist ein öffner.

hab hier mal eine sehr provisorische

Platine aufgebaut

Bild hier

WEnn alle Heizpixel auf einmal geschaltet werden, und dass über einen längeren zeitraum, ohne abschaltung erhitzt sich der Kopf und das papier bekommt an den seiten schleiher

**CowZ** · 03.05.2008, 12:29

Sehr cool

Glückwunsch

Jetzt wären natürlich noch echte Texte toll

Gruß, CowZ

**MichWuhr** · 03.05.2008, 13:31

hei hei,

Bin grad dabei die Platine fertig zu machen, fehlen ja noch n paar passive bauteile Quarz, Kerkos....

Ich bin mir noch nicht sicher wie ich die einzelnen Buchstaben im AVR speichern soll,,

Ich dachte mich ich machs mit Gosub, welche dann für den Buchstaben a die richtigen pixel steuert, Ich befürchte aber, dass dass zu lange dauert und dann keinen richtigen wörter entstehen

**MichWuhr** · 21.05.2008, 15:05

Hallo Leute,

War die letzte zeit mir Prüfung beschäftigt...

Hab letztens nen Code von Bascom gefunden hier im board bzw im Wiki der mit dem befehl DATA arbeitet

https://roboternetz.de/wissen/index.php/Bascom_Tabellen

sieht sehr simpel mit den 7-Segmentanzeigen aus

aber kann ich das mit den Dot matrix anzeigen irgentwie mit meinem Druckmodul gleichsetzen?

Auch eine Laufschrift mit Bascom wurde so gecodet:

Code:

$regfile = "m32def.dat" 
$crystal = 16000000 
$hwstack = 32 
$swstack = 30 
$framesize = 40 
Config Porta = Output 
Config Portb = Output 
Config Timer0 = Timer , Prescale = 64 
On Timer0 Timer_isr 
Enable Timer0 
Enable Interrupts 
Stop Timer0 

Dout Alias Portb.2 
Ss Alias Portb.1 
Clock Alias Portb.0 
Zeile Alias Porta 

Dim A As Word , B As Word 
Dim A1 As Word , A2 As Word , A3 As Word 
Dim Beginn_zeichen As Word , Ende_zeichen As Word , Db_zeiger As Word 
Dim Bz As Word 
Dim Ti As Byte , Tl As Byte , Tl2 As Word , Tl3 As Word 
Dim Ez As Byte 
Dim Dat(1530) As Byte 
Dim Ze(8) As Byte 
Dim Text As String * 255 
Dim Einzelzeichen As String * 1 

Ze(1) = 127 
Ze(2) = 191 
Ze(3) = 223 
Ze(4) = 239 
Ze(5) = 247 
Ze(6) = 251 
Ze(7) = 253 
Ze(8) = 254 

Text = "         LED-Laufschrift mit Bascom, ATMega32 und Pollin Display         "       'max. 255 Zeichen 

Tl = Len(text) 
B = 1 

For A = 1 To Tl 
 Tl2 = Tl * 6 
 Einzelzeichen = Mid(text , A , 1) 
 Ez = Asc(einzelzeichen) 
 Bz = Ez - 32 
 Beginn_zeichen = Bz * 6 
 Ende_zeichen = Beginn_zeichen + 5 
 For Db_zeiger = Beginn_zeichen To Ende_zeichen 
  Dat(b) = Lookup(db_zeiger , Zeichensatz) 
  Dat(b) = 255 - Dat(b) 
  Incr B 
 Next Db_zeiger 
Next A 

A2 = 1 
Tl3 = Tl2 - 50 
Start Timer0 

Do 
 A3 = A2 + 50 
 Waitms 60 
 Incr A2 
 If A2 = Tl3 Then A2 = 1 
Loop 

End 

Timer_isr: 
 If Ti = 9 Then Ti = 1 
 Select Case Ti 
  Case 1: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).0 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(1) 
  Case 2: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).1 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(2) 
  Case 3: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).2 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(3) 
  Case 4: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).3 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(4) 
  Case 5: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).4 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(5) 
  Case 6: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).5 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(6) 
  Case 7: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).6 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(7) 
  Case 8: 
   Ss = 0 
   For A1 = A2 To A3 
    Clock = 1 
    Dout = Dat(a1).7 
    Clock = 0 
   Next A1 
   Ss = 1 
   Zeile = Ze(8) 
 End Select 
 Incr Ti 
Return 

Zeichensatz: 
Data 0 , 0 , 0 , 0 , 0 , 0              'Leerzeichen 
Data 0 , 0 , 6 , 95 , 6 , 0             '! 
Data 0 , 7 , 3 , 0 , 7 , 3              '"" 
Data 0 , 36 , 126 , 36 , 126 , 36       '# 
Data 0 , 36 , 43 , 106 , 18 , 0         '$ 
Data 0 , 6 , 9 , 9 , 6 , 0              '% 
Data 0 , 54 , 73 , 86 , 32 , 80         '& 
Data 0 , 0 , 7 , 3 , 0 , 0              '' 
Data 0 , 0 , 62 , 65 , 0 , 0            ' 
Data 0 , 0 , 65 , 62 , 0 , 0            ' 
Data 0 , 8 , 62 , 28 , 62 , 8           '* 
Data 0 , 8 , 8 , 62 , 8 , 8             '+ 
Data 0 , 0 , 224 , 96 , 0 , 0           ', 
Data 0 , 8 , 8 , 8 , 8 , 8              '- 
Data 0 , 0 , 96 , 96 , 0 , 0            '. 
Data 0 , 32 , 16 , 8 , 4 , 2            '/ 
Data 0 , 62 , 81 , 73 , 69 , 62         '0 
Data 0 , 0 , 66 , 127 , 64 , 0          '1 
Data 0 , 98 , 81 , 73 , 73 , 70         '2 
Data 0 , 34 , 73 , 73 , 73 , 54         '3 
Data 0 , 24 , 20 , 18 , 127 , 16        '4 
Data 0 , 47 , 73 , 73 , 73 , 49         '5 
Data 0 , 60 , 74 , 73 , 73 , 48         '6 
Data 0 , 1 , 113 , 9 , 5 , 3            '7 
Data 0 , 54 , 73 , 73 , 73 , 54         '8 
Data 0 , 6 , 73 , 73 , 41 , 30          '9 
Data 0 , 0 , 108 , 108 , 0 , 0          ': 
Data 0 , 0 , 236 , 108 , 0 , 0          '; 
Data 0 , 8 , 20 , 34 , 65 , 0           '< 
Data 0 , 36 , 36 , 36 , 36 , 36         '= 
Data 0 , 0 , 65 , 34 , 20 , 8           '> 
Data 0 , 2 , 1 , 89 , 9 , 6             '? 
Data 0 , 62 , 65 , 93 , 85 , 30         '@ 
Data 0 , 126 , 9 , 9 , 9 , 126          'A 
Data 0 , 127 , 73 , 73 , 73 , 54        'B 
Data 0 , 62 , 65 , 65 , 65 , 34         'C 
Data 0 , 127 , 65 , 65 , 65 , 62        'D 
Data 0 , 127 , 73 , 73 , 73 , 65        'E 
Data 0 , 127 , 9 , 9 , 9 , 1            'F 
Data 0 , 62 , 65 , 73 , 73 , 122        'G 
Data 0 , 127 , 8 , 8 , 8 , 127          'H 
Data 0 , 0 , 65 , 127 , 65 , 0          'I 
Data 0 , 63 , 64 , 64 , 64 , 48         'J 
Data 0 , 127 , 8 , 20 , 34 , 65         'K 
Data 0 , 127 , 64 , 64 , 64 , 64        'L 
Data 0 , 127 , 2 , 4 , 2 , 127          'M 
Data 0 , 127 , 2 , 4 , 8 , 127          'N 
Data 0 , 62 , 65 , 65 , 65 , 62         'O 
Data 0 , 127 , 9 , 9 , 9 , 6            'P 
Data 0 , 62 , 65 , 81 , 33 , 94         'Q 
Data 0 , 127 , 9 , 9 , 25 , 102         'R 
Data 0 , 38 , 73 , 73 , 73 , 50         'S 
Data 0 , 1 , 1 , 127 , 1 , 1            'T 
Data 0 , 63 , 64 , 64 , 64 , 63         'U 
Data 0 , 31 , 32 , 64 , 32 , 31         'V 
Data 0 , 63 , 64 , 60 , 64 , 63         'W 
Data 0 , 99 , 20 , 8 , 20 , 99          'X 
Data 0 , 7 , 8 , 112 , 8 , 7            'Y 
Data 0 , 97 , 81 , 73 , 69 , 67         'Z 
Data 0 , 0 , 127 , 65 , 65 , 0          '[ 
Data 0 , 2 , 4 , 8 , 16 , 32            '\ 
Data 0 , 0 , 65 , 65 , 127 , 0          '] 
Data 0 , 4 , 2 , 1 , 2 , 4              '^ 
Data 128 , 128 , 128 , 128 , 128 , 128  ' 
Data 0 , 0 , 3 , 7 , 0 , 0              '` 
Data 0 , 32 , 84 , 84 , 84 , 120        'a 
Data 0 , 127 , 68 , 68 , 68 , 56        'b 
Data 0 , 56 , 68 , 68 , 68 , 40         'c 
Data 0 , 56 , 68 , 68 , 68 , 127        'd 
Data 0 , 56 , 84 , 84 , 84 , 8          'e 
Data 0 , 8 , 126 , 9 , 9 , 0            'f 
Data 0 , 24 , 164 , 164 , 164 , 124     'g 
Data 0 , 127 , 4 , 4 , 120 , 0          'h 
Data 0 , 0 , 0 , 125 , 64 , 0           'i 
Data 0 , 64 , 128 , 132 , 125 , 0       'j 
Data 0 , 127 , 16 , 40 , 68 , 0         'k 
Data 0 , 0 , 0 , 127 , 64 , 0           'l 
Data 0 , 124 , 4 , 24 , 4 , 120         'm 
Data 0 , 124 , 4 , 4 , 120 , 0          'n 
Data 0 , 56 , 68 , 68 , 68 , 56         'o 
Data 0 , 252 , 68 , 68 , 68 , 56        'p 
Data 0 , 56 , 68 , 68 , 68 , 252        'q 
Data 0 , 68 , 120 , 68 , 4 , 8          'r 
Data 0 , 8 , 84 , 84 , 84 , 32          's 
Data 0 , 4 , 62 , 68 , 36 , 0           't 
Data 0 , 60 , 64 , 32 , 124 , 0         'u 
Data 0 , 28 , 32 , 64 , 32 , 28         'v 
Data 0 , 60 , 96 , 48 , 96 , 60         'w 
Data 0 , 108 , 16 , 16 , 108 , 0        'x 
Data 0 , 156 , 160 , 96 , 60 , 0        'y 
Data 0 , 100 , 84 , 84 , 76 , 0         'z 
Data 0 , 8 , 62 , 65 , 65 , 0           '{ 
Data 0 , 0 , 0 , 119 , 0 , 0            '| 
Data 0 , 0 , 0 , 0 , 0 , 0              '} 
Data 0 , 2 , 1 , 2 , 1 , 0              '~ 
Data 0 , 0 , 0 , 0 , 0 , 0

das müsste man doch irgentwie auf so einen Drucker übertragen können, oder?
Weil der fährt ja auch seinen Druckkopf hin und her

**Supp** · 18.09.2008, 00:07

Hallo!

Habe mich auch damit beschäftigt, das Thermomodul aus dem Gameboy-Drucker zu nutzen. Mit den Tipps von MichWuhr konnte ich auch flott was brauchbares zustande bringen.
Ich kann jetzt Daten vom PC über RS232 senden und der Drucker druckt.

Funktioniert ganz gut, aber ich habe ein großes Problem:
Wenn viele Pixel in einer Zeile gedruckt werden läuft der Motor langsamer, als wenn wenige gedruckt werden. Deshalb sind die Zeilen nicht synchron. Das ist doof.
Vielleicht hat ja jemand eine Idee, was ich da machen könnte?
Ich habe schon überlegt, da das ganze später eh über einen Akku laufen soll, die Heizelemente mit 9V zu betreiben, meint ihr die verkraften das?

Danke!

Hier ein Bild vom Aufbau:
http://servergui.de/P1030010.jpg

**PsiQ** · 18.09.2008, 01:01

Zitat von Supp

Vielleicht hat ja jemand eine Idee, was ich da machen könnte?

Kannst du die pixel nicht antäuschen?
Also quasi weiße pixel machen und nur so kurz anheizen/pingen, dass zwar die aktion den motor bremst, aber nichts gedruckt wird?

**pongi** · 18.09.2008, 08:14

Kann es nicht sein, dass der Motor deshalb bremst, weil wenn auch das Thermoelement Strom zieht, die Spannung einbricht? Man könnte es mit einer stärkeren Quelle versuchen. Bzw. getrennte Quellen für Motor und Heizelement, und schauen, ob das Problem immer noch auftritt.

Thema: Gameboy Printer Thermoprinter-Modul

Themen-Optionen

Thema durchsuchen

Anzeige

Lesezeichen

Lesezeichen

Berechtigungen