Autor | Thema: CASE mit mehreren Befehlen verbinden | | Datum:25.09.02 20:50 
(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)?
|
| | Datum:25.09.02 23:30 
(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
|
| | Datum:26.09.02 07:23 
(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
|
| | Datum: 26.09.02 20:54 
(frank.sappert@t-online.de) | |
Danke für die Antworten.
Ich habe die Textausgabe jetzt mit einer Textbox gelöst.
|
|
|