| |
| |
|
| - Página 1 - |
|
Stefan
Landsberg | ¡Hola,
irgendwie wurde me el alte Hilo aquí [...]  a unübersichtlich, y como pensamiento Que hago una neuen Hilo en.
(Wenn dass no gewünscht es Por favor, Soy un Admin una de beiden a löschen).
Worum gehts: Yo bin esta mein erstes Programa a programa. lo se una liste de ips anpingen y luego Mostrar si ellos erreichbar son oder eben no.
mein Programa es (salvo el Design) ya fast fertig.
En el momento sieht el Code así de: [...]
y aquí el Cuestión:
es una gute Concepto como Ausgabefeld una MultiEditBox a nehmen oder hay dafür besseres? Yo tener nichts gefunden!
mein problem es, dass el
no como absatz adecuado se pero sólo como schwarzer Kasten.
en el Ausgabefeld sino que debe una Liste ausgegeben wobei jede IP una propio Línea ha. |
|
| |
| |
| |
|
|
| |
| |
| - Página 2 - |
|
Stefan
Landsberg | also:
Yo tener jetz el exit%=1 rausgenommen y jetz funktioniert el schleife como Yo haben voluntad. (komisch. Yo hatte el exit%=1 vorher auch schonmal rausgenommen, y como kamn lauter fehler. naja aber jetz gehts)
el messages tener Yo tan bueno Yo el podría en el quelltext eingebunden.
aber jetz sieht el ausgabe irgendwie total komisch de.
ScrennShot el Ausgabebox en el Anhang.
aktueller code: [...] |
|
| |
| |
| |
|
|
 | Das voluntad Steuerzeichen como z.B. #13 y #13 ser, el kannst Usted "vorher" por z.B. translate $(s$,chr$(10),"") herauslöschen. Tal vez son auch todavía Tabs drin, probiere also auch Signo #9 a löschen. Lo debería aber tal vez hier ya reichen jede Línea antes el Hinzufügen en el untere Feld a trim$ en.
Schaue Usted auch setDialogFont y se sientan veces "MS Sans Serif",10,0,0,0,0 - sieht "Windowsmässiger" de. (nod) |
|
| |
| |
| |
|
|
Stefan
Landsberg | ok el schriftart tener Yo geändert.
aber translate$ y trim$ bewirken gar nichts.
aktueller Code: [...] |
|
| |
| |
| |
|
|
| ...porque falso angewandt...
Translate$ es una Función (Trim auch), d.h. ellos son una Valor zurück. Diesen Valor weist Usted sin embargo nirgends a, mejor:
KompilierenMarcaSeparación
Das @-Signo es ya seit muchos, muchos Profano²-Versionen de Sicht des Profano² sinnfrei, XProfan benötigt lo ya garnicht...  Usted necesidad also kein @ escribir, el se eh unbeachtet weggegessen... 
Si usted aber ya una @-Signo setzt, entonces Por favor, antes todos Características y no sólo veces hier y como.  |
|
| |
| |
| |
|
|
Stefan
Landsberg | oh sorry,
Yo tener a oberflächlich gelesen. deshalb me está garnicht aufgefallen, dass translate$ una funktion es.
jetz wos correcto angewandt se voluntad aber mi absätze gelöscht, y es otra vez unübersichtlich.
y irgendwie ha se auch hier todavía una kleiner fehler eingeschlichen (siehe screenshot)
Das @ tener Yo siempre dazugeschrieben porque Roland lo en el Ayuda a Profano 6.6 así muy empfielt. Aber como Características en XprofEd sí sowieso con Dunkelblau markiert voluntad kann Yo auch weglassen. (tener Yo entonces auch igual veces gemacht )
Un fast Offtopic Cuestión:
Was es eigenlicht en el Shareware Versionen Profano7 XProfan8 y XProfan9
eingeschränkt. Weil en denen es sí el Stringlänge no en 255 begrenzt y yo podría mi ursprüngliche lösung uso.
Editar: ups Yo tener media aktellen code vergessen. hier es él: [...] |
|
| |
| |
| |
|
|
| Hrm, a Offtopicfrage: ¿Por qué entwickelst No con el kostenlosen XProfan10-Libre? [...]
Usted könntest ewig así herumprogrammieren - con allen Features el el XProfan10-Libre a bieten ha.
Und si entonces irgendwann "fertig" bist Luego se se determinado alguien encontrar el Usted lo una Exe macht - si a dahin no sowieso ya XProfan 11 hast. 
BTT
Entweder bekommst Usted heraus wodurch el Fragmente forma, oder Usted belässt esta primero y entledigst Usted dieser algo später - z.B. entonces si la Línea el Usted hinzufügen möchtest getrimmt betrachtet kleiner como X Signo besitzt.
Como el Translate funktioniert kannst Usted ahora el Línea, welche ASCII 10 lejos, otra vez auskommentieren y schauen como el Ergebnis nun aussieht. |
|
| |
| |
| |
|
|
Stefan
Landsberg | | vielen Gracias para el Super hilfe a ahora. Yo fahre entonces jetz primero en urlaub (campen) y nachher guck Yo veces XProfan 10 free a. |
|
| |
| |
| |
|
|
Stefan
Landsberg | así después de que de el Fiesta zurück bin, tener Yo primero mein Windows neu aufgesetzt, oder bin mejor dijo todavía voll esta.
Wenn Yo así fertig bin, qué hoffentlich morgen oder übermorgen el Fall ser se, kann Yo mich entonces otra vez el (XProfan) aprender widmen.
Como wir aquí en NRW aber ya Morgen otra vez a Schule necesario, Yo por desgracia, no soviel Tiempo euch con Fragen a überschütten. 
Yo hoffe el se niemandem fehlen   |
|
| |
| |
| |
|
|
Stefan
Landsberg | así. el programm es ya fast fertig.
Yo sólo todavía una problem:
si yo mehrere muy unterschiedlich largo strings eingebe son el ergebnisse no así schön angeordnet pero como en el bild en el anhang.
como krieg ego hin dass lo como sólo zwei ordentliche spalten son?
Yo tener intenta una prozedur a escribir el a kurze strings en 12 zeichen verlängert. aber el ha no correcto geklappt:
KompilierenMarcaSeparaciónString verlängern
Proc extend
parameters var$, length%
while len(var$)<length%
var$=var$+" "
endwhile
endproc
Testprogramm
declare text$,text1$,text2$,textg$,edit%
windowstyle 27
windowtitle "test"
window 50,50,600,600
edit%=create("multiedit",%hWnd,"",60,60,500,200)
text$="hallo"
text1$=text$+" - welt
"
extend text$,12
text2$=text$+" - welt"
textg$=text1$+text2$
settext edit%,textg$
waitkey
así sieht el programm a zeit de:
KompilierenMarcaSeparaciónDeclarar-Teil:
declarar ping%, btn%, ipinput%, ipoutput%, exit%, ipline%, ip$, curline%
declarar outgesamt$, outtxt$, statusbar%, texto1%, texto2%
Proc-Teil:
Proc Ping
declarar pingdatei1$, pingdatei2$, pingstring$, ping$
Parámetros ip$
let pingdatei1$="PINGTEST.TXT"
let pingdatei2$="PING.BAT"
let pingstring$="PING.EXE -n 1",ip$,">",pingdatei1$
Asignar #6,pingdatei2$
Rewrite #6
Imprimir #6,pingstring$
Cerrar #6
WinExecwait(pingdatei2$,0)
Asignar #5,pingdatei2$
Borrar #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
input #3,ping$
ping$=mid$(ping$,1,11)
caso equ$(ping$,"Antwort von"):Ping%=1
WEND
CLOSE #3
Asignar #1,pingdatei1$
Borrar #1
ENDPROC
Def-Teil:
DEF GetSysColor(1) !"User32","GetSysColor"
Ventana redactar:
Ventana de Estilo 571
Título de la ventana "IP Checker"
Ventana 50,50 - 600,600
CLS GetSysColor(15)
Usefont "MS Sans Serif",15,0,0,0,0
setdialogfont 1
Fensterelemente gestalten
ipinput%=Crear("MultiEdit",%HWnd,"",10,50,570,-200)
btn%=Crear("Button",%HWnd,"Überprüfen",250,260,100,30)
ipoutput%=Crear("MultiEdit",%HWnd,"",10,320,570,-200)
statusbar%=create("statuswindow",%hWnd,"Bitte geben ellos el IPs una el überprüft voluntad debería.")
Infotexte eingeben
text1%=create("text",%hWnd,"Geben ellos hier Por favor, el IPs por Absätze getrennt una:",50,25,400,20)
text2%=create("text",%hWnd,"Hier son el Ergebnisse:",50,295,200,20)
Sinestar encargado exit%
waitinput
caso %key=2 : romper
If clicked(btn%)
clear outgesamt$
settext ipoutput%,""
ipline%=GetLineCount(ipinput%)
curline%=0
settext statusbar%,"Verbleibend: "+str$(ipline%)
Mientras que ipline%
ip$=GetLine$(ipinput%,curline%)
ping ip$
If ping%=1
outtxt$=ip$+" - Erreichbar
"
más
outtxt$=ip$+" - Nicht Erreichbar
"
EndIf
outgesamt$=outgesamt$+outtxt$
settext ipoutput%,outgesamt$
inc curline%
dec ipline%
settext statusbar%,"Verbleibend: "+str$(ipline%)
EndWhile
settext statusbar%,"Vorgang abgeschlossen"
settext ipinput%,"Vorgang abgeschlossen"
EndIf
EndWhile
|
 |
| |
| |
| |
|
|
Manfred
Barei | ¡Hola Stefan,
Usted puede dir hier el Versión 7.6a de Profano herunterladen, es ahora Freeware. [...]
Saludo
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 16.08.2008 ▲ |
|
| |
|
|
| Einen String en una Minimallänge bringen sin Bucle va por len y mkstr$
KompilierenMarcaSeparación
Tip 1: Vermeide interpretierte Schleifen si posible bajo Zuhilfenahme nativer Características para mehr Performance. |
|
| |
| |
| |
|
| |
| |
| - Página 3 - |
|
|
Thomas
Freier | | oder ipoutput% como Listbox con Tab oder como Listbox (Listview). El Beispiele hier suchen oder en Gerhard Putschalka . Lauffähig de Profano 6.6 . |
|
| |
| |
| |
|
(280)
Deutsch
English
Français
Español
Italia
