PerfAnDBPro (Performance Analyser for DBPro)

Author

Message

Phjon

18

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 29th Nov 2009 16:09 Edited at: 29th Nov 2009 16:12

Link

GIDustin,

I was wondering when someone would write their own precompilers that worked with my assistant. Just a little suggestion with those - you may want to add in an "If" statement that checks to see whether a source code file is actually present in the command line. I have one with PerfAnDBPro that tells me if such an event has occured, and it saves relying on the standard DBPro error message that comes up by default.

I can see that you've used some of my code that checks how many lines there are in the source code. I have recently discovered that a similar setup for determining the number of lines of code that are present in a loaded .dat file is in fact taking up quite a lot of time in the data viewer loading section. I still need to look at the performance data further, but this might be an area for optimisation, but then again, other parts of the code may require more attention.

I have also been working on your request for the assistant, but I am running into some problems in determining when/if the user clicks the "Cancel" button to stop the compilation process. I've found some VB code that can detect Windows system messages like "WM_CLOSE", but none of the messages that I have tried seem to be received by the assistant when the "Cancel" button is pressed.

The assistant must receive something, as it closes down when asked, but at the moment, I don't know what that something is.

Back to top

Profile PM Email

GIDustin

16

Years of Service

User Offline

Joined: 30th May 2008

Location:

Posted: 29th Nov 2009 20:34 Edited at: 29th Nov 2009 20:57

Link

Got another problem for ya (don't hate me). Using PerfAnDBPro v0_2_1beta.

It looks as though PerfAnDBPro loops the code removing REM lines. It is, however, missing REM lines that are ONLY REM lines:

+ Code Snippet

REM *** Include File: Basic_Subs.dba ***
REM Created: 11/5/2008 4:59:48 PM
REM
REM Included in Project: E:\My Documents\My Projects\Project1\Project1.dbpro
REM

Edit: Even the forum syntax highlighter doesn't recognize those lines.

It removes the first, second, and fourth line, but the third and fifth stay in the project and Performance code is added to it. Might be a problem there since the performance code before it is run, but the code after most likely is not since it follows a REM statement:

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1452 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1452

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1454 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1454

+ Code Snippet

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1452 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1452

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1454 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 1454

Then I have the problem of the Randomly Moved REM lines. This is part of my GUI system, making a dialog box to allow the user to set the options:

FUNCTION XP_MainMenu_AdvOptions_Display()
  ` 40+ lines of code here, emitted
  inc cY, 16
  chk13 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "Host", 25, cY, 18, 18, wnd1, 9) : if bit get(OPT_STATCHANGE_BIN,0) = 1 then MyGUISetWindowData(chk13,1)
  chk14 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "Players", 100, cY, 18, 18, wnd1, 9) : if bit get(OPT_STATCHANGE_BIN,1) = 1 then MyGUISetWindowData(chk14,1)
  chk15 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "FFA", 200, cY, 18, 18, wnd1, 9) : if bit get(OPT_STATCHANGE_BIN,2) = 1 then MyGUISetWindowData(chk15,1)

inc cY, 95
  btn1 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Save Changes", 16, cY, 125, 20, wnd1, 4)
  btn2 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Standard", 32+125, cY, 125, 20, wnd1, 4)
endfunction

FUNCTION XP_MainMenu_AdvOptions_Hide()
  ` 30+ lines of code here, emmitted
endfunction

FUNCTION XP_MainMenu_Options_Hide()
  ` 4 lines of code here, emitted
ENDFUNCTION

function Set_Fullscreen()
  ` 15 lines of code here emitted
endfunction

+ Code Snippet

FUNCTION XP_MainMenu_AdvOptions_Display()
  ` 40+ lines of code here, emitted
  inc cY, 16
  chk13 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "Host", 25, cY, 18, 18, wnd1, 9) : if bit get(OPT_STATCHANGE_BIN,0) = 1 then MyGUISetWindowData(chk13,1)
  chk14 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "Players", 100, cY, 18, 18, wnd1, 9) : if bit get(OPT_STATCHANGE_BIN,1) = 1 then MyGUISetWindowData(chk14,1)
  chk15 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "FFA", 200, cY, 18, 18, wnd1, 9) : if bit get(OPT_STATCHANGE_BIN,2) = 1 then MyGUISetWindowData(chk15,1)

  inc cY, 95
  btn1 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Save Changes", 16, cY, 125, 20, wnd1, 4)
  btn2 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Standard", 32+125, cY, 125, 20, wnd1, 4)
endfunction



FUNCTION XP_MainMenu_AdvOptions_Hide()
  ` 30+ lines of code here, emmitted
endfunction

FUNCTION XP_MainMenu_Options_Hide()
  ` 4 lines of code here, emitted
ENDFUNCTION


function Set_Fullscreen()
  ` 15 lines of code here emitted
endfunction

OK, so I have the function XP_MainMenu_AdvOptions_Display(), followed by 3 more functions. The next source file in compile order is the file that actually creates the window, XP_GUI.dba. It begins with:

+ Code Snippet

REM *** Include File: XP_GUI.dba ***
REM Created: 11/10/2008 7:11:27 PM
REM
REM Included in Project: E:\My Documents\My Projects\Project1\Project1.dbpro
REM

Now, take a gander at this code after PerfAnDBPro has it's way with it:

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2562 : diPerfAnTimerStart = PerfTimer() :   chk14 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "Players", 100, cY, 18, 18, wnd1, 9)  : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2562
Write DataFile Integer filePerfDat, 1 : Write Datafile Integer filePerfDat, 2563 : diPerfAnTimerStart = PerfTimer() :   if bit get(OPT_STATCHANGE_BIN,1) = 1  : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 2 : Write Datafile Integer filePerfDat, 2563
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2564 : diPerfAnTimerStart = PerfTimer() :      MyGUISetWindowData(chk14,1) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2564
Write DataFile Integer filePerfDat, 5 : Write Datafile Integer filePerfDat, 2565 : diPerfAnTimerStart = PerfTimer() :   EndIf : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 6 : Write Datafile Integer filePerfDat, 2565
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2566 : diPerfAnTimerStart = PerfTimer() :   chk15 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "FFA", 200, cY, 18, 18, wnd1, 9)  : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2566
Write DataFile Integer filePerfDat, 1 : Write Datafile Integer filePerfDat, 2567 : diPerfAnTimerStart = PerfTimer() :   if bit get(OPT_STATCHANGE_BIN,2) = 1 REM *** Include File: XP_GUI.dba ***REM Created: 11/10/2008 7:11:27 PMREM Included in Project: E:\My Documents\My Projects\Project1\Project1.dbpro : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 2 : Write Datafile Integer filePerfDat, 2567
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2568 : diPerfAnTimerStart = PerfTimer() :      MyGUISetWindowData(chk15,1) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2568
Write DataFile Integer filePerfDat, 5 : Write Datafile Integer filePerfDat, 2569 : diPerfAnTimerStart = PerfTimer() :   EndIf : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 6 : Write Datafile Integer filePerfDat, 2569

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2571 : diPerfAnTimerStart = PerfTimer() :   inc cY, 95 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2571
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2572 : diPerfAnTimerStart = PerfTimer() :   btn1 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Save Changes", 16, cY, 125, 20, wnd1, 4) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2572
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2573 : diPerfAnTimerStart = PerfTimer() :   btn2 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Standard", 32+125, cY, 125, 20, wnd1, 4) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2573
Write DataFile Integer filePerfDat, 12 : Write Datafile Integer filePerfDat, 2575 : diPerfAnTimerStart = PerfTimer()
endfunction

+ Code Snippet

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2562 : diPerfAnTimerStart = PerfTimer() :   chk14 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "Players", 100, cY, 18, 18, wnd1, 9)  : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2562
Write DataFile Integer filePerfDat, 1 : Write Datafile Integer filePerfDat, 2563 : diPerfAnTimerStart = PerfTimer() :   if bit get(OPT_STATCHANGE_BIN,1) = 1  : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 2 : Write Datafile Integer filePerfDat, 2563
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2564 : diPerfAnTimerStart = PerfTimer() :      MyGUISetWindowData(chk14,1) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2564
Write DataFile Integer filePerfDat, 5 : Write Datafile Integer filePerfDat, 2565 : diPerfAnTimerStart = PerfTimer() :   EndIf : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 6 : Write Datafile Integer filePerfDat, 2565
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2566 : diPerfAnTimerStart = PerfTimer() :   chk15 = MyGUIMakeWindow(MG_CLASS_RADIOBOX, 1, "FFA", 200, cY, 18, 18, wnd1, 9)  : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2566
Write DataFile Integer filePerfDat, 1 : Write Datafile Integer filePerfDat, 2567 : diPerfAnTimerStart = PerfTimer() :   if bit get(OPT_STATCHANGE_BIN,2) = 1 REM *** Include File: XP_GUI.dba ***REM Created: 11/10/2008 7:11:27 PMREM Included in Project: E:\My Documents\My Projects\Project1\Project1.dbpro : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 2 : Write Datafile Integer filePerfDat, 2567
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2568 : diPerfAnTimerStart = PerfTimer() :      MyGUISetWindowData(chk15,1) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2568
Write DataFile Integer filePerfDat, 5 : Write Datafile Integer filePerfDat, 2569 : diPerfAnTimerStart = PerfTimer() :   EndIf : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 6 : Write Datafile Integer filePerfDat, 2569

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2571 : diPerfAnTimerStart = PerfTimer() :   inc cY, 95 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2571
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2572 : diPerfAnTimerStart = PerfTimer() :   btn1 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Save Changes", 16, cY, 125, 20, wnd1, 4) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2572
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2573 : diPerfAnTimerStart = PerfTimer() :   btn2 = MyGUIMakeWindow(MG_CLASS_BUTTON, 0, "Standard", 32+125, cY, 125, 20, wnd1, 4) : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2573
Write DataFile Integer filePerfDat, 12 : Write Datafile Integer filePerfDat, 2575 : diPerfAnTimerStart = PerfTimer()
endfunction

Edit: Added syntax highlighting so you can find the problem. Look for green text
This code starts off in XP_MainMenu_AdvOptions_Display() shown above, but right at the end you will see the first comment line from the next source file...

Hope this helps.

Edit: This same thing happens at the end of each source file that precedes a source file with comments like the ones above.

What is really strange is the the 2 empty REM lines inside each of those blocks remain where they should be in the code file, but the REM lines with actual data fly up 60+ lines of code.:

` Last function of source file:
function Set_Fullscreen() : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 14 : Write Datafile Integer filePerfDat, 2622
` code emitted
endfunction

` The two EMPTY REM lines from the next.
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2638 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2638

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2640 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2640

+ Code Snippet

` Last function of source file:
function Set_Fullscreen() : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 14 : Write Datafile Integer filePerfDat, 2622
` code emitted
endfunction

` The two EMPTY REM lines from the next.
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2638 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2638

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2640 : diPerfAnTimerStart = PerfTimer() : REM : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 2640

Back to top

Profile PM Email Website

GIDustin

16

Years of Service

User Offline

Joined: 30th May 2008

Location:

Posted: 29th Nov 2009 21:03 Edited at: 29th Nov 2009 21:06

Link

Found another problem unrelated to the previous.

+ Code Snippet

KKLib_Timing_Init:
  global LOOPS_THIS_SYNC = 0
  global TIMER_THIS_SYNC = 0
  global LAST_GOOD_FPS   = 0
return

It treats the ":" after labels as if it were a command seperator:

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 493 : diPerfAnTimerStart = PerfTimer() : KKLib_Timing_Init : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 493

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 496 : diPerfAnTimerStart = PerfTimer()
  global LOOPS_THIS_SYNC = 0 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 495
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 497 : diPerfAnTimerStart = PerfTimer()
  global TIMER_THIS_SYNC = 0 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 496
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 498 : diPerfAnTimerStart = PerfTimer()
  global LAST_GOOD_FPS   = 0 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 497
Write DataFile Integer filePerfDat, 13 : Write Datafile Integer filePerfDat, 498 : diPerfAnTimerStart = PerfTimer() : return

+ Code Snippet

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 493 : diPerfAnTimerStart = PerfTimer() : KKLib_Timing_Init : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 493

Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 496 : diPerfAnTimerStart = PerfTimer()
  global LOOPS_THIS_SYNC = 0 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 495
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 497 : diPerfAnTimerStart = PerfTimer()
  global TIMER_THIS_SYNC = 0 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 496
Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 498 : diPerfAnTimerStart = PerfTimer()
  global LAST_GOOD_FPS   = 0 : diPerfAnTimer = PerfTimer() : diPerfAnRes = PerfTimer() : diPerfAnDBPTimer = Timer() : Write DataFile Double Integer filePerfDat, diPerfAnTimerStart : Write DataFile Double Integer filePerfDat, diPerfAnTimer : Write DataFile Double Integer filePerfDat, diPerfAnRes : Write DataFile Double Integer filePerfDat, diPerfAnDBPTimer : Write DataFile Integer filePerfDat, 0 : Write Datafile Integer filePerfDat, 497
Write DataFile Integer filePerfDat, 13 : Write Datafile Integer filePerfDat, 498 : diPerfAnTimerStart = PerfTimer() : return

Edit: scrolling the final source file shows that 50% were done correctly, 50% were not

Back to top

Profile PM Email Website

Phjon

18

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 29th Nov 2009 21:24

Link

GIDustin,

Thanks for the bug reports, and don't worry about finding them, that's what the beta stage is supposed to be about - finding bugs and me fixing them. I've found a couple more myself over the past couple of days; one of them is a little similar to one of the bugs you've found.

As the number of bugs that have been found (and have been fixed) is getting rather numerous, I'm considering writing a batch program that checks every bug report to ensure that any recent fixes made haven't broken any previous fixes. This should save both on the time taken to ensure that the PerfAnDBPro system works, and on my memory, which is beginning to forget checking previous bug fixes.

Back to top

Profile PM Email

Phjon

18

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 1st Dec 2009 16:13 Edited at: 1st Dec 2009 23:11

Link

GIDustin,

My progress on solving that issue with the precompiler assistant has not gone very well I'm afraid. I've tried a number of different techniques, including trapping Windows messages receieved by the assistant, creating an interface program that goes between the IDE and the assistant (on the grounds that I could detect when the interface program closed), and some other ideas, but none seemed to have worked.

I'm theorising that, although the assistant has control over when to start the DBPro compiler, it doesn't have any control in terms of handling messages sent by it and above all, closing it down. I also theorise that the window class "TDBPEDITOR" (I think) is the one and only window the DBPro compiler communicates with, rather than my assistant.

Strangely, it seems that if I program the assistant to close or kill the compiler when it is running, it just comes back to life again, continuing where it left off. I know the code must be doing something as I put a message box in the way to confirm when it was closing the compiler. Nonetheless, the compiler kept on running.

It looks as if I may not be able to do anything about this, unless anyone with good experience with the DBPro compiler, the "TDBPROEDITOR" window or VB 2008 has any tricks up their sleeves to solve this.

-------------------------------------------

Not the sort of news that I wanted to send out, just as I get a mention in this month's newsletter!

===========================================

As a result of the above, I have decided to move back to fixing bugs with the PerfAnDBPro precompiler and the data viewer. I need to write the batch program that should ease the bug checking process, and then take a look at a small bit of optimisation.

I will post up the new versions of these programs as soon as they're ready.

I also invite any new readers of this thread to download the PerfAnDBPro system and give it a go. Just remember to back up any source code, and projects beforehand. Please post if you find any bugs, or if you have any ideas for improving the system.

===========================================
Small set of updates:

It took me a while to get it to execute the DBPro compiler correctly, but I now have the batch processing program constructed and operational.

-------------------------------------------
GIDustin,

Your second post with the label bug in it was actually producing the same problems as the "Gosub Demo" code when I ran that to double-check the fault. In any case, that bug has now been fixed.

Back to top

Profile PM Email

Phjon

18

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 5th Dec 2009 22:31

Link

Update 5/12/09

I have finally managed to fix the recent bugs the GIDustin found. The reason why it has taken me so long is because I had to do a complete re-write of the line destacking function in order to fix the problems. Re-writing that function and testing it has taken me ages, and has been somewhat frustrating at times. However, it now works (more or less) and I'm ready to release an update of the precompiler.

Please note that there is a slight issue with code indentation of destacked lines. This can be seen in the data viewer, as some lines will be shown as being on the left-hand edge of the code listing. I don't believe that this is anything more than a cosmetic issue, and should be fixed when I complete the optimisation work on the system:

The update to the precompiler can be obtained from the usual place; we are now on version 0.2.2 beta.

======================================================

It has come to my attention that you cannot open the data viewer to view .dat files because it cannot find a particular file. This file is the settings file, and for the past few versions, it has been called "Settings.cfg" rather than "PADVSettings.cfg"! My apologies for this - a replacement version of the data version is now available. I've kept the version number the same, as it was simply an oversight, the version is 0.2.2 beta.

Back to top

Profile PM Email

Phjon

18

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 6th Dec 2009 19:08

Link

Update 6/12/09

New versions of the precompiler and data viewer are out. The fixes include, amongst other things,

Cosmetic issues with code indentation have now been fixed.
The time taken by the data viewer to load in files has been reduced by about 20% (1st pass at optimising the data viewer).
As far as I can tell, all the bugs that have been reported so far seem to have been fixed (my batch processor reports no faults with the profiled versions of the bugs that have neen raised).

We are on versions 0.2.3 beta for both the precompiler and the data viewer.

==================================================

Knowing my luck, there may be one or two more bugs out there to find. If anyone does find any, please post up a code snippet that encapsulates the bug, and I'll take a look at it. Having said that, the system seems to be behaving itself a bit better than it was a week or so ago.

Back to top

Profile PM Email

Phjon

18

Years of Service

User Offline

Joined: 28th Nov 2005

Location:

Posted: 16th Dec 2009 21:33

Link

Progress report, 16/12/09

Well, folks may be wondering why things have been a bit quiet on this thread recently. This is mainly due to the fact that my work productivity seems to go down over the winter, and strangely, now that I'm in my Christmas break, the work pace has slowed down some more.

I have recently been working on the precompiler assistant, and have been trying to implement features such as loading/saving precompiler lists, and putting in place a feature that allows you to enable/disable precompilers from the running list by checking/unchecking boxes in the list. Unfortunately, it would seem that the event VB calls when a check box in the list is clicked doesn't seem to update the internal status of the items, only the external status, so when one "checks" a precompiler, and then compiles a DBPro executable, the precompiler won't be run. Conversly, if it is already checked, and you de-activate it, the precompiler assistant runs it anyway. Very frustrating!

----------------------------------------------------------------

There are some things, aside from updating the precompiler assistant that I would like to put in place before I fully release the system:

In the data viewer, add a coloumn to show the number of times a line of code has been executed
Optimise the data viewer further
Move the right hand coloumn in slightly, as some of the numbers are being clipped at the edge
Make some new help files
Add a feature that allows you to profile all and only function/gosub blocks

With the last feature, I'm slightly concerned that people may focus on optimising their programs in functions and gosubs only, even though what may be causing the main slowdowns in their programs may be elsewhere in their code (i.e. not in a function or a gosub). Nonetheless, I will add it anyway.

In addition, there are some things that I would like to add in in future versions of PerfAnDBPro, but will be added in versions after the official release.

----------------------------------------------------------------

When I can get over the winter cabin fever (and the frustration), I'll be posting up an update to the assistant, and other programs as soon as I can.

Back to top

Profile PM Email

GIDustin

16

Years of Service

User Offline

Joined: 30th May 2008

Location:

Posted: 20th Dec 2009 07:40

Link

Quote: "I can see that you've used some of my code that checks how many lines there are in the source code. I have recently discovered that a similar setup for determining the number of lines of code that are present in a loaded .dat file is in fact taking up quite a lot of time in the data viewer loading section. I still need to look at the performance data further, but this might be an area for optimisation, but then again, other parts of the code may require more attention.
"

Just curious on if/how you managed to speed this up. I only use your Performance precompiler on major builds, but I use my 2 custom precompilers on every build and they are taking a fair amount of time to run and it appears to be loading and saving the file.

- GIDustin

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Work in Progress / PerfAnDBPro (Performance Analyser for DBPro)