Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Font im Textmodus
Autor: p. specht (---.aon.at)
Datum:   12.01.18 16:42

Eigentlich nicht, ist aber dennoch eine tolle Idee, Wilfried!

Ich hatte etwas viel Einfacheres im Sinn: Bei langwierigen Berechnungen weiss man oft nicht, ob der PC abgestürzt ist oder brav vor sich hin arbeitet.

Daher diese Idee (die daran scheitert, dass %font nicht das bedeutet, was ich dachte):
 Windowtitle "Lebenszeichen-Demo":Windowstyle 24:Cls
 randomize:set("decimals",17):declare lol!
 
 font 2
 
 whileloop 100000000
 lol!=lol!+0.000000000001
 casenot &Loop mod 123456:print "  ";lol!
 
   case rnd()<0.00015:Lebenszeichen
   
 endwhile
 END
 
 
 proc Lebenszeichen : var S&=%Pos:var Z&=%csrlin
   var vorherigerfontstatus&=%font 'wär schön, klappt aber nicht.
   var c$=chr$(scrn(1,70)):locate 1,70:font 2
     case c$=chr$(6):print "\";:case c$="\":print "|";
     case c$="|":print "/";:case c$="/":print chr$(6);
     casenot instr(c$,chr$(6)+"\|/"):print chr$(6);
   locate z&,s&:font vorherigerfontstatus&
 endproc
 


____
Ein richtiges Problem hat keine Lösung, nur Näherungen!

Nachricht bearbeitet (12.01.18 16:44)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Font im Textmodus  Neu
p. specht 28.12.17 17:03 
 Re: Font im Textmodus  Neu
Michael Wodrich 30.12.17 00:22 
 Re: Font im Textmodus  Neu
Heinz Brill 30.12.17 07:20 
 Re: Font im Textmodus  Neu
p. specht 30.12.17 12:43 
 Re: Font im Textmodus  Neu
Wilfried Heyse2 11.01.18 12:00 
 Re: Font im Textmodus  Neu
p. specht 12.01.18 16:42 
 Re: Font im Textmodus  Neu
Jörg Greve 31.12.17 00:18 
 Re: Font im Textmodus  Neu
p. specht 31.12.17 19:59 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org