Forum | | | | - page 1 - |
| 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 |
| | | | |
| | | | - page 4 - |
| | Stefan Landsberg | @dietmar super ensuite lad je mir den la fois vite runter.
@tony merci pour qui ermutigende la joie maligne
non scherz
@espace irgendwie hab je cela sentiment dass tony et je ici qui halbe community sur trab tenir je hoffe cela nimmt uns aucun übel! |
| | | | |
| | Penguin Tux | KompilierenMarqueSéparationdeclare pingstring$, ping$, ping%
Proc Ping
Parameters nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",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
WINDOWSTYLE 31
Window 200,200-500,180
Windowtitle "PiRePro by penguin"
TextColor RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"
TextColor 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"
if equ(ping%,1)
TextColor RGB(0,255,0),-1
DRAWTEXT 25,10,"Server Erreichbar"
else
TextColor RGB(255,0,0),-1
DRAWTEXT 25,10,"Server Nicht erreichbar"
endif
Hier Code für Fehlermeldung/Tipbox
Ping "192.168.0.1","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
TextColor RGB(0,255,0),-1
DRAWTEXT 25,40,"Client Erreichbar"
else
TextColor RGB(255,0,0),-1
DRAWTEXT 25,40,"Client Nicht erreichbar"
endif
Hier Code für Fehlermeldung/Tipbox
Ping "www.google.de","PINGTEST.TXT","PING.BAT"
if equ(ping%,1)
TextColor RGB(0,255,0),-1
DRAWTEXT 25,70,"Extern Erreichbar"
else
TextColor RGB(255,0,0),-1
DRAWTEXT 25,70,"Extern Nicht erreichbar"
endif
Hier Code für Fehlermeldung/Tipbox
Hier Code für Meldung des Erfolgs
TextColor RGB(0,0,0),-1
UseFont "CANDARA",15,10,1,0,0
DRAWTEXT 25,120,"Zum Beenden drücken Sie bitte eine beliebige Taste&quo à>
waitinput
Hab "Zum finissons drücken vous s'il te plaît une beliebige Taste" la fois quelque chose plus beau gestaltet.
je werde la fois plus pour ner Opportunités chercher à gauche trop mettons. |
| | | | |
| | Stefan Landsberg | so jetz ist qui schrift besser. frage: quoi soll eigentlich qui abfrage de 127.0.0.1 apporter. soweit je sais ist cela qui eigene pc et dadurch IMMER erreichbar.
je suis chez meinem programm steckengeblieben weil je pas sais wohin je weitermachen soll. je hab jetz den object creator et hab avec cela un la fenêtre gestaltet. mais quoi je avec dem code en faire soll sais je pas. je sais aussi pas comment je inhalte de textfeldern abfrage ou bien buttons funktionen zuordne. |
| | | | |
| | Penguin Tux | cet IP`sind aussi seulement Test-IP`s qui qui Fonctionnalité montrer devoir. je pourrait maintenant aussi qui IP des Servers qui une école reinschmeißen, cela brungt chez mir trop Hause oui rien.
Solange je pas sais si cela avec den à gauche allez, versuche je mich nochmal à nem la fenêtre.
si je cela la fenêtre fertig hab, hab je doch une Code den je meinen Voir le texte source insérer muss cela serait je am liebsten avec "if" faire, là sich cela la fenêtre oui seulement ouvrir soll, si z.B. "Server NIcht Erreichbar" ist.
quoi muss je pour écrivons?
Éditer: j'ai mir maintenant überlegt mir ROC un la fenêtre trop construire, welches sur qui Hilfedatei verlinkt, mais en supplément besoin je oui wieder qui Funktion zum Verlinken sur une *.doc fichier. Im Internet habe je aussi rien trouvé, maintenant coutume je wirklich la fois Aider *liebguck* |
| | | | |
| | Stefan Landsberg | déjà bien sûr, dass qui (interne) ip des schulservers jetz rien bringt. je dachte bloss du wolltest cela programm ensuite avec cette ips compilieren. mais si du vous auparavant änderst ist cela oui quoi d'autre
zum verlinken: je denke la fois cela allez am einfachsten sur une button. comment cela oui c'est ca allez versuche ih mais aussi rauszufinden.
et ne doc fichier serait je ensuite seulement prendre si sur allen pcs qui une école garantiert word sur elle ist. ne alternative wäre (simple) un la fenêtre trop faire et là den text einzufügen (quelque chose comme ähnliches comment ne messagebox). |
| | | | |
| | Penguin Tux | Guten demain Stefan,
Word bzw. OpenOffice ist sur allen Rechnern installiert, mais alles dans un Messagebox trop stecken, halte je letztendlich aussi pour sinnvoller.
j'écris alors alles dans un la fenêtre et schreibe comme Aktion pour den Button simple "waitinput", cela devrait oui ensuite cela la fenêtre schließen.
Éditer: il me faut nocheinmal Aider beim Einrichten de ROC. Am Anfang werde ihc pour dem Standartinterpreter et einigen anderen Einstellungen gefragt. maintenant sais je pas wohin Je l' Interpreter finde et quelle qui anderen Optionen je am besten wähle. |
| | | | |
| | Stefan Landsberg | so peux mans faire. et um deine frage trop qui si abfrage trop répondre, qui devrait meiner bescheidenen attitude pour KompilierenMarqueSéparation ou bien KompilierenMarqueSéparation lauten.
den interpreter findest du im installationsverzeichnis de (x)profan. wohin cela chez dir ist sais je pas. normalement im ordner Crogramme*ici qui nom des profan ordners* |
| | | | |
| | Penguin Tux | j'ai qui concept avec dem "if" ersteinmal chez page geschoben, weil es doch unnötig wäre. Solange je "if/else" habe peux je cela la fenêtre doch aussi encore trop "else" écrivons. si je maintenant Mist erzählt habe, suis je mich naturellement si mich quelqu'un verbessert.
Éditer: Den Interpreter habe je maintenant trouvé. veux je mais mon la fenêtre testen, bekomme je une Fehlermeldung (c'est encore qui Version de den Hilfedokumenten):
Bild: [...] |
| | | | |
| | Jörg Sellmeyer | Tja, sieht aus, comme si D u irgendwo un ENDPROC oublier qc la hâte. à Deiner Stelle serait je plutôt encore un un peu "zu Fuß" programmieren, et cela la fenêtre sans grafische Aider aufbauen. Dabei lernst Du plus, comme si Du cela Programme zusammenklickst. si Du es doch fais, sieh Dir den erzeugten Code oui c'est ca à. là peux Vous la quantité sur qui Strukturierung eines Programmes apprendre. Salut Jörg |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.07.2008 ▲ |
| |
| | Penguin Tux | cela ENDPROC fehlt dans einer Dossier, qui im Dossier de ROC liegt. et à qui habe je rien gemacht. alors muss à quelque chose anderem liegen. |
| | | | |
| | | @Tony: Fichiers (comment z.B. aussi Bilder) s'il te plaît ici hochladen, chez Drittanbietern c'est moi toujours unklar comment longtemps qui le contenu gehostet wird et dans quel la qualité. tu peux sur den Beitrageditor so viel hochladen comment Du vouloir, quoi aussi den Vorteil hat, dass Du une Downloadzähler angezeigt bekommst. |
| | | | |
| | Penguin Tux | je werde es mir merken |
| | | | |
|
répondreOptions du sujet | 24.232 Views |
Themeninformationencet Thema hat 9 participant: |