home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / t2w012 / time2win.frm < prev    next >
Text File  |  1995-02-27  |  158KB  |  5,460 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Time To WIN (Demo)"
  5.    ClientHeight    =   7845
  6.    ClientLeft      =   930
  7.    ClientTop       =   765
  8.    ClientWidth     =   9105
  9.    Height          =   8370
  10.    Left            =   870
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   7845
  13.    ScaleWidth      =   9105
  14.    Top             =   300
  15.    Width           =   9225
  16.    Begin PictureBox Picture1 
  17.       AutoSize        =   -1  'True
  18.       BorderStyle     =   0  'None
  19.       Height          =   480
  20.       Left            =   8550
  21.       Picture         =   TIME2WIN.FRX:0000
  22.       ScaleHeight     =   480
  23.       ScaleWidth      =   480
  24.       TabIndex        =   10
  25.       Top             =   180
  26.       Visible         =   0   'False
  27.       Width           =   480
  28.    End
  29.    Begin ComboBox Combo2 
  30.       Height          =   300
  31.       Left            =   6570
  32.       TabIndex        =   2
  33.       Top             =   450
  34.       Width           =   1185
  35.    End
  36.    Begin TextBox Text1 
  37.       Height          =   285
  38.       Left            =   3150
  39.       TabIndex        =   8
  40.       Text            =   "Text1"
  41.       Top             =   7470
  42.       Width           =   5865
  43.    End
  44.    Begin Frame Frame1 
  45.       BackColor       =   &H00C0C0C0&
  46.       Height          =   1455
  47.       Left            =   90
  48.       TabIndex        =   6
  49.       Top             =   5940
  50.       Visible         =   0   'False
  51.       Width           =   8925
  52.       Begin ListBox List2 
  53.          Height          =   1200
  54.          Left            =   4590
  55.          TabIndex        =   5
  56.          Top             =   180
  57.          Width           =   4155
  58.       End
  59.       Begin ListBox List1 
  60.          Height          =   1200
  61.          Left            =   180
  62.          TabIndex        =   4
  63.          Top             =   180
  64.          Width           =   4155
  65.       End
  66.    End
  67.    Begin CommandButton Command1 
  68.       Caption         =   "&Start demo for the selected item"
  69.       Height          =   285
  70.       Left            =   90
  71.       TabIndex        =   0
  72.       Top             =   450
  73.       Width           =   4065
  74.    End
  75.    Begin ComboBox Combo1 
  76.       Height          =   300
  77.       Left            =   90
  78.       TabIndex        =   9
  79.       Text            =   "0"
  80.       Top             =   90
  81.       Width           =   7665
  82.    End
  83.    Begin Label Label2 
  84.       BackStyle       =   0  'Transparent
  85.       Caption         =   "&Text for string manipulation"
  86.       Height          =   195
  87.       Left            =   90
  88.       TabIndex        =   7
  89.       Top             =   7500
  90.       Width           =   2985
  91.    End
  92.    Begin Label Label1 
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "&Iterations for speed test"
  95.       Height          =   195
  96.       Left            =   4320
  97.       TabIndex        =   1
  98.       Top             =   510
  99.       Width           =   2175
  100.    End
  101.    Begin Label Label3 
  102.       BackStyle       =   0  'Transparent
  103.       BorderStyle     =   1  'Fixed Single
  104.       Height          =   5055
  105.       Left            =   90
  106.       TabIndex        =   3
  107.       Top             =   810
  108.       Width           =   8925
  109.       WordWrap        =   -1  'True
  110.    End
  111. End
  112. Option Explicit
  113. Option Base 1
  114.  
  115. Dim Item       As Integer
  116. Dim ItemFile   As Integer
  117. Dim ItemMean   As Integer
  118.  
  119. Const RandI = 32767
  120. Const RandL = 2147483647
  121. Const RandS = 1E+10!
  122. Const RandD = 1E+16
  123.  
  124. Sub Combo2_Click ()
  125.    Item = Val(Combo2.Text)
  126.    ItemFile = Val(Combo2.Text)
  127.    ItemMean = Val(Combo2.Text)
  128. End Sub
  129.  
  130. Sub Command1_Click ()
  131.  
  132.    Static Flag    As Integer
  133.  
  134.    If (Flag = True) Then Exit Sub
  135.  
  136.    Form1.Tag = cGetIn(cEXEnameActiveWindow(), ".", 1)
  137.  
  138.    cDisableFI Picture1
  139.  
  140.    Flag = True
  141.    MousePointer = 11
  142.  
  143.    Frame1.Visible = False
  144.    List1.Clear
  145.    List2.Clear
  146.    Label3.Caption = ""
  147.  
  148.    DoEvents
  149.  
  150.    Select Case Combo1.ListIndex
  151.       Case 0
  152.      Frame1.Visible = True
  153.      Call TestAddI
  154.       Case 1
  155.      Frame1.Visible = True
  156.      Call TestDeviationI
  157.       Case 2
  158.      Frame1.Visible = True
  159.      Call TestFillI
  160.       Case 3
  161.      Frame1.Visible = True
  162.      Call TestMaxI
  163.       Case 4
  164.      Frame1.Visible = True
  165.      Call TestMeanI
  166.       Case 5
  167.      Frame1.Visible = True
  168.      Call TestMinI
  169.       Case 6
  170.      Frame1.Visible = True
  171.      Call TestSetI
  172.       Case 7
  173.      Frame1.Visible = True
  174.      Call TestSumI
  175.       Case 8
  176.      Frame1.Visible = True
  177.      Call TestSortI
  178.       Case 9
  179.      Frame1.Visible = True
  180.      Call TestReverseSortI
  181.       Case 10
  182.      Call TestAddTime
  183.       Case 11
  184.      Call TestTimeBetween
  185.       Case 12
  186.      Call TestCheckTime
  187.       Case 13
  188.      Call TestHourTo
  189.       Case 14
  190.      Call TestWindowsIni
  191.       Case 15
  192.      Call TestWinINI1
  193.       Case 16
  194.      Call TestWinINI2
  195.       Case 17
  196.      Call TestWinINI3
  197.       Case 18
  198.      Call TestAllSubDir
  199.       Case 19
  200.      Call TestGetDriveCurrentDir
  201.       Case 20
  202.      Call TestGetDefaultCurrentDir
  203.       Case 21
  204.      Call TestChDir
  205.       Case 22
  206.      Call TestCountFiles
  207.       Case 23
  208.      Call TestCountDirectories
  209.       Case 24
  210.      Call TestKillFiles
  211.       Case 25
  212.      Call TestGetFullnameInEnv
  213.       Case 26
  214.      Call TestGetDiskSpace
  215.       Case 27
  216.      Call TestGetDiskUsed
  217.       Case 28
  218.      Call TestGetDiskFree
  219.       Case 29
  220.      Call TestKillDir
  221.       Case 30
  222.      Call TestRenameFile
  223.       Case 31
  224.      Call TestFileResetAllAttrib
  225.       Case 32
  226.      Call TestFileSetAllAttrib
  227.       Case 33
  228.      Call TestIsFileX
  229.       Case 34
  230.      Call TestSubDirectory
  231.       Case 35
  232.      Call TestUniqueFileName
  233.       Case 36
  234.      Call TestIsX
  235.       Case 37
  236.      Call TestOneCharFromLeft
  237.       Case 38
  238.      Call TestOneCharFromRight
  239.       Case 39
  240.      Call TestBlockCharFromLeft
  241.       Case 40
  242.      Call TestBlockCharFromRight
  243.       Case 41
  244.      Call TestCompact
  245.       Case 42
  246.      Call TestUncompact
  247.       Case 43
  248.      Call TestInsertChars
  249.       Case 44
  250.      Call TestRemoveBlockChar
  251.       Case 45
  252.      Call TestRemoveOneChar
  253.       Case 46
  254.      Call TestCompressTab
  255.       Case 47
  256.      Call TestExpandTab
  257.       Case 48
  258.      Call TestGiveBitPalindrome
  259.       Case 49
  260.      Call TestIsBitPalindrome
  261.       Case 50
  262.      Call TestInsertBlocksBy
  263.       Case 51
  264.      Call TestInsertBlocks
  265.       Case 52
  266.      Call TestResizeStringAndFill
  267.       Case 53
  268.      Call TestResizeString
  269.       Case 54
  270.      Call TestFilterBlocks
  271.       Case 55
  272.      Call TestFilterChars
  273.       Case 56
  274.      Call TestCheckChars
  275.       Case 57
  276.      Call TestChangeChars
  277.       Case 58
  278.      Call TestChangeCharsUntil
  279.       Case 59
  280.      Call TestReverse
  281.       Case 60
  282.      Call TestGetIn
  283.       Case 61
  284.      Call TestGetBlock
  285.       Case 62
  286.      Call TestCreateAndFill
  287.       Case 63
  288.      Call TestStringCRC32
  289.       Case 64
  290.      Call TestCompress
  291.       Case 65
  292.      Call TestEncrypt
  293.       Case 66
  294.      Call TestDecrypt
  295.       Case 67
  296.      Call TestFileCRC32
  297.       Case 68
  298.      Call TestLrc
  299.       Case 69
  300.      Call TestIsPalindrome
  301.       Case 70
  302.      Call TestCheckNumericity
  303.       Case 71
  304.      Call TestFill
  305.       Case 72
  306.      Call TestSetAllBits
  307.       Case 73
  308.      Call TestSetBit
  309.       Case 74
  310.      Call TestGetBit
  311.       Case 75
  312.      Call TestFindBitSet
  313.       Case 76
  314.      Call TestFindBitReset
  315.       Case 77
  316.      Call TestToggleBit
  317.       Case 78
  318.      Call TestToggleAllBits
  319.       Case 79
  320.      Call TestReverseAllBits
  321.       Case 80
  322.      Call TestReverseAllBitsByChar
  323.       Case 81
  324.      Call TestCreateBits
  325.       Case 82
  326.      Call TestAtoR
  327.       Case 83
  328.      Call TestRtoA
  329.       Case 84
  330.      Call TestCustomControls
  331.       Case 85
  332.      Call TestSwap
  333.       Case 86
  334.      Call TestMin
  335.       Case 87
  336.      Call TestMenuChange
  337.       Case 88
  338.      Call TestFilesSize
  339.       Case 89
  340.      Call TestClusterSize
  341.       Case 90
  342.      Call TestAscTime
  343.       Case 91
  344.      Call TestLanguage
  345.       Case 92
  346.      Call TestReadLanguage
  347.       Case 93
  348.      Call TestFileCmp
  349.       Case 94
  350.      Call TestFileCopy
  351.       Case 95
  352.      Call TestFileFilter
  353.       Case 96
  354.      Call TestFileFilterNot
  355.       Case 97
  356.      Call TestFileEncrypt
  357.       Case 98
  358.      Call TestFileCompressTab
  359.       Case 99
  360.      Call TestSplitPath
  361.       Case 100
  362.      Call TestFullPath
  363.       Case 101
  364.      Call TestMakePath
  365.       Case 102
  366.      Call TestMsgBox
  367.       Case 103
  368.      Call TestInpBox
  369.       Case 104
  370.      Call TestMixChars
  371.       Case 105
  372.      Call TestFileVersionInfo
  373.       Case 106
  374.      Call TestFileVersion
  375.       Case 107
  376.      Call TestFileLineCount
  377.       Case 108
  378.      Call TestFileToX
  379.       Case 109
  380.      Call TestBig
  381.       Case 110
  382.      Call TestBigNum
  383.       Case 111
  384.      Call TestSysMenuChange(LNG_FRENCH)
  385.       Case 112
  386.      Call TestSysMenuChange(LNG_GERMAN)
  387.       Case 113
  388.      Call TestSysMenuChange(LNG_ITALIAN)
  389.       Case 114
  390.      Call TestSysMenuChange(LNG_ENGLISH)
  391.       Case 115
  392.      Call TestFileMerge
  393.       Case 116
  394.      Call TestFileSR
  395.       Case 117
  396.      Call TestFileS
  397.       Case 118
  398.      Call TestPatternMatch
  399.       Case 119
  400.      Call TestPatternExtMatch
  401.       Case 120
  402.      Call TestMorse
  403.       Case 121
  404.      Call TestDriveType
  405.       Case 122
  406.      Call TestBaseConversion
  407.       Case 123
  408.      Call TestFileStatictics
  409.       Case 124
  410.      Call TestDAStr(True)
  411.       Case 125
  412.      Call TestDAL(True)
  413.       Case 126
  414.      Call TestDAType(True)
  415.       Case 127
  416.      Call TestDAStr(False)
  417.       Case 128
  418.      Call TestDAL(False)
  419.       Case 129
  420.      Call TestDAType(False)
  421.       Case 130
  422.      Call TestDAStr(1)
  423.       Case 131
  424.      Call TestDAL(1)
  425.       Case 132
  426.      Call TestDAType(1)
  427.    End Select
  428.  
  429.    MousePointer = 0
  430.  
  431.    Flag = False
  432.  
  433.    cEnableFI Picture1
  434.    
  435. End Sub
  436.  
  437.  Sub CreateFile ()
  438.  
  439.    Dim j       As Integer
  440.  
  441.    j = cFileResetAllAttrib("TEST.DAT")
  442.  
  443.    Close #1
  444.    Open "TEST.DAT" For Output As #1
  445.    Print #1, "This is a file test for time2win.dll"
  446.    Close #1
  447.  
  448.    j = cFileResetAllAttrib("TEST.DAT")
  449.  
  450. End Sub
  451.  
  452. Sub DefCnv ()
  453.  
  454.    Dim i       As Integer
  455.    Dim Tmp     As String
  456.  
  457.    Close #1
  458.    Open "c:\tmp\tmp.Tmp" For Input Shared As #1
  459.    Close #2
  460.    Open "c:\tmp\tmp1.Tmp" For Output Shared As #2
  461.  
  462.    While Not EOF(1)
  463.       Line Input #1, Tmp
  464.       i = i + 1
  465.       Tmp = cCompress(Tmp)
  466.       Print #2, Tab(10); cGetIn(Tmp, "@", 1);
  467.       Print #2, Tab(60); "@" & i
  468.    Wend
  469.  
  470.    Close #1
  471.    Close #2
  472.  
  473. End Sub
  474.  
  475. Sub Form_Load ()
  476.  
  477.    Combo2.AddItem "5"
  478.    Combo2.AddItem "10"
  479.    Combo2.AddItem "50"
  480.    Combo2.AddItem "100"
  481.    Combo2.AddItem "500"
  482.    Combo2.AddItem "1000"
  483.    Combo2.AddItem "5000"
  484.    
  485.    Combo1.AddItem "Array routines : Add"
  486.    Combo1.AddItem "Array routines : Deviation"
  487.    Combo1.AddItem "Array routines : Fill"
  488.    Combo1.AddItem "Array routines : Max"
  489.    Combo1.AddItem "Array routines : Mean"
  490.    Combo1.AddItem "Array routines : Min"
  491.    Combo1.AddItem "Array routines : Set"
  492.    Combo1.AddItem "Array routines : Sum"
  493.    Combo1.AddItem "Array routines : Sort"
  494.    Combo1.AddItem "Array routines : ReverseSort"
  495.    Combo1.AddItem "Time routines : AddTime"
  496.    Combo1.AddItem "Time routines : TimeBetween"
  497.    Combo1.AddItem "Time routines : CheckTime"
  498.    Combo1.AddItem "Time routines : HourTo"
  499.    Combo1.AddItem "WIN.INI routines : some separators"
  500.    Combo1.AddItem "WIN.INI routines : devices"
  501.    Combo1.AddItem "WIN.INI routines : printerports"
  502.    Combo1.AddItem "WIN.INI routines : winsection (windows section)"
  503.    Combo1.AddItem "Files routines : AllSubDirectories"
  504.    Combo1.AddItem "Files routines : GetDriveCurrentDir"
  505.    Combo1.AddItem "Files routines : GetDefaultCurrentDir"
  506.    Combo1.AddItem "Files routines : ChDir"
  507.    Combo1.AddItem "Files routines : CountFiles"
  508.    Combo1.AddItem "Files routines : CountDirectories"
  509.    Combo1.AddItem "Files routines : KillFiles"
  510.    Combo1.AddItem "Files routines : GetFullnameInEnv"
  511.    Combo1.AddItem "Files routines : GetDiskSpace"
  512.    Combo1.AddItem "Files routines : GetDiskUsed"
  513.    Combo1.AddItem "Files routines : GetDiskFree"
  514.    Combo1.AddItem "Files routines : KillDir"
  515.    Combo1.AddItem "Files routines : RenameFile"
  516.    Combo1.AddItem "Files routines : FileResetAllAttrib"
  517.    Combo1.AddItem "Files routines : FileSetAllAttrib"
  518.    Combo1.AddItem "Files routines : IsFileX"
  519.    Combo1.AddItem "Files routines : SubDirectory"
  520.    Combo1.AddItem "Files routines : UniqueFileName"
  521.    Combo1.AddItem "String routines : IsX"
  522.    Combo1.AddItem "String routines : OneCharFromLeft"
  523.    Combo1.AddItem "String routines : OneCharFromRight"
  524.    Combo1.AddItem "String routines : BlockCharFromLeft"
  525.    Combo1.AddItem "String routines : BlockCharFromRight"
  526.    Combo1.AddItem "String routines : Compact"
  527.    Combo1.AddItem "String routines : Uncompact"
  528.    Combo1.AddItem "String routines : InsertChars"
  529.    Combo1.AddItem "String routines : RemoveBlockChar"
  530.    Combo1.AddItem "String routines : RemoveOneChar"
  531.    Combo1.AddItem "String routines : CompressTab"
  532.    Combo1.AddItem "String routines : ExpandTab"
  533.    Combo1.AddItem "String routines : GiveBitPalindrome"
  534.    Combo1.AddItem "String routines : IsBitPalindrome"
  535.    Combo1.AddItem "String routines : InsertBlocksBy"
  536.    Combo1.AddItem "String routines : InsertBlocks"
  537.    Combo1.AddItem "String routines : ResizeStringAndFill"
  538.    Combo1.AddItem "String routines : ResizeString"
  539.    Combo1.AddItem "String routines : FilterBlocks"
  540.    Combo1.AddItem "String routines : FilterChars"
  541.    Combo1.AddItem "String routines : CheckChars"
  542.    Combo1.AddItem "String routines : ChangeChars"
  543.    Combo1.AddItem "String routines : ChangeCharsUntil"
  544.    Combo1.AddItem "String routines : Reverse"
  545.    Combo1.AddItem "String routines : GetIn"
  546.    Combo1.AddItem "String routines : GetBlock"
  547.    Combo1.AddItem "String routines : CreateAndFill"
  548.    Combo1.AddItem "String routines : StringCRC32"
  549.    Combo1.AddItem "String routines : Compress"
  550.    Combo1.AddItem "String routines : Encrypt"
  551.    Combo1.AddItem "String routines : Decrypt"
  552.    Combo1.AddItem "Files  routines : FileCRC32"
  553.    Combo1.AddItem "String routines : Lrc"
  554.    Combo1.AddItem "String routines : IsPalindrome"
  555.    Combo1.AddItem "String routines : CheckNumericity"
  556.    Combo1.AddItem "String routines : Fill"
  557.    Combo1.AddItem "String routines : SetAllBits"
  558.    Combo1.AddItem "String routines : SetBit"
  559.    Combo1.AddItem "String routines : GetBit"
  560.    Combo1.AddItem "String routines : FindBitSet"
  561.    Combo1.AddItem "String routines : FindBitReset"
  562.    Combo1.AddItem "String routines : ToggleBit"
  563.    Combo1.AddItem "String routines : ToggleAllBits"
  564.    Combo1.AddItem "String routines : ReverseAllBits"
  565.    Combo1.AddItem "String routines : ReverseAllBitsByChar"
  566.    Combo1.AddItem "String routines : CreateBits"
  567.    Combo1.AddItem "String routines : ArabicToRoman"
  568.    Combo1.AddItem "String routines : RomanToArabic"
  569.    Combo1.AddItem "Custom controls"
  570.    Combo1.AddItem "Swap routines"
  571.    Combo1.AddItem "Min,Max routines"
  572.    Combo1.AddItem "System menu change : French"
  573.    Combo1.AddItem "Files routines : FilesSize, FilesSizeOnDisk, FilesSlack"
  574.    Combo1.AddItem "Files routines : GetClusterSize"
  575.    Combo1.AddItem "Language routines : GetAscTime"
  576.    Combo1.AddItem "Language routines : Days and months name"
  577.    Combo1.AddItem "Language routines : Read Control Language"
  578.    Combo1.AddItem "File routines : Compare"
  579.    Combo1.AddItem "File routines : File Copy"
  580.    Combo1.AddItem "File routines : File Filter"
  581.    Combo1.AddItem "File routines : File Filter Not"
  582.    Combo1.AddItem "File routines : File Encrypt/Decrypt"
  583.    Combo1.AddItem "File routines : File Compress/Expand Tab"
  584.    Combo1.AddItem "File routines : SplitPath"
  585.    Combo1.AddItem "File routines : FullPath"
  586.    Combo1.AddItem "File routines : MakePath"
  587.    Combo1.AddItem "Language routines : Multi-Language & TimeOut Message Box"
  588.    Combo1.AddItem "Language routines : Multi-Language Input Box"
  589.    Combo1.AddItem "String routines : MixChars"
  590.    Combo1.AddItem "Windows Specific Routines : FileVersionInfo"
  591.    Combo1.AddItem "Windows Specific Routines : FileVersion"
  592.    Combo1.AddItem "File routines : FileLineCount"
  593.    Combo1.AddItem "File routines : FileToLower/FileToUpper"
  594.    Combo1.AddItem "Misc. routines : Big Double"
  595.    Combo1.AddItem "Misc. routines : Big Numbers"
  596.    Combo1.AddItem "System menu change (one call) : French"
  597.    Combo1.AddItem "System menu change (one call) : German"
  598.    Combo1.AddItem "System menu change (one call) : Italian"
  599.    Combo1.AddItem "System menu change (one call) : English"
  600.    Combo1.AddItem "File routines : FileMerge"
  601.    Combo1.AddItem "File routines : FileSearchAndReplace"
  602.    Combo1.AddItem "File routines : FileSearch, FileSearchCount"
  603.    Combo1.AddItem "String routines : PatternMatch"
  604.    Combo1.AddItem "String routines : PatternExtMatch"
  605.    Combo1.AddItem "Misc. routines : Morse"
  606.    Combo1.AddItem "DOS routines : GetDriveType"
  607.    Combo1.AddItem "Misc. routines : Base conversion"
  608.    Combo1.AddItem "File routines : FileStatistics"
  609.    Combo1.AddItem "Disk Array routines : (create) String"
  610.    Combo1.AddItem "Disk Array routines : (create) Long"
  611.    Combo1.AddItem "Disk Array routines : (create) Type'd (b.e. : tagTASKENTRY)"
  612.    Combo1.AddItem "Disk Array routines : (use) String"
  613.    Combo1.AddItem "Disk Array routines : (use) Long"
  614.    Combo1.AddItem "Disk Array routines : (use) Type'd (b.e. : tagTASKENTRY)"
  615.    Combo1.AddItem "Disk Array routines : (clear) String"
  616.    Combo1.AddItem "Disk Array routines : (clear) Long"
  617.    Combo1.AddItem "Disk Array routines : (clear) Type'd (b.e. : tagTASKENTRY)"
  618.  
  619.    Combo1.ListIndex = Combo1.ListCount - 1
  620.    Combo2.ListIndex = 1
  621.  
  622.    Item = Val(Combo2.Text)
  623.    ItemFile = Val(Combo2.Text)
  624.    ItemMean = Val(Combo2.Text)
  625.  
  626.    Text1.Text = "A/BC/DEF/GHIJ"
  627.  
  628. End Sub
  629.  
  630. Sub Label2_DblClick ()
  631.  
  632.    Dim i       As Integer
  633.    Dim n       As Integer
  634.  
  635.    n = Combo1.ListCount - 1
  636.  
  637.    For i = 0 To n
  638.       Combo1.ListIndex = i
  639.       DoEvents
  640.       Call Command1_Click
  641.       DoEvents
  642.    Next i
  643.  
  644. End Sub
  645.  
  646.  Sub TestAddI ()
  647.  
  648.    Dim title      As String
  649.    Dim Tmp        As String
  650.    Dim Tmp1       As String
  651.    Dim Tmp2       As String
  652.    Dim i          As Integer
  653.    Dim j          As Integer
  654.    Dim m          As Double
  655.    
  656.    ReDim array(ItemMean) As Integer
  657.    Randomize Timer
  658.  
  659.    For i = LBound(array) To UBound(array)
  660.       array(i) = 0
  661.       List1.AddItem "" & array(i)
  662.    Next i
  663.  
  664.    j = cAddI(array(), 10)
  665.  
  666.    For i = LBound(array) To UBound(array)
  667.       List2.AddItem "" & array(i)
  668.    Next i
  669.  
  670.    Tmp1 = Tmp1 & "Add 10 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
  671.    Tmp1 = Tmp1 & "Add 10 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
  672.  
  673.    cStartBasisTimer
  674.    For i = 1 To ItemFile
  675.       j = cAddI(array(), 1)
  676.    Next i
  677.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  678.  
  679.    Label3.Caption = Tmp1
  680.  
  681. End Sub
  682.  
  683.  Sub TestAddTime ()
  684.  
  685.    Dim title      As String
  686.    Dim Tmp        As String
  687.    Dim Tmp1       As String
  688.    Dim Tmp2       As String
  689.    Dim i          As Integer
  690.    Dim j          As Integer
  691.    
  692.    Tmp1 = "The time 10:00 + 02:01 is " & cIntoHour(cAddTime(600 + 121)) & Chr$(13) & Chr$(13)
  693.  
  694.    Tmp1 = Tmp1 & "The time 23:58 + 01:02 is " & cIntoHour(cAddTime(1438 + 62)) & Chr$(13) & Chr$(13)
  695.  
  696.    cStartBasisTimer
  697.    For i = 1 To Item
  698.       j = cAddTime(1439 + 2)
  699.    Next i
  700.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  701.  
  702.    Label3.Caption = Tmp1
  703.  
  704. End Sub
  705.  
  706. Sub TestAllSubDir ()
  707.    Dim n       As Integer
  708.    Dim Tmp     As String
  709.    n = -1
  710.    Tmp = cAllSubDirectories("C:", n)
  711.    Label3.Caption = "Directories founden on drive C are " & n & Chr$(13) & Tmp
  712. End Sub
  713.  
  714. Sub TestAscTime ()
  715.  
  716.    Dim title      As String
  717.    Dim Tmp        As String
  718.    Dim Tmp1       As String
  719.    Dim Tmp2       As String
  720.    Dim i          As Integer
  721.    Dim j          As Integer
  722.    Dim k          As Long
  723.    Dim ErrCode    As Integer
  724.  
  725.    Tmp1 = ""
  726.  
  727.    For i = LNG_FRENCH To LNG_SPANISH
  728.       Tmp1 = Tmp1 + cGetAscTime(i) & Chr$(13)
  729.    Next i
  730.  
  731.    Tmp1 = Tmp1 + Chr$(13)
  732.  
  733.    cStartBasisTimer
  734.    For i = 1 To Item
  735.       Tmp = cGetAscTime(LNG_FRENCH)
  736.    Next i
  737.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  738.  
  739.    Label3.Caption = Tmp1
  740.  
  741. End Sub
  742.  
  743. Sub TestAtoR ()
  744.    Dim Tmp        As Integer
  745.    Dim Tmp1       As String
  746.    Tmp = Year(Int(Now))
  747.    Tmp1 = Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & Chr$(13)
  748.    Tmp = Year(Int(Now)) - 1
  749.    Tmp1 = Tmp1 & Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & Chr$(13)
  750.    Tmp = Year(Int(Now)) + 1
  751.    Tmp1 = Tmp1 & Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & Chr$(13)
  752.    Label3.Caption = Tmp1
  753. End Sub
  754.  
  755. Sub TestBaseConversion ()
  756.  
  757.    Dim title      As String
  758.    Dim Tmp        As String
  759.    Dim Tmp1       As String
  760.    Dim Tmp2       As String
  761.    Dim i          As Integer
  762.    Dim j          As Integer
  763.    Dim k          As Long
  764.    Dim ErrCode    As Integer
  765.  
  766.    Tmp1 = ""
  767.  
  768.    For i = 2 To 20
  769.       Tmp1 = Tmp1 + "Convert '1234567' base 10 to base " & i & " is " & cBaseConversion("1234567", 10, i) & Chr$(13)
  770.    Next i
  771.  
  772.    Tmp1 = Tmp1 + Chr$(13)
  773.  
  774.    cStartBasisTimer
  775.    For i = 1 To Item
  776.       Tmp = cBaseConversion("123456789", 10, 10)
  777.    Next i
  778.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  779.  
  780.    Label3.Caption = Tmp1
  781.  
  782. End Sub
  783.  
  784.  Sub TestBetween ()
  785.  
  786.    Dim title      As String
  787.    Dim Tmp        As String
  788.    Dim Tmp1       As String
  789.    Dim Tmp2       As String
  790.    Dim i          As Integer
  791.    Dim j          As Integer
  792.    
  793.  
  794.    Tmp1 = "601 is not between 720 and 840 => " & cBetween(601, 720, 840) & Chr$(13) & Chr$(13)
  795.  
  796.    Tmp1 = Tmp1 & "601 is between 540 and 602 => " & cBetween(601, 540, 602) & Chr$(13) & Chr$(13)
  797.  
  798.    Tmp1 = Tmp1 & "61 is between 61 and 62 => " & cBetween(61, 61, 62) & Chr$(13) & Chr$(13)
  799.  
  800.    cStartBasisTimer
  801.    For i = 1 To Item
  802.       j = cBetween(720, 0, 1439)
  803.    Next i
  804.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  805.  
  806.    Label3.Caption = Tmp1
  807.  
  808. End Sub
  809.  
  810. Sub TestBig ()
  811.  
  812.    Dim title      As String
  813.    Dim Tmp        As String
  814.    Dim Tmp1       As String
  815.    Dim Tmp2       As String
  816.    Dim Tmp3       As String
  817.    Dim i          As Integer
  818.    Dim j          As Integer
  819.    Dim m1         As Double
  820.    Dim m2         As Double
  821.  
  822.    m1 = 123456789012345#
  823.    m2 = 987654321098765#
  824.    
  825.    Tmp1 = Tmp1 & "Double     : Add '" & m1 & "' and '" & m2 & "' is '" & (m1 + m2) & "'" & Chr$(13)
  826.    Tmp1 = Tmp1 & "Big Double : Add '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigAdd(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13)
  827.    Tmp1 = Tmp1 & "Big Num    : Add '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_ADD, LTrim$(Str$(m2))) & "'" & Chr$(13) & Chr$(13)
  828.    
  829.    Tmp1 = Tmp1 & "Double     : Sub '" & m1 & "' and '" & m2 & "' is '" & (m1 - m2) & "'" & Chr$(13)
  830.    Tmp1 = Tmp1 & "Big Double : Sub '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigSub(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13)
  831.    Tmp1 = Tmp1 & "Big Num    : Sub '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_SUB, LTrim$(Str$(m2))) & "'" & Chr$(13) & Chr$(13)
  832.  
  833.    Tmp1 = Tmp1 & "Double     : Mul '" & m1 & "' and '" & m2 & "' is '" & (m1 * m2) & "'" & Chr$(13)
  834.    Tmp1 = Tmp1 & "Big Double : Mul '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigMul(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13)
  835.    Tmp1 = Tmp1 & "Big Num    : Mul '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_MUL, LTrim$(Str$(m2))) & "'" & Chr$(13) & Chr$(13)
  836.  
  837.    Tmp1 = Tmp1 & "Double     : Div '" & m1 & "' and '" & m2 & "' is '" & (m1 / m2) & "'" & Chr$(13)
  838.    Tmp1 = Tmp1 & "Big Double : Div '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigDiv(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & Chr$(13) & Chr$(13)
  839.  
  840.    cStartBasisTimer
  841.    For i = 1 To ItemFile
  842.       Tmp3 = cBigAdd(cMKN(Str$(m1)), cMKN(Str$(m2)))
  843.    Next i
  844.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  845.  
  846.    Label3.Caption = Tmp1
  847.  
  848. End Sub
  849.  
  850. Sub TestBigNum ()
  851.  
  852.    Dim title      As String
  853.    Dim Tmp        As String
  854.    Dim Tmp1       As String
  855.    Dim Tmp2       As String
  856.    Dim Tmp3       As String
  857.    Dim Tmp4       As String
  858.    Dim i          As Integer
  859.    Dim j          As Integer
  860.    Dim m          As Double
  861.  
  862.    Tmp3 = "00001234567890123456789012345678901"
  863.    Tmp4 = "00009876543210987654321098765432100"
  864.  
  865.    Tmp1 = Tmp1 & "X = " & Tmp3 & Chr$(13)
  866.    Tmp1 = Tmp1 & "Y = " & Tmp4 & Chr$(13) & Chr$(13)
  867.  
  868.    Tmp = Tmp3
  869.    Tmp2 = Tmp4
  870.    Tmp1 = Tmp1 & "'(X) + (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13)
  871.    Tmp = Tmp3
  872.    Tmp2 = "-" & Tmp4
  873.    Tmp1 = Tmp1 & "'(X) + (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13)
  874.    Tmp = "-" & Tmp3
  875.    Tmp2 = Tmp4
  876.    Tmp1 = Tmp1 & "'(-X) + (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13)
  877.    Tmp = "-" & Tmp3
  878.    Tmp2 = "-" & Tmp4
  879.    Tmp1 = Tmp1 & "'(-X) + (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & Chr$(13) & Chr$(13)
  880.  
  881.    Tmp = Tmp3
  882.    Tmp2 = Tmp4
  883.    Tmp1 = Tmp1 & "'(X) - (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13)
  884.    Tmp = Tmp3
  885.    Tmp2 = "-" & Tmp4
  886.    Tmp1 = Tmp1 & "'(X) - (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13)
  887.    Tmp = "-" & Tmp3
  888.    Tmp2 = Tmp4
  889.    Tmp1 = Tmp1 & "'(-X) - (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13)
  890.    Tmp = "-" & Tmp3
  891.    Tmp2 = "-" & Tmp4
  892.    Tmp1 = Tmp1 & "'(-X) - (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & Chr$(13) & Chr$(13)
  893.    
  894.    Tmp = Tmp3
  895.    Tmp2 = Tmp4
  896.    Tmp1 = Tmp1 & "'(X) * (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13)
  897.    Tmp = Tmp3
  898.    Tmp2 = "-" & Tmp4
  899.    Tmp1 = Tmp1 & "'(X) * (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13)
  900.    Tmp = "-" & Tmp3
  901.    Tmp2 = Tmp4
  902.    Tmp1 = Tmp1 & "'(-X) * (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13)
  903.    Tmp = "-" & Tmp3
  904.    Tmp2 = "-" & Tmp4
  905.    Tmp1 = Tmp1 & "'(-X) * (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & Chr$(13) & Chr$(13)
  906.  
  907.    cStartBasisTimer
  908.    For i = 1 To ItemFile
  909.       Tmp3 = cBigNum(Tmp, BIG_ADD, Tmp2)
  910.    Next i
  911.    Tmp1 = Tmp1 & "speed for " & ItemFile & " ADD = " & (cReadBasisTimer() / 1000) & Chr$(13)
  912.  
  913.    cStartBasisTimer
  914.    For i = 1 To ItemFile
  915.       Tmp3 = cBigNum(Tmp, BIG_SUB, Tmp2)
  916.    Next i
  917.    Tmp1 = Tmp1 & "speed for " & ItemFile & " SUB = " & (cReadBasisTimer() / 1000) & Chr$(13)
  918.  
  919.    cStartBasisTimer
  920.    For i = 1 To ItemFile
  921.       Tmp3 = cBigNum(Tmp, BIG_MUL, Tmp2)
  922.    Next i
  923.    Tmp1 = Tmp1 & "speed for " & ItemFile & " MUL = " & (cReadBasisTimer() / 1000)
  924.  
  925.    Label3.Caption = Tmp1
  926.  
  927. End Sub
  928.  
  929.  Sub TestBlockCharFromLeft ()
  930.  
  931.    Dim title      As String
  932.    Dim Tmp        As String
  933.    Dim Tmp1       As String
  934.    Dim Tmp2       As String
  935.    Dim i          As Integer
  936.    Dim j          As Integer
  937.    
  938.  
  939.    Tmp = Text1.Text
  940.    title = "The 3,7,1 blocks from left of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
  941.  
  942.    Tmp = Text1.Text
  943.  
  944.    Tmp1 = title & "3:" & cBlockCharFromLeft(Tmp, 3) & " | 7:" & cBlockCharFromLeft(Tmp, 7) & " | 1:" & cBlockCharFromLeft(Tmp, 1) & Chr$(13) & Chr$(13)
  945.  
  946.    cStartBasisTimer
  947.    For i = 1 To Item
  948.       Tmp2 = cBlockCharFromLeft(Tmp, 2)
  949.    Next i
  950.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  951.  
  952.    Label3.Caption = Tmp1
  953.    
  954. End Sub
  955.  
  956.  Sub TestBlockCharFromRight ()
  957.  
  958.    Dim title      As String
  959.    Dim Tmp        As String
  960.    Dim Tmp1       As String
  961.    Dim Tmp2       As String
  962.    Dim i          As Integer
  963.    Dim j          As Integer
  964.    
  965.  
  966.    Tmp = Text1.Text
  967.    title = "The 3,7,1 blocks from right of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
  968.  
  969.    Tmp = Text1.Text
  970.  
  971.    Tmp1 = title & "3:" & cBlockCharFromRight(Tmp, 3) & " | 7:" & cBlockCharFromRight(Tmp, 7) & " | 1:" & cBlockCharFromRight(Tmp, 1) & Chr$(13) & Chr$(13)
  972.  
  973.    cStartBasisTimer
  974.    For i = 1 To Item
  975.       Tmp2 = cBlockCharFromRight(Tmp, 2)
  976.    Next i
  977.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  978.  
  979.    Label3.Caption = Tmp1
  980.  
  981. End Sub
  982.  
  983.  Sub TestChangeChars ()
  984.  
  985.    Dim title      As String
  986.    Dim Tmp        As String
  987.    Dim Tmp1       As String
  988.    Dim Tmp2       As String
  989.    Dim i          As Integer
  990.    Dim j          As Integer
  991.    
  992.  
  993.    Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  994.    title = "Change 'AZM' into 'qyc' of [" & Tmp & "] is "
  995.  
  996.    Call cChangeChars(Tmp, "AZM", "qyc")
  997.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  998.  
  999.    cStartBasisTimer
  1000.    For i = 1 To Item
  1001.       Call cChangeChars(Tmp, "AZM", "qyc")
  1002.    Next i
  1003.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1004.  
  1005.    Label3.Caption = Tmp1
  1006.  
  1007. End Sub
  1008.  
  1009.  Sub TestChangeCharsUntil ()
  1010.  
  1011.    Dim title      As String
  1012.    Dim Tmp        As String
  1013.    Dim Tmp1       As String
  1014.    Dim Tmp2       As String
  1015.    Dim i          As Integer
  1016.    Dim j          As Integer
  1017.    
  1018.  
  1019.    Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1020.    title = "Change 'AZM' into 'qyc' of [" & Tmp & "] until 'N' is "
  1021.  
  1022.    Call cChangeCharsUntil(Tmp, "AZM", "qyc", "N")
  1023.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  1024.  
  1025.    cStartBasisTimer
  1026.    For i = 1 To Item
  1027.       Call cChangeCharsUntil(Tmp, "AZM", "qyc", "N")
  1028.    Next i
  1029.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1030.  
  1031.    Label3.Caption = Tmp1
  1032.  
  1033. End Sub
  1034.  
  1035.  Sub TestChDir ()
  1036.  
  1037.    Dim title      As String
  1038.    Dim Tmp        As String
  1039.    Dim Tmp1       As String
  1040.    Dim Tmp2       As String
  1041.    Dim i          As Integer
  1042.    Dim j          As Integer
  1043.    Dim k          As Long
  1044.    Dim ErrCode    As Integer
  1045.  
  1046.    Tmp1 = ""
  1047.    
  1048.    For i = 1 To 26
  1049.       k = cChDir(Chr$(64 + i) & ":\")
  1050.       If (k = True) Then
  1051.      Tmp1 = Tmp1 & "ChDir to \ on '" & Chr$(64 + i) & ":' is " & IIf(k = True, "succesfull", "not successfull") & Chr$(13)
  1052.       End If
  1053.    Next i
  1054.  
  1055.    Tmp1 = Tmp1 + Chr$(13)
  1056.  
  1057.    cStartBasisTimer
  1058.    For i = 1 To Item
  1059.       k = cChDir("C:\")
  1060.    Next i
  1061.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1062.  
  1063.    Label3.Caption = Tmp1
  1064.  
  1065. End Sub
  1066.  
  1067.  Sub TestChDrive ()
  1068.  
  1069.    Dim title      As String
  1070.    Dim Tmp        As String
  1071.    Dim Tmp1       As String
  1072.    Dim Tmp2       As String
  1073.    Dim i          As Integer
  1074.    Dim j          As Integer
  1075.    Dim k          As Long
  1076.    Dim ErrCode    As Integer
  1077.  
  1078.    Tmp1 = ""
  1079.    
  1080.    For i = 1 To 26
  1081.       k = cChDrive(Chr$(64 + i))
  1082.       If (k = True) Then
  1083.      Tmp1 = Tmp1 & "ChDrive on '" & Chr$(64 + i) & ":' is " & IIf(k = True, "succesfull", "not successfull") & Chr$(13)
  1084.       End If
  1085.    Next i
  1086.  
  1087.    Tmp1 = Tmp1 + Chr$(13)
  1088.  
  1089.    cStartBasisTimer
  1090.    For i = 1 To Item
  1091.       k = cChDrive("C")
  1092.    Next i
  1093.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1094.  
  1095.    Label3.Caption = Tmp1
  1096.  
  1097. End Sub
  1098.  
  1099.  Sub TestCheckChars ()
  1100.  
  1101.    Dim title      As String
  1102.    Dim Tmp        As String
  1103.    Dim Tmp1       As String
  1104.    Dim Tmp2       As String
  1105.    Dim i          As Integer
  1106.    Dim j          As Integer
  1107.    
  1108.  
  1109.    Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1110.    title = "Check 'A','Z' in [" & Tmp & "] is "
  1111.    Tmp1 = title & IIf(cCheckChars(Tmp, "AZ"), "all present", "not all present") & Chr$(13) & Chr$(13)
  1112.  
  1113.    title = Tmp1 & "Check 'a','Z' in [" & Tmp & "] is "
  1114.    Tmp1 = title & IIf(cCheckChars(Tmp, "aZ"), "all present", "not all present") & Chr$(13) & Chr$(13)
  1115.  
  1116.    cStartBasisTimer
  1117.    For i = 1 To Item
  1118.       j = cCheckChars(Tmp, "AZ")
  1119.    Next i
  1120.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1121.  
  1122.    Label3.Caption = Tmp1
  1123.  
  1124. End Sub
  1125.  
  1126.  Sub TestCheckNumericity ()
  1127.  
  1128.    Dim title      As String
  1129.    Dim Tmp        As String
  1130.    Dim Tmp1       As String
  1131.    Dim Tmp2       As String
  1132.    Dim i          As Integer
  1133.    Dim j          As Integer
  1134.    
  1135.  
  1136.    Tmp = Text1.Text
  1137.    title = "[" & Tmp & "] is "
  1138.  
  1139.    Tmp1 = title & IIf(cCheckNumericity(Tmp), "Numeric", " not Numeric") & Chr$(13) & Chr$(13)
  1140.  
  1141.    cStartBasisTimer
  1142.    For i = 1 To Item
  1143.       j = cCheckNumericity(Tmp)
  1144.    Next i
  1145.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1146.  
  1147.    Label3.Caption = Tmp1
  1148.  
  1149. End Sub
  1150.  
  1151.  Sub TestCheckTime ()
  1152.  
  1153.    Dim title      As String
  1154.    Dim Tmp        As String
  1155.    Dim Tmp1       As String
  1156.    Dim Tmp2       As String
  1157.    Dim i          As Integer
  1158.    Dim j          As Integer
  1159.    
  1160.  
  1161.    Tmp1 = "10:01 is not between 12:00 and 14:00 => " & cCheckTime(601, 720, 840) & Chr$(13) & Chr$(13)
  1162.  
  1163.    Tmp1 = Tmp1 & "10:01 is between 09:00 and 10:02 => " & cCheckTime(601, 540, 602) & Chr$(13) & Chr$(13)
  1164.  
  1165.    Tmp1 = Tmp1 & "01:01 is between 23:58 and 02:45 => " & cCheckTime(61, 1438, 165) & Chr$(13) & Chr$(13)
  1166.  
  1167.    cStartBasisTimer
  1168.    For i = 1 To Item
  1169.       j = cCheckTime(720, 0, 1439)
  1170.    Next i
  1171.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1172.  
  1173.    Label3.Caption = Tmp1
  1174.  
  1175. End Sub
  1176.  
  1177. Sub TestClusterSize ()
  1178.  
  1179.    Dim title      As String
  1180.    Dim Tmp        As String
  1181.    Dim Tmp1       As String
  1182.    Dim Tmp2       As String
  1183.    Dim i          As Integer
  1184.    Dim j          As Integer
  1185.    Dim k          As Long
  1186.    Dim ErrCode    As Integer
  1187.  
  1188.    Tmp1 = ""
  1189.    
  1190.    For i = 1 To 26
  1191.       k = cGetDiskClusterSize(Chr$(64 + i))
  1192.       If (k <> True) Then
  1193.      Tmp1 = Tmp1 & "DiskClusterSize for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
  1194.       End If
  1195.    Next i
  1196.  
  1197.    Tmp1 = Tmp1 + Chr$(13)
  1198.  
  1199.    cStartBasisTimer
  1200.    For i = 1 To Item
  1201.       k = cGetDiskClusterSize("C")
  1202.    Next i
  1203.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1204.  
  1205.    Label3.Caption = Tmp1
  1206.  
  1207. End Sub
  1208.  
  1209.  Sub TestCompact ()
  1210.  
  1211.    Dim title      As String
  1212.    Dim Tmp        As String
  1213.    Dim Tmp1       As String
  1214.    Dim Tmp2       As String
  1215.    Dim i          As Integer
  1216.    Dim j          As Integer
  1217.  
  1218.    Tmp = "30313233343536373839"
  1219.  
  1220.    title = "Compact '" & Tmp & "' is "
  1221.    Tmp1 = title & cCompact(Tmp) & Chr$(13) & Chr$(13)
  1222.  
  1223.    cStartBasisTimer
  1224.    For i = 1 To Item
  1225.       Tmp2 = cCompact(Tmp)
  1226.    Next i
  1227.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1228.  
  1229.    Label3.Caption = Tmp1
  1230.  
  1231. End Sub
  1232.  
  1233.  Sub TestCompress ()
  1234.  
  1235.    Dim title      As String
  1236.    Dim Tmp        As String
  1237.    Dim Tmp1       As String
  1238.    Dim Tmp2       As String
  1239.    Dim i          As Integer
  1240.    Dim j          As Integer
  1241.    
  1242.  
  1243.    Tmp1 = "A " & Chr$(9) & "BC  "
  1244.  
  1245.    Tmp = Tmp1
  1246.    title = "Filter chr(0),chr(9),chr(32) in [" & Tmp & "] is "
  1247.    Tmp1 = title & cCompress(Tmp) & Chr$(13) & Chr$(13)
  1248.  
  1249.    cStartBasisTimer
  1250.    For i = 1 To Item
  1251.       Tmp2 = cCompress(Tmp)
  1252.    Next i
  1253.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1254.  
  1255.    Label3.Caption = Tmp1
  1256.  
  1257. End Sub
  1258.  
  1259.  Sub TestCompressTab ()
  1260.  
  1261.    Dim title      As String
  1262.    Dim Tmp        As String
  1263.    Dim Tmp1       As String
  1264.    Dim Tmp2       As String
  1265.    Dim i          As Integer
  1266.    Dim j          As Integer
  1267.    
  1268.  
  1269.    Tmp = "A      BC   DEF  GHIJ  "
  1270.    title = "Compress tab (3 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  1271.    Tmp1 = title & cCompressTab(Tmp, 3) & Chr$(13) & Chr$(13)
  1272.  
  1273.    Tmp = "A      BC   DEF  GHIJ  "
  1274.    title = "Compress tab (2 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  1275.    Tmp1 = Tmp1 & title & cCompressTab(Tmp, 2) & Chr$(13) & Chr$(13)
  1276.  
  1277.    cStartBasisTimer
  1278.    For i = 1 To Item
  1279.       Tmp2 = cCompressTab(Tmp, 3)
  1280.    Next i
  1281.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1282.  
  1283.    Label3.Caption = Tmp1
  1284.  
  1285. End Sub
  1286.  
  1287.  Sub TestCountDirectories ()
  1288.  
  1289.    Dim title      As String
  1290.    Dim Tmp        As String
  1291.    Dim Tmp1       As String
  1292.    Dim Tmp2       As String
  1293.    Dim i          As Integer
  1294.    Dim j          As Integer
  1295.    Dim k          As Integer
  1296.    
  1297.    Tmp1 = ""
  1298.    Tmp1 = Tmp1 & "Number of directories in C:\ is " & cCountDirectories("C:\*.*") & Chr$(13) & Chr$(13)
  1299.    Tmp1 = Tmp1 & "Number of directories in D:\ is " & cCountDirectories("D:\*.*") & Chr$(13) & Chr$(13)
  1300.    Tmp1 = Tmp1 & "Number of directories in E:\ is " & cCountDirectories("E:\*.*") & Chr$(13) & Chr$(13)
  1301.  
  1302.    cStartBasisTimer
  1303.    For i = 1 To 10
  1304.       k = cCountDirectories("C:\*.*")
  1305.    Next i
  1306.    Tmp1 = Tmp1 & "speed for " & 10 & " = " & (cReadBasisTimer() / 1000)
  1307.  
  1308.    Label3.Caption = Tmp1
  1309.  
  1310. End Sub
  1311.  
  1312.  Sub TestCountFiles ()
  1313.  
  1314.    Dim title      As String
  1315.    Dim Tmp        As String
  1316.    Dim Tmp1       As String
  1317.    Dim Tmp2       As String
  1318.    Dim i          As Integer
  1319.    Dim j          As Integer
  1320.    Dim k          As Integer
  1321.    
  1322.    Tmp1 = ""
  1323.    Tmp1 = Tmp1 & "Number of files in C:\ is " & cCountFiles("C:\*.*") & Chr$(13) & Chr$(13)
  1324.    Tmp1 = Tmp1 & "Number of files in D:\ is " & cCountFiles("D:\*.*") & Chr$(13) & Chr$(13)
  1325.    Tmp1 = Tmp1 & "Number of files in E:\ is " & cCountFiles("E:\*.*") & Chr$(13) & Chr$(13)
  1326.  
  1327.    cStartBasisTimer
  1328.    For i = 1 To 10
  1329.       k = cCountFiles("C:\*.*")
  1330.    Next i
  1331.    Tmp1 = Tmp1 & "speed for " & 10 & " = " & (cReadBasisTimer() / 1000)
  1332.  
  1333.    Label3.Caption = Tmp1
  1334.  
  1335. End Sub
  1336.  
  1337.  Sub TestCreateAndFill ()
  1338.  
  1339.    Dim title      As String
  1340.    Dim Tmp        As String
  1341.    Dim Tmp1       As String
  1342.    Dim Tmp2       As String
  1343.    Dim i          As Integer
  1344.    Dim j          As Integer
  1345.    
  1346.  
  1347.    Tmp = Text1.Text
  1348.    title = "Create and Fill a string of 40 chars with [" & Tmp & "] is "
  1349.  
  1350.    Tmp1 = title & cCreateAndFill(40, Tmp) & Chr$(13) & Chr$(13)
  1351.  
  1352.    cStartBasisTimer
  1353.    For i = 1 To Item
  1354.       Tmp2 = cCreateAndFill(40, Tmp)
  1355.    Next i
  1356.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1357.  
  1358.    Label3.Caption = Tmp1
  1359.  
  1360. End Sub
  1361.  
  1362.  Sub TestCreateBits ()
  1363.  
  1364.    Dim title      As String
  1365.    Dim Tmp        As String
  1366.    Dim Tmp1       As String
  1367.    Dim Tmp2       As String
  1368.    Dim i          As Integer
  1369.    Dim j          As Integer
  1370.    
  1371.  
  1372.    Tmp = Text1.Text
  1373.    title = "Create a string for 1024 bits is "
  1374.  
  1375.    Tmp1 = title & Len(cCreateBits(1024)) & " bytes" & Chr$(13) & Chr$(13)
  1376.  
  1377.    cStartBasisTimer
  1378.    For i = 1 To Item
  1379.       Tmp2 = cCreateBits(1024)
  1380.    Next i
  1381.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1382.  
  1383.    Label3.Caption = Tmp1
  1384.  
  1385. End Sub
  1386.  
  1387. Sub TestCustomControls ()
  1388.    Dim i       As Integer
  1389.    Dim n       As Integer
  1390.    Dim Tmp1    As String
  1391.    n = Form1.Count - 1
  1392.    For i = 0 To n
  1393.       Tmp1 = Tmp1 + "Control name is '" & cGetCtlNameIndex(Form1.Controls(i)) & "'     Control Class is '" & cGetCtlClass(Form1.Controls(i)) & "'" + Chr$(13)
  1394.    Next i
  1395.    Label3.Caption = Tmp1
  1396. End Sub
  1397.  
  1398. Sub TestDAL (CreateOrUse As Integer)
  1399.  
  1400.    Dim Tmp        As String
  1401.    Dim ErrCode    As Integer
  1402.    Dim DA         As tagDISKARRAY
  1403.  
  1404.    ErrCode = cMakeDir("c:\t2w_tmp")
  1405.  
  1406.    DA.nFilename = "c:\t2w_tmp\dalong.tmp"
  1407.    DA.nType = DA_LONG
  1408.    DA.nRows = 100
  1409.    DA.nCols = 100
  1410.    DA.nSheets = 2
  1411.  
  1412.    If (CreateOrUse <> 1) Then
  1413.       ErrCode = cDACreate(DA, CreateOrUse)
  1414.    Else
  1415.       ErrCode = cDACreate(DA, False)
  1416.       ErrCode = cDAClear(DA)
  1417.    End If
  1418.  
  1419.    Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
  1420.  
  1421.    If (ErrCode = True) Then
  1422.       
  1423.       Tmp = Tmp & "DA.daSize       = " & DA.daSize & Chr$(13)
  1424.       Tmp = Tmp & "DA.Signature    = " & DA.Signature & Chr$(13)
  1425.       Tmp = Tmp & "DA.nFilename    = " & Trim$(DA.nFilename) & Chr$(13)
  1426.       Tmp = Tmp & "DA.nType        = " & DA.nType & Chr$(13)
  1427.       Tmp = Tmp & "DA.nRows        = " & DA.nRows & Chr$(13)
  1428.       Tmp = Tmp & "DA.nCols        = " & DA.nCols & Chr$(13)
  1429.       Tmp = Tmp & "DA.nSheets      = " & DA.nSheets & Chr$(13)
  1430.       Tmp = Tmp & "DA.rHandle      = " & DA.rHandle & Chr$(13)
  1431.       Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & Chr$(13)
  1432.       Tmp = Tmp & "DA.rFileSize    = " & DA.rFileSize & Chr$(13)
  1433.       Tmp = Tmp & "DA.rParts       = " & DA.rParts & Chr$(13)
  1434.       Tmp = Tmp & "DA.rRemain      = " & DA.rRemain & Chr$(13)
  1435.       Tmp = Tmp & "DA.rSheetSize   = " & DA.rSheetSize & Chr$(13)
  1436.       Tmp = Tmp & "DA.rTime        = " & DA.rTime & Chr$(13) & Chr$(13)
  1437.  
  1438.       If (CreateOrUse = True) Then
  1439.  
  1440.      Call cDAPut(DA, 1, 1, 1, 12345)
  1441.      Call cDAPut(DA, 1, DA.nCols, 1, 56789)
  1442.      Call cDAPut(DA, DA.nRows, 1, 1, 54321)
  1443.      Call cDAPut(DA, DA.nRows, DA.nCols, 1, 98765)
  1444.    
  1445.      Call cDAPut(DA, 1, 1, 2, 12345678)
  1446.      Call cDAPut(DA, 1, DA.nCols, 2, 34567890)
  1447.      Call cDAPut(DA, DA.nRows, 1, 2, 123456789)
  1448.      Call cDAPut(DA, DA.nRows, DA.nCols, 2, 987654321)
  1449.  
  1450.       End If
  1451.    
  1452.       Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & cDAGet(DA, 1, 1, 1) & "   , time : " & DA.rTime & Chr$(13)
  1453.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, Value : " & cDAGet(DA, 1, DA.nCols, 1) & "   , time : " & DA.rTime & Chr$(13)
  1454.       Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:1, Value : " & cDAGet(DA, DA.nRows, 1, 1) & "   , time : " & DA.rTime & Chr$(13)
  1455.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, Value : " & cDAGet(DA, DA.nRows, DA.nCols, 1) & "   , time : " & DA.rTime & Chr$(13)
  1456.    
  1457.       Tmp = Tmp & "R:1  , C:1  , D:2, Value : " & cDAGet(DA, 1, 1, 2) & "   , time : " & DA.rTime & Chr$(13)
  1458.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:2, Value : " & cDAGet(DA, 1, DA.nCols, 2) & "   , time : " & DA.rTime & Chr$(13)
  1459.       Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:2, Value : " & cDAGet(DA, DA.nRows, 1, 2) & "   , time : " & DA.rTime & Chr$(13)
  1460.       Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & cDAGet(DA, DA.nRows, DA.nCols, 2) & "   , time : " & DA.rTime & Chr$(13)
  1461.  
  1462.    End If
  1463.  
  1464.    Call cDAClose(DA, False)
  1465.  
  1466.    Label3.Caption = Tmp
  1467.  
  1468. End Sub
  1469.  
  1470. Sub TestDAStr (CreateOrUse)
  1471.  
  1472.    Dim Tmp        As String
  1473.    Dim ErrCode    As Integer
  1474.    Dim DA         As tagDISKARRAY
  1475.  
  1476.    ErrCode = cMakeDir("c:\t2w_tmp")
  1477.  
  1478.    DA.nFilename = "c:\t2w_tmp\dastring.tmp"
  1479.    DA.nType = 50
  1480.    DA.nRows = 100
  1481.    DA.nCols = 100
  1482.    DA.nSheets = 2
  1483.  
  1484.    If (CreateOrUse <> 1) Then
  1485.       ErrCode = cDACreate(DA, CreateOrUse)
  1486.    Else
  1487.       ErrCode = cDACreate(DA, False)
  1488.       ErrCode = cDAClear(DA)
  1489.    End If
  1490.  
  1491.    Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
  1492.  
  1493.    If (ErrCode = True) Then
  1494.       
  1495.       Tmp = Tmp & "DA.daSize       = " & DA.daSize & Chr$(13)
  1496.       Tmp = Tmp & "DA.Signature    = " & DA.Signature & Chr$(13)
  1497.       Tmp = Tmp & "DA.nFilename    = " & Trim$(DA.nFilename) & Chr$(13)
  1498.       Tmp = Tmp & "DA.nType        = " & DA.nType & Chr$(13)
  1499.       Tmp = Tmp & "DA.nRows        = " & DA.nRows & Chr$(13)
  1500.       Tmp = Tmp & "DA.nCols        = " & DA.nCols & Chr$(13)
  1501.       Tmp = Tmp & "DA.nSheets      = " & DA.nSheets & Chr$(13)
  1502.       Tmp = Tmp & "DA.rHandle      = " & DA.rHandle & Chr$(13)
  1503.       Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & Chr$(13)
  1504.       Tmp = Tmp & "DA.rFileSize    = " & DA.rFileSize & Chr$(13)
  1505.       Tmp = Tmp & "DA.rParts       = " & DA.rParts & Chr$(13)
  1506.       Tmp = Tmp & "DA.rRemain      = " & DA.rRemain & Chr$(13)
  1507.       Tmp = Tmp & "DA.rSheetSize   = " & DA.rSheetSize & Chr$(13)
  1508.       Tmp = Tmp & "DA.rTime        = " & DA.rTime & Chr$(13) & Chr$(13)
  1509.  
  1510.       If (CreateOrUse = True) Then
  1511.       
  1512.      Call cDAPut(DA, 1, 1, 1, "D:1, ABCDEFGHIJ")
  1513.      Call cDAPut(DA, 1, DA.nCols, 1, "D:1, abcdefghij")
  1514.      Call cDAPut(DA, DA.nRows, 1, 1, "D:1, OPQRSTUVWXYZ")
  1515.      Call cDAPut(DA, DA.nRows, DA.nCols, 1, "D:1, oprqstuvwxyz")
  1516.    
  1517.      Call cDAPut(DA, 1, 1, 2, "D:2, 1234567890")
  1518.      Call cDAPut(DA, 1, DA.nCols, 2, "D:2, 0987654321")
  1519.      Call cDAPut(DA, DA.nRows, 1, 2, "D:2, 12345ABCDE")
  1520.      Call cDAPut(DA, DA.nRows, DA.nCols, 2, "D:2, VWXYZ54321")
  1521.  
  1522.       End If
  1523.    
  1524.       Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & Trim$(cDAGet(DA, 1, 1, 1)) & "   , time : " & DA.rTime & Chr$(13)
  1525.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 1)) & "   , time : " & DA.rTime & Chr$(13)
  1526.       Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 1)) & "   , time : " & DA.rTime & Chr$(13)
  1527.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 1)) & "   , time : " & DA.rTime & Chr$(13)
  1528.    
  1529.       Tmp = Tmp & "R:1  , C:1  , D:2, Value : " & Trim$(cDAGet(DA, 1, 1, 2)) & "   , time : " & DA.rTime & Chr$(13)
  1530.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 2)) & "   , time : " & DA.rTime & Chr$(13)
  1531.       Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 2)) & "   , time : " & DA.rTime & Chr$(13)
  1532.       Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 2)) & "   , time : " & DA.rTime & Chr$(13)
  1533.  
  1534.    End If
  1535.  
  1536.    Call cDAClose(DA, False)
  1537.  
  1538.    Label3.Caption = Tmp
  1539.    
  1540. End Sub
  1541.  
  1542. Sub TestDAType (CreateOrUse As Integer)
  1543.  
  1544.    Dim Tmp        As String
  1545.    Dim ErrCode    As Integer
  1546.    Dim DA         As tagDISKARRAY
  1547.    Dim TE         As tagTASKENTRY
  1548.  
  1549.    ErrCode = cMakeDir("c:\t2w_tmp")
  1550.  
  1551.    DA.nFilename = "c:\t2w_tmp\datype.tmp"
  1552.    DA.nType = Len(TE)
  1553.    DA.nRows = 100
  1554.    DA.nCols = 100
  1555.    DA.nSheets = 2
  1556.  
  1557.    If (CreateOrUse <> 1) Then
  1558.       ErrCode = cDACreate(DA, CreateOrUse)
  1559.    Else
  1560.       ErrCode = cDACreate(DA, False)
  1561.       ErrCode = cDAClear(DA)
  1562.    End If
  1563.  
  1564.    Tmp = Tmp & "ErrCode = " & ErrCode & Chr$(13) & Chr$(13)
  1565.  
  1566.    If (ErrCode = True) Then
  1567.       
  1568.       Tmp = Tmp & "DA.daSize       = " & DA.daSize & Chr$(13)
  1569.       Tmp = Tmp & "DA.Signature    = " & DA.Signature & Chr$(13)
  1570.       Tmp = Tmp & "DA.nFilename    = " & Trim$(DA.nFilename) & Chr$(13)
  1571.       Tmp = Tmp & "DA.nType        = " & DA.nType & Chr$(13)
  1572.       Tmp = Tmp & "DA.nRows        = " & DA.nRows & Chr$(13)
  1573.       Tmp = Tmp & "DA.nCols        = " & DA.nCols & Chr$(13)
  1574.       Tmp = Tmp & "DA.nSheets      = " & DA.nSheets & Chr$(13)
  1575.       Tmp = Tmp & "DA.rHandle      = " & DA.rHandle & Chr$(13)
  1576.       Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & Chr$(13)
  1577.       Tmp = Tmp & "DA.rFileSize    = " & DA.rFileSize & Chr$(13)
  1578.       Tmp = Tmp & "DA.rParts       = " & DA.rParts & Chr$(13)
  1579.       Tmp = Tmp & "DA.rRemain      = " & DA.rRemain & Chr$(13)
  1580.       Tmp = Tmp & "DA.rSheetSize   = " & DA.rSheetSize & Chr$(13)
  1581.       Tmp = Tmp & "DA.rTime        = " & DA.rTime & Chr$(13) & Chr$(13)
  1582.  
  1583.       If (CreateOrUse = True) Then
  1584.    
  1585.      ErrCode = cTasks(TE, True)
  1586.      Call cDAPutType(DA, 1, 1, 1, TE)
  1587.      ErrCode = cTasks(TE, False)
  1588.      Call cDAPutType(DA, 1, DA.nCols, 1, TE)
  1589.      ErrCode = cTasks(TE, False)
  1590.      Call cDAPutType(DA, DA.nRows, 1, 1, TE)
  1591.      ErrCode = cTasks(TE, False)
  1592.      Call cDAPutType(DA, DA.nRows, DA.nCols, 1, TE)
  1593.    
  1594.      ErrCode = cTasks(TE, False)
  1595.      Call cDAPutType(DA, 1, 1, 2, TE)
  1596.      ErrCode = cTasks(TE, False)
  1597.      Call cDAPutType(DA, 1, DA.nCols, 2, TE)
  1598.      ErrCode = cTasks(TE, False)
  1599.      Call cDAPutType(DA, DA.nRows, 1, 2, TE)
  1600.      ErrCode = cTasks(TE, False)
  1601.      Call cDAPutType(DA, DA.nRows, DA.nCols, 2, TE)
  1602.  
  1603.       End If
  1604.  
  1605.       Call cDAGetType(DA, 1, 1, 1, TE)
  1606.       Tmp = Tmp & "R:1  , C:1  , D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1607.       Call cDAGetType(DA, 1, DA.nCols, 1, TE)
  1608.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1609.       Call cDAGetType(DA, DA.nRows, 1, 1, TE)
  1610.       Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1611.       Call cDAGetType(DA, DA.nRows, DA.nCols, 1, TE)
  1612.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1613.    
  1614.       Call cDAGetType(DA, 1, 1, 2, TE)
  1615.       Tmp = Tmp & "R:1  , C:1  , D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1616.       Call cDAGetType(DA, 1, DA.nCols, 2, TE)
  1617.       Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1618.       Call cDAGetType(DA, DA.nRows, 1, 2, TE)
  1619.       Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1620.       Call cDAGetType(DA, DA.nRows, DA.nCols, 2, TE)
  1621.       Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & Chr$(13)
  1622.  
  1623.    End If
  1624.  
  1625.    Call cDAClose(DA, False)
  1626.  
  1627.    Label3.Caption = Tmp
  1628.    
  1629. End Sub
  1630.  
  1631.  Sub TestDecrypt ()
  1632.  
  1633.    Dim title      As String
  1634.    Dim Tmp        As String
  1635.    Dim Tmp1       As String
  1636.    Dim Tmp2       As String
  1637.    Dim Tmp3       As String
  1638.    Dim i          As Integer
  1639.    Dim j          As Integer
  1640.    
  1641.    Tmp3 = cToHexa(Format$(76543210))
  1642.    Tmp2 = "TIME TO WIN"
  1643.  
  1644.    For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_3
  1645.       Tmp = cEncrypt(Tmp2, Tmp3, i)
  1646.       Tmp1 = Tmp1 & "Decrypt (level " & i & ") of [" & Tmp & "] with '?' is "
  1647.       Tmp1 = Tmp1 & "[" & cDecrypt(Tmp, Tmp3, i) & "]" & Chr$(13) & Chr$(13)
  1648.    Next i
  1649.  
  1650.    cStartBasisTimer
  1651.    For i = 1 To Item
  1652.       Tmp2 = cDecrypt(Tmp2, Tmp1, ENCRYPT_LEVEL_3)
  1653.    Next i
  1654.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1655.  
  1656.    Label3.Caption = Tmp1
  1657.  
  1658. End Sub
  1659.  
  1660.  Sub TestDeviationI ()
  1661.  
  1662.    Dim title      As String
  1663.    Dim Tmp        As String
  1664.    Dim Tmp1       As String
  1665.    Dim Tmp2       As String
  1666.    Dim i          As Integer
  1667.    Dim j          As Integer
  1668.    Dim m          As Double
  1669.    Dim n          As Double
  1670.    
  1671.    ReDim array(ItemMean) As Integer
  1672.    Randomize Timer
  1673.  
  1674.    m = 0
  1675.    For i = LBound(array) To UBound(array)
  1676.       array(i) = Int(RandI * Rnd(1))
  1677.       m = m + array(i)
  1678.       List1.AddItem "" & array(i)
  1679.    Next i
  1680.    m = m / (UBound(array) - LBound(array) + 1)
  1681.    
  1682.    n = 0
  1683.    For i = LBound(array) To UBound(array)
  1684.       n = n + ((array(i) - m) * (array(i) - m))
  1685.    Next i
  1686.    n = (Sqr(n) / (UBound(array) - LBound(array) + 1))
  1687.  
  1688.    Tmp1 = "The Deviation of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cDeviationI(array()) & " (" & n & ")" & Chr$(13) & Chr$(13)
  1689.  
  1690.    cStartBasisTimer
  1691.    For i = 1 To ItemFile
  1692.       m = cDeviationI(array())
  1693.    Next i
  1694.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  1695.  
  1696.    Label3.Caption = Tmp1
  1697.  
  1698. End Sub
  1699.  
  1700.  Sub TestDriveType ()
  1701.  
  1702.    Dim title      As String
  1703.    Dim Tmp        As String
  1704.    Dim Tmp1       As String
  1705.    Dim Tmp2       As String
  1706.    Dim i          As Integer
  1707.    Dim j          As Integer
  1708.  
  1709.    Tmp1 = ""
  1710.    
  1711.    For i = 1 To 26
  1712.       j = cGetDriveType(Chr$(64 + i))
  1713.       If (j > 0) Then
  1714.      Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is "
  1715.      Select Case j
  1716.         Case 2
  1717.            Tmp1 = Tmp1 & "removable disk" & Chr$(13)
  1718.         Case 3
  1719.            Tmp1 = Tmp1 & "fixed disk" & Chr$(13)
  1720.         Case 4
  1721.            Tmp1 = Tmp1 & "remote disk" & Chr$(13)
  1722.         Case 20
  1723.            Tmp1 = Tmp1 & "cd-rom" & Chr$(13)
  1724.      End Select
  1725.       End If
  1726.    Next i
  1727.  
  1728.    Tmp1 = Tmp1 + Chr$(13)
  1729.  
  1730.    cStartBasisTimer
  1731.    For i = 1 To Item
  1732.       j = cGetDriveType("C")
  1733.    Next i
  1734.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1735.  
  1736.    Label3.Caption = Tmp1
  1737.  
  1738. End Sub
  1739.  
  1740.  Sub TestEncrypt ()
  1741.  
  1742.    Dim title      As String
  1743.    Dim Tmp        As String
  1744.    Dim Tmp1       As String
  1745.    Dim Tmp2       As String
  1746.    Dim Tmp3       As String
  1747.    Dim i          As Integer
  1748.    Dim j          As Integer
  1749.    
  1750.    Tmp3 = cToHexa(Format$(76543210))
  1751.    Tmp2 = "TIME TO WIN"
  1752.  
  1753.    Tmp = Text1.Text
  1754.  
  1755.    For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_3
  1756.       Tmp1 = Tmp1 & "Encrypt (level " & i & ") of [" & Tmp2 & "] with '?' is "
  1757.       Tmp1 = Tmp1 & "[" & cEncrypt(Tmp2, Tmp3, i) & "]" & Chr$(13) & Chr$(13)
  1758.    Next i
  1759.  
  1760.    cStartBasisTimer
  1761.    For i = 1 To Item
  1762.       Tmp2 = cEncrypt(Tmp2, Tmp1, ENCRYPT_LEVEL_3)
  1763.    Next i
  1764.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1765.  
  1766.    Label3.Caption = Tmp1
  1767.  
  1768. End Sub
  1769.  
  1770.  Sub TestExpandTab ()
  1771.  
  1772.    Dim title      As String
  1773.    Dim Tmp        As String
  1774.    Dim Tmp1       As String
  1775.    Dim Tmp2       As String
  1776.    Dim i          As Integer
  1777.    Dim j          As Integer
  1778.    
  1779.  
  1780.    Tmp = "A" & Chr$(9) & "BC" & Chr$(9) & "DEF" & Chr$(9) & "GHIJ" & Chr$(9) & ""
  1781.    title = "Expand tab (2 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  1782.    Tmp1 = title & cExpandTab(Tmp, 2) & Chr$(13) & Chr$(13)
  1783.  
  1784.    Tmp = "A" & Chr$(9) & "BC" & Chr$(9) & "DEF" & Chr$(9) & "GHIJ" & Chr$(9) & ""
  1785.    title = "Expand tab (4 chars) into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  1786.    Tmp1 = Tmp1 & title & cExpandTab(Tmp, 4) & Chr$(13) & Chr$(13)
  1787.  
  1788.    cStartBasisTimer
  1789.    For i = 1 To Item
  1790.       Tmp2 = cExpandTab(Tmp, 3)
  1791.    Next i
  1792.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1793.  
  1794.    Label3.Caption = Tmp1
  1795.  
  1796. End Sub
  1797.  
  1798. Sub TestFileCmp ()
  1799.    
  1800.    Dim title      As String
  1801.    Dim Tmp        As String
  1802.    Dim Tmp1       As String
  1803.    Dim Tmp2       As String
  1804.    Dim i          As Integer
  1805.    Dim j          As Integer
  1806.    
  1807.    Tmp1 = ""
  1808.    Tmp = "c:\autoexec.bat"
  1809.    Tmp2 = "c:\tmp\autoexec.bat"
  1810.  
  1811.    Tmp1 = Tmp1 & "Compare file attribute " & Tmp & " with " & Tmp2 & " is " & cCmpFileAttribute(Tmp, Tmp2) & Chr$(13)
  1812.    Tmp1 = Tmp1 & "Compare file size " & Tmp & " with " & Tmp2 & " is " & cCmpFileSize(Tmp, Tmp2) & Chr$(13)
  1813.    Tmp1 = Tmp1 & "Compare file time " & Tmp & " with " & Tmp2 & " is " & cCmpFileTime(Tmp, Tmp2) & Chr$(13)
  1814.    Tmp1 = Tmp1 & "Compare file contents (case sensitive) " & Tmp & " with " & Tmp2 & " is " & cCmpFileContents(Tmp, Tmp2, True) & Chr$(13)
  1815.    Tmp1 = Tmp1 & "Compare file contents (not sensitive) " & Tmp & " with " & Tmp2 & " is " & cCmpFileContents(Tmp, Tmp2, False) & Chr$(13) & Chr$(13)
  1816.  
  1817.    cStartBasisTimer
  1818.    For i = 1 To Item
  1819.       j = cCmpFileSize(Tmp, Tmp2)
  1820.    Next i
  1821.    Tmp1 = Tmp1 & "file size speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  1822.  
  1823.    cStartBasisTimer
  1824.    For i = 1 To Item
  1825.       j = cCmpFileContents(Tmp, Tmp2, True)
  1826.    Next i
  1827.    Tmp1 = Tmp1 & "file contents (cs) speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  1828.  
  1829.    cStartBasisTimer
  1830.    For i = 1 To Item
  1831.       j = cCmpFileContents(Tmp, Tmp2, False)
  1832.    Next i
  1833.    Tmp1 = Tmp1 & "file contents (ns) speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  1834.  
  1835.    Label3.Caption = Tmp1
  1836.  
  1837. End Sub
  1838.  
  1839. Sub TestFileCompressTab ()
  1840.  
  1841.    Dim title      As String
  1842.    Dim Tmp        As String
  1843.    Dim Tmp1       As String
  1844.    Dim Tmp2       As String
  1845.    Dim Tmp3       As String
  1846.    Dim i          As Integer
  1847.    Dim j          As Long
  1848.    
  1849.    Tmp1 = ""
  1850.    Tmp = "c:\autoexec.bat"
  1851.    Tmp2 = "c:\autoexec.tb1"
  1852.    Tmp3 = "c:\autoexec.tb2"
  1853.    For i = 1 To 4
  1854.       Tmp1 = Tmp1 & "File CompressTab (" & i & " spaces = 1 tab) " & Tmp & " to " & Tmp2 & " is " & cFileCompressTab(Tmp, Tmp2, i) & Chr$(13)
  1855.       Tmp1 = Tmp1 & "File ExpandTab (" & i & " spaces = 1 tab) " & Tmp2 & " to " & Tmp3 & " is " & cFileExpandTab(Tmp2, Tmp3, i) & Chr$(13)
  1856.       Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & Chr$(13) & Chr$(13)
  1857.    Next i
  1858.  
  1859.    cStartBasisTimer
  1860.    For i = 1 To Item
  1861.       j = cFileCompressTab(Tmp, Tmp2, 3)
  1862.    Next i
  1863.    j = cFileExpandTab(Tmp2, Tmp3, 3)
  1864.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  1865.  
  1866.    Label3.Caption = Tmp1
  1867.  
  1868. End Sub
  1869.  
  1870. Sub TestFileCopy ()
  1871.  
  1872.    Dim title      As String
  1873.    Dim Tmp        As String
  1874.    Dim Tmp1       As String
  1875.    Dim Tmp2       As String
  1876.    Dim i          As Integer
  1877.    Dim j          As Long
  1878.    
  1879.    Tmp1 = ""
  1880.    Tmp = "c:\autoexec.bat"
  1881.    Tmp2 = "c:\autoexec.tab"
  1882.  
  1883.    Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & Chr$(13) & Chr$(13)
  1884.  
  1885.    cStartBasisTimer
  1886.    For i = 1 To Item
  1887.       j = cFileCopy(Tmp, Tmp2)
  1888.    Next i
  1889.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  1890.  
  1891.    Label3.Caption = Tmp1
  1892.  
  1893. End Sub
  1894.  
  1895.  Sub TestFileCRC32 ()
  1896.  
  1897.    Dim title      As String
  1898.    Dim Tmp        As String
  1899.    Dim Tmp1       As String
  1900.    Dim Tmp2       As String
  1901.    Dim i          As Integer
  1902.    Dim j          As Integer
  1903.    Dim k          As Long
  1904.    
  1905.    Tmp = "c:\config.sys"
  1906.    title = "CRC32 for file '" & Tmp & "' is "
  1907.  
  1908.    Tmp1 = Tmp1 & title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & Chr$(13) & Chr$(13)
  1909.  
  1910.    Tmp = "c:\autoexec.bat"
  1911.    title = "CRC32 for file '" & Tmp & "' is "
  1912.  
  1913.    Tmp1 = Tmp1 & title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & Chr$(13) & Chr$(13)
  1914.  
  1915.    Tmp = "c:\command.com"
  1916.    title = "CRC32 for file '" & Tmp & "' is "
  1917.  
  1918.    Tmp1 = Tmp1 & title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & Chr$(13) & Chr$(13)
  1919.  
  1920.    cStartBasisTimer
  1921.    For i = 1 To ItemFile
  1922.       k = cFileCRC32(Tmp, OPEN_MODE_BINARY)
  1923.    Next i
  1924.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  1925.  
  1926.    Label3.Caption = Tmp1
  1927.  
  1928. End Sub
  1929.  
  1930. Sub TestFileEncrypt ()
  1931.  
  1932.    Dim title      As String
  1933.    Dim Tmp        As String
  1934.    Dim Tmp1       As String
  1935.    Dim Tmp2       As String
  1936.    Dim Tmp3       As String
  1937.    Dim Tmp4       As String
  1938.    Dim i          As Integer
  1939.    Dim j          As Long
  1940.    
  1941.    Tmp1 = ""
  1942.    Tmp = "c:\autoexec.bat"
  1943.    Tmp2 = "c:\autoexec.tb1"
  1944.    Tmp3 = "c:\autoexec.tb2"
  1945.    Tmp4 = cToHexa(Format$(76543210))
  1946.  
  1947.    For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_3
  1948.       Tmp1 = Tmp1 & "File Encrypt (level " & i & ") '" & Tmp & "' with '?' to '" & Tmp2 & "' is " & cFileEncrypt(Tmp, Tmp2, Tmp4, i) & Chr$(13)
  1949.       Tmp1 = Tmp1 & "File Decrypt (level " & i & ") '" & Tmp2 & "' with '?' to '" & Tmp3 & "' is " & cFileDecrypt(Tmp2, Tmp3, Tmp4, i) & Chr$(13)
  1950.       Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & Chr$(13) & Chr$(13)
  1951.    Next i
  1952.  
  1953.    cStartBasisTimer
  1954.    For i = 1 To Item
  1955.       j = cFileEncrypt(Tmp, Tmp2, Tmp4, ENCRYPT_LEVEL_3)
  1956.    Next i
  1957.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  1958.  
  1959.    Label3.Caption = Tmp1
  1960.  
  1961. End Sub
  1962.  
  1963. Sub TestFileFilter ()
  1964.  
  1965.    Dim title      As String
  1966.    Dim Tmp        As String
  1967.    Dim Tmp1       As String
  1968.    Dim Tmp2       As String
  1969.    Dim Tmp3       As String
  1970.    Dim i          As Integer
  1971.    Dim j          As Long
  1972.    
  1973.    Tmp1 = ""
  1974.    Tmp = "c:\autoexec.bat"
  1975.    Tmp2 = "c:\autoexec.tab"
  1976.    
  1977.    Tmp3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  1978.    Tmp3 = Tmp3 + LCase$(Tmp)
  1979.  
  1980.    Tmp1 = Tmp1 & "File Filter (A-Z, a-z) " & Tmp & " to " & Tmp2 & " is " & cFileFilter(Tmp, Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  1981.  
  1982.    cStartBasisTimer
  1983.    For i = 1 To Item
  1984.       j = cFileFilter(Tmp, Tmp2, Tmp3)
  1985.    Next i
  1986.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  1987.  
  1988.    Label3.Caption = Tmp1
  1989.  
  1990. End Sub
  1991.  
  1992. Sub TestFileFilterNot ()
  1993.  
  1994.    Dim title      As String
  1995.    Dim Tmp        As String
  1996.    Dim Tmp1       As String
  1997.    Dim Tmp2       As String
  1998.    Dim Tmp3       As String
  1999.    Dim i          As Integer
  2000.    Dim j          As Long
  2001.    
  2002.    Tmp1 = ""
  2003.    Tmp = "c:\autoexec.bat"
  2004.    Tmp2 = "c:\autoexec.tab"
  2005.  
  2006.    Tmp3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  2007.    Tmp3 = Tmp3 + LCase$(Tmp) + " =" + Chr$(13) + Chr$(10)
  2008.    
  2009.    Tmp1 = Tmp1 & "File Filter Not in (A-Z, a-z, CR, LF, SPACE, =) " & Tmp & " to " & Tmp2 & " is " & cFileFilterNot(Tmp, Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  2010.  
  2011.    cStartBasisTimer
  2012.    For i = 1 To Item
  2013.       j = cFileFilterNot(Tmp, Tmp2, Tmp3)
  2014.    Next i
  2015.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2016.  
  2017.    Label3.Caption = Tmp1
  2018.  
  2019. End Sub
  2020.  
  2021.  Sub TestFileGetAttrib ()
  2022.  
  2023.    Dim title      As String
  2024.    Dim Tmp        As String
  2025.    Dim Tmp1       As String
  2026.    Dim Tmp2       As String
  2027.    Dim i          As Integer
  2028.    Dim j          As Integer
  2029.    
  2030.    Dim FileAttrib As FileAttributeType
  2031.  
  2032.    Tmp1 = ""
  2033.  
  2034.    Tmp = cFilesInDirectory("*.*", True)
  2035.    j = cFileGetAttrib(Tmp, FileAttrib)
  2036.  
  2037.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2038.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2039.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2040.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & Chr$(13)
  2041.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2042.  
  2043.    Tmp = cSubDirectory("*.*", True)
  2044.    Tmp = cSubDirectory("*.*", False)
  2045.    Tmp = cSubDirectory("*.*", False)
  2046.    j = cFileGetAttrib(Tmp, FileAttrib)
  2047.  
  2048.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2049.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2050.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2051.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & Chr$(13)
  2052.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2053.  
  2054.    cStartBasisTimer
  2055.    For i = 1 To Item
  2056.       j = cFileGetAttrib(Tmp, FileAttrib)
  2057.    Next i
  2058.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  2059.  
  2060.    Label3.Caption = Tmp1
  2061.  
  2062. End Sub
  2063.  
  2064. Sub TestFileLineCount ()
  2065.  
  2066.    Dim title      As String
  2067.    Dim Tmp        As String
  2068.    Dim Tmp1       As String
  2069.    Dim Tmp2       As String
  2070.    Dim Tmp3       As String
  2071.    Dim i          As Integer
  2072.    Dim j          As Long
  2073.    
  2074.    Tmp1 = ""
  2075.  
  2076.    Tmp = "C:\AUTOEXEC.BAT"
  2077.    Tmp1 = Tmp1 & "Total lines in '" & Tmp & "' are " & cFileLineCount(Tmp) & Chr$(13) & Chr$(13)
  2078.  
  2079.    Tmp = "C:\CONFIG.SYS"
  2080.    Tmp1 = Tmp1 & "Total lines in '" & Tmp & "' are " & cFileLineCount(Tmp) & Chr$(13) & Chr$(13)
  2081.  
  2082.    cStartBasisTimer
  2083.    For i = 1 To Item
  2084.       j = cFileLineCount(Tmp)
  2085.    Next i
  2086.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2087.  
  2088.    Label3.Caption = Tmp1
  2089.  
  2090. End Sub
  2091.  
  2092. Sub TestFileMerge ()
  2093.  
  2094.    Dim title      As String
  2095.    Dim Tmp        As String
  2096.    Dim Tmp1       As String
  2097.    Dim Tmp2       As String
  2098.    Dim Tmp3       As String
  2099.    Dim i          As Integer
  2100.    Dim j          As Long
  2101.    
  2102.    Tmp1 = ""
  2103.    Tmp = "c:\autoexec.bat"
  2104.    Tmp2 = "c:\config.sys"
  2105.    Tmp3 = "c:\merge.byt"
  2106.    
  2107.    Tmp1 = Tmp1 & "File Merge '" & Tmp & "' and '" & Tmp2 & "' to '" & Tmp3 & "' is " & cFileMerge(Tmp, Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  2108.  
  2109.    cStartBasisTimer
  2110.    For i = 1 To Item
  2111.       j = cFileMerge(Tmp, Tmp2, Tmp3)
  2112.    Next i
  2113.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2114.  
  2115.    Label3.Caption = Tmp1
  2116.  
  2117. End Sub
  2118.  
  2119.  Sub TestFilePathExists ()
  2120.  
  2121.    Dim title      As String
  2122.    Dim Tmp        As String
  2123.    Dim Tmp1       As String
  2124.    Dim Tmp2       As String
  2125.    Dim i          As Integer
  2126.    Dim j          As Integer
  2127.    
  2128.  
  2129.    Tmp1 = "File time2win.dll " & IIf(cFilePathExists("time2win.dll") = True, "found", "not found") & Chr$(13) & Chr$(13)
  2130.  
  2131.    Tmp1 = Tmp1 & "Path \windows " & IIf(cFilePathExists("\windows") = True, "found", "not found") & Chr$(13) & Chr$(13)
  2132.  
  2133.    Tmp1 = Tmp1 & "Path \windows\wintime " & IIf(cFilePathExists("\windows\wintime") = True, "found", "not found") & Chr$(13) & Chr$(13)
  2134.  
  2135.    cStartBasisTimer
  2136.    For i = 1 To Item
  2137.       j = cFilePathExists("time2win.dll")
  2138.    Next i
  2139.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  2140.  
  2141.    Label3.Caption = Tmp1
  2142.  
  2143. End Sub
  2144.  
  2145.  Sub TestFileResetAllAttrib ()
  2146.  
  2147.    Dim title      As String
  2148.    Dim Tmp        As String
  2149.    Dim Tmp1       As String
  2150.    Dim Tmp2       As String
  2151.    Dim i          As Integer
  2152.    Dim j          As Integer
  2153.    
  2154.    Dim FileAttrib As FileAttributeType
  2155.  
  2156.    Tmp1 = ""
  2157.    Tmp = "TEST.DAT"
  2158.  
  2159.    Call CreateFile
  2160.  
  2161.    FileAttrib.Archive = False
  2162.    FileAttrib.Hidden = True
  2163.    FileAttrib.ReadOnly = True
  2164.    FileAttrib.System = True
  2165.  
  2166.    j = cFileResetAllAttrib(Tmp)
  2167.    j = cFileGetAttrib(Tmp, FileAttrib)
  2168.  
  2169.    Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
  2170.    Tmp1 = Tmp1 & " flag archive" & Chr$(13)
  2171.    Tmp1 = Tmp1 & " flag hidden" & Chr$(13)
  2172.    Tmp1 = Tmp1 & " flag read-only" & Chr$(13)
  2173.    Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
  2174.  
  2175.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2176.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2177.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2178.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2179.  
  2180.    cStartBasisTimer
  2181.    For i = 1 To ItemFile
  2182.       j = cFileResetAllAttrib(Tmp)
  2183.    Next i
  2184.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2185.  
  2186.    Label3.Caption = Tmp1
  2187.  
  2188. End Sub
  2189.  
  2190.  Sub TestFileResetArchive ()
  2191.  
  2192.    Dim title      As String
  2193.    Dim Tmp        As String
  2194.    Dim Tmp1       As String
  2195.    Dim Tmp2       As String
  2196.    Dim i          As Integer
  2197.    Dim j          As Integer
  2198.    
  2199.  
  2200.    Dim nArchive   As Integer
  2201.    Dim nHidden    As Integer
  2202.    Dim nReadOnly  As Integer
  2203.    Dim nSubDir    As Integer
  2204.    Dim nSystem    As Integer
  2205.  
  2206.    Dim FileAttrib As FileAttributeType
  2207.  
  2208.    Tmp1 = ""
  2209.    Tmp = "TEST.DAT"
  2210.  
  2211.    Call CreateFile
  2212.    j = cFileSetAllAttrib(Tmp)
  2213.  
  2214.    j = cFileResetArchive(Tmp)
  2215.    j = cFileGetAttrib(Tmp, FileAttrib)
  2216.  
  2217.    Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
  2218.    Tmp1 = Tmp1 & " flag archive" & Chr$(13) & Chr$(13)
  2219.  
  2220.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2221.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2222.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2223.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2224.  
  2225.    cStartBasisTimer
  2226.    For i = 1 To ItemFile
  2227.       j = cFileResetArchive(Tmp)
  2228.    Next i
  2229.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2230.  
  2231.    Label3.Caption = Tmp1
  2232.  
  2233. End Sub
  2234.  
  2235.  Sub TestFileResetHidden ()
  2236.  
  2237.    Dim title      As String
  2238.    Dim Tmp        As String
  2239.    Dim Tmp1       As String
  2240.    Dim Tmp2       As String
  2241.    Dim i          As Integer
  2242.    Dim j          As Integer
  2243.    
  2244.  
  2245.    Dim nArchive   As Integer
  2246.    Dim nHidden    As Integer
  2247.    Dim nReadOnly  As Integer
  2248.    Dim nSubDir    As Integer
  2249.    Dim nSystem    As Integer
  2250.  
  2251.    Dim FileAttrib As FileAttributeType
  2252.  
  2253.    Tmp1 = ""
  2254.    Tmp = "TEST.DAT"
  2255.  
  2256.    Call CreateFile
  2257.    j = cFileSetAllAttrib(Tmp)
  2258.  
  2259.    j = cFileResetHidden(Tmp)
  2260.    j = cFileGetAttrib(Tmp, FileAttrib)
  2261.  
  2262.    Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
  2263.    Tmp1 = Tmp1 & " flag hidden" & Chr$(13) & Chr$(13)
  2264.  
  2265.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2266.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2267.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2268.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2269.  
  2270.    cStartBasisTimer
  2271.    For i = 1 To ItemFile
  2272.       j = cFileResetHidden(Tmp)
  2273.    Next i
  2274.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2275.  
  2276.    Label3.Caption = Tmp1
  2277.  
  2278. End Sub
  2279.  
  2280.  Sub TestFileResetReadOnly ()
  2281.  
  2282.    Dim title      As String
  2283.    Dim Tmp        As String
  2284.    Dim Tmp1       As String
  2285.    Dim Tmp2       As String
  2286.    Dim i          As Integer
  2287.    Dim j          As Integer
  2288.    
  2289.    Dim FileAttrib As FileAttributeType
  2290.    Dim nArchive   As Integer
  2291.    Dim nHidden    As Integer
  2292.    Dim nReadOnly  As Integer
  2293.    Dim nSubDir    As Integer
  2294.    Dim nSystem    As Integer
  2295.  
  2296.    Tmp1 = ""
  2297.    Tmp = "TEST.DAT"
  2298.  
  2299.    Call CreateFile
  2300.    j = cFileSetAllAttrib(Tmp)
  2301.  
  2302.    j = cFileResetReadOnly(Tmp)
  2303.    j = cFileGetAttrib(Tmp, FileAttrib)
  2304.  
  2305.    Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
  2306.    Tmp1 = Tmp1 & " flag read-only" & Chr$(13) & Chr$(13)
  2307.  
  2308.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2309.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2310.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2311.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2312.  
  2313.    cStartBasisTimer
  2314.    For i = 1 To ItemFile
  2315.       j = cFileResetReadOnly(Tmp)
  2316.    Next i
  2317.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2318.  
  2319.    Label3.Caption = Tmp1
  2320.  
  2321. End Sub
  2322.  
  2323.  Sub TestFileResetSystem ()
  2324.  
  2325.    Dim title      As String
  2326.    Dim Tmp        As String
  2327.    Dim Tmp1       As String
  2328.    Dim Tmp2       As String
  2329.    Dim i          As Integer
  2330.    Dim j          As Integer
  2331.  
  2332.    Dim FileAttrib As FileAttributeType
  2333.  
  2334.    Tmp1 = ""
  2335.    Tmp = "TEST.DAT"
  2336.  
  2337.    Call CreateFile
  2338.    j = cFileSetAllAttrib(Tmp)
  2339.  
  2340.    j = cFileResetSystem(Tmp)
  2341.    j = cFileGetAttrib(Tmp, FileAttrib)
  2342.  
  2343.    Tmp1 = "File " & Tmp & " has been reset with" & Chr$(13)
  2344.    Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
  2345.  
  2346.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2347.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2348.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2349.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2350.  
  2351.    cStartBasisTimer
  2352.    For i = 1 To ItemFile
  2353.       j = cFileResetSystem(Tmp)
  2354.    Next i
  2355.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2356.  
  2357.    Label3.Caption = Tmp1
  2358.  
  2359. End Sub
  2360.  
  2361. Sub TestFileS ()
  2362.  
  2363.    Dim title      As String
  2364.    Dim Tmp        As String
  2365.    Dim Tmp1       As String
  2366.    Dim Tmp2       As String
  2367.    Dim Tmp3       As String
  2368.    Dim Tmp4       As String
  2369.    Dim i          As Integer
  2370.    Dim j          As Long
  2371.    
  2372.    Tmp1 = ""
  2373.    Tmp = "c:\autoexec.bat"
  2374.    Tmp3 = "re"
  2375.    Tmp4 = "SET"
  2376.    
  2377.    Tmp1 = Tmp1 & "File Search (insensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp3, False) & Chr$(13) & Chr$(13)
  2378.    Tmp1 = Tmp1 & "File Search and Count (insensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp3, False) & Chr$(13) & Chr$(13)
  2379.    Tmp1 = Tmp1 & "File Search (insensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp4, False) & Chr$(13) & Chr$(13)
  2380.    Tmp1 = Tmp1 & "File Search and Count (insensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp4, False) & Chr$(13) & Chr$(13)
  2381.  
  2382.    Tmp1 = Tmp1 & "File Search (sensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp3, True) & Chr$(13) & Chr$(13)
  2383.    Tmp1 = Tmp1 & "File Search and Count (sensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp3, True) & Chr$(13) & Chr$(13)
  2384.    Tmp1 = Tmp1 & "File Search (sensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp4, True) & Chr$(13) & Chr$(13)
  2385.    Tmp1 = Tmp1 & "File Search and Count (sensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp4, True) & Chr$(13) & Chr$(13)
  2386.  
  2387.    cStartBasisTimer
  2388.    For i = 1 To Item
  2389.       If ((i Mod 2) = 1) Then
  2390.      j = cFileSearch(Tmp, Tmp3, False)
  2391.       Else
  2392.      j = cFileSearchCount(Tmp, Tmp3, False)
  2393.       End If
  2394.    Next i
  2395.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2396.  
  2397.    Label3.Caption = Tmp1
  2398.  
  2399. End Sub
  2400.  
  2401.  Sub TestFileSetAllAttrib ()
  2402.  
  2403.    Dim title      As String
  2404.    Dim Tmp        As String
  2405.    Dim Tmp1       As String
  2406.    Dim Tmp2       As String
  2407.    Dim i          As Integer
  2408.    Dim j          As Integer
  2409.    
  2410.    Dim FileAttrib As FileAttributeType
  2411.  
  2412.    Tmp1 = ""
  2413.    Tmp = "TEST.DAT"
  2414.  
  2415.    Call CreateFile
  2416.  
  2417.    j = cFileSetAllAttrib(Tmp)
  2418.    j = cFileGetAttrib(Tmp, FileAttrib)
  2419.  
  2420.    Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
  2421.    Tmp1 = Tmp1 & " flag archive" & Chr$(13)
  2422.    Tmp1 = Tmp1 & " flag hidden" & Chr$(13)
  2423.    Tmp1 = Tmp1 & " flag read-only" & Chr$(13)
  2424.    Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
  2425.  
  2426.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2427.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2428.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2429.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2430.  
  2431.    cStartBasisTimer
  2432.    For i = 1 To ItemFile
  2433.       j = cFileSetAllAttrib(Tmp)
  2434.    Next i
  2435.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2436.  
  2437.    Label3.Caption = Tmp1
  2438.  
  2439. End Sub
  2440.  
  2441.  Sub TestFileSetArchive ()
  2442.  
  2443.    Dim title      As String
  2444.    Dim Tmp        As String
  2445.    Dim Tmp1       As String
  2446.    Dim Tmp2       As String
  2447.    Dim i          As Integer
  2448.    Dim j          As Integer
  2449.    
  2450.    Dim FileAttrib As FileAttributeType
  2451.  
  2452.    Tmp1 = ""
  2453.    Tmp = "TEST.DAT"
  2454.  
  2455.    Call CreateFile
  2456.  
  2457.    j = cFileSetArchive(Tmp)
  2458.    j = cFileGetAttrib(Tmp, FileAttrib)
  2459.  
  2460.    Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
  2461.    Tmp1 = Tmp1 & " flag archive" & Chr$(13) & Chr$(13)
  2462.  
  2463.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2464.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2465.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2466.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2467.  
  2468.    cStartBasisTimer
  2469.    For i = 1 To ItemFile
  2470.       j = cFileSetArchive(Tmp)
  2471.    Next i
  2472.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2473.  
  2474.    Label3.Caption = Tmp1
  2475.  
  2476. End Sub
  2477.  
  2478.  Sub TestFileSetAttrib ()
  2479.  
  2480.    Dim title      As String
  2481.    Dim Tmp        As String
  2482.    Dim Tmp1       As String
  2483.    Dim Tmp2       As String
  2484.    Dim i          As Integer
  2485.    Dim j          As Integer
  2486.    
  2487.    Dim FileAttrib As FileAttributeType
  2488.  
  2489.    Tmp1 = ""
  2490.    Tmp = "TEST.DAT"
  2491.  
  2492.    Call CreateFile
  2493.  
  2494.    FileAttrib.Archive = False
  2495.    FileAttrib.Hidden = True
  2496.    FileAttrib.ReadOnly = True
  2497.    FileAttrib.System = True
  2498.  
  2499.    j = cFileSetAttrib(Tmp, FileAttrib)
  2500.    j = cFileGetAttrib(Tmp, FileAttrib)
  2501.  
  2502.    Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
  2503.    Tmp1 = Tmp1 & " flag hidden" & Chr$(13)
  2504.    Tmp1 = Tmp1 & " flag read-only" & Chr$(13)
  2505.    Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
  2506.  
  2507.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2508.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2509.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2510.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2511.  
  2512.    cStartBasisTimer
  2513.    For i = 1 To ItemFile
  2514.       j = cFileSetAttrib(Tmp, FileAttrib)
  2515.    Next i
  2516.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2517.  
  2518.    Label3.Caption = Tmp1
  2519.  
  2520. End Sub
  2521.  
  2522.  Sub TestFileSetHidden ()
  2523.  
  2524.    Dim title      As String
  2525.    Dim Tmp        As String
  2526.    Dim Tmp1       As String
  2527.    Dim Tmp2       As String
  2528.    Dim i          As Integer
  2529.    Dim j          As Integer
  2530.    
  2531.    Dim FileAttrib As FileAttributeType
  2532.  
  2533.    Tmp1 = ""
  2534.    Tmp = "TEST.DAT"
  2535.  
  2536.    Call CreateFile
  2537.  
  2538.    j = cFileSetHidden(Tmp)
  2539.    j = cFileGetAttrib(Tmp, FileAttrib)
  2540.  
  2541.    Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
  2542.    Tmp1 = Tmp1 & " flag hidden" & Chr$(13) & Chr$(13)
  2543.  
  2544.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2545.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2546.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2547.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2548.  
  2549.    cStartBasisTimer
  2550.    For i = 1 To ItemFile
  2551.       j = cFileSetHidden(Tmp)
  2552.    Next i
  2553.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2554.  
  2555.    Label3.Caption = Tmp1
  2556.  
  2557. End Sub
  2558.  
  2559.  Sub TestFileSetReadOnly ()
  2560.  
  2561.    Dim title      As String
  2562.    Dim Tmp        As String
  2563.    Dim Tmp1       As String
  2564.    Dim Tmp2       As String
  2565.    Dim i          As Integer
  2566.    Dim j          As Integer
  2567.    
  2568.    Dim FileAttrib As FileAttributeType
  2569.  
  2570.    Tmp1 = ""
  2571.    Tmp = "TEST.DAT"
  2572.  
  2573.    Call CreateFile
  2574.  
  2575.    j = cFileSetReadOnly(Tmp)
  2576.    j = cFileGetAttrib(Tmp, FileAttrib)
  2577.  
  2578.    Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
  2579.    Tmp1 = Tmp1 & " flag read-only" & Chr$(13) & Chr$(13)
  2580.  
  2581.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2582.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2583.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2584.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2585.  
  2586.    cStartBasisTimer
  2587.    For i = 1 To ItemFile
  2588.       j = cFileSetReadOnly(Tmp)
  2589.    Next i
  2590.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2591.  
  2592.    Label3.Caption = Tmp1
  2593.  
  2594. End Sub
  2595.  
  2596.  Sub TestFileSetSystem ()
  2597.  
  2598.    Dim title      As String
  2599.    Dim Tmp        As String
  2600.    Dim Tmp1       As String
  2601.    Dim Tmp2       As String
  2602.    Dim i          As Integer
  2603.    Dim j          As Integer
  2604.    
  2605.    Dim FileAttrib As FileAttributeType
  2606.  
  2607.    Tmp1 = ""
  2608.    Tmp = "TEST.DAT"
  2609.  
  2610.    Call CreateFile
  2611.  
  2612.    j = cFileSetSystem(Tmp)
  2613.    j = cFileGetAttrib(Tmp, FileAttrib)
  2614.  
  2615.    Tmp1 = "File " & Tmp & " has been set with" & Chr$(13)
  2616.    Tmp1 = Tmp1 & " flag system" & Chr$(13) & Chr$(13)
  2617.  
  2618.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & Chr$(13)
  2619.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & Chr$(13)
  2620.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & Chr$(13)
  2621.    Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & Chr$(13) & Chr$(13)
  2622.  
  2623.    cStartBasisTimer
  2624.    For i = 1 To ItemFile
  2625.       j = cFileSetSystem(Tmp)
  2626.    Next i
  2627.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2628.  
  2629.    Label3.Caption = Tmp1
  2630.  
  2631. End Sub
  2632.  
  2633.  Sub TestFilesInDirectory ()
  2634.  
  2635.    Dim title      As String
  2636.    Dim Tmp        As String
  2637.    Dim Tmp1       As String
  2638.    Dim Tmp2       As String
  2639.    Dim i          As Integer
  2640.    Dim j          As Integer
  2641.    Dim k          As Long
  2642.    
  2643.  
  2644.    title = "The 10 first files in this directory are" & Chr$(13) & Chr$(13)
  2645.  
  2646.    Tmp1 = title
  2647.    Tmp2 = cFilesInDirectory("*.*", True)
  2648.    For i = 1 To 10
  2649.       Tmp1 = Tmp1 & Tmp2 & Chr$(13)
  2650.       Tmp2 = cFilesInDirectory("*.*", False)
  2651.    Next i
  2652.  
  2653.    Tmp1 = Tmp1 & Chr$(13)
  2654.  
  2655.    cStartBasisTimer
  2656.    For i = 1 To Item
  2657.       Tmp = cFilesInDirectory("*.*", True)
  2658.    Next i
  2659.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  2660.  
  2661.    Label3.Caption = Tmp1
  2662.  
  2663. End Sub
  2664.  
  2665.  Sub TestFileSize ()
  2666.  
  2667.    Dim title      As String
  2668.    Dim Tmp        As String
  2669.    Dim Tmp1       As String
  2670.    Dim Tmp2       As String
  2671.    Dim i          As Integer
  2672.    Dim j          As Integer
  2673.    Dim k          As Long
  2674.  
  2675.    Tmp1 = "File size for time2win.dll is " & cFileSize("time2win.dll") & Chr$(13) & Chr$(13)
  2676.  
  2677.    Tmp1 = Tmp1 & "File size for Path \windows " & cFileSize("\windows") & Chr$(13) & Chr$(13)
  2678.  
  2679.    Tmp1 = Tmp1 & "File size for Path \windows\wintime " & cFileSize("\windows\wintime") & Chr$(13) & Chr$(13)
  2680.  
  2681.    cStartBasisTimer
  2682.    For i = 1 To Item
  2683.       k = cFileSize("time2win.dll")
  2684.    Next i
  2685.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  2686.  
  2687.    Label3.Caption = Tmp1
  2688.  
  2689. End Sub
  2690.  
  2691. Sub TestFileSR ()
  2692.  
  2693.    Dim title      As String
  2694.    Dim Tmp        As String
  2695.    Dim Tmp1       As String
  2696.    Dim Tmp2       As String
  2697.    Dim Tmp3       As String
  2698.    Dim Tmp4       As String
  2699.    Dim i          As Integer
  2700.    Dim j          As Long
  2701.    
  2702.    Tmp1 = ""
  2703.    Tmp = "c:\autoexec.bat"
  2704.    Tmp2 = "c:\autoexec.tab"
  2705.    Tmp3 = "REM"
  2706.    Tmp4 = "rem REMARK"
  2707.  
  2708.    Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & Chr$(13) & Chr$(13)
  2709.    Tmp1 = Tmp1 & "File Search-Replace (insensitive) : '" & Tmp3 & "' -> '" & Tmp4 & "' in '" & Tmp2 & "' is " & cFileSearchAndReplace(Tmp2, Tmp3, Tmp4, "c:\tmp.tmp", False) & Chr$(13) & Chr$(13)
  2710.    Tmp1 = Tmp1 & "File Search-Replace (sensitive) : '" & Tmp4 & "' -> '" & Tmp3 & "' in '" & Tmp2 & "' is " & cFileSearchAndReplace(Tmp2, Tmp4, Tmp3, "c:\tmp.tmp", True) & Chr$(13) & Chr$(13)
  2711.    Tmp1 = Tmp1 & "Compare file contents (insensitive) " & Tmp2 & " with " & Tmp & " is " & IIf(cCmpFileContents(Tmp2, Tmp, False) = True, "same", "not same") & Chr$(13) & Chr$(13)
  2712.  
  2713.    cStartBasisTimer
  2714.    For i = 1 To Item
  2715.       If ((i Mod 2) = 1) Then
  2716.      j = cFileSearchAndReplace(Tmp2, Tmp3, Tmp4, "", True)
  2717.       Else
  2718.      j = cFileSearchAndReplace(Tmp2, Tmp4, Tmp3, "", True)
  2719.       End If
  2720.    Next i
  2721.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2722.  
  2723.    Label3.Caption = Tmp1
  2724.  
  2725. End Sub
  2726.  
  2727. Sub TestFilesSize ()
  2728.  
  2729.    Dim title      As String
  2730.    Dim Tmp        As String
  2731.    Dim Tmp1       As String
  2732.    Dim Tmp2       As String
  2733.    Dim i          As Integer
  2734.    Dim j          As Integer
  2735.    Dim k          As Long
  2736.    Dim Size1      As Long
  2737.    Dim Size2      As Long
  2738.  
  2739.    Tmp1 = ""
  2740.    Tmp1 = Tmp1 & "Size of files c:\*.* is " & cFilesSize("c:\*.*") & Chr$(13)
  2741.    Tmp1 = Tmp1 & "Size of files c:\*.bat is " & cFilesSize("c:\*.bat") & Chr$(13)
  2742.    Tmp1 = Tmp1 & "Size of files c:\*.sys is " & cFilesSize("c:\*.sys") & Chr$(13)
  2743.    Tmp1 = Tmp1 & "Size of files c:\*.com is " & cFilesSize("c:\*.com") & Chr$(13)
  2744.    Tmp1 = Tmp1 & Chr$(13)
  2745.    Tmp1 = Tmp1 & "Size of files c:\*.* on disk is " & cFilesSizeOnDisk("c:\*.*") & Chr$(13)
  2746.    Tmp1 = Tmp1 & "Size of files c:\*.bat on disk is " & cFilesSizeOnDisk("c:\*.bat") & Chr$(13)
  2747.    Tmp1 = Tmp1 & "Size of files c:\*.sys on disk is " & cFilesSizeOnDisk("c:\*.sys") & Chr$(13)
  2748.    Tmp1 = Tmp1 & "Size of files c:\*.com on disk is " & cFilesSizeOnDisk("c:\*.com") & Chr$(13)
  2749.    Tmp1 = Tmp1 & Chr$(13)
  2750.    Tmp1 = Tmp1 & "Slack of files c:\*.* on disk is " & cFilesSlack("c:\*.*", Size1, Size2) & " %" & Chr$(13)
  2751.    Tmp1 = Tmp1 & "Slack of files c:\*.bat on disk is " & cFilesSlack("c:\*.bat", Size1, Size2) & " %" & Chr$(13)
  2752.    Tmp1 = Tmp1 & "Slack of files c:\*.sys on disk is " & cFilesSlack("c:\*.sys", Size1, Size2) & " %" & Chr$(13)
  2753.    Tmp1 = Tmp1 & "Slack of files c:\*.com on disk is " & cFilesSlack("c:\*.com", Size1, Size2) & " %" & Chr$(13)
  2754.  
  2755.    cStartBasisTimer
  2756.    For i = 1 To 10
  2757.       k = cFilesSize("c:\*.*")
  2758.    Next i
  2759.    Tmp1 = Tmp1 & "speed for " & 10 & " = " & (cReadBasisTimer() / 1000)
  2760.  
  2761.    Label3.Caption = Tmp1
  2762.  
  2763. End Sub
  2764.  
  2765. Sub TestFileStatictics ()
  2766.  
  2767.    Dim title      As String
  2768.    Dim Tmp        As String
  2769.    Dim Tmp1       As String
  2770.    Dim Tmp2       As String
  2771.    Dim Tmp3       As String
  2772.    Dim Tmp4       As String
  2773.    Dim i          As Integer
  2774.    Dim j          As Long
  2775.  
  2776.    Dim nL         As Long
  2777.    Dim nW         As Long
  2778.    Dim nC         As Long
  2779.  
  2780.    Tmp1 = ""
  2781.    Tmp = "c:\autoexec.bat"
  2782.    
  2783.    Tmp1 = Tmp1 & "File statictics for '" & Tmp & "' is " & cFileStatistics(Tmp, nL, nW, nC) & Chr$(13)
  2784.    Tmp1 = Tmp1 & "number of lines : " & nL & Chr$(13)
  2785.    Tmp1 = Tmp1 & "number of words : " & nW & Chr$(13)
  2786.    Tmp1 = Tmp1 & "number of chars : " & nC & Chr$(13) & Chr$(13)
  2787.  
  2788.    Tmp = "c:\config.sys"
  2789.    Tmp1 = Tmp1 & "File statictics for '" & Tmp & "' is " & cFileStatistics(Tmp, nL, nW, nC) & Chr$(13)
  2790.    Tmp1 = Tmp1 & "number of lines : " & nL & Chr$(13)
  2791.    Tmp1 = Tmp1 & "number of words : " & nW & Chr$(13)
  2792.    Tmp1 = Tmp1 & "number of chars : " & nC & Chr$(13) & Chr$(13)
  2793.  
  2794.    cStartBasisTimer
  2795.    For i = 1 To Item
  2796.       j = cFileStatistics(Tmp, nL, nW, nC)
  2797.    Next i
  2798.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2799.  
  2800.    Label3.Caption = Tmp1
  2801.  
  2802. End Sub
  2803.  
  2804.  Sub TestFileStatistic ()
  2805.  
  2806.    Dim title      As String
  2807.    Dim Tmp        As String
  2808.    Dim Tmp1       As String
  2809.    Dim Tmp2       As String
  2810.    Dim i          As Integer
  2811.    Dim j          As Integer
  2812.    Dim k          As Long
  2813.    
  2814.  
  2815.    Tmp1 = "File drive for time2win.dll is " & cFileDrive("time2win.dll") & Chr$(13) & Chr$(13)
  2816.  
  2817.    Tmp1 = Tmp1 & "File last time modified for time2win.dll is " & cFileLastTimeModified("time2win.dll") & Chr$(13) & Chr$(13)
  2818.  
  2819.    Tmp1 = Tmp1 & "File last date modified for time2win.dll is " & cFileLastDateModified("time2win.dll") & Chr$(13) & Chr$(13)
  2820.  
  2821.    cStartBasisTimer
  2822.    For i = 1 To ItemFile
  2823.       Tmp = cFileDrive("time2win.dll")
  2824.    Next i
  2825.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2826.  
  2827.    Label3.Caption = Tmp1
  2828.  
  2829. End Sub
  2830.  
  2831. Sub TestFileToX ()
  2832.  
  2833.    Dim title      As String
  2834.    Dim Tmp        As String
  2835.    Dim Tmp1       As String
  2836.    Dim Tmp2       As String
  2837.    Dim Tmp3       As String
  2838.    Dim i          As Integer
  2839.    Dim j          As Long
  2840.    
  2841.    Tmp1 = ""
  2842.    Tmp = "c:\autoexec.bat"
  2843.    Tmp2 = "c:\autoexec.lwr"
  2844.    Tmp3 = "c:\autoexec.upr"
  2845.  
  2846.    Tmp1 = Tmp1 & "File to lower '" & Tmp & "' to '" & Tmp2 & "' is " & cFileToLower(Tmp, Tmp2) & Chr$(13) & Chr$(13)
  2847.    Tmp1 = Tmp1 & "File to upper '" & Tmp & "' to '" & Tmp3 & "' is " & cFileToUpper(Tmp, Tmp3) & Chr$(13) & Chr$(13)
  2848.  
  2849.    cStartBasisTimer
  2850.    For i = 1 To Item
  2851.       j = cFileToLower(Tmp, Tmp2)
  2852.    Next i
  2853.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  2854.  
  2855.    Label3.Caption = Tmp1
  2856.  
  2857. End Sub
  2858.  
  2859. Sub TestFileVersion ()
  2860.  
  2861.    Dim title      As String
  2862.    Dim Tmp        As String
  2863.    Dim Tmp1       As String
  2864.    Dim Tmp2       As String
  2865.    Dim i          As Integer
  2866.    Dim j          As Integer
  2867.    Dim k          As Long
  2868.    Dim Status                 As Integer
  2869.  
  2870.    Tmp = cGetSystemDirectory() & "\krnl386.exe"
  2871.  
  2872.    Tmp1 = Tmp1 & "File Version for '" & Tmp & "' is " & Chr$(13)
  2873.  
  2874.    For i = VER_VERSION_PRODUCT To VER_PRODUCT_VERSION
  2875.       Tmp1 = Tmp1 & "   " & i & " = " & cGetFileVersion(Tmp, i) & Chr$(13)
  2876.    Next i
  2877.  
  2878.    Tmp = cGetSystemDirectory() & "\time2win.dll"
  2879.  
  2880.    Tmp1 = Tmp1 & "File Version for '" & Tmp & "' is " & Chr$(13)
  2881.  
  2882.    For i = VER_VERSION_PRODUCT To VER_PRODUCT_VERSION
  2883.       Tmp1 = Tmp1 & "   " & i & " = " & cGetFileVersion(Tmp, i) & Chr$(13)
  2884.    Next i
  2885.  
  2886.  
  2887.    cStartBasisTimer
  2888.    For i = 1 To ItemFile
  2889.       Tmp = cGetFileVersion(Tmp, -1)
  2890.    Next i
  2891.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2892.  
  2893.    Label3.Caption = Tmp1
  2894.  
  2895. End Sub
  2896.  
  2897. Sub TestFileVersionInfo ()
  2898.  
  2899.    Dim title      As String
  2900.    Dim Tmp        As String
  2901.    Dim Tmp1       As String
  2902.    Dim Tmp2       As String
  2903.    Dim i          As Integer
  2904.    Dim j          As Integer
  2905.    Dim k          As Long
  2906.    Dim Status                 As Integer
  2907.    Dim FILEVERSIONINFO     As tagFILEVERSIONINFO
  2908.  
  2909.    Tmp = cGetSystemDirectory() & "\krnl386.exe"
  2910.  
  2911.    Tmp1 = Tmp1 & "File Version Information for '" & Tmp & "' is " & Chr$(13)
  2912.  
  2913.    Status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
  2914.  
  2915.    Tmp1 = Tmp1 & "   VersionProduct = " & FILEVERSIONINFO.VersionProduct & Chr$(13)
  2916.    Tmp1 = Tmp1 & "   FileDescription = " & FILEVERSIONINFO.FileDescription & Chr$(13)
  2917.    Tmp1 = Tmp1 & "   FileVersion = " & FILEVERSIONINFO.FileVersion & Chr$(13)
  2918.    Tmp1 = Tmp1 & "   InternalName = " & FILEVERSIONINFO.InternalName & Chr$(13)
  2919.    Tmp1 = Tmp1 & "   LegalCopyright = " & FILEVERSIONINFO.LegalCopyright & Chr$(13)
  2920.    Tmp1 = Tmp1 & "   LegalTrademarks = " & FILEVERSIONINFO.LegalTrademarks & Chr$(13)
  2921.    Tmp1 = Tmp1 & "   Comments = " & FILEVERSIONINFO.Comments & Chr$(13)
  2922.    Tmp1 = Tmp1 & "   ProductName = " & FILEVERSIONINFO.ProductName & Chr$(13)
  2923.    Tmp1 = Tmp1 & "   ProductVersion = " & FILEVERSIONINFO.ProductVersion & Chr$(13) & Chr$(13)
  2924.  
  2925.    Tmp = cGetSystemDirectory() & "\time2win.dll"
  2926.  
  2927.    Tmp1 = Tmp1 & "File Version Information for '" & Tmp & "' is " & Chr$(13)
  2928.  
  2929.    Status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
  2930.  
  2931.    Tmp1 = Tmp1 & "   VersionProduct = " & FILEVERSIONINFO.VersionProduct & Chr$(13)
  2932.    Tmp1 = Tmp1 & "   FileDescription = " & FILEVERSIONINFO.FileDescription & Chr$(13)
  2933.    Tmp1 = Tmp1 & "   FileVersion = " & FILEVERSIONINFO.FileVersion & Chr$(13)
  2934.    Tmp1 = Tmp1 & "   InternalName = " & FILEVERSIONINFO.InternalName & Chr$(13)
  2935.    Tmp1 = Tmp1 & "   LegalCopyright = " & FILEVERSIONINFO.LegalCopyright & Chr$(13)
  2936.    Tmp1 = Tmp1 & "   LegalTrademarks = " & FILEVERSIONINFO.LegalTrademarks & Chr$(13)
  2937.    Tmp1 = Tmp1 & "   Comments = " & FILEVERSIONINFO.Comments & Chr$(13)
  2938.    Tmp1 = Tmp1 & "   ProductName = " & FILEVERSIONINFO.ProductName & Chr$(13)
  2939.    Tmp1 = Tmp1 & "   ProductVersion = " & FILEVERSIONINFO.ProductVersion & Chr$(13) & Chr$(13)
  2940.  
  2941.    cStartBasisTimer
  2942.    For i = 1 To ItemFile
  2943.       Status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
  2944.    Next i
  2945.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  2946.  
  2947.    Label3.Caption = Tmp1
  2948.  
  2949. End Sub
  2950.  
  2951.  Sub TestFill ()
  2952.  
  2953.    Dim title      As String
  2954.    Dim Tmp        As String
  2955.    Dim Tmp1       As String
  2956.    Dim Tmp2       As String
  2957.    Dim i          As Integer
  2958.    Dim j          As Integer
  2959.    
  2960.  
  2961.    Tmp = Text1.Text
  2962.    title = "Fill of [" & Tmp & "] with [*=] is "
  2963.    Call cFill(Tmp, "*=")
  2964.  
  2965.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  2966.  
  2967.    cStartBasisTimer
  2968.    For i = 1 To Item
  2969.       Call cFill(Tmp, "=*")
  2970.    Next i
  2971.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  2972.  
  2973.    Label3.Caption = Tmp1
  2974.  
  2975. End Sub
  2976.  
  2977.  Sub TestFillI ()
  2978.  
  2979.    Dim title      As String
  2980.    Dim Tmp        As String
  2981.    Dim Tmp1       As String
  2982.    Dim Tmp2       As String
  2983.    Dim i          As Integer
  2984.    Dim j          As Integer
  2985.    Dim m          As Double
  2986.    
  2987.    ReDim array(ItemMean) As Integer
  2988.    Randomize Timer
  2989.  
  2990.    For i = LBound(array) To UBound(array)
  2991.       array(i) = 0
  2992.       List1.AddItem "" & array(i)
  2993.    Next i
  2994.    
  2995.    j = cFillI(array(), 1)
  2996.  
  2997.    For i = LBound(array) To UBound(array)
  2998.       List2.AddItem "" & array(i)
  2999.    Next i
  3000.  
  3001.    Tmp1 = Tmp1 & "Fill 1 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
  3002.    Tmp1 = Tmp1 & "Fill 1 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
  3003.  
  3004.    cStartBasisTimer
  3005.    For i = 1 To ItemFile
  3006.       j = cFillI(array(), 1)
  3007.    Next i
  3008.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  3009.  
  3010.    Label3.Caption = Tmp1
  3011.  
  3012. End Sub
  3013.  
  3014.  Sub TestFilterBlocks ()
  3015.  
  3016.    Dim title      As String
  3017.    Dim Tmp        As String
  3018.    Dim Tmp1       As String
  3019.    Dim Tmp2       As String
  3020.    Dim i          As Integer
  3021.    Dim j          As Integer
  3022.    
  3023.  
  3024.    Tmp = Text1.Text
  3025.    title = "Filter blocks between '/' and '/' in [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3026.    Tmp1 = title & cFilterBlocks(Tmp, "//") & Chr$(13) & Chr$(13)
  3027.  
  3028.    title = "Filter blocks between 'B' and 'I' in [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3029.    Tmp1 = Tmp1 & title & cFilterBlocks(Tmp, "BI") & Chr$(13) & Chr$(13)
  3030.  
  3031.    cStartBasisTimer
  3032.    For i = 1 To Item
  3033.       Tmp2 = cFilterBlocks(Tmp, "//")
  3034.    Next i
  3035.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3036.  
  3037.    Label3.Caption = Tmp1
  3038.  
  3039. End Sub
  3040.  
  3041.  Sub TestFilterChars ()
  3042.  
  3043.    Dim title      As String
  3044.    Dim Tmp        As String
  3045.    Dim Tmp1       As String
  3046.    Dim Tmp2       As String
  3047.    Dim i          As Integer
  3048.    Dim j          As Integer
  3049.    
  3050.  
  3051.    Tmp = Text1.Text
  3052.    title = "Filter 'B','/' in [" & Tmp & "] is "
  3053.    Tmp1 = title & cFilterChars(Tmp, "B/") & Chr$(13) & Chr$(13)
  3054.  
  3055.    cStartBasisTimer
  3056.    For i = 1 To Item
  3057.       Tmp2 = cFilterChars(Tmp, "B/")
  3058.    Next i
  3059.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3060.  
  3061.    Label3.Caption = Tmp1
  3062.  
  3063. End Sub
  3064.  
  3065.  Sub TestFindBitReset ()
  3066.  
  3067.    Dim title      As String
  3068.    Dim Tmp        As String
  3069.    Dim Tmp1       As String
  3070.    Dim Tmp2       As String
  3071.    Dim i          As Integer
  3072.    Dim j          As Integer
  3073.    
  3074.  
  3075.    Tmp = Text1.Text
  3076.    Tmp1 = "The following bits on '" & Tmp & "' are not Set (False) " & Chr$(13) & Chr$(13)
  3077.    j = True
  3078.    Do
  3079.       j = cFindBitReset(Tmp, j)
  3080.       If (j <> True) Then Tmp1 = Tmp1 & j & ", "
  3081.    Loop Until (j = True)
  3082.    Tmp1 = Left$(Tmp1, Len(Tmp1) - 1)
  3083.    Tmp1 = Tmp1 & Chr$(13) & Chr$(13)
  3084.  
  3085.    j = 0
  3086.  
  3087.    cStartBasisTimer
  3088.    For i = 1 To Item
  3089.       j = cFindBitReset(Tmp, j)
  3090.    Next i
  3091.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3092.  
  3093.    Label3.Caption = Tmp1
  3094.  
  3095. End Sub
  3096.  
  3097.  Sub TestFindBitSet ()
  3098.  
  3099.    Dim title      As String
  3100.    Dim Tmp        As String
  3101.    Dim Tmp1       As String
  3102.    Dim Tmp2       As String
  3103.    Dim i          As Integer
  3104.    Dim j          As Integer
  3105.    
  3106.  
  3107.    Tmp = Text1.Text
  3108.    Tmp1 = "The following bits on '" & Tmp & "' are Set (True) " & Chr$(13) & Chr$(13)
  3109.    j = True
  3110.    Do
  3111.       j = cFindBitSet(Tmp, j)
  3112.       If (j <> True) Then Tmp1 = Tmp1 & j & ", "
  3113.    Loop Until (j = True)
  3114.    Tmp1 = Left$(Tmp1, Len(Tmp1) - 1)
  3115.    Tmp1 = Tmp1 & Chr$(13) & Chr$(13)
  3116.  
  3117.    j = 0
  3118.  
  3119.    cStartBasisTimer
  3120.    For i = 1 To Item
  3121.       j = cFindBitSet(Tmp, j)
  3122.    Next i
  3123.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3124.  
  3125.    Label3.Caption = Tmp1
  3126.  
  3127. End Sub
  3128.  
  3129.  Sub TestFindFileInEnv ()
  3130.  
  3131.    Dim title      As String
  3132.    Dim Tmp        As String
  3133.    Dim Tmp1       As String
  3134.    Dim Tmp2       As String
  3135.    Dim i          As Integer
  3136.    Dim j          As Integer
  3137.  
  3138.    j = cFindFileInEnv("win.com", "windir")
  3139.    Tmp1 = "The file 'win.com' is " & IIf(j, "found", "not found") & " in the WINDIR" & Chr$(13) & Chr$(13)
  3140.    
  3141.    cStartBasisTimer
  3142.    For i = 1 To ItemFile
  3143.       j = cFindFileInEnv("win.com", "windir")
  3144.    Next i
  3145.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  3146.  
  3147.    Label3.Caption = Tmp1
  3148.  
  3149. End Sub
  3150.  
  3151.  Sub TestFindFileInPath ()
  3152.  
  3153.    Dim title      As String
  3154.    Dim Tmp        As String
  3155.    Dim Tmp1       As String
  3156.    Dim Tmp2       As String
  3157.    Dim i          As Integer
  3158.    Dim j          As Integer
  3159.  
  3160.    j = cFindFileInPath("win.com")
  3161.    Tmp1 = "The file 'win.com' is " & IIf(j, "found", "not found") & " in the PATH" & Chr$(13) & Chr$(13)
  3162.    
  3163.    cStartBasisTimer
  3164.    For i = 1 To ItemFile
  3165.       j = cFindFileInPath("win.com")
  3166.    Next i
  3167.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  3168.  
  3169.    Label3.Caption = Tmp1
  3170.  
  3171. End Sub
  3172.  
  3173. Sub TestFullPath ()
  3174.  
  3175.    Dim title      As String
  3176.    Dim Tmp        As String
  3177.    Dim Tmp1       As String
  3178.    Dim Tmp2       As String
  3179.    Dim Tmp3       As String
  3180.    Dim i          As Integer
  3181.    Dim j          As Long
  3182.    
  3183.    Tmp1 = ""
  3184.    Tmp = "C:\AUTOEXEC.BAT"
  3185.  
  3186.    Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & Chr$(13) & Chr$(13)
  3187.  
  3188.    Tmp = cGetSystemDirectory() & "\TIME2WIN.DLL"
  3189.  
  3190.    Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & Chr$(13) & Chr$(13)
  3191.  
  3192.    Tmp = cFilesInDirectory(cGetDefaultCurrentDir() + "\*.*", True)
  3193.  
  3194.    Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & Chr$(13) & Chr$(13)
  3195.  
  3196.    cStartBasisTimer
  3197.    For i = 1 To Item
  3198.       Tmp = cFullPath(Tmp)
  3199.    Next i
  3200.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  3201.  
  3202.    Label3.Caption = Tmp1
  3203.  
  3204. End Sub
  3205.  
  3206.  Sub TestGetBit ()
  3207.  
  3208.    Dim title      As String
  3209.    Dim Tmp        As String
  3210.    Dim Tmp1       As String
  3211.    Dim Tmp2       As String
  3212.    Dim i          As Integer
  3213.    Dim j          As Integer
  3214.    
  3215.  
  3216.    Tmp = Text1.Text
  3217.    title = "bit 0,7,3 of [" & Tmp & "] is "
  3218.  
  3219.    Tmp1 = title & cGetBit(Tmp, 0) & " " & cGetBit(Tmp, 7) & " " & cGetBit(Tmp, 3) & " " & Chr$(13) & Chr$(13)
  3220.  
  3221.    title = "bit 23,30,38 of [" & Tmp & "] is "
  3222.  
  3223.    Tmp1 = Tmp1 & title & cGetBit(Tmp, 23) & " " & cGetBit(Tmp, 30) & " " & cGetBit(Tmp, 38) & " " & Chr$(13) & Chr$(13)
  3224.  
  3225.    cStartBasisTimer
  3226.    For i = 1 To Item
  3227.       j = cGetBit(Tmp, i)
  3228.    Next i
  3229.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3230.  
  3231.    Label3.Caption = Tmp1
  3232.  
  3233. End Sub
  3234.  
  3235.  Sub TestGetBlock ()
  3236.  
  3237.    Dim title      As String
  3238.    Dim Tmp        As String
  3239.    Dim Tmp1       As String
  3240.    Dim Tmp2       As String
  3241.    Dim i          As Integer
  3242.    Dim j          As Integer
  3243.    
  3244.  
  3245.    Tmp = Text1.Text
  3246.    title = "The 2,4,1 of 2 chars of [" & Tmp & "] are "
  3247.  
  3248.    Tmp = Text1.Text
  3249.  
  3250.    Tmp1 = title & "2:" & cGetBlock(Tmp, 2, 2) & " | 4:" & cGetBlock(Tmp, 4, 2) & " | 1:" & cGetBlock(Tmp, 1, 2) & Chr$(13) & Chr$(13)
  3251.  
  3252.    cStartBasisTimer
  3253.    For i = 1 To Item
  3254.       Tmp2 = cGetBlock(Tmp, 1, 2)
  3255.    Next i
  3256.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3257.  
  3258.    Label3.Caption = Tmp1
  3259.  
  3260. End Sub
  3261.  
  3262.  Sub TestGetCurrentDrive ()
  3263.  
  3264.    Dim title      As String
  3265.    Dim Tmp        As String
  3266.    Dim Tmp1       As String
  3267.    Dim Tmp2       As String
  3268.    Dim i          As Integer
  3269.    Dim j          As Integer
  3270.    
  3271.    Tmp = cGetCurrentDrive()
  3272.    Tmp1 = Tmp & " is the current drive" & Chr$(13) & Chr$(13)
  3273.    
  3274.    cStartBasisTimer
  3275.    For i = 1 To Item
  3276.       Tmp2 = cGetCurrentDrive()
  3277.       If (Tmp <> Tmp2) Then Beep
  3278.    Next i
  3279.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3280.  
  3281.    Label3.Caption = Tmp1
  3282.  
  3283. End Sub
  3284.  
  3285.  Sub TestGetDateSeparator ()
  3286.  
  3287.    Dim title      As String
  3288.    Dim Tmp        As String
  3289.    Dim Tmp1       As String
  3290.    Dim Tmp2       As String
  3291.    Dim i          As Integer
  3292.    Dim j          As Integer
  3293.  
  3294.    Tmp = cGetDateSeparator()
  3295.    Tmp1 = "The following char '" & Tmp & "' is the date separator" & Chr$(13) & Chr$(13)
  3296.    
  3297.    cStartBasisTimer
  3298.    For i = 1 To Item
  3299.       Tmp2 = cGetDateSeparator()
  3300.       If (Tmp <> Tmp2) Then Beep
  3301.    Next i
  3302.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3303.  
  3304.    Label3.Caption = Tmp1
  3305.  
  3306. End Sub
  3307.  
  3308.  Sub TestGetDefaultCurrentDir ()
  3309.  
  3310.    Dim title      As String
  3311.    Dim Tmp        As String
  3312.    Dim Tmp1       As String
  3313.    Dim Tmp2       As String
  3314.    Dim i          As Integer
  3315.    Dim j          As Integer
  3316.    
  3317.  
  3318.    Tmp = cGetDefaultCurrentDir()
  3319.    Tmp1 = Tmp & " is the current dir on the default drive" & Chr$(13) & Chr$(13)
  3320.    
  3321.    cStartBasisTimer
  3322.    For i = 1 To Item
  3323.       Tmp2 = cGetDefaultCurrentDir()
  3324.       If (Tmp <> Tmp2) Then Beep
  3325.    Next i
  3326.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3327.  
  3328.    Label3.Caption = Tmp1
  3329.  
  3330. End Sub
  3331.  
  3332.  Sub TestGetDiskFree ()
  3333.  
  3334.    Dim title      As String
  3335.    Dim Tmp        As String
  3336.    Dim Tmp1       As String
  3337.    Dim Tmp2       As String
  3338.    Dim i          As Integer
  3339.    Dim j          As Integer
  3340.    Dim k          As Long
  3341.    Dim ErrCode    As Integer
  3342.  
  3343.    Tmp1 = ""
  3344.    
  3345.    For i = 1 To 26
  3346.       k = cGetDiskFree(Chr$(64 + i))
  3347.       If (k <> True) Then
  3348.      Tmp1 = Tmp1 & "DiskFree for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
  3349.       End If
  3350.    Next i
  3351.  
  3352.    Tmp1 = Tmp1 + Chr$(13)
  3353.  
  3354.    cStartBasisTimer
  3355.    For i = 1 To Item
  3356.       k = cGetDiskFree("C")
  3357.    Next i
  3358.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3359.  
  3360.    Label3.Caption = Tmp1
  3361.  
  3362. End Sub
  3363.  
  3364.  Sub TestGetDiskSpace ()
  3365.  
  3366.    Dim title      As String
  3367.    Dim Tmp        As String
  3368.    Dim Tmp1       As String
  3369.    Dim Tmp2       As String
  3370.    Dim i          As Integer
  3371.    Dim j          As Integer
  3372.    Dim k          As Long
  3373.    Dim ErrCode    As Integer
  3374.  
  3375.    Tmp1 = ""
  3376.    
  3377.    For i = 1 To 26
  3378.       k = cGetDiskSpace(Chr$(64 + i))
  3379.       If (k <> True) Then
  3380.      Tmp1 = Tmp1 & "DiskSpace for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
  3381.       End If
  3382.    Next i
  3383.  
  3384.    Tmp1 = Tmp1 + Chr$(13)
  3385.  
  3386.    cStartBasisTimer
  3387.    For i = 1 To Item
  3388.       k = cGetDiskSpace("C")
  3389.    Next i
  3390.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3391.  
  3392.    Label3.Caption = Tmp1
  3393.  
  3394. End Sub
  3395.  
  3396.  Sub TestGetDiskUsed ()
  3397.  
  3398.    Dim title      As String
  3399.    Dim Tmp        As String
  3400.    Dim Tmp1       As String
  3401.    Dim Tmp2       As String
  3402.    Dim i          As Integer
  3403.    Dim j          As Integer
  3404.    Dim k          As Long
  3405.    Dim ErrCode    As Integer
  3406.  
  3407.    Tmp1 = ""
  3408.    
  3409.    For i = 1 To 26
  3410.       k = cGetDiskUsed(Chr$(64 + i))
  3411.       If (k <> True) Then
  3412.      Tmp1 = Tmp1 & "DiskUsed for '" & Chr$(64 + i) & ":' is " & k & Chr$(13)
  3413.       End If
  3414.    Next i
  3415.  
  3416.    Tmp1 = Tmp1 + Chr$(13)
  3417.  
  3418.    cStartBasisTimer
  3419.    For i = 1 To Item
  3420.       k = cGetDiskUsed("C")
  3421.    Next i
  3422.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3423.  
  3424.    Label3.Caption = Tmp1
  3425.  
  3426. End Sub
  3427.  
  3428.  Sub TestGetDriveCurrentDir ()
  3429.  
  3430.    Dim title      As String
  3431.    Dim Tmp        As String
  3432.    Dim Tmp1       As String
  3433.    Dim Tmp2       As String
  3434.    Dim i          As Integer
  3435.    Dim j          As Integer
  3436.  
  3437.    Tmp1 = ""
  3438.    
  3439.    For i = 1 To 26
  3440.       Tmp = cGetDriveCurrentDir(Chr$(64 + i))
  3441.       If (Tmp <> "") Then
  3442.      Tmp1 = Tmp1 & "The current directory in '" & Chr$(64 + i) & ":' is " & Tmp & Chr$(13)
  3443.       Else
  3444.      If (i = 1) Then Tmp1 = Tmp1 & Chr$(9) & "drive A: is missing" & Chr$(13)
  3445.      If (i = 2) Then Tmp1 = Tmp1 & Chr$(9) & "drive B: is missing" & Chr$(13)
  3446.       End If
  3447.    Next i
  3448.  
  3449.    Tmp1 = Tmp1 + Chr$(13)
  3450.  
  3451.    cStartBasisTimer
  3452.    For i = 1 To Item
  3453.       Tmp2 = cGetDriveCurrentDir("C")
  3454.    Next i
  3455.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3456.  
  3457.    Label3.Caption = Tmp1
  3458.  
  3459. End Sub
  3460.  
  3461.  Sub TestGetFullnameInEnv ()
  3462.  
  3463.    Dim title      As String
  3464.    Dim Tmp        As String
  3465.    Dim Tmp1       As String
  3466.    Dim Tmp2       As String
  3467.    Dim i          As Integer
  3468.    Dim j          As Integer
  3469.  
  3470.    Tmp = cGetFullNameInEnv("win.com", "windir")
  3471.    Tmp1 = "Full path for 'win.com' in 'windir' is " & Tmp & Chr$(13) & Chr$(13)
  3472.    
  3473.    cStartBasisTimer
  3474.    For i = 1 To ItemFile
  3475.       Tmp2 = cGetFullNameInEnv("win.com", "windir")
  3476.    Next i
  3477.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  3478.  
  3479.    Label3.Caption = Tmp1
  3480.  
  3481. End Sub
  3482.  
  3483.  Sub TestGetFullnameInPath ()
  3484.  
  3485.    Dim title      As String
  3486.    Dim Tmp        As String
  3487.    Dim Tmp1       As String
  3488.    Dim Tmp2       As String
  3489.    Dim i          As Integer
  3490.    Dim j          As Integer
  3491.  
  3492.    Tmp = cGetFullNameInPath("win.com")
  3493.    Tmp1 = "Full path for 'win.com' is " & Tmp & Chr$(13) & Chr$(13)
  3494.    
  3495.    cStartBasisTimer
  3496.    For i = 1 To ItemFile
  3497.       Tmp2 = cGetFullNameInPath("win.com")
  3498.    Next i
  3499.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  3500.  
  3501.    Label3.Caption = Tmp1
  3502.  
  3503. End Sub
  3504.  
  3505.  Sub TestGetIn ()
  3506.  
  3507.    Dim title      As String
  3508.    Dim Tmp        As String
  3509.    Dim Tmp1       As String
  3510.    Dim Tmp2       As String
  3511.    Dim i          As Integer
  3512.    Dim j          As Integer
  3513.    
  3514.  
  3515.    Tmp = Text1.Text
  3516.    title = "The 2,4,1 blocks of [" & Tmp & "] are "
  3517.  
  3518.    Tmp = Text1.Text
  3519.  
  3520.    Tmp1 = title & "2:" & cGetIn(Tmp, "/", 2) & " | 4:" & cGetIn(Tmp, "/", 4) & " | 1:" & cGetIn(Tmp, "/", 1) & Chr$(13) & Chr$(13)
  3521.  
  3522.    cStartBasisTimer
  3523.    For i = 1 To Item
  3524.       Tmp2 = cGetIn(Tmp, "/", 2)
  3525.    Next i
  3526.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3527.  
  3528.    Label3.Caption = Tmp1
  3529.    
  3530. End Sub
  3531.  
  3532.  Sub TestGetNetConnection ()
  3533.  
  3534.    Dim title      As String
  3535.    Dim Tmp        As String
  3536.    Dim Tmp1       As String
  3537.    Dim Tmp2       As String
  3538.    Dim i          As Integer
  3539.    Dim j          As Integer
  3540.    Dim ErrCode    As Integer
  3541.  
  3542.    Tmp1 = ""
  3543.    
  3544.    For i = 1 To 26
  3545.       Tmp = cGetNetConnection(Chr$(64 + i) & ":", ErrCode)
  3546.       If (ErrCode = True) Then
  3547.      Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is " & Tmp & Chr$(13)
  3548.       End If
  3549.    Next i
  3550.  
  3551.    For i = 1 To 3
  3552.       Tmp = cGetNetConnection("LPT" & i & ":", ErrCode)
  3553.       If (ErrCode = True) Then
  3554.      Tmp1 = Tmp1 & "'LPT" & i & ":' is " & Tmp & Chr$(13)
  3555.       End If
  3556.    Next i
  3557.  
  3558.    Tmp1 = Tmp1 + Chr$(13)
  3559.  
  3560.    cStartBasisTimer
  3561.    For i = 1 To ItemFile
  3562.       Tmp = cGetNetConnection("C", ErrCode)
  3563.    Next i
  3564.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  3565.  
  3566.    Label3.Caption = Tmp1
  3567.  
  3568. End Sub
  3569.  
  3570.  Sub TestGetSystemDirectory ()
  3571.  
  3572.    Dim title      As String
  3573.    Dim Tmp        As String
  3574.    Dim Tmp1       As String
  3575.    Dim Tmp2       As String
  3576.    Dim i          As Integer
  3577.    Dim j          As Integer
  3578.    
  3579.    Tmp = cGetSystemDirectory()
  3580.    Tmp1 = Tmp & " is the system directory for Windows" & Chr$(13) & Chr$(13)
  3581.    
  3582.    cStartBasisTimer
  3583.    For i = 1 To Item
  3584.       Tmp2 = cGetSystemDirectory()
  3585.       If (Tmp <> Tmp2) Then Beep
  3586.    Next i
  3587.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3588.  
  3589.    Label3.Caption = Tmp1
  3590.  
  3591. End Sub
  3592.  
  3593.  Sub TestGetTimeSeparator ()
  3594.  
  3595.    Dim title      As String
  3596.    Dim Tmp        As String
  3597.    Dim Tmp1       As String
  3598.    Dim Tmp2       As String
  3599.    Dim i          As Integer
  3600.    Dim j          As Integer
  3601.    
  3602.  
  3603.    Tmp = cGetTimeSeparator()
  3604.    Tmp1 = "The following char '" & Tmp & "' is the time separator" & Chr$(13) & Chr$(13)
  3605.    
  3606.    cStartBasisTimer
  3607.    For i = 1 To Item
  3608.       Tmp2 = cGetTimeSeparator()
  3609.       If (Tmp <> Tmp2) Then Beep
  3610.    Next i
  3611.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3612.  
  3613.    Label3.Caption = Tmp1
  3614.  
  3615. End Sub
  3616.  
  3617.  Sub TestGetWindowsDirectory ()
  3618.  
  3619.    Dim title      As String
  3620.    Dim Tmp        As String
  3621.    Dim Tmp1       As String
  3622.    Dim Tmp2       As String
  3623.    Dim i          As Integer
  3624.    Dim j          As Integer
  3625.    
  3626.    Tmp = cGetWindowsDirectory()
  3627.    Tmp1 = Tmp & " is the directory for Windows" & Chr$(13) & Chr$(13)
  3628.    
  3629.    cStartBasisTimer
  3630.    For i = 1 To Item
  3631.       Tmp2 = cGetWindowsDirectory()
  3632.       If (Tmp <> Tmp2) Then Beep
  3633.    Next i
  3634.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3635.  
  3636.    Label3.Caption = Tmp1
  3637.  
  3638. End Sub
  3639.  
  3640.  Sub TestGiveBitPalindrome ()
  3641.  
  3642.    Dim title      As String
  3643.    Dim Tmp        As String
  3644.    Dim Tmp1       As String
  3645.    Dim Tmp2       As String
  3646.    Dim i          As Integer
  3647.    Dim j          As Integer
  3648.    
  3649.  
  3650.    title = "The followings chars are Bit Palindrome : " & Chr$(13) & Chr$(13)
  3651.    Tmp1 = Tmp1 & title & "chr(0) and  " & cBlockCharFromRight(cGiveBitPalindrome(), 1) & Chr$(13) & Chr$(13)
  3652.  
  3653.    cStartBasisTimer
  3654.    For i = 1 To Item
  3655.       Tmp2 = cGiveBitPalindrome()
  3656.    Next i
  3657.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3658.  
  3659.    Label3.Caption = Tmp1
  3660.  
  3661. End Sub
  3662.  
  3663.  Sub TestHourTo ()
  3664.  
  3665.    Dim title      As String
  3666.    Dim Tmp        As String
  3667.    Dim Tmp1       As String
  3668.    Dim Tmp2       As String
  3669.    Dim i          As Integer
  3670.    Dim j          As Integer
  3671.  
  3672.    Tmp1 = "The time 10:00 is " & cHourTo("10:00") & " minutes" & Chr$(13)
  3673.    Tmp1 = Tmp1 & "The time 23:58 is " & cHourTo("23:58") & " minutes" & Chr$(13)
  3674.    Tmp1 = Tmp1 & "The time 7:36 is " & cHourTo("7:36") & " minutes" & Chr$(13)
  3675.    Tmp1 = Tmp1 & "The time :24 is " & cHourTo(":24") & " minutes" & Chr$(13)
  3676.    Tmp1 = Tmp1 & "The time :4 is " & cHourTo(":4") & " minutes" & Chr$(13)
  3677.    Tmp1 = Tmp1 & "The time : is " & cHourTo(":") & " minutes" & Chr$(13) & Chr$(13)
  3678.  
  3679.    Tmp1 = Tmp1 & "The time -10:00 is " & cHourTo("-10:00") & " minutes" & Chr$(13)
  3680.    Tmp1 = Tmp1 & "The time -23:58 is " & cHourTo("-23:58") & " minutes" & Chr$(13)
  3681.    Tmp1 = Tmp1 & "The time -7:36 is " & cHourTo("-7:36") & " minutes" & Chr$(13)
  3682.    Tmp1 = Tmp1 & "The time -:24 is " & cHourTo("-:24") & " minutes" & Chr$(13)
  3683.    Tmp1 = Tmp1 & "The time -:4 is " & cHourTo("-:4") & " minutes" & Chr$(13)
  3684.    Tmp1 = Tmp1 & "The time -: is " & cHourTo("-:") & " minutes" & Chr$(13) & Chr$(13)
  3685.  
  3686.    cStartBasisTimer
  3687.    For i = 1 To Item
  3688.       j = cHourTo("23:59")
  3689.    Next i
  3690.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3691.  
  3692.    Label3.Caption = Tmp1
  3693.    
  3694. End Sub
  3695.  
  3696.  Sub Testing (arrayStr() As String)
  3697.  
  3698. End Sub
  3699.  
  3700. Sub TestInpBox ()
  3701.  
  3702.    Dim i       As Integer
  3703.    Dim n       As Integer
  3704.    Dim Tmp     As String
  3705.    Dim Tmp1    As String
  3706.  
  3707.    Tmp = "'TIME TO WIN'" & Chr$(13) & Chr$(13)
  3708.    Tmp = Tmp & " is a powerfull data link library for using with Visual Basic 3.0 for Windows." & Chr$(13)
  3709.    Tmp = Tmp & "It looks very better than the standard message box." & Chr$(13)
  3710.    Tmp = Tmp & "All push buttons are displayed in French." & Chr$(13)
  3711.    Tmp = Tmp & "The system menu is also in French."
  3712.  
  3713.    Tmp1 = cLngInpBox(LNG_FRENCH, Tmp, "Input Box in French", "" & Text1.Text)
  3714.  
  3715.    Tmp1 = InputBox$("This is a standard input box", "VB INPUT BOX", "" & Text1.Text)
  3716.  
  3717. End Sub
  3718.  
  3719.  Sub TestInsertBlocks ()
  3720.  
  3721.    Dim title      As String
  3722.    Dim Tmp        As String
  3723.    Dim Tmp1       As String
  3724.    Dim Tmp2       As String
  3725.    Dim i          As Integer
  3726.    Dim j          As Integer
  3727.    
  3728.  
  3729.    Tmp = "A~BC~DEF~GHIJ~"
  3730.    title = "Insert 'a','bc','def','ghij' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3731.    Tmp1 = title & cInsertBlocks(Tmp, "a~bc~def~ghij") & Chr$(13) & Chr$(13)
  3732.  
  3733.    title = "Insert '' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3734.    Tmp1 = Tmp1 & title & cInsertBlocks(Tmp, "") & Chr$(13) & Chr$(13)
  3735.  
  3736.    cStartBasisTimer
  3737.    For i = 1 To Item
  3738.       Tmp2 = cInsertBlocks(Tmp, "a")
  3739.    Next i
  3740.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3741.  
  3742.    Label3.Caption = Tmp1
  3743.  
  3744. End Sub
  3745.  
  3746.  Sub TestInsertBlocksBy ()
  3747.  
  3748.    Dim title      As String
  3749.    Dim Tmp        As String
  3750.    Dim Tmp1       As String
  3751.    Dim Tmp2       As String
  3752.    Dim i          As Integer
  3753.    Dim j          As Integer
  3754.    
  3755.  
  3756.    Tmp = Text1.Text
  3757.    title = "Insert 'a','bc','def','ghij' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3758.    Tmp1 = title & cInsertBlocksBy(Tmp, "a/bc/def/ghij", "/") & Chr$(13) & Chr$(13)
  3759.  
  3760.    title = "Insert '' into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3761.    Tmp1 = Tmp1 & title & cInsertBlocksBy(Tmp, "", "/") & Chr$(13) & Chr$(13)
  3762.  
  3763.    cStartBasisTimer
  3764.    For i = 1 To Item
  3765.       Tmp2 = cInsertBlocksBy(Tmp, "a/bc/def/ghij", "/")
  3766.    Next i
  3767.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3768.  
  3769.    Label3.Caption = Tmp1
  3770.  
  3771. End Sub
  3772.  
  3773.  Sub TestInsertChars ()
  3774.  
  3775.    Dim title      As String
  3776.    Dim Tmp        As String
  3777.    Dim Tmp1       As String
  3778.    Dim Tmp2       As String
  3779.    Dim i          As Integer
  3780.    Dim j          As Integer
  3781.  
  3782.    Tmp = Text1.Text
  3783.    title = "Insert 'a' from 7 char into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3784.    Tmp1 = title & cInsertChars(Tmp, 7, "a") & Chr$(13) & Chr$(13)
  3785.  
  3786.    title = "Insert '10$' from 2 char into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3787.    Tmp1 = Tmp1 & title & cInsertChars(Tmp, 2, "10$") & Chr$(13) & Chr$(13)
  3788.  
  3789.    title = "Insert '@' from 21 char into [" & Tmp & "] is " & Chr$(13) & Chr$(13)
  3790.    Tmp1 = Tmp1 & title & cInsertChars(Tmp, 21, "@") & Chr$(13) & Chr$(13)
  3791.  
  3792.    cStartBasisTimer
  3793.    For i = 1 To Item
  3794.       Tmp2 = cInsertChars(Tmp, 1, "a")
  3795.    Next i
  3796.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3797.  
  3798.    Label3.Caption = Tmp1
  3799.  
  3800. End Sub
  3801.  
  3802.  Sub TestIntoBalance ()
  3803.  
  3804.    Dim title      As String
  3805.    Dim Tmp        As String
  3806.    Dim Tmp1       As String
  3807.    Dim Tmp2       As String
  3808.    Dim i          As Integer
  3809.    Dim j          As Integer
  3810.    
  3811.  
  3812.    j = 1234
  3813.    title = "Convert minutes into balance : " & Chr$(13) & Chr$(13)
  3814.    Tmp1 = title & Chr$(13)
  3815.    For i = 0 To 11
  3816.       Tmp1 = Tmp1 & (j + i) & " { " & cIntoBalanceFill(j + i) & " }" & Chr$(9) & Chr$(9)
  3817.       Tmp1 = Tmp1 & "{ " & cIntoBalance(j + i) & " }" & Chr$(13)
  3818.    Next i
  3819.    Tmp1 = Tmp1 & Chr$(13)
  3820.  
  3821.    cStartBasisTimer
  3822.    For i = 1 To Item
  3823.       Tmp2 = cIntoBalanceFill(i)
  3824.    Next i
  3825.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3826.  
  3827.    Label3.Caption = Tmp1
  3828.  
  3829. End Sub
  3830.  
  3831.  Sub TestIntoFixHour ()
  3832.  
  3833.    Dim title      As String
  3834.    Dim Tmp        As String
  3835.    Dim Tmp1       As String
  3836.    Dim Tmp2       As String
  3837.    Dim i          As Integer
  3838.    Dim j          As Integer
  3839.    
  3840.  
  3841.    j = 12345
  3842.    title = "Convert " & j & " minutes into fixed hour : " & Chr$(13) & Chr$(13)
  3843.    Tmp1 = title & Chr$(13)
  3844.    For i = 0 To 11
  3845.       Tmp1 = Tmp1 & "{ " & cIntoFixHour(j, i, True, False) & " }" & Chr$(9) & Chr$(9)
  3846.       Tmp1 = Tmp1 & "{ " & cIntoFixHour(j, i, False, False) & " }" & Chr$(13)
  3847.    Next i
  3848.    Tmp1 = Tmp1 & Chr$(13)
  3849.  
  3850.    cStartBasisTimer
  3851.    For i = 1 To Item
  3852.       Tmp2 = cIntoFixHour(12345, 8, True, False)
  3853.    Next i
  3854.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3855.  
  3856.    Label3.Caption = Tmp1
  3857.  
  3858. End Sub
  3859.  
  3860.  Sub TestIntoHour ()
  3861.  
  3862.    Dim title      As String
  3863.    Dim Tmp        As String
  3864.    Dim Tmp1       As String
  3865.    Dim Tmp2       As String
  3866.    Dim i          As Integer
  3867.    Dim j          As Integer
  3868.    
  3869.  
  3870.    j = 1234
  3871.    title = "Convert minutes into hour : " & Chr$(13) & Chr$(13)
  3872.    Tmp1 = title & Chr$(13)
  3873.    For i = 0 To 11
  3874.       Tmp1 = Tmp1 & (j + i) & " { " & cIntoHour(j + i) & " }" & Chr$(13)
  3875.    Next i
  3876.    Tmp1 = Tmp1 & Chr$(13)
  3877.  
  3878.    cStartBasisTimer
  3879.    For i = 1 To Item
  3880.       Tmp2 = cIntoHour(i)
  3881.    Next i
  3882.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3883.  
  3884.    Label3.Caption = Tmp1
  3885.  
  3886. End Sub
  3887.  
  3888.  Sub TestIntoVarHour ()
  3889.  
  3890.    Dim title      As String
  3891.    Dim Tmp        As String
  3892.    Dim Tmp1       As String
  3893.    Dim Tmp2       As String
  3894.    Dim i          As Integer
  3895.    Dim j          As Integer
  3896.    
  3897.    Dim k          As Long
  3898.                 
  3899.    title = "Convert minutes into variable hour : " & Chr$(13) & Chr$(13)
  3900.    Tmp1 = title & Chr$(13)
  3901.    
  3902.    For i = 1 To 9
  3903.       Tmp2 = Tmp2 & (10 - i)
  3904.       Tmp1 = Tmp1 & Tmp2 & " { " & cIntoVarHour(Val(Tmp2)) & " }" & Chr$(13)
  3905.    Next i
  3906.    Tmp1 = Tmp1 & Chr$(13)
  3907.  
  3908.    cStartBasisTimer
  3909.    For i = 1 To Item
  3910.       Tmp2 = cIntoVarHour(123456789)
  3911.    Next i
  3912.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3913.  
  3914.    Label3.Caption = Tmp1
  3915.  
  3916. End Sub
  3917.  
  3918.  Sub TestIsBitPalindrome ()
  3919.  
  3920.    Dim title      As String
  3921.    Dim Tmp        As String
  3922.    Dim Tmp1       As String
  3923.    Dim Tmp2       As String
  3924.    Dim i          As Integer
  3925.    Dim j          As Integer
  3926.    
  3927.  
  3928.    Tmp = Text1.Text
  3929.    title = "[" & Tmp & "] is "
  3930.  
  3931.    Tmp1 = title & IIf(cIsPalindrome(Tmp), "a Bit Palindrome", " not a Bit Palindrome") & Chr$(13) & Chr$(13)
  3932.  
  3933.    For i = 1 To 255
  3934.       If cIsBitPalindrome(Chr$(i)) Then Tmp2 = Tmp2 + Chr$(i) & "(" & i & ")" & Chr$(9)
  3935.    Next i
  3936.  
  3937.    title = "The followings chars are Bit Palindrome : " & Chr$(13) & Chr$(13)
  3938.    Tmp1 = Tmp1 & title & Tmp2 & Chr$(13) & Chr$(13)
  3939.  
  3940.    cStartBasisTimer
  3941.    For i = 1 To Item
  3942.       j = cIsPalindrome(Tmp)
  3943.    Next i
  3944.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3945.  
  3946.    Label3.Caption = Tmp1
  3947.  
  3948. End Sub
  3949.  
  3950.  Sub TestIsFileX ()
  3951.  
  3952.    Dim title      As String
  3953.    Dim Tmp        As String
  3954.    Dim Tmp1       As String
  3955.    Dim Tmp2       As String
  3956.    Dim i          As Integer
  3957.    Dim j          As Integer
  3958.    
  3959.  
  3960.    Tmp = cFilesInDirectory("*.*", True)
  3961.    title = "[" & Tmp & "] is "
  3962.  
  3963.    Tmp1 = title & Chr$(13) & Chr$(13)
  3964.  
  3965.    Tmp1 = Tmp1 & IIf(cIsFilenameValid(Tmp), " a good filename", " is not a good filename") & Chr$(13)
  3966.    Tmp1 = Tmp1 & IIf(cIsFileArchive(Tmp), " archive", " not archive") & Chr$(13)
  3967.    Tmp1 = Tmp1 & IIf(cIsFileHidden(Tmp), " hidden", " not hidden") & Chr$(13)
  3968.    Tmp1 = Tmp1 & IIf(cIsFileNormal(Tmp), " normal", " not normal") & Chr$(13)
  3969.    Tmp1 = Tmp1 & IIf(cIsFileReadOnly(Tmp), " read-only", " not read-only") & Chr$(13)
  3970.    Tmp1 = Tmp1 & IIf(cIsFileSubDir(Tmp), " sub-directory", " not sub-directory") & Chr$(13)
  3971.    Tmp1 = Tmp1 & IIf(cIsFileSystem(Tmp), " system", " not system") & Chr$(13)
  3972.    Tmp1 = Tmp1 & IIf(cIsFileVolId(Tmp), " volume-id", " not volume-id") & Chr$(13) & Chr$(13)
  3973.    
  3974.    cStartBasisTimer
  3975.    For i = 1 To Item
  3976.       j = cIsFileArchive(Tmp)
  3977.    Next i
  3978.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  3979.  
  3980.    Label3.Caption = Tmp1
  3981.  
  3982. End Sub
  3983.  
  3984.  Sub TestIsPalindrome ()
  3985.  
  3986.    Dim title      As String
  3987.    Dim Tmp        As String
  3988.    Dim Tmp1       As String
  3989.    Dim Tmp2       As String
  3990.    Dim i          As Integer
  3991.    Dim j          As Integer
  3992.    
  3993.  
  3994.    Tmp = Text1.Text
  3995.    title = "[" & Tmp & "] is "
  3996.  
  3997.    Tmp1 = title & IIf(cIsPalindrome(Tmp), "a Palindrome", " not a Palindrome") & Chr$(13) & Chr$(13)
  3998.  
  3999.    cStartBasisTimer
  4000.    For i = 1 To Item
  4001.       j = cIsPalindrome(Tmp)
  4002.    Next i
  4003.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4004.  
  4005.    Label3.Caption = Tmp1
  4006.  
  4007. End Sub
  4008.  
  4009.  Sub TestIsX ()
  4010.  
  4011.    Dim title      As String
  4012.    Dim Tmp        As String
  4013.    Dim Tmp1       As String
  4014.    Dim Tmp2       As String
  4015.    Dim i          As Integer
  4016.    Dim j          As Integer
  4017.    
  4018.  
  4019.    Tmp = Text1.Text
  4020.  
  4021.    Tmp1 = "[" & Tmp & "] is " & Chr$(13)
  4022.  
  4023.    Tmp1 = Tmp1 & IIf(cIsDigit(Tmp), "Digit", " not Digit") & Chr$(13)
  4024.    Tmp1 = Tmp1 & IIf(cIsXDigit(Tmp), "XDigit", " not XDigit") & Chr$(13)
  4025.    Tmp1 = Tmp1 & IIf(cIsAlpha(Tmp), "Alpha", " not Alpha") & Chr$(13)
  4026.    Tmp1 = Tmp1 & IIf(cIsLower(Tmp), "Lower", " not Lower") & Chr$(13)
  4027.    Tmp1 = Tmp1 & IIf(cIsUpper(Tmp), "Upper", " not Upper") & Chr$(13)
  4028.    Tmp1 = Tmp1 & IIf(cIsAlnum(Tmp), "Alnum", " not Alnum") & Chr$(13)
  4029.    Tmp1 = Tmp1 & IIf(cIsUpper(Tmp), "Upper", " not Upper") & Chr$(13)
  4030.    Tmp1 = Tmp1 & IIf(cIsSpace(Tmp), "Space", " not Space") & Chr$(13)
  4031.    Tmp1 = Tmp1 & IIf(cIsPunct(Tmp), "Punct", " not Punct") & Chr$(13)
  4032.    Tmp1 = Tmp1 & IIf(cIsAscii(Tmp), "Ascii", " not Ascii") & Chr$(13)
  4033.    Tmp1 = Tmp1 & IIf(cIsCsym(Tmp), "Csym", " not Csym") & Chr$(13)
  4034.    Tmp1 = Tmp1 & IIf(cIsCsymf(Tmp), "Csymf", " not Csymf") & Chr$(13)
  4035.    Tmp1 = Tmp1 & IIf(cIsISBN(Tmp), "ISBN", " not ISBN") & Chr$(13) & Chr$(13)
  4036.    
  4037.    cStartBasisTimer
  4038.    For i = 1 To Item
  4039.       j = cIsDigit(Tmp)
  4040.    Next i
  4041.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4042.  
  4043.    Label3.Caption = Tmp1
  4044.    
  4045. End Sub
  4046.  
  4047.  Sub TestKillDir ()
  4048.  
  4049.    Dim title      As String
  4050.    Dim Tmp        As String
  4051.    Dim Tmp1       As String
  4052.    Dim Tmp2       As String
  4053.    Dim i          As Integer
  4054.    Dim j          As Integer
  4055.  
  4056.    j = cMakeDir("c:\testing")
  4057.    Tmp1 = "Directory 'TESTING' " & IIf(cKillDir("c:\testing") = True, "deleted", "not deleted") & Chr$(13) & Chr$(13)
  4058.  
  4059.    cStartBasisTimer
  4060.    For i = 1 To ItemFile
  4061.       j = cKillDir("c:\testing")
  4062.    Next i
  4063.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4064.  
  4065.    Label3.Caption = Tmp1
  4066.  
  4067. End Sub
  4068.  
  4069.  Sub TestKillFile ()
  4070.  
  4071.    Dim title      As String
  4072.    Dim Tmp        As String
  4073.    Dim Tmp1       As String
  4074.    Dim Tmp2       As String
  4075.    Dim i          As Integer
  4076.    Dim j          As Integer
  4077.    
  4078.  
  4079.    Close #1
  4080.    Open "XY~YX~XY.~~~" For Output As #1
  4081.    Print #1, "this is a test";
  4082.    Close #1
  4083.  
  4084.    Tmp1 = "File XY~YX~XY.~~~ " & IIf(cKillFile("XY~YX~XY.~~~") = True, "destroyed", "not destroyed") & Chr$(13) & Chr$(13)
  4085.  
  4086.    cStartBasisTimer
  4087.    For i = 1 To Item
  4088.       j = cKillFile("XY~YX~XY.~~~")
  4089.    Next i
  4090.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4091.  
  4092.    Label3.Caption = Tmp1
  4093.  
  4094. End Sub
  4095.  
  4096.  Sub TestKillFiles ()
  4097.  
  4098.    Dim title      As String
  4099.    Dim Tmp        As String
  4100.    Dim Tmp1       As String
  4101.    Dim Tmp2       As String
  4102.    Dim i          As Integer
  4103.    Dim j          As Integer
  4104.    
  4105.    For i = 1 To 34
  4106.       Close #1
  4107.       Open "C:\XY~YX~XY." & i For Output As #1
  4108.       Print #1, "this is a test";
  4109.       Close #1
  4110.    Next i
  4111.  
  4112.    Tmp1 = "Number of killed Files from 'C:XY~YX~XY.1' to 'C:XY~YX~XY.34' is " & cKillFiles("C:\XY~YX~XY.*") & Chr$(13) & Chr$(13)
  4113.  
  4114.    cStartBasisTimer
  4115.    For i = 1 To ItemFile
  4116.       j = cKillFiles("C:\XY~YX~XY.~~~")
  4117.    Next i
  4118.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4119.  
  4120.    Label3.Caption = Tmp1
  4121.  
  4122. End Sub
  4123.  
  4124. Sub TestLanguage ()
  4125.  
  4126.    Dim title      As String
  4127.    Dim Tmp        As String
  4128.    Dim Tmp1       As String
  4129.    Dim Tmp2       As String
  4130.    Dim i          As Integer
  4131.    Dim j          As Integer
  4132.    Dim k          As Long
  4133.    Dim ErrCode    As Integer
  4134.  
  4135.    k = Int(Now)
  4136.  
  4137.    Tmp1 = ""
  4138.  
  4139.    For i = LNG_FRENCH To LNG_SPANISH
  4140.       Tmp1 = Tmp1 + cGetLongDay(i, Weekday(k)) & " " & Day(k) & " " & cGetLongMonth(i, Month(k)) & " " & Year(k) & Chr$(13)
  4141.    Next i
  4142.  
  4143.    Tmp1 = Tmp1 + Chr$(13)
  4144.  
  4145.    For i = LNG_FRENCH To LNG_SPANISH
  4146.       Tmp1 = Tmp1 + cGetShortDay(i, Weekday(k)) & " " & Day(k) & " " & cGetShortMonth(i, Month(k)) & " " & Year(k) & Chr$(13)
  4147.    Next i
  4148.  
  4149.    Tmp1 = Tmp1 + Chr$(13)
  4150.  
  4151.    cStartBasisTimer
  4152.    For i = 1 To Item
  4153.       Tmp = cGetLongMonth(LNG_FRENCH, 12)
  4154.    Next i
  4155.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4156.  
  4157.    Label3.Caption = Tmp1
  4158.  
  4159. End Sub
  4160.  
  4161.  Sub TestLrc ()
  4162.  
  4163.    Dim title      As String
  4164.    Dim Tmp        As String
  4165.    Dim Tmp1       As String
  4166.    Dim Tmp2       As String
  4167.    Dim i          As Integer
  4168.    Dim j          As Integer
  4169.    
  4170.  
  4171.    Tmp = Chr$(2) & "0a12721536"
  4172.    Tmp1 = "Lrc for [" & Tmp & "] is " & cLrc(Tmp) & Chr$(13) & Chr$(13)
  4173.  
  4174.    cStartBasisTimer
  4175.    For i = 1 To Item
  4176.       Tmp2 = cLrc(Tmp)
  4177.    Next i
  4178.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4179.  
  4180.    Label3.Caption = Tmp1
  4181.  
  4182. End Sub
  4183.  
  4184.  Sub TestMakeDir ()
  4185.  
  4186.    Dim title      As String
  4187.    Dim Tmp        As String
  4188.    Dim Tmp1       As String
  4189.    Dim Tmp2       As String
  4190.    Dim i          As Integer
  4191.    Dim j          As Integer
  4192.  
  4193.    j = cKillDir("testing")
  4194.    Tmp1 = "Directory 'TESTING' " & IIf(cMakeDir("testing") = True, "created", "not created") & Chr$(13) & Chr$(13)
  4195.  
  4196.    cStartBasisTimer
  4197.    For i = 1 To ItemFile
  4198.       j = cMakeDir("testing")
  4199.    Next i
  4200.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4201.  
  4202.    Label3.Caption = Tmp1
  4203.  
  4204. End Sub
  4205.  
  4206. Sub TestMakePath ()
  4207.  
  4208.    Dim title      As String
  4209.    Dim Tmp        As String
  4210.    Dim Tmp1       As String
  4211.    Dim Tmp2       As String
  4212.    Dim Tmp3       As String
  4213.    Dim i          As Integer
  4214.    Dim n          As Integer
  4215.    Dim j          As Long
  4216.    Dim SPLITPATH  As tagSPLITPATH
  4217.  
  4218.    Tmp1 = ""
  4219.    Tmp = cMakePath("c", "tmp", "test", "dat")
  4220.  
  4221.    Tmp1 = Tmp1 & "Make Path of (c,tmp,test,dat) is '" & Tmp & "'" & Chr$(13) & Chr$(13)
  4222.    
  4223.    Tmp1 = Tmp1 & "Split Path '" & Tmp & "' into four components is :" & Chr$(13) & Chr$(13)
  4224.    n = cSplitPath(Tmp, SPLITPATH)
  4225.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & Chr$(13)
  4226.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & Chr$(13)
  4227.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & Chr$(13)
  4228.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & Chr$(13) & Chr$(13)
  4229.  
  4230.    cStartBasisTimer
  4231.    For i = 1 To Item
  4232.       Tmp = cMakePath("c", "tmp", "test", "dat")
  4233.    Next i
  4234.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  4235.  
  4236.    Label3.Caption = Tmp1
  4237.  
  4238. End Sub
  4239.  
  4240. Sub TestMaxI ()
  4241.  
  4242.    Dim title      As String
  4243.    Dim Tmp        As String
  4244.    Dim Tmp1       As String
  4245.    Dim Tmp2       As String
  4246.    Dim i          As Integer
  4247.    Dim j          As Integer
  4248.    Dim m          As Double
  4249.    
  4250.    ReDim array(ItemMean) As Integer
  4251.    Randomize Timer
  4252.  
  4253.    For i = LBound(array) To UBound(array)
  4254.       array(i) = RandI * Rnd(1)
  4255.       List1.AddItem "" & array(i)
  4256.    Next i
  4257.    
  4258.    j = cSortI(array())
  4259.  
  4260.    For i = LBound(array) To UBound(array)
  4261.       List2.AddItem "" & array(i)
  4262.    Next i
  4263.  
  4264.    List2.ListIndex = List2.ListCount - 1
  4265.  
  4266.    Tmp1 = "The MAX of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cMaxI(array()) & Chr$(13) & Chr$(13)
  4267.  
  4268.    cStartBasisTimer
  4269.    For i = 1 To ItemFile
  4270.       m = cMaxI(array())
  4271.    Next i
  4272.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4273.  
  4274.    Label3.Caption = Tmp1
  4275.  
  4276. End Sub
  4277.  
  4278.  Sub TestMeanI ()
  4279.  
  4280.    Dim title      As String
  4281.    Dim Tmp        As String
  4282.    Dim Tmp1       As String
  4283.    Dim Tmp2       As String
  4284.    Dim i          As Integer
  4285.    Dim j          As Integer
  4286.    Dim m          As Double
  4287.    
  4288.    ReDim array(ItemMean) As Integer
  4289.    Randomize Timer
  4290.  
  4291.    m = 0
  4292.    For i = LBound(array) To UBound(array)
  4293.       array(i) = Int(RandI * Rnd(1))
  4294.       m = m + array(i)
  4295.       List1.AddItem "" & array(i)
  4296.    Next i
  4297.    
  4298.    Tmp1 = "The Mean of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cMeanI(array()) & " (" & (m / (UBound(array) - LBound(array) + 1)) & ")" & Chr$(13) & Chr$(13)
  4299.  
  4300.    cStartBasisTimer
  4301.    For i = 1 To ItemFile
  4302.       m = cMeanI(array())
  4303.    Next i
  4304.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4305.  
  4306.    Label3.Caption = Tmp1
  4307.  
  4308. End Sub
  4309.  
  4310. Sub TestMenuChange ()
  4311.  
  4312.    Call cSysMenuChange(Me.hWnd, 0, "&Restaurer")
  4313.    Call cSysMenuChange(Me.hWnd, 1, "&Positionner")
  4314.    Call cSysMenuChange(Me.hWnd, 2, "&Taille")
  4315.    Call cSysMenuChange(Me.hWnd, 3, "&Ic⌠ne")
  4316.    Call cSysMenuChange(Me.hWnd, 4, "&Plein Θcran")
  4317.    Call cSysMenuChange(Me.hWnd, 6, "&Fermer" + Chr$(9) + "Alt+F4")
  4318.    Call cSysMenuChange(Me.hWnd, 8, "&TΓche" + Chr$(9) + "Ctrl+Esc")
  4319.  
  4320. End Sub
  4321.  
  4322.  Sub TestMin ()
  4323.  
  4324.    Dim title      As String
  4325.    Dim Tmp        As String
  4326.    Dim Tmp1       As String
  4327.    Dim Tmp2       As String
  4328.    Dim i          As Integer
  4329.    Dim j          As Long
  4330.  
  4331.    Tmp1 = "Min of [32760,1234567] is " & cMin(32760, 1234567) & Chr$(13)
  4332.    
  4333.    Tmp1 = Tmp1 + "Max of [32760,1234567] is " & cMax(32760, 1234567) & Chr$(13)
  4334.    
  4335.    cStartBasisTimer
  4336.    For i = 1 To Item
  4337.       j = cMin(32760, 1234567)
  4338.    Next i
  4339.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4340.  
  4341.    Label3.Caption = Tmp1
  4342.  
  4343. End Sub
  4344.  
  4345.  Sub TestMinI ()
  4346.  
  4347.    Dim title      As String
  4348.    Dim Tmp        As String
  4349.    Dim Tmp1       As String
  4350.    Dim Tmp2       As String
  4351.    Dim i          As Integer
  4352.    Dim j          As Integer
  4353.    Dim m          As Double
  4354.    
  4355.    ReDim array(ItemMean) As Integer
  4356.    Randomize Timer
  4357.  
  4358.    For i = LBound(array) To UBound(array)
  4359.       array(i) = RandI * Rnd(1)
  4360.       List1.AddItem "" & array(i)
  4361.    Next i
  4362.    
  4363.    j = cSortI(array())
  4364.  
  4365.    For i = LBound(array) To UBound(array)
  4366.       List2.AddItem "" & array(i)
  4367.    Next i
  4368.  
  4369.    List2.ListIndex = 0
  4370.  
  4371.    Tmp1 = "The MIN of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cMinI(array()) & Chr$(13) & Chr$(13)
  4372.  
  4373.    cStartBasisTimer
  4374.    For i = 1 To ItemFile
  4375.       m = cMinI(array())
  4376.    Next i
  4377.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4378.  
  4379.    Label3.Caption = Tmp1
  4380.  
  4381. End Sub
  4382.  
  4383. Sub TestMixChars ()
  4384.  
  4385.    Dim title      As String
  4386.    Dim Tmp        As String
  4387.    Dim Tmp1       As String
  4388.    Dim Tmp2       As String
  4389.    Dim i          As Integer
  4390.    Dim j          As Integer
  4391.           
  4392.    Tmp = Text1.Text
  4393.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
  4394.    Tmp = "TIME TO WIN"
  4395.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
  4396.    Tmp = "Nothing can beat the fox"
  4397.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
  4398.    Tmp = Text1.Text
  4399.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & Chr$(13) & Chr$(13)
  4400.           
  4401.    cStartBasisTimer
  4402.    For i = 1 To Item
  4403.       Tmp2 = cMixChars(Tmp)
  4404.    Next i
  4405.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4406.  
  4407.    Label3.Caption = Tmp1
  4408.  
  4409. End Sub
  4410.  
  4411. Sub TestMorse ()
  4412.  
  4413.    Dim title      As String
  4414.    Dim Tmp        As String
  4415.    Dim Tmp1       As String
  4416.    Dim Tmp2       As String
  4417.    Dim i          As Integer
  4418.    Dim j          As Integer
  4419.           
  4420.    Tmp = "SOS"
  4421.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
  4422.    Tmp = "TIME TO WIN"
  4423.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
  4424.    Tmp = "Nothing can beat the fox"
  4425.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
  4426.    Tmp = Text1.Text
  4427.    Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & Chr$(13) & Chr$(13)
  4428.           
  4429.    cStartBasisTimer
  4430.    For i = 1 To Item
  4431.       Tmp2 = cMorse(Tmp)
  4432.    Next i
  4433.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4434.  
  4435.    Label3.Caption = Tmp1
  4436.  
  4437. End Sub
  4438.  
  4439. Sub TestMsgBox ()
  4440.  
  4441.    Dim i       As Integer
  4442.    Dim n       As Integer
  4443.    Dim Tmp     As String
  4444.  
  4445.    Tmp = "'TIME TO WIN'" & Chr$(13) & Chr$(13)
  4446.    Tmp = Tmp & " is a powerfull data link library for using with Visual Basic 3.0 for Windows." & Chr$(13) & Chr$(13)
  4447.    Tmp = Tmp & "It looks very better than the standard message box." & Chr$(13) & Chr$(13)
  4448.    Tmp = Tmp & "All push buttons are displayed in French." & Chr$(13) & Chr$(13)
  4449.    Tmp = Tmp & "The system menu is also in French." & Chr$(13) & Chr$(13)
  4450.    Tmp = Tmp & "A TimeOut of 10 seconds has been activated and displayed."
  4451.  
  4452.    For i = 0 To 5
  4453.       Call cLngBoxMsg(LNG_FRENCH, Tmp, i + (16 * i) + 512 + MB_MESSAGE_CENTER + MB_TIMEOUT_10 + MB_DISPLAY_TIMEOUT, "Message Box in French with TimeOut")
  4454.    Next i
  4455.  
  4456. End Sub
  4457.  
  4458.  Sub TestOneCharFromLeft ()
  4459.  
  4460.    Dim title      As String
  4461.    Dim Tmp        As String
  4462.    Dim Tmp1       As String
  4463.    Dim Tmp2       As String
  4464.    Dim i          As Integer
  4465.    Dim j          As Integer
  4466.    
  4467.  
  4468.    Tmp = Text1.Text
  4469.    title = "The 3,7,1 chars from left of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
  4470.  
  4471.    Tmp = Text1.Text
  4472.  
  4473.    Tmp1 = title & "3:" & cOneCharFromLeft(Tmp, 3) & " | 7:" & cOneCharFromLeft(Tmp, 7) & " | 1:" & cOneCharFromLeft(Tmp, 1) & Chr$(13) & Chr$(13)
  4474.  
  4475.    cStartBasisTimer
  4476.    For i = 1 To Item
  4477.       Tmp2 = cOneCharFromLeft(Tmp, 2)
  4478.    Next i
  4479.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4480.  
  4481.    Label3.Caption = Tmp1
  4482.    
  4483. End Sub
  4484.  
  4485.  Sub TestOneCharFromRight ()
  4486.  
  4487.    Dim title      As String
  4488.    Dim Tmp        As String
  4489.    Dim Tmp1       As String
  4490.    Dim Tmp2       As String
  4491.    Dim i          As Integer
  4492.    Dim j          As Integer
  4493.    
  4494.  
  4495.    Tmp = Text1.Text
  4496.    title = "The 3,7,1 chars from right of [" & Tmp & "] are " & Chr$(13) & Chr$(13)
  4497.  
  4498.    Tmp = Text1.Text
  4499.  
  4500.    Tmp1 = title & "3:" & cOneCharFromRight(Tmp, 3) & " | 7:" & cOneCharFromRight(Tmp, 7) & " | 1:" & cOneCharFromRight(Tmp, 1) & Chr$(13) & Chr$(13)
  4501.  
  4502.    cStartBasisTimer
  4503.    For i = 1 To Item
  4504.       Tmp2 = cOneCharFromRight(Tmp, 2)
  4505.    Next i
  4506.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4507.  
  4508.    Label3.Caption = Tmp1
  4509.    
  4510. End Sub
  4511.  
  4512. Sub TestPatternExtMatch ()
  4513.  
  4514.    Dim title      As String
  4515.    Dim Tmp        As String
  4516.    Dim Tmp1       As String
  4517.    Dim Tmp2       As String
  4518.    Dim Tmp3       As String
  4519.    Dim i          As Integer
  4520.    Dim j          As Integer
  4521.  
  4522.    Tmp2 = "Under the blue sky, the sun lights"
  4523.  
  4524.    Tmp1 = "PatternExtMatch '" & Tmp2 & "' with" & Chr$(13) & Chr$(13)
  4525.    
  4526.    Tmp3 = "*"
  4527.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4528.    Tmp3 = "*??*???*?"
  4529.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4530.    Tmp3 = "*Under*"
  4531.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4532.    Tmp3 = "*sky*"
  4533.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4534.    Tmp3 = "*lights"
  4535.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4536.    Tmp3 = "??der*sky*ligh??*"
  4537.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4538.    Tmp3 = "Under?the * s??,*"
  4539.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4540.    Tmp3 = "[U-U][a-z][a-z][a-z][a-z]?the *"
  4541.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4542.    Tmp3 = "[U-U][!A-Z][^A-Z][^A-Z][!A-Z]?the *[s-s]"
  4543.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4544.    Tmp3 = "~55~6E*~73"
  4545.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4546.    Tmp3 = "[Uu][Nn][dD][eE][opqrst]?the *[rstu]"
  4547.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4548.    Tmp3 = "Under?the *[~72~73~74~75]"
  4549.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  4550.  
  4551.    Tmp3 = "*under*"
  4552.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4553.    Tmp3 = "Under*sun"
  4554.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4555.    Tmp3 = "Under t??e*"
  4556.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4557.    Tmp3 = "[U-U][!a-z][^A-Z][^A-Z][!A-Z]?the *[!s-s]"
  4558.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4559.    Tmp3 = "~55~6G*~73"
  4560.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4561.    Tmp3 = "[Uu][Nn][dD][eE][opqrst]?the *[rStu]"
  4562.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13)
  4563.    Tmp3 = "Under?the *[~72~53~74~75]"
  4564.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  4565.  
  4566.    Tmp3 = "Under?the * s??,*"
  4567.    cStartBasisTimer
  4568.    For i = 1 To Item
  4569.       j = cPatternExtMatch(Tmp2, Tmp3)
  4570.    Next i
  4571.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4572.  
  4573.    Label3.Caption = Tmp1
  4574.  
  4575. End Sub
  4576.  
  4577. Sub TestPatternMatch ()
  4578.  
  4579.    Dim title      As String
  4580.    Dim Tmp        As String
  4581.    Dim Tmp1       As String
  4582.    Dim Tmp2       As String
  4583.    Dim Tmp3       As String
  4584.    Dim i          As Integer
  4585.    Dim j          As Integer
  4586.  
  4587.    Tmp2 = "Under the blue sky, the sun lights"
  4588.  
  4589.    Tmp1 = "PatternMatch '" & Tmp2 & "' with" & Chr$(13) & Chr$(13)
  4590.  
  4591.    Tmp3 = "*"
  4592.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4593.    Tmp3 = "*??*???*?"
  4594.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4595.    Tmp3 = "*Under*"
  4596.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4597.    Tmp3 = "*sky*"
  4598.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4599.    Tmp3 = "*lights"
  4600.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4601.    Tmp3 = "??der*sky*ligh??*"
  4602.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4603.    Tmp3 = "Under?the * s??,*"
  4604.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  4605.  
  4606.    Tmp3 = "*under*"
  4607.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4608.    Tmp3 = "Under*sun"
  4609.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13)
  4610.    Tmp3 = "Under t??e*"
  4611.    Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & Chr$(13) & Chr$(13)
  4612.  
  4613.    Tmp3 = "Under?the * s??,*"
  4614.    cStartBasisTimer
  4615.    For i = 1 To Item
  4616.       j = cPatternMatch(Tmp2, Tmp3)
  4617.    Next i
  4618.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4619.  
  4620.    Label3.Caption = Tmp1
  4621.  
  4622. End Sub
  4623.  
  4624. Sub TestReadLanguage ()
  4625.    Load Form2
  4626.    Form2.Show
  4627. End Sub
  4628.  
  4629.  Sub TestRemoveBlockChar ()
  4630.  
  4631.    Dim title      As String
  4632.    Dim Tmp        As String
  4633.    Dim Tmp1       As String
  4634.    Dim Tmp2       As String
  4635.    Dim i          As Integer
  4636.    Dim j          As Integer
  4637.    
  4638.  
  4639.    Tmp = Text1.Text
  4640.    title = "Removing 3 chars from the 7 of [" & Tmp & "] is "
  4641.  
  4642.    Tmp = cRemoveBlockChar(Tmp, 7, 3)
  4643.  
  4644.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  4645.  
  4646.    cStartBasisTimer
  4647.    For i = 1 To Item
  4648.       Tmp = cRemoveBlockChar(Tmp, 1, 2)
  4649.    Next i
  4650.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4651.  
  4652.    Label3.Caption = Tmp1
  4653.  
  4654. End Sub
  4655.  
  4656.  Sub TestRemoveOneChar ()
  4657.  
  4658.    Dim title      As String
  4659.    Dim Tmp        As String
  4660.    Dim Tmp1       As String
  4661.    Dim Tmp2       As String
  4662.    Dim i          As Integer
  4663.    Dim j          As Integer
  4664.    
  4665.  
  4666.    Tmp = Text1.Text
  4667.    title = "Removing the 7 char of [" & Tmp & "] is "
  4668.  
  4669.    Tmp = cRemoveOneChar(Tmp, 7)
  4670.  
  4671.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  4672.  
  4673.    cStartBasisTimer
  4674.    For i = 1 To Item
  4675.       Tmp = cRemoveOneChar(Tmp, 1)
  4676.    Next i
  4677.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4678.  
  4679.    Label3.Caption = Tmp1
  4680.  
  4681. End Sub
  4682.  
  4683.  Sub TestRenameFile ()
  4684.  
  4685.    Dim title      As String
  4686.    Dim Tmp        As String
  4687.    Dim Tmp1       As String
  4688.    Dim Tmp2       As String
  4689.    Dim i          As Integer
  4690.    Dim j          As Integer
  4691.  
  4692.    j = cKillFile("XY~YX~XY.~~~")
  4693.    j = cKillFile("XY-YX-XY.---")
  4694.  
  4695.    Close #1
  4696.    Open "XY~YX~XY.~~~" For Output As #1
  4697.    Print #1, "this is a test";
  4698.    Close #1
  4699.  
  4700.    Tmp1 = "File XY~YX~XY.~~~ " & IIf(cRenameFile("XY~YX~XY.~~~", "XY-YX-XY.---") = True, "renamed in XY-YX-XY.---", "is not renamed") & Chr$(13) & Chr$(13)
  4701.  
  4702.    cStartBasisTimer
  4703.    For i = 1 To ItemFile
  4704.       j = cRenameFile("XY~YX~XY.~~~", "XY-YX-XY.---")
  4705.    Next i
  4706.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4707.  
  4708.    Label3.Caption = Tmp1
  4709.  
  4710. End Sub
  4711.  
  4712.  Sub TestResizeString ()
  4713.  
  4714.    Dim title      As String
  4715.    Dim Tmp        As String
  4716.    Dim Tmp1       As String
  4717.    Dim Tmp2       As String
  4718.    Dim i          As Integer
  4719.    Dim j          As Integer
  4720.    
  4721.  
  4722.    Tmp = Text1.Text
  4723.    Tmp1 = Tmp & " is resized from " & Len(Tmp) & " to 5 chars " & cResizeString(Tmp, 5) & Chr$(13) & Chr$(13)
  4724.  
  4725.    cStartBasisTimer
  4726.    For i = 1 To Item
  4727.       Tmp2 = cResizeString(Tmp, 3)
  4728.    Next i
  4729.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4730.  
  4731.    Label3.Caption = Tmp1
  4732.  
  4733. End Sub
  4734.  
  4735.  Sub TestResizeStringAndFill ()
  4736.  
  4737.    Dim title      As String
  4738.    Dim Tmp        As String
  4739.    Dim Tmp1       As String
  4740.    Dim Tmp2       As String
  4741.    Dim i          As Integer
  4742.    Dim j          As Integer
  4743.    
  4744.  
  4745.    Tmp = Text1.Text
  4746.    Tmp1 = Tmp & " is resized from " & Len(Tmp) & " to 35 chars and lengthened with @ is " & Chr$(13) & Chr$(13) & cResizeStringAndFill(Tmp, 35, "@") & Chr$(13) & Chr$(13)
  4747.  
  4748.    cStartBasisTimer
  4749.    For i = 1 To Item
  4750.       Tmp2 = cResizeStringAndFill(Tmp, 35, "@")
  4751.    Next i
  4752.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4753.  
  4754.    Label3.Caption = Tmp1
  4755.  
  4756. End Sub
  4757.  
  4758. Sub TestReverse ()
  4759.  
  4760.    Dim title      As String
  4761.    Dim Tmp        As String
  4762.    Dim Tmp1       As String
  4763.    Dim Tmp2       As String
  4764.    Dim i          As Integer
  4765.    Dim j          As Integer
  4766.    
  4767.  
  4768.    Tmp = Text1.Text
  4769.    title = "Reverse of [" & Tmp & "] is "
  4770.  
  4771.    Tmp1 = title & cReverse(Tmp) & Chr$(13) & Chr$(13)
  4772.  
  4773.    cStartBasisTimer
  4774.    For i = 1 To Item
  4775.       Tmp2 = cReverse(Tmp)
  4776.    Next i
  4777.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4778.  
  4779.    Label3.Caption = Tmp1
  4780.  
  4781. End Sub
  4782.  
  4783.  Sub TestReverseAllBits ()
  4784.  
  4785.    Dim title      As String
  4786.    Dim Tmp        As String
  4787.    Dim Tmp1       As String
  4788.    Dim Tmp2       As String
  4789.    Dim i          As Integer
  4790.    Dim j          As Integer
  4791.    
  4792.  
  4793.    Tmp = Text1.Text
  4794.    title = "Reverse all bits of [" & Tmp & "] is "
  4795.    Call cReverseAllBits(Tmp)
  4796.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  4797.  
  4798.    title = "Reverse all bits of [" & Tmp & "] is "
  4799.    Call cReverseAllBits(Tmp)
  4800.    Tmp1 = Tmp1 & title & Tmp & Chr$(13) & Chr$(13)
  4801.  
  4802.    cStartBasisTimer
  4803.    For i = 1 To Item
  4804.       Call cReverseAllBits(Tmp)
  4805.    Next i
  4806.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4807.  
  4808.    Label3.Caption = Tmp1
  4809.  
  4810. End Sub
  4811.  
  4812.  Sub TestReverseAllBitsByChar ()
  4813.  
  4814.    Dim title      As String
  4815.    Dim Tmp        As String
  4816.    Dim Tmp1       As String
  4817.    Dim Tmp2       As String
  4818.    Dim i          As Integer
  4819.    Dim j          As Integer
  4820.    
  4821.  
  4822.    Tmp = Text1.Text
  4823.    title = "Reverse all bits by char of [" & Tmp & "] is "
  4824.    Call cReverseAllBitsByChar(Tmp)
  4825.    Tmp1 = title & Tmp & Chr$(13) & Chr$(13)
  4826.  
  4827.    title = "Reverse all bits by char of [" & Tmp & "] is "
  4828.    Call cReverseAllBitsByChar(Tmp)
  4829.    Tmp1 = Tmp1 & title & Tmp & Chr$(13) & Chr$(13)
  4830.  
  4831.    cStartBasisTimer
  4832.    For i = 1 To Item
  4833.       Call cReverseAllBitsByChar(Tmp)
  4834.    Next i
  4835.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4836.  
  4837.    Label3.Caption = Tmp1
  4838.  
  4839. End Sub
  4840.  
  4841.  Sub TestReverseSortI ()
  4842.  
  4843.    Dim title      As String
  4844.    Dim Tmp        As String
  4845.    Dim Tmp1       As String
  4846.    Dim Tmp2       As String
  4847.    Dim i          As Integer
  4848.    Dim j          As Integer
  4849.    Dim m          As Integer
  4850.    
  4851.    ReDim array(ItemMean) As Integer
  4852.    Randomize Timer
  4853.  
  4854.    For i = LBound(array) To UBound(array)
  4855.       array(i) = RandI * Rnd(1)
  4856.       List1.AddItem "" & array(i)
  4857.    Next i
  4858.    
  4859.    j = cReverseSortI(array())
  4860.  
  4861.    For i = LBound(array) To UBound(array)
  4862.       List2.AddItem "" & array(i)
  4863.    Next i
  4864.  
  4865.    cStartBasisTimer
  4866.    For i = 1 To ItemFile
  4867.       j = cReverseSortI(array())
  4868.    Next i
  4869.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4870.  
  4871.    Label3.Caption = Tmp1
  4872.  
  4873. End Sub
  4874.  
  4875. Sub TestRtoA ()
  4876.    Dim Tmp        As String
  4877.    Dim Tmp1       As String
  4878.    Tmp = UCase$(cArabicToRoman(Year(Int(Now))))
  4879.    Tmp1 = Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & Chr$(13)
  4880.    Tmp = UCase$(cArabicToRoman(Year(Int(Now)) - 1))
  4881.    Tmp1 = Tmp1 & Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & Chr$(13)
  4882.    Tmp = UCase$(cArabicToRoman(Year(Int(Now)) + 1))
  4883.    Tmp1 = Tmp1 & Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & Chr$(13)
  4884.    Label3.Caption = Tmp1
  4885. End Sub
  4886.  
  4887.  Sub TestSetAllBits ()
  4888.  
  4889.    Dim title      As String
  4890.    Dim Tmp        As String
  4891.    Dim Tmp1       As String
  4892.    Dim Tmp2       As String
  4893.    Dim i          As Integer
  4894.    Dim j          As Integer
  4895.    
  4896.  
  4897.    Tmp = Text1.Text
  4898.    title = "Set all bits of [" & Tmp & "] on True is "
  4899.    Call cSetAllBits(Tmp, True)
  4900.  
  4901.    Tmp1 = title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  4902.  
  4903.    title = "Set all bits of [" & Tmp & "] on False is "
  4904.    Call cSetAllBits(Tmp, False)
  4905.  
  4906.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  4907.  
  4908.    cStartBasisTimer
  4909.    For i = 1 To Item
  4910.       Call cSetAllBits(Tmp, True)
  4911.    Next i
  4912.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4913.  
  4914.    Label3.Caption = Tmp1
  4915.  
  4916. End Sub
  4917.  
  4918.  Sub TestSetBit ()
  4919.  
  4920.    Dim title      As String
  4921.    Dim Tmp        As String
  4922.    Dim Tmp1       As String
  4923.    Dim Tmp2       As String
  4924.    Dim i          As Integer
  4925.    Dim j          As Integer
  4926.    
  4927.  
  4928.    Tmp = Text1.Text
  4929.    title = "Set bit 0,5,3 of [" & Tmp & "] on True is "
  4930.    Call cSetBit(Tmp, 0, True)
  4931.    Call cSetBit(Tmp, 5, True)
  4932.    Call cSetBit(Tmp, 3, True)
  4933.  
  4934.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  4935.  
  4936.    title = "Set bit 22,30,38 of [" & Tmp & "] on False is "
  4937.    Call cSetBit(Tmp, 22, False)
  4938.    Call cSetBit(Tmp, 30, False)
  4939.    Call cSetBit(Tmp, 38, False)
  4940.  
  4941.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  4942.  
  4943.    title = "Set bit 0,5,3 of [" & Tmp & "] on False is "
  4944.    Call cSetBit(Tmp, 0, False)
  4945.    Call cSetBit(Tmp, 5, False)
  4946.    Call cSetBit(Tmp, 3, False)
  4947.  
  4948.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  4949.  
  4950.    title = "Set bit 22,30,38 of [" & Tmp & "] on True is "
  4951.    Call cSetBit(Tmp, 22, True)
  4952.    Call cSetBit(Tmp, 30, True)
  4953.    Call cSetBit(Tmp, 38, True)
  4954.  
  4955.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  4956.  
  4957.    cStartBasisTimer
  4958.    For i = 1 To Item
  4959.       Call cSetBit(Tmp, 7, True)
  4960.    Next i
  4961.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  4962.  
  4963.    Label3.Caption = Tmp1
  4964.  
  4965. End Sub
  4966.  
  4967.  Sub TestSetI ()
  4968.  
  4969.    Dim title      As String
  4970.    Dim Tmp        As String
  4971.    Dim Tmp1       As String
  4972.    Dim Tmp2       As String
  4973.    Dim i          As Integer
  4974.    Dim j          As Integer
  4975.    Dim m          As Double
  4976.    
  4977.    ReDim array(ItemMean) As Integer
  4978.    Randomize Timer
  4979.  
  4980.    For i = LBound(array) To UBound(array)
  4981.       array(i) = 0
  4982.       List1.AddItem "" & array(i)
  4983.    Next i
  4984.    
  4985.    j = cSetI(array(), 1024)
  4986.  
  4987.    For i = LBound(array) To UBound(array)
  4988.       List2.AddItem "" & array(i)
  4989.    Next i
  4990.  
  4991.    Tmp1 = Tmp1 & "Set 1024 to element 1 of an integer array is : " & array(1) & Chr$(13) & Chr$(13)
  4992.    Tmp1 = Tmp1 & "Set 1024 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & Chr$(13) & Chr$(13)
  4993.  
  4994.    cStartBasisTimer
  4995.    For i = 1 To ItemFile
  4996.       j = cSetI(array(), 1.11)
  4997.    Next i
  4998.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  4999.  
  5000.    Label3.Caption = Tmp1
  5001.  
  5002. End Sub
  5003.  
  5004.  Sub TestSortI ()
  5005.  
  5006.    Dim title      As String
  5007.    Dim Tmp        As String
  5008.    Dim Tmp1       As String
  5009.    Dim Tmp2       As String
  5010.    Dim i          As Integer
  5011.    Dim j          As Integer
  5012.    Dim m          As Integer
  5013.    
  5014.    ReDim array(ItemMean) As Integer
  5015.    Randomize Timer
  5016.  
  5017.    For i = LBound(array) To UBound(array)
  5018.       array(i) = RandI * Rnd(1)
  5019.       List1.AddItem "" & array(i)
  5020.    Next i
  5021.    
  5022.    j = cSortI(array())
  5023.  
  5024.    For i = LBound(array) To UBound(array)
  5025.       List2.AddItem "" & array(i)
  5026.    Next i
  5027.  
  5028.    cStartBasisTimer
  5029.    For i = 1 To ItemFile
  5030.       j = cSortI(array())
  5031.    Next i
  5032.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  5033.  
  5034.    Label3.Caption = Tmp1
  5035.  
  5036. End Sub
  5037.  
  5038. Sub TestSplitPath ()
  5039.  
  5040.    Dim title      As String
  5041.    Dim Tmp        As String
  5042.    Dim Tmp1       As String
  5043.    Dim Tmp2       As String
  5044.    Dim Tmp3       As String
  5045.    Dim i          As Integer
  5046.    Dim n          As Integer
  5047.    Dim j          As Long
  5048.    Dim SPLITPATH  As tagSPLITPATH
  5049.    
  5050.    Tmp1 = ""
  5051.    Tmp = "C:\AUTOEXEC.BAT"
  5052.  
  5053.    Tmp1 = Tmp1 & "Split Path " & Tmp & " into four components is :" & Chr$(13) & Chr$(13)
  5054.    n = cSplitPath(Tmp, SPLITPATH)
  5055.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & Chr$(13)
  5056.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & Chr$(13)
  5057.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & Chr$(13)
  5058.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & Chr$(13) & Chr$(13)
  5059.  
  5060.    Tmp = cGetSystemDirectory() & "\TIME2WIN.DLL"
  5061.  
  5062.    Tmp1 = Tmp1 & "Split Path " & Tmp & " into four components is :" & Chr$(13) & Chr$(13)
  5063.    n = cSplitPath(Tmp, SPLITPATH)
  5064.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & Chr$(13)
  5065.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & Chr$(13)
  5066.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & Chr$(13)
  5067.    Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & Chr$(13) & Chr$(13)
  5068.  
  5069.    cStartBasisTimer
  5070.    For i = 1 To Item
  5071.       n = cSplitPath(Tmp, SPLITPATH)
  5072.    Next i
  5073.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000) & Chr$(13) & Chr$(13)
  5074.  
  5075.    Label3.Caption = Tmp1
  5076.  
  5077. End Sub
  5078.  
  5079.  Sub TestStringCRC32 ()
  5080.  
  5081.    Dim title      As String
  5082.    Dim Tmp        As String
  5083.    Dim Tmp1       As String
  5084.    Dim Tmp2       As String
  5085.    Dim i          As Integer
  5086.    Dim j          As Integer
  5087.    Dim k          As Long
  5088.    
  5089.  
  5090.    Tmp = Text1.Text
  5091.    title = "CRC32 for string [" & Tmp & "] is "
  5092.    Tmp1 = title & Hex$(cStringCRC32(Tmp)) & Chr$(13) & Chr$(13)
  5093.  
  5094.    title = "CRC32 for string [" & cReverse(Tmp) & "] is "
  5095.    Tmp1 = Tmp1 & title & Hex$(cStringCRC32(cReverse(Tmp))) & Chr$(13) & Chr$(13)
  5096.  
  5097.    title = "CRC32 for string [" & LCase$(Tmp) & "] is "
  5098.    Tmp1 = Tmp1 & title & Hex$(cStringCRC32(LCase$(Tmp))) & Chr$(13) & Chr$(13)
  5099.  
  5100.    title = "CRC32 for string [" & LCase$(cReverse(Tmp)) & "] is "
  5101.    Tmp1 = Tmp1 & title & Hex$(cStringCRC32(LCase$(cReverse(Tmp)))) & Chr$(13) & Chr$(13)
  5102.  
  5103.    cStartBasisTimer
  5104.    For i = 1 To Item
  5105.       k = cStringCRC32(Tmp)
  5106.    Next i
  5107.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5108.  
  5109.    Label3.Caption = Tmp1
  5110.  
  5111. End Sub
  5112.  
  5113.  Sub TestSubDirectory ()
  5114.  
  5115.    Dim title      As String
  5116.    Dim Tmp        As String
  5117.    Dim Tmp1       As String
  5118.    Dim Tmp2       As String
  5119.    Dim i          As Integer
  5120.    Dim j          As Integer
  5121.    Dim k          As Long
  5122.  
  5123.    title = "The 7 first directories in this directory are" & Chr$(13) & Chr$(13)
  5124.  
  5125.    Tmp1 = title
  5126.    Tmp2 = cSubDirectory("*.*", True)
  5127.    For i = 1 To 7
  5128.       Tmp1 = Tmp1 & Tmp2 & Chr$(13)
  5129.       Tmp2 = cSubDirectory("*.*", False)
  5130.    Next i
  5131.  
  5132.    Tmp1 = Tmp1 & Chr$(13)
  5133.  
  5134.    cStartBasisTimer
  5135.    For i = 1 To Item
  5136.       Tmp = cSubDirectory("*.*", True)
  5137.    Next i
  5138.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5139.  
  5140.    Label3.Caption = Tmp1
  5141.  
  5142. End Sub
  5143.  
  5144.  Sub TestSumI ()
  5145.  
  5146.    Dim title      As String
  5147.    Dim Tmp        As String
  5148.    Dim Tmp1       As String
  5149.    Dim Tmp2       As String
  5150.    Dim i          As Integer
  5151.    Dim j          As Integer
  5152.    Dim m          As Double
  5153.    
  5154.    ReDim array(ItemMean) As Integer
  5155.    Randomize Timer
  5156.  
  5157.    m = 0
  5158.    For i = LBound(array) To UBound(array)
  5159.       array(i) = Int(RandI * Rnd(1))
  5160.       m = m + array(i)
  5161.       List1.AddItem "" & array(i)
  5162.    Next i
  5163.    
  5164.    Tmp1 = "The Sum of a integer array of " & (ItemMean + 1) & " elements is " & Chr$(13) & Chr$(13) & cSumI(array()) & " (" & m & ")" & Chr$(13) & Chr$(13)
  5165.  
  5166.    cStartBasisTimer
  5167.    For i = 1 To ItemFile
  5168.       m = cSumI(array())
  5169.    Next i
  5170.    Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & (cReadBasisTimer() / 1000)
  5171.  
  5172.    Label3.Caption = Tmp1
  5173.  
  5174. End Sub
  5175.  
  5176. Sub TestSwap ()
  5177.  
  5178.    Dim title      As String
  5179.    Dim Tmp        As String
  5180.    Dim Tmp1       As String
  5181.    Dim Tmp2       As String
  5182.    Dim i          As Integer
  5183.    Dim j          As Long
  5184.  
  5185.    Dim i1         As Integer
  5186.    Dim i2         As Integer
  5187.  
  5188.    Dim s1         As String
  5189.    Dim s2         As String
  5190.  
  5191.    i1 = 3276
  5192.    i2 = 12345
  5193.  
  5194.    s1 = "Hello"
  5195.    s2 = "World"
  5196.  
  5197.    Tmp1 = "SwapI of [" & i1 & "," & i2 & "] is "
  5198.    Call cSwapI(i1, i2)
  5199.    Tmp1 = Tmp1 + "[" & i1 & "," & i2 & "]" & Chr$(13)
  5200.  
  5201.    Tmp1 = Tmp1 + "SwapI of [" & i1 & "," & i2 & "] is "
  5202.    Call cSwapI(i1, i2)
  5203.    Tmp1 = Tmp1 + "[" & i1 & "," & i2 & "]" & Chr$(13)
  5204.  
  5205.    Tmp1 = Tmp1 + "SwapStr of [" & s1 & "," & s2 & "] is "
  5206.    Call cSwapStr(s1, s2)
  5207.    Tmp1 = Tmp1 + "[" & s1 & "," & s2 & "]" & Chr$(13)
  5208.  
  5209.    Tmp1 = Tmp1 + "SwapStr of [" & s1 & "," & s2 & "] is "
  5210.    Call cSwapStr(s1, s2)
  5211.    Tmp1 = Tmp1 + "[" & s1 & "," & s2 & "]" & Chr$(13)
  5212.  
  5213.    cStartBasisTimer
  5214.    For i = 1 To Item
  5215.       Call cSwapI(i1, i2)
  5216.    Next i
  5217.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5218.  
  5219.    Label3.Caption = Tmp1
  5220.  
  5221. End Sub
  5222.  
  5223. Sub TestSysMenuChange (Language As Integer)
  5224.    Call cLngSysMenu(Language, Me.hWnd)
  5225. End Sub
  5226.  
  5227.  Sub TestTimeBetween ()
  5228.  
  5229.    Dim title      As String
  5230.    Dim Tmp        As String
  5231.    Dim Tmp1       As String
  5232.    Dim Tmp2       As String
  5233.    Dim i          As Integer
  5234.    Dim j          As Integer
  5235.  
  5236.    Tmp1 = "The time between 10:00 and 12:01 is " & cTimeBetween(600, 721) & " minutes" & Chr$(13) & Chr$(13)
  5237.  
  5238.    Tmp1 = Tmp1 & "The time between 23:58 and 01:02 is " & cTimeBetween(1438, 62) & " minutes" & Chr$(13) & Chr$(13)
  5239.  
  5240.    cStartBasisTimer
  5241.    For i = 1 To Item
  5242.       j = cTimeBetween(0, 1439)
  5243.    Next i
  5244.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5245.  
  5246.    Label3.Caption = Tmp1
  5247.    
  5248. End Sub
  5249.  
  5250.  Sub TestTimer ()
  5251.  
  5252.    Dim title      As String
  5253.    Dim Tmp        As String
  5254.    Dim Tmp1       As String
  5255.    Dim Tmp2       As String
  5256.    Dim i          As Integer
  5257.    Dim j          As Integer
  5258.  
  5259.    title = "The elapsed time for a empty loop of 32766 iterations is "
  5260.  
  5261.    cStartBasisTimer
  5262.    For i = 1 To 32766
  5263.    Next i
  5264.    Tmp1 = title & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
  5265.  
  5266.    title = "The elapsed time for a integer loop of 32766 iterations is "
  5267.  
  5268.    cStartBasisTimer
  5269.    For i = 1 To 32766
  5270.       j = j + 1
  5271.    Next i
  5272.    Tmp1 = Tmp1 & title & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
  5273.  
  5274.    title = "The elapsed time for a string loop of 10000 iterations is "
  5275.  
  5276.    cStartBasisTimer
  5277.    For i = 1 To 10000
  5278.       Tmp2 = Tmp2 + "a"
  5279.    Next i
  5280.    Tmp1 = Tmp1 & title & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
  5281.  
  5282.    cStartBasisTimer
  5283.    For i = 1 To Item
  5284.       j = cReadBasisTimer()
  5285.    Next i
  5286.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5287.  
  5288.    Label3.Caption = Tmp1
  5289.  
  5290. End Sub
  5291.  
  5292.  Sub TestToggleAllBits ()
  5293.  
  5294.    Dim title      As String
  5295.    Dim Tmp        As String
  5296.    Dim Tmp1       As String
  5297.    Dim Tmp2       As String
  5298.    Dim i          As Integer
  5299.    Dim j          As Integer
  5300.    
  5301.  
  5302.    Tmp = Text1.Text
  5303.    title = "Toggle all bits of [" & Tmp & "] is "
  5304.    Call cToggleAllBits(Tmp)
  5305.  
  5306.    Tmp1 = title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  5307.  
  5308.    title = "Toggle all bits of [" & Tmp & "] is "
  5309.    Call cToggleAllBits(Tmp)
  5310.  
  5311.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  5312.  
  5313.    cStartBasisTimer
  5314.    For i = 1 To Item
  5315.       Call cToggleAllBits(Tmp)
  5316.    Next i
  5317.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5318.  
  5319.    Label3.Caption = Tmp1
  5320.  
  5321. End Sub
  5322.  
  5323.  Sub TestToggleBit ()
  5324.  
  5325.    Dim title      As String
  5326.    Dim Tmp        As String
  5327.    Dim Tmp1       As String
  5328.    Dim Tmp2       As String
  5329.    Dim i          As Integer
  5330.    Dim j          As Integer
  5331.    
  5332.  
  5333.    Tmp = Text1.Text
  5334.    title = "Toggle bit 7,22,15 of [" & Tmp & "] is "
  5335.    Call cToggleBit(Tmp, 7)
  5336.    Call cToggleBit(Tmp, 22)
  5337.    Call cToggleBit(Tmp, 15)
  5338.  
  5339.    Tmp1 = title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  5340.  
  5341.    title = "Toggle bit 7,22,15 of [" & Tmp & "] is "
  5342.    Call cToggleBit(Tmp, 7)
  5343.    Call cToggleBit(Tmp, 22)
  5344.    Call cToggleBit(Tmp, 15)
  5345.  
  5346.    Tmp1 = Tmp1 & title & "[" & Tmp & "] " & Chr$(13) & Chr$(13)
  5347.  
  5348.    cStartBasisTimer
  5349.    For i = 1 To Item
  5350.       Call cToggleBit(Tmp, i)
  5351.    Next i
  5352.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5353.  
  5354.    Label3.Caption = Tmp1
  5355.  
  5356. End Sub
  5357.  
  5358.  Sub TestTrueBetween ()
  5359.  
  5360.    Dim title      As String
  5361.    Dim Tmp        As String
  5362.    Dim Tmp1       As String
  5363.    Dim Tmp2       As String
  5364.    Dim i          As Integer
  5365.    Dim j          As Integer
  5366.    
  5367.  
  5368.    Tmp1 = "601 is not true between 720 and 840 => " & cTrueBetween(601, 720, 840) & Chr$(13) & Chr$(13)
  5369.  
  5370.    Tmp1 = Tmp1 & "601 is true between 540 and 602 => " & cTrueBetween(601, 540, 602) & Chr$(13) & Chr$(13)
  5371.  
  5372.    Tmp1 = Tmp1 & "61 is not true between 61 and 62 => " & cTrueBetween(61, 61, 62) & Chr$(13) & Chr$(13)
  5373.  
  5374.    cStartBasisTimer
  5375.    For i = 1 To Item
  5376.       j = cTrueBetween(720, 0, 1439)
  5377.    Next i
  5378.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5379.  
  5380.    Label3.Caption = Tmp1
  5381.  
  5382. End Sub
  5383.  
  5384.  Sub TestUncompact ()
  5385.  
  5386.    Dim title      As String
  5387.    Dim Tmp        As String
  5388.    Dim Tmp1       As String
  5389.    Dim Tmp2       As String
  5390.    Dim i          As Integer
  5391.    Dim j          As Integer
  5392.  
  5393.    Tmp = "987654321"
  5394.  
  5395.    title = "Uncompact '" & Tmp & "' is "
  5396.    Tmp1 = title & cUncompact(Tmp) & Chr$(13) & Chr$(13)
  5397.  
  5398.    cStartBasisTimer
  5399.    For i = 1 To Item
  5400.       Tmp2 = cUncompact(Tmp)
  5401.    Next i
  5402.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5403.  
  5404.    Label3.Caption = Tmp1
  5405.  
  5406. End Sub
  5407.  
  5408.  Sub TestUniqueFileName ()
  5409.  
  5410.    Dim title      As String
  5411.    Dim Tmp        As String
  5412.    Dim Tmp1       As String
  5413.    Dim Tmp2       As String
  5414.    Dim i          As Integer
  5415.    Dim j          As Integer
  5416.    
  5417.  
  5418.    Tmp1 = "Generate unique filename with template WN is " & cUniqueFileName("WN") & Chr$(13) & Chr$(13)
  5419.  
  5420.    cStartBasisTimer
  5421.    For i = 1 To Item
  5422.       Tmp2 = cUniqueFileName("WN")
  5423.    Next i
  5424.    Tmp1 = Tmp1 & "speed for " & Item & " = " & (cReadBasisTimer() / 1000)
  5425.  
  5426.    Label3.Caption = Tmp1
  5427.  
  5428. End Sub
  5429.  
  5430. Sub TestWindowsIni ()
  5431.  
  5432.    Dim Tmp        As String
  5433.  
  5434.    Tmp = Tmp + "DateSeparator is " + cGetDateSeparator() + Chr$(13)
  5435.    Tmp = Tmp + "TimeSeparator is " + cGetTimeSeparator() + Chr$(13)
  5436.    Tmp = Tmp + "ListSeparator is " + cGetListSeparator() + Chr$(13)
  5437.    Tmp = Tmp + "DateFormat    is " + cGetDateFormat() + Chr$(13)
  5438.    Tmp = Tmp + "HourFormat    is " + cGetHourFormat() + Chr$(13)
  5439.    Tmp = Tmp + "Currency      is " + cGetCurrency() + Chr$(13)
  5440.    Tmp = Tmp + "Language      is " + cGetLanguage() + Chr$(13)
  5441.    Tmp = Tmp + "Country       is " + cGetCountry() + Chr$(13)
  5442.    Tmp = Tmp + "CountryCode   is " + cGetCountryCode() + Chr$(13)
  5443.  
  5444.    Label3.Caption = Tmp
  5445.  
  5446. End Sub
  5447.  
  5448. Sub TestWinINI1 ()
  5449.    Label3.Caption = cGetDevices() & Chr$(13) & Chr$(13) & "Length = " & Len(cGetDevices())
  5450. End Sub
  5451.  
  5452. Sub TestWinINI2 ()
  5453.    Label3.Caption = cGetPrinterPorts() & Chr$(13) & Chr$(13) & "Length = " & Len(cGetPrinterPorts())
  5454. End Sub
  5455.  
  5456. Sub TestWinINI3 ()
  5457.    Label3.Caption = cGetWinSection("windows") & Chr$(13) & Chr$(13) & "Length = " & Len(cGetWinSection("windows"))
  5458. End Sub
  5459.  
  5460.