| |
| |
|
p.specht
 | comme eingeschworener Fan de PRINT et GOTO hat on es heutzutage pas léger: cela soziale Standing ist dahin! Tabellenausgaben pour kaufmännnische Zwecke laisser sich mais avec Font 1 & Co toujours am schnellsten erzeugen. Time kills, quelquefois.
Pour Tabellen sollte on ensuite mais wenigstens vernünftige Rahmensymbole verwenden. Anbei qui de XProfan 11 angebotenen marque comme halbwegs verständliche Kürzel. lo$ ... à gauche dessus, qu$ ... quer unten, etc.
cls
declare lo$,ro$,lu$,ru$,hz$,vt$,qu$,qo$,vr$,vl$,kz$,bk$,bk2$
declare lo2$,ro2$,lu2$,ru2$,hz2$,vt2$,qu2$,qo2$,vr2$,vl2$,kz2$
lo$=chr$(218):ro$=chr$(191):lu$=chr$(192):ru$=chr$(217):hz$=chr$(196):vt$=chr$(179)
qu$=chr$(194):qo$=chr$(193):vr$=chr$(195):vl$=chr$(180):kz$=chr$(197):bk$=chr$(32)
lo2$=chr$(201):ro2$=chr$(187):lu2$=chr$(200):ru2$=chr$(188):hz2$=chr$(205):vt2$=chr$(186)
qu2$=chr$(203):qo2$=chr$(202):vr2$=chr$(204):vl2$=chr$(185):kz2$=chr$(206):bk2$=chr$(32)
font 1:imprimer
imprimer lo$; hz$;hz$; qu$; hz$;ro$
imprimer vt$; "a";"b"; vt$; "c";vt$
imprimer vr$; hz$;hz$; kz$; hz$;vl$
imprimer vt$; "d";"e"; vt$; "f";vt$
imprimer vt$; "g";"h"; vt$; "i";vt$
imprimer lu$; hz$;hz$; qo$; hz$;ru$
font 1:imprimer
imprimer lo2$;hz2$;hz2$;qu2$;hz2$;ro2$
imprimer vt2$;bk2$;bk2$;vt2$;bk2$;vt2$
imprimer vr2$;hz2$;hz2$;kz2$;hz2$;vl2$
imprimer vt2$;bk2$;bk2$;vt2$;bk2$;vt2$
imprimer vt2$;bk2$;bk2$;vt2$;bk2$;vt2$
imprimer lu2$;hz2$;hz2$;qo2$;hz2$;ru2$
font 1:imprimer
imprimer lo$; hz$;hz$; qu$; hz$;hz$; ro$
imprimer vt$; "a";"b"; vt$; "c";"c"; vt$
imprimer vt$; "a";"b"; vt$; "c";"c"; vt$
imprimer vr$; hz$;hz$; kz$; hz$;hz$; vl$
imprimer vt$; "d";"e"; vt$; "f";"c"; vt$
imprimer vt$; "g";"h"; vt$; "i";"c"; vt$
imprimer lu$; hz$;hz$; qo$; hz$;hz$; ru$
font 1:imprimer
imprimer lo$; hz$;hz$; qu$; hz$;hz$; ro$
imprimer vt$; "/";"\"; vt$; "c";"c"; vt$
imprimer vt$; "\";"/"; vt$; "c";"c"; vt$
imprimer vr$; hz$;hz$; kz$; hz$;hz$; vl$
imprimer vt$; "d";"e"; vt$; "f";"c"; vt$
imprimer vt$; "g";"h"; vt$; "i";"c"; vt$
imprimer lu$; hz$;hz$; qo$; hz$;hz$; ru$
WaitInput
FIN
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 05.12.2020 ▲ |
|
| |
|
|
 | chez "mir" wirds pas richtig angezeigt, stimmts? 
 |
|
| |
| |
| |
|
|
E.T. | je denke, so solls son 
@IF: je vois {$ Cleq}, verhaut là XPSE irgendetwas ??
   |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 06.12.2020 ▲ |
|
| |
|
|
p.specht
| Font 1 sollte den Zeichensatz korrekt commuter.
chez mir sah es toujours comment chez Mario/E.T. aus. Allerdings suis je inzwischen draufgekommen, qui je cela avant längerem Schonmal posté hatte - Sorry! |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 06.12.2020 ▲ |
|
| |
|
|
| |
| |
| |
| |
|
|
p.specht
| ensuite zeig mir doch s'il te plaît, comment du binnen 5 Minuten une ausdruckbare Tabelle avec 60 Seiten hinbekommst, velours Raster. 
P.S.: je weiss déjà, si cela qui schafft, ensuite du! |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 06.12.2020 ▲ |
|
| |
|
|
p.specht
| ASCII ist pas tot (et ELVIS wurde dernièrement chez einer station-service gesichtet) !
ici la fois zum gesamten ASCII-Zeichensatz et den trois ANSI-Varianten de XProfan-11 free:
Titre de la fenêtre " Textmodus-Zeichensätze (ASCII) comparer < Weiter avec Tastedruck, finissons avec ESC >"
window 1000,480
declare n&,i&
repeat
WHILELOOP 0,2:n&=&LOOP
Font n&
cls:locate 2,56:imprimer "FONT "+str$(n&)
leiste
WhileLoop 0,255:i&=&loop
locate 1+2*int(i&/32)+6,1+(i& mod 32)*3+10
casenot i&=7:imprimer Chr$(i&);' Nerviges marque "BELL" abstellen
endwhile
waitinput 30000
cas %clé=27:end
ENDWHILE
' xprint(n&):waitinput
hexprint(0)
waitinput 10000
until %clé=27
end
proc leiste
locate 4,8
Imprimer "+ 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 "
locate 5,8
Imprimer "--------------------------------------------------------------------------------------------------"
whileloop 0,7
locate 7+2*&Boucle,2
imprimer int(&Boucle*32);tab(6);"+"
endwhile
endproc
proc xprint :parameters m&
declare k&,k$
cls
font m&
locate 2,25:Imprimer "Auch ASCII-ESCAPE-Sequenzen \\xFF unterliegen dem aktuellen Font!"
leiste
k$=\
"\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x0C\x0D\x0E\x0F"+\
"\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F"+\
"\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2A\x2B\x2C\x2D\x2E\x2F"+\
"\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3A\x3B\x3C\x3D\x3E\x3F"+\
"\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4A\x4B\x4C\x4D\x4E\x4F"+\
"\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5A\x5B\x5C\x5D\x5E\x5F"+\
"\x60\x61\x62\x63\x64\x65\x66\x67\x68\x69\x6A\x6B\x6C\x6D\x6E\x6F"+\
"\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7A\x7B\x7C\x7D\x7E\x7F"+\
"\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8A\x8B\x8C\x8D\x8E\x8F"+\
"\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9A\x9B\x9C\x9D\x9E\x9F"+\
"\xA0\xA1\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xAA\xAB\xAC\xAD\xAE\xAF"+\
"\xB0\xB1\xB2\xB3\xB4\xB5\xB6\xB7\xB8\xB9\xBA\xBB\xBC\xBD\xBE\xBF"+\
"\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF"+\
"\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF"+\
"\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF"+\
"\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF"
WhileLoop 1,256:i&=&loop
locate 2*(i&-1)/32+1+6,1+((i&-1) mod 32)*3+10
imprimer mid$(k$,i&,1);
endwhile
endproc
proc hexprint :parameters m&
declare k&,k$
cls
font m&
locate 2,45:Imprimer " comme ESCAPE-Sequenz \\x0F "
leiste
WhileLoop 0,255:i&=&loop
locate 2*int(i&/32)+1+6,1+(i& mod 32)*3+9
imprimer right$("0"+hex$(i&),2);
endwhile
endproc
|
|
| |
| Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 06.12.2020 ▲ |
|
| |
|
|
| @Peter: je crois ici liegt un Missverständnis avant!
(ou bien je übersehe la fois wieder quelque chose ^ ^)
quoi je meinte avec "Ist oui fuchtbar, ensuite bleibe je lieber chez "meiner" variante.", bezog sich sur cela chez mir (xubuntu/xfce) generierte Bild:
im comparaison zum richtigen "Produkt" de E.T.:
cependant gemeint mais comme Witz pour dem je qui Hieroglyphen (angeblich) besser trouver serait (comme qui korrekte Ausgabe).
Bien sûr finde je es tant pis, dass ici chez mir (xubuntu/xfce) qui Ausgabe pas passt.
quoi qui "ausdruckbare Tabelle avec 60 Seiten" betrifft, so vois je là sur jeden le cas durchaus quelques Opportunités.
Wahrscheinlich pas toujours trop 100% dans "5 Minuten" machbar ist, mais:
So wäre es beispielsweise "egal", dans Deinem Voir le texte source qui chr$-marque par (naturellement je pour dem) z.B. "</td><td>" trop ersetzen et qui Prints plan dans un Dossier (tabelle.html) trop leiten statt sur den Screen.
qui tabelle.html wiederum peux sogar pour belieben et très simple angesehen/ gedruckt/ dans un PDF geschrieben volonté et automatisch ausgedruckt volonté per Kommandozeilenaufruf des "Lieblingsbrowsers".
une nativere Solution wäre z.B. aussi cela Herumspielen avec dem CR/ Druckerwagen-Rücklauf/ Chr(13) et Überdrucken avec marque comment ... ___ ||| ***, Alors, comment on avec Schreibmaschine arbeitet pour Hervorhebungen.
Letzteres wende je chez Bondruckern so à, ca chez den aiguille- et Thermodruckern so funktioniert.
Roland Screen- Imprimer- funktioniert imho pas richtig hinsichtlich CR, insofern imprimer "Hallo monde\r_____" unterstrichenes (ou bien gelöschtes) "Hallo" montrer pourrait.
ici sur xubuntu/xfce klappt (chez o.g. Beispiel) "FixedSys" pas. (vlt. demie so wild) |
|
| |
| |
| |
|
|
p.specht
| | s'il te plaît quoi ist xubuntu/xfce ? Klingt intéressant! |
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 11.04.2021 ▲ |
|
| |
|
(1.099)
Deutsch
English
Français
Español
Italia
