SDK-aide/ Tools | | | | | | - Page 1 - |
| 
RudiB. | Download
Error find...variables automatically in the program rename...to Types and types Filtern....in which Line and which Proc declared......which Systemvars go used ......what about me Have there yet some ideas, The I yet install would like.
I bastle straight in a Tool circa a better Overview the variables in a Program To get....
is so far How supra described run.....be still in the Testphase circa Error To detect (The certainly yet come along go....be self one Chaosprogrammierer and habs really only for a proposition of me written)
Update To VAR-FINDER
so...... i think The first Trial is ready what about me place tappt im dunkeln here as EXE to that testing one.
Have the whole a little bit adjusted, on Optischen Schnick-Schnack waived what about me think the Tool becomes walk....tuts at least by me.
if your it testing Please I you circa Feedback, be it review,chide, auftretende Error or Verbesserungs-Proposals.
small Statement to that Program under Help....
otherwise is it almost selbsterklärend.
almost forget...recognize too Inaktive variables, The of course Deklariert get but in the program not uses go....and twice declared variables recognize it too......
Greeting Rudi
so....now once more one Update of my small Tools.
Have me with Thanks The Konstruktive review and suggestions of Roland and E.T. To hearts taken and attempts it a little bit rather To make. i think go yet Error drin stick....however hope I on Feedback of you
Greeting from munich |
 | | | | Xprofan X4
Rudolf Beske / München
Hardware: NB Intel I9 - 16GByte RAM | 10/14/12 ▲ |
| | |
| | | | | | - Page 4 - |
| |
RudiB. | so now standing a Lauffähige Version.
now is too Save as .PRF or .XPRF possible.
too a first Help-File Varfinder.chm is now present, on the I but yet weiterarbeite.
to that Save : The Hauptdatei can among other things names abgepeichert go,
The Include and Unit-Files go on the original-place with the equal names ensured.
coming Updates ect. can now always in the obigen 1.Posting loaded go.
How always gepackt as Exe with the Disclosure-Assistenten of Andreas Miethe.
if your any Error discover, then Please report....
Greeting and a restliches Happy Osterfest... |
| | | | | | |
| |  | means it succeed once in a while through testweises clicking verschiedener Buttons
the program pause To let so it even not any more reacted
but neither crashes. What exactly I there constantly click can I so simply
not at all describe.
Offensichtlichere Fehlerchen have I abgelichtet:
here won't mind if The Parameterdeklaration behind the Proc-
Bezeichnernamen with ( eingeleitet becomes.
thereby becomes The function not as such recognized.
Insgesammt is the program but sure a good Programmierübung
been and Perhaps should You yourself on newer projects fall.  |
| | | | | | |
| |
RudiB. | Hello David,
have in the Grunde taken right....must my Programmierwissen yet vastly improve.
You seem the program with XPSE-code fed to have....Have of course written the the program recognize the it itself circa XPSE-code deals, however not the it so bypass can.its means mere on Profan-code getrimmt....
Have yet attempts weitestgehend there there To come, the it with X2-Syntax clear comes....I it yet yourself not yet have (comes but soon), fehlten me The Opportunities it on lauffähigen Programs To testing.
Werd the proposition of course not integrally drop (werd even yet try it XPSE beizubringen), but I think here in the Forum becomes it first of all time rest.
nevertheless thanks for Feedback....
Greeting from munich Rudi |
| | | | | | |
| |
RudiB. | Hi,
Have time a Testdurchlauf with the PRF Mini-Memory launched.
in the meantime Have I my Tool one weing extended...under
1. Lines-stature (Einrücktiefe Optional of 1-5)
2. Funktionsbefehle The in the code not coercive with vorangestelltem @ stand must, go however so in the konvertierten code so wiedergegeben. (the eye lunching Yes with... )
3. Procnamen z.B. Proc Test
can to electoral /complete big/ complete small or only Anfangsbuchstabe big
konvertiert go.
4. several Befehlszeilen The with colon in a row stand, (How in the super-Mini-Memory) go in einzelene Befehlszeihlen konvertiert.
here the original :
CompileMarkSeparationWindowStyle 512+16:Window 200,100 - 390,241:Declare ib&[35,3],im%,s%,i%,t%,b%,r%,z%,sf%,ai%,at%,ar%,wz%,qp$,fm%,fr!,kt%,wt$,ti%
wt$=" JörgG's 4k-SystemMemory -- Klick dich fit... ":WindowTitle wt$:Def GetSysColor(1) !"USER32","GetSysColor":sf% = GetSysColor(15)
Proc tb
s%=5:z%=5:t%=1:ib&[0,1]=Create("hIcon",Par$(0),0)
WhileLoop 1,at%:ib&[&loop]=Create("IconButton",%hwnd,ib&[0,1],s%,z%,50,50):ib&[&loop,2]=s%+7:ib&[&loop,3]=z%+7:Inc t%:If t%>ar%:t%=1:s%=5:Inc z%,52:Else:Inc s%,52:EndIf:EndWhile
ib&[27]=Create("Button",%hwnd,"Neu",325,170,55,40):ib&[34]=Create("text",%hwnd,"",337,145,43,25)
EndProc
Proc level
var f$="$400080":Cls sf%:MAT ib&[]=1
ib&[26]=Create("Button",%hwnd,"Ende",325,5,55,20):ib&[28]=Create("RadioButton",%hwnd,"16x",325,146,55,20):ib&[29]=Create("RadioButton",%hwnd,"20x",325,166,55,20)
ib&[30]=Create("RadioButton",%hwnd,"24x",325,186,55,20):ib&[31]=Create("text",%hwnd,"Anzeigedauer bei ungleichen Pärchen:",50,43,265,25)
ib&[32]=Create("choicebox",%hwnd,1,310,35,70,90):@AddString(ib&[32],"0.5 sek"):AddString(ib&[32],"1.0 sek"):AddString(ib&[32],"1.5 sek"):SelectString(ib&[32],-1,"1.0 sek")
ib&[34]=Create("text",%hwnd,"Zeitlimit in Sekunden pro Runde setzen:",38,105,265,25)
ib&[35]=Create("choicebox",%hwnd,0,310,105,70,110):AddString(ib&[35],"kein's"):WhileLoop 15,180,15:AddString(ib&[35],Str$(&loop)):EndWhile:SelectString(ib&[35],-1,"kein's")
TextColor $00FF,-1:DrawText 50,145,"Mit welchem Level":DrawText 50,170,"möchtest du spielen?":SetTimer 10
While 1
WaitInput
case (Clicked(ib&[28])) Or (Clicked(ib&[29])) Or (Clicked(ib&[30])):BREAK
If Clicked(ib&[26]):KillTimer:End:EndIf
Inc ai%,30:usepen 0,3,f$:Line ai%,80-ai%,83:If ai%>330:ai%=0:If f$="$400080":f$="$FF":Else:f$="$400080":EndIf:EndIf
EndWhile
If GetCheck(ib&[28])=1:ai%=8:at%=16:ar%=4:ElseIf GetCheck(ib&[29])=1:ai%=10:at%=20:ar%=5:Else:ai%=12:at%=24:ar%=6:EndIf
wz%=GetCurSel(ib&[32]):If wz%=0:wz%=500:elseif wz%=1:wz%=1000:Else:wz%=1500:EndIf
fm%=GetCurSel(ib&[35]):If fm%=0:fm%=301:Else:fm%=fm%*15:WindowTitle wt$+"-- Zeitlimit: "+Str$(fm%)+" Sek":EndIf:fr!=fm%
KillTimer:DestroyWindow(ib&[31]):DestroyWindow(ib&[32]):DestroyWindow(ib&[33]):DestroyWindow(ib&[34]):DestroyWindow(ib&[35])
ShowWindow(ib&[28],0):ShowWindow(ib&[29],0):ShowWindow(ib&[30],0)
EndProc
Proc neu
Declare h%[im%]:WhileLoop 1,at%:ShowWindow(ib&[&loop],1):DeleteObject ib&[&loop,1]:ib&[&loop,1]=1:EndWhile:cls sf%:s%=0:Randomize
While s%<ai%:t%=Rnd(im%)+1:if h%[t%]=0:h%[t%]=Create("hIcon",qp$,t%):Inc s%:z%=0:While z%<2:i%=Rnd(at%)+1:If ib&[i%,1]=1:ib&[i%,1]=h%[t%]:Inc z%:EndIf:EndWhile:EndIf:EndWhile:s%=0:t%=0:r%=0:anz:Play 75;80,16,1:If fm%<301:SetTimer 500:kt%=1:EndIf:fr!=fm%
EndProc
Proc ausgabe
Parameters ix%:ShowWindow(ib&[ix%],0):DrawIcon ib&[ix%,1],ib&[ix%,2],ib&[ix%,3]:If s%=0:i%=ix%:inc s%:Else:If ib&[ix%,1]<>ib&[i%,1]:sleep wz%:ShowWindow(ib&[ix%],1):ShowWindow(ib&[i%],1)
If fr!<301:fr!=fr!-wz%/1000:ti%=%wmtimer:SetTimer 500:EndIf:Else:Inc r%:EndIf:s%=0:EndIf
If r%=ai%:Play 19;19;19,-1,0:Play 25;27;29,0,0:If fm%<301:KillTimer:kt%=0:TextColor $400080,-1:DrawText 330,110,Str$(fm%-fr!)+ "s":EndIf:sleep 1000:Play -25;-27;-29,0,0:If (b% > t%) Or (b% = 0):MUSIC "C#2 F-8 G4.":b%=t%:anz:EndIf:EndIf
EndProc
Proc anz
rectangle 325,32-380,97:TextColor $00FF,-1:DrawText 335,33,Str$(b%):TextColor $8000,-1:DrawText 335,68,Str$(t%)
EndProc
qp$=$syspath+"\\shell32.dll":im%=@IconCount(qp$)-1:UseFont "courier new",30,12,1,0,0:set("NumWidth",3):set("Decimals",0):level:usepen 0,0,$FF0000:tb:neu:b%=0
While 1
WaitInput
If %wmtimer:fr!=fr!-.5:SetText ib&[34],Str$(fr!):If fr!<.5:Play 29;35,2,1:MessageBox("Die Zeit für die neue Runde läuft, sobald du OK drückst...","Schade - die "+Str$(fm%)+" Sek sind leider abgelaufen...",262640):SetFocus((ib&[27])):neu:EndIf
ElseIf Clicked(ib&[26]):WhileLoop 0,at%:DeleteObject ib&[&loop,1]:EndWhile:Case kt%=1:KillTimer:end:ElseIf Clicked(ib&[27]):neu:Endif
WhileLoop 1,at%:If %getfocus=ib&[&loop]:Inc t%:anz:ausgabe &loop:BREAK:EndIf:EndWhile:ss=s4 href='./../../function-references/XProfan/endwhile/'>EndWhile
and the to the Durchlauf with my Tool :
CompileMarkSeparationWindow Style 512+16
Window 200,100 - 390,241
Declare ib&[35,3],in the%,s%,i%,t%,b%,r%,z%,sf%,ai%,at%,ar%,wz%,qp$,fm%,fr!,kt%,wt$,ti%
wt$=" JörgG's 4k-SystemMemory -- Click you fit... "
Window Title wt$
Def GetSysColor(1) !"USER32","GetSysColor"
sf% = GetSysColor(15)
Proc TB
s%=5
z%=5
t%=1
ib&[0,1]=@Create("hIcon",@Par$(0),0)
WhileLoop 1,at%
ib&[&loop]=@Create("IconButton",%hwnd,ib&[0,1],s%,z%,50,50)
ib&[&loop,2]=s%+7
ib&[&loop,3]=z%+7
Inc t%
If t%>ar%
t%=1
s%=5
Inc z%,52
Else
Inc s%,52
EndIf
EndWhile
ib&[27]=@Create("Button",%hwnd,"New",325,170,55,40)
ib&[34]=@Create("text",%hwnd,"",337,145,43,25)
ENDPROC
Proc LEVEL
var f$="$400080"
Cls sf%
MAT ib&[]=1
ib&[26]=@Create("Button",%hwnd,"Ende",325,5,55,20)
ib&[28]=@Create("RadioButton",%hwnd,"16x",325,146,55,20)
ib&[29]=@Create("RadioButton",%hwnd,"20x",325,166,55,20)
ib&[30]=@Create("RadioButton",%hwnd,"24x",325,186,55,20)
ib&[31]=@Create("text",%hwnd,"Anzeigedauer with mismatched Pärchen:",50,43,265,25)
ib&[&loop,3]=z%+7
Inc t%
ib&[32]=@Create("choicebox",%hwnd,1,310,35,70,90)
@AddStrings(ib&[32],"0.5 sek")
@AddStrings(ib&[32],"1.0 sek")
@AddStrings(ib&[32],"1.5 sek")
@Select String(ib&[32],-1,"1.0 sek")
ib&[34]=@Create("text",%hwnd,"Zeitlimit in sec per round settle:",38,105,265,25)
@AddStrings(ib&[32],"1.0 sek")
@AddStrings(ib&[32],"1.5 sek")
ib&[35]=@Create("choicebox",%hwnd,0,310,105,70,110)
@AddStrings(ib&[35],"kein's")
WhileLoop 15,180,15
@AddStrings(ib&[35],@Str $(&loop))
EndWhile
@Select String(ib&[35],-1,"kein's")
Text Color $00FF,-1
DrawText 50,145,"Mit welchem Level"
DrawText 50,170,"möchtest You play?"
SetTimer 10
While 1
WaitInput
case (@Clicked(ib&[28])) Or (@Clicked(ib&[29])) Or (@Clicked(ib&[30]))
BREAK
If @Clicked(ib&[26])
KillTimer
End
EndIf
Inc ai%,30
usepen 0,3,f$
Line ai%,80-ai%,83
If ai%>330
ai%=0
If f$="$400080"
f$="$FF"
Else
f$="$400080"
EndIf
EndIf
EndWhile
If @GetCheck(ib&[28])=1
ai%=8
at%=16
ar%=4
ElseIf @GetCheck(ib&[29])=1
ai%=10
at%=20
ar%=5
Else
ai%=12
at%=24
ar%=6
EndIf
wz%=@GetCurSel(ib&[32])
If wz%=0
wz%=500
elseif wz%=1
wz%=1000
Else
wz%=1500
EndIf
fm%=@GetCurSel(ib&[35])
If fm%=0
fm%=301
Else
fm%=fm%*15
Window Title wt$+"-- Zeitlimit: "+@Str $(fm%)+" Sek"
EndIf
fr!=fm%
ai%=12
at%=24
KillTimer
@DestroyWindow(ib&[31])
@DestroyWindow(ib&[32])
@DestroyWindow(ib&[33])
@DestroyWindow(ib&[34])
@DestroyWindow(ib&[35])
@ShowWindow(ib&[28],0)
@ShowWindow(ib&[29],0)
@ShowWindow(ib&[30],0)
ENDPROC
Proc NEW
Declare h%[in the%]
WhileLoop 1,at%
@ShowWindow(ib&[&loop],1)
DeleteObject ib&[&loop,1]
ib&[&loop,1]=1
EndWhile
cls sf%
s%=0
Randomize
While s%<ai%
t%=@Rnd(in the%)+1
if h%[t%]=0
h%[t%]=@Create("hIcon",qp$,t%)
Inc s%
z%=0
While z%<2
i%=@Rnd(at%)+1
If ib&[i%,1]=1
ib&[i%,1]=h%[t%]
Inc z%
EndIf
EndWhile
EndIf
EndWhile
s%=0
t%=0
r%=0
ANZ
Play 75;80,16,1
If fm%<301
SetTimer 500
kt%=1
EndIf
fr!=fm%
ENDPROC
Proc AUSGABE
Parameters ix%
@ShowWindow(ib&[ix%],0)
DrawIcon ib&[ix%,1],ib&[ix%,2],ib&[ix%,3]
If s%=0
i%=ix%
inc s%
Else
If ib&[ix%,1]<>ib&[i%,1]
sleep wz%
@ShowWindow(ib&[ix%],1)
@ShowWindow(ib&[i%],1)
If fr!<301
fr!=fr!-wz%/1000
ti%=%wmtimer
SetTimer 500
EndIf
Else
Inc r%
EndIf
s%=0
EndIf
If r%=ai%
Play 19;19;19,-1,0
Play 25;27;29,0,0
If fm%<301
KillTimer
kt%=0
Text Color $400080,-1
DrawText 330,110,@Str $(fm%-fr!)+ "s"
EndIf
sleep 1000
Play -25;-27;-29,0,0
If (b% > t%) Or (b% = 0)
MUSIC "C#2 F-8 G4."
b%=t%
ANZ
EndIf
EndIf
ENDPROC
Proc ANZ
rectangle 325,32-380,97
Text Color $00FF,-1
DrawText 335,33,@Str $(b%)
Text Color $8000,-1
DrawText 335,68,@Str $(t%)
ENDPROC
qp$=$syspath+"\\shell32.dll"
im%=@IconCount(qp$)-1
UseFont "courier new",30,12,1,0,0
@Set("NumWidth",3)
@Set("Decimals",0)
LEVEL
usepen 0,0,$FF0000
TB
NEW
b%=0
While 1
WaitInput
If %wmtimer
fr!=fr!-.5
SetText ib&[34],@Str $(fr!)
If fr!<.5
Play 29;35,2,1
@MessageBox("Die Time for the new round runs, once You OK press...","Schade - The "+@Str $(fm%)+" Sek are unfortunately run down...",262640)
@SetFocus((ib&[27]))
NEW
EndIf
ElseIf @Clicked(ib&[26])
WhileLoop 0,at%
DeleteObject ib&[&loop,1]
EndWhile
Case kt%=1
KillTimer
end
ElseIf @Clicked(ib&[27])
NEW
Endif
WhileLoop 1,at%
If %getfocus=ib&[&loop]
Inc t%
ANZ
AUSGABE &loop
BREAK
EndIf
EndWhile
EndWhile
|
| | | | | | |
| | | hint: If you View source post want the not from the Community format
go should then helps the View source-Merker the View source 1:1 in a URL umwandelt: [...]  |
| | | | | | |
| |
RudiB. | iF (11.04.13)
hint: If you View source post want the not from the Community format go should then helps the View source-Merker the View source 1:1 in a URL umwandelt: [...]
Hello David,
what means " View source, the not from the Community format go should "....
Have I there against any regulate verstoßen ?
if Yes, " Mea Culpa "....
but I put the proposition herewith so or so one.....
be not yet Programmiertechnisch so far the program Fehlerfrei hinzukriegen.
try something new...... |
| | | | | | |
| | | No not at all against something like How "Regeln" verstoßen.
wished you only thereby help, rather present to, what the program
really does, there the Communityprogramm here The Source The in code-
Tags stand Yes automatically format and thereby "Deine" Formatierung Yes
"verloren" goes. therefore the hint the You Codes too by View source-Merker: [...]
post can, the The Codes completely unchanged can and behind of/ one
einfachen address save also always abrufbar and that the one too
always slight use can circa on Codes To show. |
| | | | | | |
| |
RudiB. | Oh ...then is Yes well...thanks
...but well to know...if I time on The Formatierung ansich respect would like. |
| | | | | | |
| |
RudiB. | Hello together,
Have time my altes proposition again aufgegriffen: VarFinder
this time complete revised and new Gewand.
is yet Fehlerbehaftet and not yet ready...wished But time post so one it test times can. would be gladly your Feedback to reading.
the Program reads a Profan-File one takes but on the original-File no Changes to, it'll to a Temp.prf laid out, in the equal directory as original-File. around the Temp-File from the ongoing Program out To testing, must The File Profan.Exe in the directory lying.
what power the program at Start in the individual ?
1. it go any Lines with the Backslash for "Befehle over several Zeilen" in a Befehlszeile transformed.
2. it go any comments removes. Hochkomma "'", // and Blockkommentare.
3. Befehlszeilentrennung with colon in a row go aufgelöst in single Befehlszeilen.
4. any Leerzeilen in the Listing go removes.
5. the Listing becomes format.
6. variables in the Listing go identify.
7. Proceduren in the Listing go gelistet.
8. creep in the Listing go gelistet.
9. Definitionen in the Listing go gelistet.
10. Header-Files in the Listing go gelistet.
11. Controls in the Listing go gelistet. (not any, really only active How BUTTON,LISTBOX...etc.)
12. dialogs How z.B: Messagebox etc. go gelistet.
13. Information to File go in a Info-Window provided.
the finished konvertierte Listing becomes then in the RTF-editor-Window displayed.
After the Start the Program can a File over (rights Mouse button) the Mausmenu loaded go.
Abschliessend can another depths-analysis implemented go. here then any variables in the Listing identify with the suitable Zeilennummern in them The Variable vorkommt.
wants none More plenty write moreover. simply test times, Tooltips enable and go....
Download |
| | | | | | |
| |
RudiB. | well Yes...so wirkliches Feedback coming Yes yet not, but alike.
I stell time the Listing as PRF-File one. Perhaps has Yes someone pleasure to Fehlern to search, something To improve or ähnliches.....I thrust namely straight on my border, what The performance and bedienbarkeit anbelangt. As I said View source released....
would be me forward over your Feedback, whether now negative or positively...
or it'll as a common proposition aufgegriffen...would still something, if the community at a thing operates. |
| | | | Xprofan X4
Rudolf Beske / München
Hardware: NB Intel I9 - 16GByte RAM | 10/05/21 ▲ |
| | |
| | 
E.T. | I geb then time my mustard to the testing moreover:
- Program-Window is left supra (0,0) "festgenagelt" and can not move. would be me zentrierter Start and verschiebbar rather (FensterStyle ??)
- no system-Menu, Window can not time quick minimize
- no Program - cover ... what was same yet for a Program ???
- The Focus depends always in the RTF-Window. After selection into boxing (right supra and under) scrolls so over ands over again the RTF-Window, not the box.
- "bearbeitete File testen" not working. lying well on it, the your Progg not wisely, where the Interpreter is.
- "Die konvertierte File as temp.prf gespeichert" >> WO ??
Have but too what positives, not only "zu meckern" : an very nice, aufgeräumte surface.
On each drop ausbaufähig 
About whom View source Have I yet not geschaut, mach I but , ifs The Time allows  |
| | | | Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 10/06/21 ▲ |
| | |
| |
RudiB. | so, Have the whole once more machine and a Update the File tuned....Window not any more festgenagelt and minimierbar...with Headline. Have too another Statuszeile angefügt and a couple items there plaziert. z.B.: display the loaded File, amount Variables and amount Program lines.
Tooltips nachgebessert z.B: RTF-ToolTip (where lying The Temp-File)..and the way the Profan.Exe becomes now too determined.
If now weg....ought to.
and the the Focus over ands over again in the RTF-Window lying is already correctly.. clicking one on one element z.B.: supra right Procs, then should it Yes on The suitable row in the RTF-Window jumping/scroll....see ToolTips.
otherwise can any Gridboxes independent voneinander scroll, I seh there none Error. |
| | | | | | |
|
AnswerTopic-Options | 44.034 Views |
Themeninformationenthis Topic has 8 subscriber: |
(692)
Deutsch
English
Français
Español
Italia
