Einsteigerfragen zur PROFAN Programmierung
  Suchen
 Zurück zur Übersicht
 AutorThema: CASE mit mehreren Befehlen verbinden
Frank Sappert
Datum:25.09.02 20:50 Antwortenals Email verschicken (frank.sappert@t-online.de) 


Hallo,
ich habe in der PROFAN-Hilfe gelesen, dass man mit CASE mehrere Befehle verbinden kann, konnte aber leider nichts nähres finden.

Aufgabenstellung wäre:
CASE "soundso": DrawText"Tralala" UND gehe anschließend in Unterprogramm XYZ.

Eine zweite Frage: Wie kann ich einen Text (mit DrawText auf den Bildschirm gebracht) und zwar nur diesen löschen außer mit CLS?
Oder alternativ: Wie kann ich einen mit PRINT auf den Bildschirm in Location X,Y gebrachtne Text löschen (am besten die ganze Zeile), bevor ich einen alternativen Text auf die selbe Stelle bringe (ist nötig, wenn der 2. Text kürzer als der 1. Text ist)?


Jörg Sellmeyer
Datum:25.09.02 23:30 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Frank,
Ich glaube nicht, dass Du das in der profanhilfe gelesen hast.
Dafür gibt es IF.

If Wert%=1
print Wert%
Messagebox("So geht's !","Aha",0)
IrgeneineProzedur
Endif

Für die anderen Fragen schau Dir mal die Befehle Rectangle und UseBrush an.
Gruß
Jörg


Gerd Telzerow
Datum:26.09.02 07:23 Antwortenals Email verschicken (GTelzerow@T-Online.de) 


Hallo Frank,

es geht auch mit Print und Drawtext selber.

Ich weis aber nicht was für Profan-Version du benutzt,
da es die Funktion @Space$ erst ab 6.0 gibt, Alternativ bitte die Funktion @MkStr$(S,N) benutzen.

Declare Text1$,Text2$,Text3$,Text4$
Let Text1$="Ich Teste, DrawText"
Let Text2$="Ich Teste, Print"
Let Text3$="DrawText"
Let Text4$="Print"

Locate 2,5
Print Text2$

DrawText 35,50,Text1$
Waitinput

Locate 2,5
Print @Space$(@Len(Text2$))

DrawText 35,50,@Space$(@Mul(@Len(Text2$),2))

Waitinput

Locate 2,5
Print Text3$

DrawText 35,50,Text4$
Waitinput

End

Mfg
Gerd


Frank Sappert
Datum: 26.09.02 20:54 Antwortenals Email verschicken (frank.sappert@t-online.de) 


Danke für die Antworten.
Ich habe die Textausgabe jetzt mit einer Textbox gelöst.


 Zurück zur Übersicht
 

 Ein kostenloses WebMart Forum
WebMart Homepage Tools kostenlos
eBay