XProfan

Sebastian
Sprenger

Hallo und herzlich willkommen, Tony!

Eigentlich gibt es gleich mehrere Möglichkeiten. Die beste wäre für jedes DrawText eine andere Position zu nehmen, z.B.
Kompilieren Markieren Separieren

DrawText 25,40,"Server..."
DrawText 25,65,"Client..."
DrawText 25,90,"Google..."

Alternativ könntest du auch

vor jedem Cls ein WaitInput setzen oder

die Texte mit Print schreiben. (Damit ersparst du dir zwar, neue Koordinaten ausdenken/-rechnen zu müssen, bist aber auch an die Schriftart FixedSys/Courier gebunden).

Gruß, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Rolf
Koch

Es gibt viele Möglichkeiten. Eine schnelle hier:
Kompilieren Markieren Separieren

declare pingstring$,ping$,ping%
set("truecolor",1)

proc clearsection

    parameters xx.x&,yy.y&
    TextColor RGB(255,255,255),RGB(255,255,255)
    DRAWTEXT xx.x&,yy.y&,Space$(150)

endproc

CLS
ping%=1

if ping%=1

    TextColor RGB(0,255,0),-1
    DRAWTEXT 25,10,"Google Erreichbar"

else

    TextColor RGB(255,0,0),-1
    DRAWTEXT 25,10,"Google Nicht erreichbar"

endif

waitinput
clearsection 25,10 vorhandenen Bereich wieder überpinseln
waitinput

Penguin
Tux

Danke für die schnellen Antworten.

Wenn ich die erste Möglichkeit verwende, würde es den Text doch nur weiter rechts schreiben, oder irre ichmich da?

Vor "Cls" ein "Waitinput" zu setzen klingt schon besser, das müsste heißen das erst eine Eingabe gemacht werden muss bevor etwas gelöscht wird.

Das mit dem "Print" hätte ich, wenn es keine Mühe macht, gern nocheinmal etwas näher erklärt. Also das mit den Schriften ist mir schon klar.

Der zeite Post leuchtet mir da schon mehr ein, ich werde etwas experimentieren.

Edit: Die möglichkeit von RoKo hat noch nicht funktioniert, ich werde mal weiter herumprobieren.

OS: Win XP/Debian
XProfan 10

Sebastian
Sprenger

Nein, nicht weiter nach rechts, sondern weiter nach unten.
Bei DrawText musst du ja zwei Zahlen angegeben. Die erste steht für die X-Position (wie weit rechts) und die zweite für die Y-Position (wie weit unten). Wenn die zweite Zahl also größer ist, wird der Text auch weiter unten erscheinen.
Kompilieren Markieren Separieren

drawtext 25,40,"Server erreichbar"

Der Unterschied zwischen DrawText und Print ist, dass es diese beiden Zahlen bei Print nicht gibt. Wenn du schreiben würdest:
Kompilieren Markieren Separieren

print "Server erreichbar"
print "Client erreichbar"
print "Google erreichbar"

erscheinen diese drei Zeilen automatisch untereinander.

Genau, weiter rumprobieren hilft!

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

Penguin
Tux

Ahhh...
Kompilieren Markieren Separieren

drawtext 25,40,"Server erreichbar"

Funktioniert, es war nur blöd von mir das das Fenster zu klein war

, aber es fängt ja Jeder mal klein an.

Ok, dann wäre mein erstes Problem gelöst und ich bin mi dieser Community sehr zufrieden.

Ich denke das mein nächstes Problem nicht lange auf sich warten lässt, also bitte diesen Thread noch nicht schließen.

OS: Win XP/Debian
XProfan 10

Stefan
Landsberg

Hi,
irgendwie haben wir was gemeinsam.
Ich bin 14, und habe auch vor in den Sommerferien ein Programm zu schreiben dass einige Ping abfragen im Netzwerk macht und anzeigt ob die angepingte ip erreichbar ist.

Mein Problem ist nur dass ich noch nicht so richtig zum Programmieren gekommen bin und bis jetz nur das PDF Handbuch gelesen hab dass bei Profan² 6.6 dabei war.

zu deiner frage mit dem drawtext und print. ich habe das bis jetz so gelöst, dass ich vor dem print befehl einfach locate geschrieben hab. damit kann man dann auch ein x und eine y koordinate angeben.

Wenn ich dann schonmal dabei bin stell ich mich auch gleich vor (@penguin: ich hoffe du hast nix dagegen wenn ich dass in deinem Thread mache *liebguck* )

Ich bin Stefan, 14 Jahre alt und geh auf in Gymnasium im Kreis Gütersloh.

Schaut mal Ihr Beide [...]

Penguin
Tux

Nächstes Problem:

Ich muss die Schriftgöße eines Textes ändern der von "DrawText" ausgegeben wurde. Das mache ich doch sicher über Koordinaten, wenn ja über welche?

Gibt es vielleicht eine Liste mit oft genutzten Befehlen? Ich muss ja sonst immer wieder hier posten und das trägt sicherlich nicht zur Übersichtlichkeit des Threads bei.

Danke
Tony

Edit:
Kompilieren Markieren Separieren

UseFont "CANDARA",10,10,1,0,0

OS: Win XP/Debian
XProfan 10

Rolf
Koch

Gib in der Profanhilfe einfach mal Drawtext als Suche ein.
Deine Frage würde durch Usefont geklärt.

Stefan
Landsberg

Hallo,

ich hab mich jetz mal intensiv damit beschäftigt und bis jetzt ist (nur) dass hier raus gekommen:
Kompilieren Markieren Separieren

declare ping%,status$,ip$

Proc Ping

    declare pingdatei1$, pingdatei2$, pingstring$, ping$
    Parameters ip$
    let pingdatei1$="PINGTEST.TXT"
    let pingdatei2$="PING.BAT"
    let pingstring$="PING.EXE",ip$,">",pingdatei1$
    Assign #6,pingdatei2$
    Rewrite #6
    Print #6,pingstring$
    Close #6
    WinExecwait(pingdatei2$,0)
    Assign #5,pingdatei2$
    Erase #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

        input #3,ping$
        ping$=mid$(ping$,1,11)
        case equ$(ping$,"Antwort von"):Ping%=1

    WEND

    CLOSE #3
    Assign #1,pingdatei1$
    Erase #1

EndProc

********************************************************************
Beschreibung:
Es gibt zwar schon eine schnelle und schöne Onlineabfrage über API,
aber leider gibt die Funktion nur 1 für Online zurück, wenn
man über ein Standart DFÜ eingewählt ist.
Diese Prozedur ist halt nur etwas langsamer aber man kann sogar DSL
(also - keine DFÜ-Verbindung) oder das alte T-Online u.s.w abfragen!!
Vielen Dank für den (von mir veränderten) Quelltext der Prozedur:
Rolf Koch - Rokosoftware - Koblenz 2002
----------------------------------------------------------------------
HIER JETZT DER AUFRUF DER PROZEDUR:
PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
Parameter
1.) Webadresse - eine immer vorhandene wie www.nic.de
Wenn die Prozedur verwendet wird muss die Variable ping%
global deklariert werden. An diese Variable wird folgender Wert übergeben:
Erreichbarkeit der IP         ---        Wert
-------------------------------------------------------
Nicht Erreichbar                        0
Erreichbar                             1
********************************************************
let ip$=@input$("Welche IP soll überprüft werden?","IP abfrage","127.0.0.1")
ping ip$

if equ(ping%,1)

    let status$="Erreichbar"

else

    let status$="Nicht erreichbar"

endif

MessageBox(ip$"   -   "status$,Status,0640262144)

aber bei der letzten zeile kommen immer zwei warnungen:

NR. 1

Titel: Variable nicht declariert: IP$" - "STATUS$
Inhalt:
Zeile 75:
MessageBox(ip$" - "status$,Status,0640262144)

NR. 2

Titel: Keine Zahl: STATUS
Inhalt:
Zeile 75:
MessageBox(ip$" - "status$,Status,0640262144)

und in meiner Messagebox steht dann nur "IP$" - "STATUS$" (ohne die anführungsstriche).

wie mache ich es, dass in dem text der messagebox der inhalt der beiden variablen ausgegeben wird?

gruß stefan