-
@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
-
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
-
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
-
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
-
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
-
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);
-
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 "
-
Jetzt sieht es gut aus!
Bild hier
MFG Moritz
-
War das jetzt von meinem letzten Beitrag oder von der großen "Print-Liste"?
Gruß, Trabukh
-
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
