FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, lExit := .f., oBtn

   DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE "Benchmark Tests"

   @ 1,  4 BUTTON "Test 1" OF oDlg SIZE 40, 12;
   ACTION ( c1test1() )

   @ 2,  4 BUTTON "Test 2" OF oDlg SIZE 40, 12;
   ACTION ( c1test2() )

   @ 3,  4 BUTTON "Test 3" OF oDlg SIZE 40, 12;
   ACTION ( c1test3() )

  @ 1, 12 BUTTON oBtn PROMPT "Exit" OF oDlg SIZE 40, 12 ;
      ACTION (lExit := .t., oDlg:End() )

   ACTIVATE DIALOG oDlg VALID lExit

return nil

//----------------------------------------------------------------------------//

#include"c1test.prg"
 

Code: Select all | Expand

function c1test1()
local x:=0
local y:=0
local max:=1000000000
local stime:=seconds()
local etime:=0

do while .t.
 do case
  case y=10
   x:=max
  case y=11
   x:=max
  case y=12
   x:=max
  case y=13
   x:=max
  case y=14
   x:=max
  case y=15
   x:=max
  case y=16
   x:=max
  case y=17
   x:=max
  case y=18
   x:=max
  case y=19
   x:=max
  case y=20
   x:=max
  case y=21
   x:=max
  case y=22
   x:=max
  case y=23
   x:=max
  case y=24
   x:=max
  case y=25
   x:=max
  case y=26
   x:=max
  case y=27
   x:=max
  case y=28
   x:=max
  case y=29
   x:=max


 endcase

 x:=x+1
 if stime<seconds()-10
  exit
 endif
enddo



?str(x)+" Loops in 10 Seconds"

return(x)
****************************************
function c1test2()
local x:=0
local y:=0
local max:=1000000000
local stime:=seconds()
local etime:=0                            
local xfile:="c1test"
local xdata:=""
if file(xfile)
 ?" Error Running Test. Delete the c1test.dbf file to correct the problem."
else
 create temp
 append blank
 replace field_name with "SBS00A"
 replace field_type with "C"
 replace field_len with 255
 replace field_dec with 0
 close
 create c1test from temp
 erase temp
 close databases


 select 1
 dbselectarea("1")
 use c1test
 stime:=seconds()
 do while .t.
  append blank
  replace sbs00a with replicate("Z",200)
  x:=x+1
 if stime<seconds()-10
  exit
 endif
 enddo

 ?str(x)+" records written to the database in 10 seconds."
 goto top
 stime:=seconds()
 do while .not.eof()
   xdata:=1->sbs00a
   skip 1
 enddo
 ?str(seconds()-stime)+" seconds to read "+str(x)+" records."
 goto top
 stime:=seconds()
 do while .not.eof()
  if rlock()
   replace sbs00a with space(200)
  endif
   skip 1
 enddo
 ?str(seconds()-stime)+" seconds to Update "+str(x)+" records."
 close databases
 erase temp.dbf
 erase c1test.dbf
endif





return(x)
*********************
function c1test3()
local x:=0
local y:=0
local max:=1000000000
local stime:=seconds()
local etime:=0

local xfile:="c1test.txt"
local xdata:=""
local ydata:=""
local z:=1
do while .t.
 if z=1
  xdata:=replicate("X",1000)
  z=0
 else
  z:=1
  xdata:=replicate("Y",2000)
 endif

 memowrit(xfile,xdata)
 ydata:=memoread(xfile)


 x:=x+1
 if stime<seconds()-10
  exit
 endif
enddo

erase c1test.txt



?str(x)+" Memo Read Writes in 10 seconds."

return(x)