Druckbare Version
Freut mich! Das mit dem Scrollen ist allerdings etwas unglücklich, schließlich könnte man ja auch mal ein Bild nehmen wollen, das bis in die letzte Ecke geht, das wäre dann ja praktisch gar nicht möglich!
@JanB: Kann man das Scrollen irgendwie unterdrücken?
Gruß, Trabukh
Moin Freunde,
Unterdrücken nicht.Zitat:
Kann man das Scrollen irgendwie unterdrücken?
aber verhindern.
Beispiel unten im Code.
Da wird nur das letzte Zeichen unterdrückt.
Alternativ könnte ich Ctrl-Codes
für Cursor-An Cursor-Aus in das
Video-Terminal-Programm einbauen.
Wenn diese Funktion oft gebraucht wird.
Gruß Jan
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
Dim Zpz as Byte '<---hier
Restore Daten
Zpz=28 '<---hier
For Reihe = 1 To 24
Read Zeile
if reihe=24 then Zpz=27 '<---hier
For Spalte = 1 To Zpz '<---hier
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 "
@ Trabukh, könnte man das Porgramm nicht noch optimieren?
- Wenn mehr als 2 Leerzeichen folgen, dann wird es durch eine Goto X-Anweisung ersetzt.
- Wenn mehr als ein Leerzeichen am Ende einer Zeile folgt, dann werden sie durch einen Zeilenumbruch chr(10) ersetzt.
- Leere Zeilen ganz raus chr(10)
MFG Moritz
Klar, werd' ich heut' Nachmittag tun...
Gruß, Trabukh
P.S.
Könntest du vllt mal das gesamt Bild posten, also nach dem neuesten Quelltext?
EDIT: @JanB: Schade, dass das letzte Zeichen nicht mit draufgeht. Falls jemand eine rechteckige Karte machen möchte, geht das so wohl nicht. Flags für den Cursor wären super!
Jepp, aber erst heute Nachmittag.Zitat:
Könntest du vllt mal das gesamt Bild posten, also nach dem neuesten Quelltext?
MFG Moritz
Hallo,
interessant wäre auch, es anders zu machen
als mit "ABCD.." usw.
Wenn man andere Zeichen oder so hätte,
dann könte man schön einfach Text und Grafik
mischen. Dann würde man die Buchstaben
einfach als Buchstaben drin lassen.
Was für Zeichen könnte man da nehmen ?
Wir bräuchten 15 Stück.
MIt dem Scrollen beim letzten Zeichen,
da überlege ich mir was.
Gruß Jan
Tja, das düfte etwas kompliziert werden, wenn man "reguläre" Zeichen nehmen will, also das, was auf der Tastatur da ist.
Man könnte natürlich mal schaun, was chr(x) noch alles ausspuckt, aber dann wirds bei der Bilderstellung natürlich ein andauerndes "Copy and Paste" . Wenn man natürlich das ganze eh mit nem Programm macht, dann gehts ja. brächten wir nur ein schönes "Grafikprogramm".
MFG Moritz
hallo, in bascom gibt es ein tool wo mit man die zeichen für ein lcd-display erstellen kann.
mfg pebisoft
Ich dachte eher an sowas, wie Trabukh das scheinbar gemacht hat. Also ein Zeichengerät und so, quasi Paint für Arme.Zitat:
hallo, in bascom gibt es ein tool wo mit man die zeichen für ein lcd-display erstellen kann.
Vielleicht auch eine Funktion zum importieren von Bitmaps oder so, ich weiß allerdings nicht wie kompliziert das ist.
Das Programm sollte nach Möglichkiet ein Datenfeld zu erzeugen und vielleicht noch direkt auszugeben (RS232).
Da ich das jetzt noch nicht kann, eher Wunschdenken.
MFG Moritz
Also ich weiß jetzt, welche Zeichen du alles nehmen könntest:
Sind sogar 30!
Et un peu Francais:
ÁáÂâÀà
ÉéÊêÈè
ÍíÎîÌì
ÓóÔôÒò
ÚúÛûÙù
Weiß allerdings nicht, genau den Code, aber den kriegt man ja hier raus:
http://www.wintotal.de/softw/index.php?rb=26&id=1506
Hoffe, da kommt was hintereinander, damit man so ne einfache Berechnung wie -48 machen kann.
MFG Moritz