Ausgabe eines Textes auf TV

**RCO** · 23.02.2005, 21:10

@Trabukh:

Kannst du mir das erklären

Bild hier

Ich hab die Zeilen einfach mla in der Mitte abgebrochen und ne neue Printanweisung gemacht, also eigentlich dürfte sich nix verändern. Außerdem hab ich einige Zeilen weggelassen. da der 2313 nicht genug speichert hat. Aber wenn ich unten Zeilen weglasse, warum fehlen die dann rechts im Bild? Und warum ist alles gedreht? Oder warum ist da immer ne freizeile? Also mein Fernseher steht auf jeden Fall normal da, nicht das du denkst, ich hätte ihn gedreht oder so...

MFG Moritz

**RCO** · 23.02.2005, 21:27

So, jetzt siehts besser aus:
Bild hier

2 Anmerkungen:
1. Die Printanweisung ist zulang, einfach in der Mitte teilen und ne neue Anweisung macehn, es wird ja in der selben Zeile weidergeschrieben.
2. Es darf kein Zeilenumbruch kommen, also immer ein ";" als leztes. Wenn die Zeile voll ist, spring er automatisch um, du erzeugst durch das fehlende ";" direkt noch einen.

- Komischerweise ist der Roboter gedreht.
- Und mir ist nicht klar, waum oben die Schrift "Pixel fehlt"
Das unten was fehlt ist klar, da war der Speicher beim 2313 voll.
Vielleicht ist es aber auch komplett gespiegelt, so dass "Pixel" jetzt noch kommen würde, schließlich sind noch 7 Zeilen frei.

MFG Moritz

Edit: Mal ne Frage, womit hast du das Bild erzeugt? Hast du jeden einzelnnen Pixel im kopf errechnet, oder hast du in VB oder so schnell nen Toll geschrieben?

MFG Moritz

**Trabukh** · 23.02.2005, 21:31

Habs superschnell was billiges in VB gemacht, 10 Zeilen oder so...
Das wundert mich jetzt allerdings auch, hab wohl Spalte und Reihe miteinander vertauscht

Gruß, Trabukh

**RCO** · 23.02.2005, 21:40

Nicht nur das, ich habs grad mal durch den Simulator gejagt,
"Pixel" würde jetzt unten Seitenverkehrt erscheinen.
Aber sind halt 137% des 2313

Wenn das Tool funktioniert, würde ich es auch gern mal probieren. Man müsste nur noch ne Platzsparendere Methode finden, die Bilder zu "speichern". Kann man da nicht irgendwie nen String nehmen und dann wieder auseinander nehmen?

MFG Moritz

**JanB** · 23.02.2005, 22:26

Hallo,
vrsucht es doch mal mit dieser Methode:
(auf die Schnelle zuammengestrickt,
ist noch nicht 100%ig))

Gruß Jan

Code:

$regfile = "M32def.dat"
$crystal = 16000000
$baud = 9600



Dim A As Byte
Dim Z As Byte
Dim B As Byte
Dim C As String * 1
Dim S As String * 28

Print Chr(12);

Restore Daten

For Z = 1 To 23
   Read S
      For B = 1 To 28
      C = Mid(s , B , 1)
       A = Asc(c)
       If A > 32 Then A = A - 48
       Print Chr(a);
   Next B
Next Z

Do
Loop

End

' A = chr(17), B=chr(18) usw. bis O = chr(31)
'  Leerzeichen ist Leerzeichen
' Grossschrift !!!
'jede Zeile hat genau 28 Zeichen

Daten:
Data "   ABCDEFGHIJKLMNO          "                         'Zeile 1
Data "AAAAAAAAAAAAAAAAAAAAAAAAAAAA"                         'Zeile 2
Data "                            "
Data "  DDDDDDDDDDDDDDD           "
Data "                            "
Data "BBBBBBBBBBBBBBBBBBBBBBBBBBBB"
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "       ADGKHLDDEG           "
Data "       KJLKN NO             "
Data "       KBHLLABGFKK          "
Data "     HJLKBGFCRE             "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "                            "
Data "     DEFGH                  "
Data "  ADDDFFJJJJ                "                         'Zeile24

**Trabukh** · 23.02.2005, 22:37

Hmm, die Idee ist gut, werd' ich mal probieren...
Ach ja, ich weiß zwar, das es den Speicher immer noch hoffnungslos überlastet, aber vllt ist der Dreh- und Spiegelfehler weg:

Code:

Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(25); Chr(32); Chr(32); Chr(32); Chr(32); Chr(22); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(23); Chr(19); Chr(27); Chr(20); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(25); Chr(19); Chr(19); Chr(22); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(21); Chr(32); Chr(26); Chr(21); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(24); Chr(17); Chr(32); Chr(32); Chr(18); Chr(20); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(29); Chr(28); Chr(30); Chr(17); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(22); Chr(26); Chr(21); Chr(26); Chr(21); Chr(25); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(21); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(21); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(21); Chr(28); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(21); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(19); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(24); Chr(30); Chr(19); Chr(23); Chr(27); Chr(19); Chr(23); Chr(27); Chr(31); Chr(20);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(28); Chr(17); Chr(20); Chr(20); Chr(20); Chr(20); Chr(20); Chr(20); Chr(20); Chr(20); Chr(22);
Print Chr(28); Chr(20); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(30); Chr(19); Chr(27); Chr(32); Chr(23); Chr(22); Chr(22); Chr(22); Chr(22); Chr(22); Chr(22); Chr(21); Chr(21);
Print Chr(32); Chr(18); Chr(20); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(26); Chr(32); Chr(32); Chr(26); Chr(32); Chr(23); Chr(22); Chr(22); Chr(22); Chr(22); Chr(22); Chr(22); Chr(21); Chr(21);
Print Chr(28); Chr(20); Chr(18); Chr(20); Chr(32); Chr(32); Chr(32); Chr(32); Chr(19); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(22); Chr(32); Chr(23); Chr(27); Chr(32); Chr(23); Chr(22); Chr(22); Chr(22); Chr(22); Chr(22); Chr(22); Chr(21); Chr(31);
Print Chr(32); Chr(27); Chr(32); Chr(21); Chr(32); Chr(32); Chr(24); Chr(20); Chr(32); Chr(24); Chr(20); Chr(32); Chr(32); Chr(32);
Print Chr(21); Chr(26); Chr(17); Chr(26); Chr(32); Chr(29); Chr(28); Chr(28); Chr(28); Chr(28); Chr(28); Chr(28); Chr(28); Chr(31);
Print Chr(32); Chr(26); Chr(32); Chr(21); Chr(32); Chr(32); Chr(32); Chr(27); Chr(28); Chr(23); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(25); Chr(26); Chr(20); Chr(26); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(24); Chr(30);
Print Chr(32); Chr(30); Chr(32); Chr(21); Chr(32); Chr(32); Chr(32); Chr(24); Chr(31); Chr(20); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(26); Chr(19); Chr(19); Chr(23); Chr(29); Chr(28); Chr(28); Chr(28); Chr(28); Chr(30); Chr(31); Chr(31); Chr(31); Chr(31);
Print Chr(26); Chr(17); Chr(28); Chr(21); Chr(32); Chr(32); Chr(24); Chr(23); Chr(32); Chr(27); Chr(20); Chr(32); Chr(32); Chr(32);
Print Chr(26); Chr(18); Chr(21); Chr(21); Chr(24); Chr(19); Chr(32); Chr(27); Chr(29); Chr(26); Chr(19); Chr(32); Chr(26); Chr(29);
Print Chr(26); Chr(26); Chr(25); Chr(21); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(18); Chr(19); Chr(19); Chr(17); Chr(26); Chr(32); Chr(20); Chr(30); Chr(31); Chr(26); Chr(24); Chr(28); Chr(30); Chr(23);
Print Chr(18); Chr(19); Chr(19); Chr(32); Chr(32); Chr(32); Chr(32); Chr(30); Chr(19); Chr(29); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(30); Chr(31); Chr(21); Chr(26); Chr(31); Chr(30); Chr(30); Chr(21);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(19); Chr(19); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(32); Chr(32); Chr(26); Chr(31); Chr(26); Chr(32); Chr(32); Chr(26); Chr(31);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(28); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(18); Chr(30); Chr(22); Chr(31); Chr(23); Chr(26); Chr(28); Chr(23); Chr(31); Chr(23);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(18); Chr(19); Chr(17); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(24); Chr(19); Chr(32); Chr(26); Chr(25); Chr(26); Chr(19); Chr(32); Chr(26); Chr(21);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(28); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(26); Chr(32); Chr(20); Chr(30); Chr(31); Chr(26); Chr(24); Chr(28); Chr(30); Chr(30);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(24); Chr(31); Chr(30); Chr(31); Chr(29); Chr(26); Chr(31); Chr(30); Chr(30); Chr(29);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(23); Chr(18); Chr(19); Chr(31); Chr(31); Chr(22); Chr(32); Chr(19); Chr(27); Chr(31);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(29); Chr(30); Chr(31); Chr(31); Chr(31); Chr(29); Chr(28); Chr(28); Chr(30); Chr(31);
Print Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32); Chr(31); Chr(32); Chr(32); Chr(32); Chr(32); Chr(32);

**Trabukh** · 23.02.2005, 22:58

So, mal schaun, ob's geht. Ist nach Jan B.s Methode... Ich habe nicht wirklich etwas geändert, nur die Bezeichnungen für die Variablen und die Grafik unten, schließlich gehts es mir ja hauptsächlich um das Bild!

Code:

$regfile = "M16def.dat" 
$crystal = 16000000 
$baud = 9600 

Dim Zeile as String * 28
Dim Zeichen as String * 1
Dim Reihe as Byte
Dim Spalte as Byte
Dim Nummer as Byte

Restore Daten

For Reihe = 1 To 24
	Read Zeile
	For Spalte = 1 To 28
		Zeichen = Mid(Zeile , Spalte , 1)
		Nummer = Asc(Zeichen)
		If Nummer > 32 Then Nummer = Nummer - 48
		Print Chr(Nummer)
	Next Spalte
Next Zeile

Do
Loop

End

Daten:
Data "      I    F         OCCM   "
Data "       ICCF          O  O   "
Data "      HA  BD         OLLG   "
Data "      FJEJEI         O      "
Data "      E    J         OHD    "
Data "     J      E         BA    "
Data "    HNCGKCGKOD        JE    "
Data "   LADDDDDDDDFML      JE    "
Data " NCK GFFFFFFEEE I     JE    "
Data "J  J GFFFFFFEEML I    BA    "
Data "F GK GFFFFFFEOEBEJ   L  L   "
Data "EJAJ MLLLLLLLOE EJ   BMNA   "
Data "IJDJ        HNEHEJ    NM    "
Data "JCCGMLLLLNOOOOEGHN   NABM   "
Data "JBEEHC KMJC JM EGN          "
Data "BCCAJ DNOJHLNG CCA   HGKD   "
Data "     ONOEJONNE       JGCA   "
Data "    J  JOJ  JO       JEHD   "
Data "    BNFOGJLGOG        CC    "
Data "    HC JIJC JE        HD    "
Data "    J DNOJHLNN        JE    "
Data "    HONOMJONNM        JE    "
Data "    GBCOOF CKOE       JE    "
Data "    MNOOOMLLNOE       JE    "

**RCO** · 23.02.2005, 23:08

Jetzt sieht es gut aus!

Bild hier

MFG Moritz

**Trabukh** · 23.02.2005, 23:09

War das jetzt von meinem letzten Beitrag oder von der großen "Print-Liste"?

Gruß, Trabukh

**RCO** · 23.02.2005, 23:17

Sorry, der Post hier drüber bezog sich auf Trabukhs gedrehtes Bild.

Zum neuen Script!
Läuft wunderbar, nur 2 anmerkungen:
1. Hinter Print Chr(nummer) muss ein ";", sonst schreibt er alles untereinander
2. Ich würde ganz am Ende ein Leerzeichen frei lasen, damit das ganze nicht scrolt.

Ansonsten SUPER!

MFG Moritz

Thema: Ausgabe eines Textes auf TV

Themen-Optionen

Thema durchsuchen

Anzeige

Lesezeichen

Lesezeichen

Berechtigungen