Forum | | | | Penguin Tux | Salut,
je voudrais mich ersteinmal présenter. mon nom ist Tony, je suis 15 Jahre vieux et besuche une Realschule dans Chemnitz. là je maintenant Sommerferien habe et je rien plus trop 1faire habe, habe je mir vorgenommen un kleines Netzwerkanalysetool trop écrivons. sur qui cherche pour einer einfachen Programmiersprache suis je sur XProfan gestoßen.
j'ai alles nötige gedownloaded et installiert, anschließen habe je pour einem Pingcode gesucht et habe cette:
declare pingstring$,ping$,ping%
********************************************************************
Proc Ping
Paramètres nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",pingdatei1$
Assign #6,pingdatei2$
Rewrite #6
Imprimer #6,pingstring$
Fermer #6
WinExecwait(pingdatei2$,0)
Assign #5,pingdatei2$
Effacer #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
input #3,ping$
ping$=mid$(ping$,1,11)
cas equ$(ping$,"Antwort von"):Ping%=1
WEND
CLOSE #3
Assign #1,pingdatei1$
Effacer #1
ENDPROC
********************************************************************
Beschreibung:
Es gibt zwar déjà une schnelle et belle Onlineabfrage über API,
mais malheureusement gibt qui Funktion seulement 1 pour Online zurück, si
on über un Standart DFÜ eingewählt est.
cet Procédure ist arrêt seulement quelque chose langsamer mais on peux sogar DSL
(alors - aucun DFÜ-liaison) ou bien cela vieille T-Online u.s.w abfragen!!
alles avec einem Stern umrandete ist important pour qui Abfrage
Rolf Koch - Rokosoftware - Koblenz 2002
BEISPIEL
WINDOWSTYLE 31
Fenêtre 200,200-300,80
Windowtitle "Onlinstatus-Prüfung sans Api"
Couleur du texte RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
ICI JETZT DER AUFRUF DER PROZEDUR:********************
PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
paramètre
1.) Webadresse - une toujours vorhandene comment www.nic.de
2.) Dateiname, dans quelle Pingergebnis geschrieben wird - wird wieder gelöscht!
3.) Dateiname, um Ping korrekt aufzurufen. - wird wieder gelöscht!
********************************************************
Couleur du texte RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10," "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
Couleur du texte RGB(0,0,255),-1
Ping "192.168.0.7","PINGTEST.TXT","PING.BAT"
si equ(ping%,1)
DRAWTEXT 25,10,"Erreichbar"
d'autre
DRAWTEXT 25,10,"Nicht erreichbar"
endif
waitinput
Diesen Code habe je mir pour meinen Bedürfnissen zurechtgeschnitten et il voit comment folgt aus. en supplément devrait je qui de mir ausgedachte Funktionsweise expliquer.
c'est geplant, dass je un Tool schreibe, welches possible simple une erste Aider pour Schüler et l'instituteur bietet. Bemerkt un User cela il keinen Internetzugang hat, führt il Tool aus, welches qui Reihe pour seulement den Server anpingt, ensuite une anderen Client im Netzwerk et ensuite encore une calculateur de außerhalb (z.B. Google). si es chez einer qui Schritte aucun Rückmeldung gibt, soll une annonce avec Tips zur Behebung sur dem Bildschrim erscheinen.
eh bien zum Code:
declare pingstring$,ping$,ping%
Proc Ping
Paramètres nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",pingdatei1$
Assign #6,pingdatei2$
Rewrite #6
Imprimer #6,pingstring$
Fermer #6
WinExecwait(pingdatei2$,0)
Assign #5,pingdatei2$
Effacer #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
input #3,ping$
ping$=mid$(ping$,1,11)
cas equ$(ping$,"Antwort von"):Ping%=1
WEND
CLOSE #3
Assign #1,pingdatei1$
Effacer #1
ENDPROC
WINDOWSTYLE 31
Fenêtre 200,200-500,80
Windowtitle "Onlinstatus-Prüfung sans Api"
Couleur du texte RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
Couleur du texte RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10," "
UseFont "CANDARA",25,20,1,0,0
Ping "127.0.0.1","PINGTEST.TXT","PING.BAT"
si equ(ping%,1)
Couleur du texte RGB(0,255,0),-1
DRAWTEXT 25,10,"Server Erreichbar"
d'autre
Couleur du texte RGB(255,0,0),-1
DRAWTEXT 25,10,"Server pas erreichbar"
endif
Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"
si equ(ping%,1)
Couleur du texte RGB(0,255,0),-1
DRAWTEXT 25,10,"Client Erreichbar"
d'autre
Couleur du texte RGB(255,0,0),-1
DRAWTEXT 25,10,"Client pas erreichbar"
endif
Ping "www.google.de","PINGTEST.TXT","PING.BAT"
si equ(ping%,1)
Couleur du texte RGB(0,255,0),-1
DRAWTEXT 25,10,"Google Erreichbar"
d'autre
Couleur du texte RGB(255,0,0),-1
DRAWTEXT 25,10,"Google pas erreichbar"
endif
waitinput
un Problem, welches sich zur Zeit auftut, ist qui Tatsache cela qui Fensterinhalt pas gelöcht wird. cela est cela "Server Erreichbar", "Client Erreichbar" et "Google Erreichbar" übereinander geschrieben volonté, alors brauche je une Possibilité den le contenu des Fensters pour chaque Schritt trop effacer. Dabei suis sur
gestoßen. Nutze je cet Possibilité avant bzw. pour "Server Erreichbar" wird "Server Erreichbar" gar pas angezeigt.
Pour une kleine Hilfestellung wäre je très reconnaissant.
merci Tony |
| | | | |
| | Sebastian Sprenger | allô et herzlich willkommen, Tony!
Eigentlich gibt es juste plusieurs Opportunités. Le meilleur wäre pour chaque DrawText une autre Position trop prendre, z.B. KompilierenMarqueSéparationAlternativ könntest du aussi
avant chaque Cls un WaitInput mettons ou bien qui Textes avec Imprimer écrivons. (avec cela ersparst du dir zwar, neue Koordinaten ausdenken/-le calcul trop doit, es mais aussi à qui Schriftart FixedSys/Courier attaché).
Salut, 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 | 20.07.2008 ▲ |
| |
| | Rolf Koch | il y a viele Opportunités. une schnelle ici: KompilierenMarqueSéparationdeclare 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 | merci pour qui schnellen répondre.
si je la première Possibilité verwende, serait es den Text doch seulement plus à droite écrivons, ou bien irre ichmich là?
avant "Cls" un "Waitinput" trop mettons klingt déjà besser, cela devrait appeler cela seulement une Eingabe gemacht volonté muss bevor quelque chose gelöscht wird.
Relatif à la "Print" hätte je, si es aucun Mühe pouvoir, gern nocheinmal quelque chose näher erklärt. alors cela avec den Schriften c'est moi déjà bien sûr.
qui zeite poste leuchtet mir là déjà plus un, je werde quelque chose experimentieren.
Éditer: qui möglichkeit de RoKo hat encore pas funktioniert, je werde la fois plus herumprobieren. |
| | | | |
| | Sebastian Sprenger | non, pas plus pour à droite, mais plus pour unten. chez DrawText musst du oui deux payons angegeben. la première steht pour qui X-Position (comment large à droite) et qui zweite pour qui Y-Position (comment large unten). si qui zweite numéro alors größer ist, wird qui Text aussi plus unten erscheinen. KompilierenMarqueSéparationqui Unterschied entre DrawText et Imprimer ist, dass es cet beiden payons chez Imprimer pas gibt. si du écrivons würdest: KompilierenMarqueSéparationprint "Server erreichbar"
print "Client erreichbar"
print "Google erreichbar"re> erscheinen cet trois Zeilen automatisch untereinander.
oui c'est ca, plus 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 | 20.07.2008 ▲ |
| |
| | Penguin Tux | Ahhh... KompilierenMarqueSéparation Funktioniert, es était seulement blöd de mir cela cela la fenêtre trop petite était , mais es commence oui chacun la fois petite à.
Ok, ensuite wäre mon erstes Problem gelöst et je suis mi cette Community très zufrieden.
je denke cela mon nächstes Problem pas longtemps sur sich attendre peut, alors s'il te plaît cette Fil encore pas schließen. |
| | | | |
| | Stefan Landsberg | Hi, irgendwie avons wir quoi gemeinsam. je suis 14, et habe aussi avant dans den Sommerferien un Programme trop écrivons dass quelques Ping abfragen im Netzwerk pouvoir et anzeigt si qui angepingte ip erreichbar ist.
mon Problem ist seulement dass je encore pas so richtig zum Programmieren gekommen suis et jusqu'à jetz seulement cela PDF Handbuch gelesen hab dass chez Profan² 6.6 dabei était.
trop deiner frage avec dem drawtext et imprimer. j'ai cela jusqu'à jetz so gelöst, dass je avant dem imprimer befehl simple locate geschrieben hab. avec cela peux on ensuite aussi un x et une y koordinate angeben.
si je ensuite Schonmal dabei suis stell je mich aussi juste avant (@penguin: je hoffe tu as nix dagegen si je dass dans deinem Fil fais *liebguck* )
je suis Stefan, 14 Jahre vieux et va sur dans Gymnasium im Kreis Gütersloh. |
| | | | |
| | | Schaut la fois son Beide [...] |
| | | | |
| | Penguin Tux | Nächstes Problem:
je muss qui Schriftgöße eines Textes changement qui de "DrawText" ausgegeben wurde. cela fais je doch sûrement sur Koordinaten, si oui sur quelle?
Gibt es peut-être une liste avec souvent genutzten Befehlen? je muss oui sonst toujours wieder ici posten et cela trägt sicherlich pas zur Übersichtlichkeit des Threads chez.
merci Tony
Edit: KompilierenMarqueSéparation |
| | | | |
| | Rolf Koch | Gib dans qui Profanhilfe simple la fois Drawtext comme cherche un. Votre Frage serait par Usefont geklärt. |
| | | | |
| | Stefan Landsberg | Salut,
je hab mich jetz la fois intensif avec cela beschäftigt et jusqu'à maintenant ist (seulement) dass ici raus gekommen: KompilierenMarqueSéparationdeclare 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$, | 20.07.2008 ▲ | |
| |
| | Paul Glatz | du musst ip$ + " - " + status$ écrivons |
| | | | |
|
répondreOptions du sujet | 23.629 Views |
Themeninformationencet Thema hat 9 participant: |