| |
| |
|
| - Page 1 - |
|
Stefan
Landsberg | Hi,
somehow watts me the old boy Thread here [...]  To unübersichtlich, and there I thought mach a new Thread on.
(If that not desired is Please I a Admin a of both To delete).
what GEHTS: i'm thereby my erstes Program to program. it should a list of ips anpingen and then Show whether tappt im dunkeln accessible are or even not.
my Program is (except for the solid) already almost ready.
Currently sees the code so from: [...]
and here The question:
is it a good idea as Ausgabefeld a MultiEditBox To take or there for better? I Have nothing found!
my trouble is, that the
not as distribution displayed becomes separate only as schwarzer case.
in the Ausgabefeld but should one list outputted where each IP a Own row has. |
|
| |
| |
| |
|
|
| |
| |
| - Page 2 - |
|
Stefan
Landsberg | means:
I Have jetz the exit%=1 rausgenommen and jetz functions The schleife so How I it having wants. (comic. I had the exit%=1 before too Schonmal rausgenommen, and there kamn lauter Error. naja but jetz GEHTS)
The messages Have I so well I the could into quelltext eingebunden.
but jetz sees the edition somehow utterly comic from.
ScrennShot the Ausgabebox in the attachment.
current code: [...] |
|
| |
| |
| |
|
|
 | the go Steuerzeichen How z.B. #13 and #13 his, The can You "vorher" by z.B. translate $(s$,chr$(10),"") herauslöschen. Perhaps are too yet Tabs drin, Try means too characters #9 To delete. it ought to but Perhaps here already wealthy each row to the add into downstairs area To trim$ en.
Look you too setDialogFont and set time "MS Sans Serif",10,0,0,0,0 - sees "Windowsmässiger" from. (nod) |
|
| |
| |
| |
|
|
Stefan
Landsberg | ok The type Have I changed.
but translate$ and trim$ effect quite nothing.
current code: [...] |
|
| |
| |
| |
|
|
| ...because wrong apply...
Translate$ is a function (Trim too), d.h. them give a worth back. Diesen worth points You however nirgends To, rather:
CompileMarkSeparation
the @-characters is already since many many Profan²-versions from visibility the Profan² sinnfrei, XProfan needed it already not at all...  You need means no @ write, is eh unregarded weggegessen... 
If you but already one @-characters setting, then Please to any functions and not only time here and there.  |
|
| |
| |
| |
|
|
Stefan
Landsberg | oh sorry,
I Have To cursorily red. therefore is me not at all noticed, that translate$ a function is.
jetz wos correctly. apply becomes go but my absätze deleted, and its again unübersichtlich.
and somehow has here another small Error eingeschlichen (see screenshot)
the @ Have I always dazugeschrieben because Roland it in the Help Profan 6.6 so very empfielt. but there functions in XprofEd Yes anyhow with Dunkelblau markiert go can I it too omit. (Have I then too same time made )
an almost Offtopic question:
What is eigenlicht with whom shareware versions Profan7 XProfan8 and XProfan9
limited. because with them is Yes The String-Length not 255 terminable what about me could my ursprüngliche Solution use.
Edit: ups I Have my aktellen code forget. here's it: [...] |
|
| |
| |
| |
|
|
| Hrm, to Offtopicfrage: Why entwickelst You do not with the free XProfan10-Free? [...]
You could forever so herumprogrammieren - with all Features The the XProfan10-Free To afford has.
And if You then sometime "fertig" are then will certainly someone find the you from it a Exe power - if you by then not anyhow already XProfan 11 have. 
BTT
either get You out by which the Fragmente form, or You belässt these first of all and entledigst you this something later - z.B. then if The row The You add want getrimmt viewing small as X characters own.
there the Translate functions can You now The row, which ASCII 10 removes, again comment and look How the Result now looks. |
|
| |
| |
| |
|
|
Stefan
Landsberg | | many thanks for super Help yet. I drive then jetz first in leave (campen) and hereafter guck I me time XProfan 10 free on. |
|
| |
| |
| |
|
|
Stefan
Landsberg | so after I from the leave back be, Have I first my windows new aufgesetzt, or be rather said yet fully thereby.
If I so ready be, what hopefully tommorrow or übermorgen the case his becomes, can I me then again the (XProfan) learn consecrate.
there we here in NRW but already tommorrow again to school must, have I unfortunately not so much Time you with ask To überschütten. 
I hope is niemandem are missing   |
|
| |
| |
| |
|
|
Stefan
Landsberg | so. the Program is already almost ready.
I have only another trouble:
if I several very different long strings eingebe are The ergebnisse not so beautiful squared separate so How on the presentment in the attachment.
How war ichs there that it there only two tidy decompose gives?
I Have attempts a procedure To write The To short strings on 12 characters continues. but the do not have correctly. worked:
CompileMarkSeparationString 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
so sees the Program currently from:
CompileMarkSeparationDeclare-part:
declare ping%, btn%, ipinput%, ipoutput%, exit%, ipline%, ip$, curline%
declare outgesamt$, outtxt$, statusbar%, Text1%, Text2%
Proc-part:
Proc Ping
declare pingdatei1$, pingdatei2$, pingstring$, ping$
Parameters ip$
let pingdatei1$="PINGTEST.TXT"
let pingdatei2$="PING.BAT"
let pingstring$="PING.EXE -n 1",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
Def-part:
DEF GetSysColor(1) !"User32","GetSysColor"
Window create:
Window Style 571
Window Title "IP Checker"
Window 50,50 - 600,600
CLS GetSysColor(15)
Usefont "MS Sans Serif",15,0,0,0,0
setdialogfont 1
Fensterelemente style
ipinput%=Create("MultiEdit",%HWnd,"",10,50,570,-200)
btn%=Create("Button",%HWnd,"Überprüfen",250,260,100,30)
ipoutput%=Create("MultiEdit",%HWnd,"",10,320,570,-200)
statusbar%=create("statuswindow",%hWnd,"Bitte give tappt im dunkeln The IPs one The screen go should.")
Info texts prompt
text1%=create("text",%hWnd,"Geben tappt im dunkeln here Please The IPs through Absätze separated one:",50,25,400,20)
text2%=create("text",%hWnd,"Hier are The Results:",50,295,200,20)
WhileNot exit%
waitinput
case %key=2 : break
If clicked(btn%)
clear outgesamt$
settext ipoutput%,""
ipline%=GetLineCount(ipinput%)
curline%=0
settext statusbar%,"Verbleibend: "+st$(ipline%)
While ipline%
ip$=GetLine$(ipinput%,curline%)
ping ip$
If ping%=1
outtxt$=ip$+" - Erreichbar
"
else
outtxt$=ip$+" - Nicht Accessible
"
EndIf
outgesamt$=outgesamt$+outtxt$
settext ipoutput%,outgesamt$
inc curline%
dec ipline%
settext statusbar%,"Verbleibend: "+st$(ipline%)
EndWhile
settext statusbar%,"Vorgang abgeschlossen"
settext ipinput%,"Vorgang abgeschlossen"
EndIf
EndWhile
|
 |
| |
| |
| |
|
|
Manfred
Barei | Hello Stefan,
You can you here The Version 7.6a of Profan herunterladen, is Now Freeware. [...]
Greeting
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 | | 08/16/08 ▲ |
|
| |
|
|
| a String on a Minimallänge bring without Loop goes by len and mkstr$
CompileMarkSeparation
hint 1: avoid interpretierte creep if possible under Zuhilfenahme nativer functions for More performance. |
|
| |
| |
| |
|
| |
| |
| - Page 3 - |
|
|
Thomas
Freier | | or ipoutput% as Listbox with tab or as Listbox (List view). The Examples here search or with Gerhard Putschalka . executable ex Profan 6.6 . |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 08/17/08 ▲ |
|
| |
|
(289)
Deutsch
English
Français
Español
Italia
