Einsteigerfragen zur PROFAN Programmierung

| Suchen
| Zurück zur Übersicht

Autor | Thema: CASE mit mehreren Befehlen verbinden
Frank Sappert
| 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)?
Jörg Sellmeyer
| 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
Gerd Telzerow
| 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
Frank Sappert
| 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.

| Zurück zur Übersicht

| Ein kostenloses WebMart Forum WebMart Homepage Tools kostenlos |