home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _MISC.FRM < prev    next >
Text File  |  1998-04-07  |  19KB  |  709 lines

  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmMisc 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Miscelleanous"
  6.    ClientHeight    =   4785
  7.    ClientLeft      =   1890
  8.    ClientTop       =   3270
  9.    ClientWidth     =   7485
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4785
  14.    ScaleWidth      =   7485
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txt_Result 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   4005
  20.       Left            =   105
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   0
  25.       Top             =   630
  26.       Width           =   7260
  27.    End
  28.    Begin Threed.SSPanel SSPanel1 
  29.       Align           =   1  'Align Top
  30.       Height          =   480
  31.       Left            =   0
  32.       TabIndex        =   1
  33.       Top             =   0
  34.       Width           =   7485
  35.       _Version        =   65536
  36.       _ExtentX        =   13203
  37.       _ExtentY        =   847
  38.       _StockProps     =   15
  39.       ForeColor       =   -2147483640
  40.       BackColor       =   12632256
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Begin VB.ComboBox cmb_Function 
  51.          Height          =   315
  52.          Left            =   1365
  53.          TabIndex        =   2
  54.          Top             =   90
  55.          Width           =   4785
  56.       End
  57.       Begin Threed.SSCommand SSCommand1 
  58.          Default         =   -1  'True
  59.          Height          =   300
  60.          Left            =   6615
  61.          TabIndex        =   6
  62.          Top             =   90
  63.          Width           =   465
  64.          _Version        =   65536
  65.          _ExtentX        =   820
  66.          _ExtentY        =   529
  67.          _StockProps     =   78
  68.          Caption         =   "&Go"
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          BevelWidth      =   1
  79.          RoundedCorners  =   0   'False
  80.          Outline         =   0   'False
  81.       End
  82.       Begin Threed.SSCommand cmdNP 
  83.          Height          =   300
  84.          Index           =   0
  85.          Left            =   6300
  86.          TabIndex        =   4
  87.          Top             =   90
  88.          Width           =   255
  89.          _Version        =   65536
  90.          _ExtentX        =   450
  91.          _ExtentY        =   529
  92.          _StockProps     =   78
  93.          Caption         =   "<"
  94.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  95.             Name            =   "MS Sans Serif"
  96.             Size            =   8.25
  97.             Charset         =   0
  98.             Weight          =   400
  99.             Underline       =   0   'False
  100.             Italic          =   0   'False
  101.             Strikethrough   =   0   'False
  102.          EndProperty
  103.          BevelWidth      =   1
  104.          Font3D          =   3
  105.          RoundedCorners  =   0   'False
  106.          Outline         =   0   'False
  107.       End
  108.       Begin Threed.SSCommand cmdNP 
  109.          Height          =   300
  110.          Index           =   1
  111.          Left            =   7140
  112.          TabIndex        =   3
  113.          Top             =   90
  114.          Width           =   255
  115.          _Version        =   65536
  116.          _ExtentX        =   450
  117.          _ExtentY        =   529
  118.          _StockProps     =   78
  119.          Caption         =   ">"
  120.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.             Name            =   "MS Sans Serif"
  122.             Size            =   8.25
  123.             Charset         =   0
  124.             Weight          =   400
  125.             Underline       =   0   'False
  126.             Italic          =   0   'False
  127.             Strikethrough   =   0   'False
  128.          EndProperty
  129.          BevelWidth      =   1
  130.          Font3D          =   3
  131.          RoundedCorners  =   0   'False
  132.          Outline         =   0   'False
  133.       End
  134.       Begin VB.Label Label2 
  135.          Caption         =   "&Select a function"
  136.          Height          =   255
  137.          Left            =   90
  138.          TabIndex        =   5
  139.          Top             =   120
  140.          Width           =   1275
  141.       End
  142.    End
  143. End
  144. Attribute VB_Name = "frmMisc"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Option Base 1
  151.  
  152. Private Const Iteration = 250
  153.  
  154. Dim IsLoaded         As Integer
  155.  
  156. Dim TimerStartOk     As Integer
  157. Dim TimerCloseOk     As Integer
  158.  
  159. Dim TimerHandle      As Integer
  160. Dim TimerValue       As Long
  161.  
  162. Private Sub cmdNP_Click(Index As Integer)
  163.  
  164.    Call sub_NextPrev(cmb_Function, Index)
  165.  
  166. End Sub
  167.  
  168.  
  169. Private Sub cmb_Function_Click()
  170.    
  171.    If (IsLoaded = False) Then Exit Sub
  172.    
  173.    Call cDisableFI(mdiT2W.Picture1)
  174.    
  175.    txt_Result = ""
  176.    
  177.    DoEvents
  178.    
  179.    Select Case cmb_Function.ListIndex
  180.       Case 0
  181.          Call TestSwapX
  182.       Case 1
  183.          Call TestMinMax
  184.       Case 2
  185.          Call TestIncrX
  186.       Case 3
  187.          Call TestRndX
  188.       Case 4
  189.          Call TestSpellMoney
  190.       Case 5
  191.          Call TestFraction
  192.       Case 6
  193.          Call TestBaseConversion
  194.       Case 7
  195.          Call TestCombination
  196.    End Select
  197.  
  198.    DoEvents
  199.    Call cEnableFI(mdiT2W.Picture1)
  200.    
  201. End Sub
  202.  
  203.  
  204. Private Sub Form_Activate()
  205.  
  206.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  207.  
  208. End Sub
  209.  
  210. Private Sub Form_Load()
  211.  
  212.    IsLoaded = False
  213.    
  214.    Show
  215.  
  216.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_misc.t2w")
  217.    
  218.    IsLoaded = True
  219.    
  220. End Sub
  221.  
  222. Private Sub SSCommand1_Click()
  223.    
  224.    Call cmb_Function_Click
  225.    
  226. End Sub
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234. Private Sub TestSwapX()
  235.  
  236.    Dim intResult        As Integer
  237.    Dim strResult        As String
  238.    Dim strDisplay       As String
  239.    
  240.    Dim i                As Integer
  241.    
  242.    Dim Str1             As String
  243.    Dim Str2             As String
  244.    
  245.    Dim b1               As Byte
  246.    Dim b2               As Byte
  247.    Dim i1               As Integer
  248.    Dim i2               As Integer
  249.    Dim l1               As Long
  250.    Dim l2               As Long
  251.    Dim s1               As Single
  252.    Dim s2               As Single
  253.    Dim d1               As Double
  254.    Dim d2               As Double
  255.    
  256.    strResult = ""
  257.    strDisplay = ""
  258.    
  259.    Str1 = "Hello"
  260.    Str2 = "World"
  261.    
  262.    b1 = 0
  263.    b2 = 255
  264.    i1 = -32768
  265.    i2 = 32767
  266.    l1 = -2147483647
  267.    l2 = 2147483647
  268.    s1 = 12345.5678
  269.    s2 = 98765.4321
  270.    d1 = 12345.67890123
  271.    d2 = 98765.43210987
  272.    
  273.    strDisplay = strDisplay + "SwapB of '" & b1 & " - " & b2 & "' is "
  274.    Call cSwapB(b1, b2)
  275.    strDisplay = strDisplay + "'" & b1 & " - " & b2 & "'" & vbCrLf & vbCrLf
  276.  
  277.    strDisplay = strDisplay + "SwapI of '" & i1 & " - " & i2 & "' is "
  278.    Call cSwapI(i1, i2)
  279.    strDisplay = strDisplay + "'" & i1 & " - " & i2 & "'" & vbCrLf & vbCrLf
  280.  
  281.    strDisplay = strDisplay + "SwapL of '" & l1 & " - " & l2 & "' is "
  282.    Call cSwapL(l1, l2)
  283.    strDisplay = strDisplay + "'" & l1 & " - " & l2 & "'" & vbCrLf & vbCrLf
  284.  
  285.    strDisplay = strDisplay + "SwapS of '" & s1 & " - " & s2 & "' is "
  286.    Call cSwapS(s1, s2)
  287.    strDisplay = strDisplay + "'" & s1 & " - " & s2 & "'" & vbCrLf & vbCrLf
  288.  
  289.    strDisplay = strDisplay + "SwapD of '" & d1 & " - " & d2 & "' is "
  290.    Call cSwapD(d1, d2)
  291.    strDisplay = strDisplay + "'" & d1 & " - " & d2 & "'" & vbCrLf & vbCrLf
  292.  
  293.    strDisplay = strDisplay + "SwapStr of '" & Str1 & " - " & Str2 & "' is "
  294.    Call cSwapStr(Str1, Str2)
  295.    strDisplay = strDisplay + "'" & Str1 & " - " & Str2 & "'" & vbCrLf & vbCrLf
  296.  
  297.    strDisplay = strDisplay + "SwapStr of '" & Str1 & " - " & Str2 & "' is "
  298.    Call cSwapStr(Str1, Str2)
  299.    strDisplay = strDisplay + "'" & Str1 & " - " & Str2 & "'"
  300.      
  301.    txt_Result = strDisplay
  302.  
  303.    'time the function
  304.  
  305.    TimerHandle = cTimerOpen()
  306.    TimerStartOk = cTimerStart(TimerHandle)
  307.    
  308.    For i = 1 To Iteration
  309.       Call cSwapD(d1, d2)
  310.    Next i
  311.    
  312.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  313.    
  314.    TimerCloseOk = cTimerClose(TimerHandle)
  315.  
  316. End Sub
  317.  
  318. Private Sub TestMinMax()
  319.    
  320.    Dim lResult          As Long
  321.    Dim strResult        As String
  322.    Dim strDisplay       As String
  323.    
  324.    Dim i                As Integer
  325.    
  326.    Dim Str1             As String
  327.    Dim Str2             As String
  328.    
  329.    lResult = 0
  330.    
  331.    strResult = ""
  332.    strDisplay = ""
  333.      
  334.    strDisplay = strDisplay & "Min of '32760,1234567' is '" & cMin(32760, 1234567) & "'" & vbCrLf & vbCrLf
  335.    
  336.    strDisplay = strDisplay & "Max of '32760,1234567' is '" & cMax(32760, 1234567) & "'"
  337.    
  338.    txt_Result = strDisplay
  339.  
  340.    'time the function
  341.  
  342.    TimerHandle = cTimerOpen()
  343.    TimerStartOk = cTimerStart(TimerHandle)
  344.    
  345.    For i = 1 To Iteration
  346.       lResult = cMax(32760, 1234567)
  347.    Next i
  348.    
  349.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  350.    
  351.    TimerCloseOk = cTimerClose(TimerHandle)
  352.  
  353. End Sub
  354.  
  355. Private Sub TestIncrX()
  356.    
  357.    Dim lResult          As Long
  358.    Dim strResult        As String
  359.    Dim strDisplay       As String
  360.    
  361.    Dim i                As Integer
  362.    
  363.    Dim Str1             As String
  364.    Dim Str2             As String
  365.    
  366.    lResult = 0
  367.    
  368.    strResult = ""
  369.    strDisplay = ""
  370.      
  371.    i = 1
  372.    Call cIncrI(i)
  373.    strDisplay = strDisplay & "IncrI of '" & 1 & "' is '" & i & "'" & vbCrLf
  374.    i = 32000
  375.    Call cIncrI(i)
  376.    strDisplay = strDisplay & "IncrI of '" & 32000 & "' is '" & i & "'" & vbCrLf
  377.    i = -32768
  378.    Call cIncrI(i)
  379.    strDisplay = strDisplay & "IncrI of '" & -32768 & "' is '" & i & "'" & vbCrLf & vbCrLf
  380.    
  381.    i = 1
  382.    Call cDecrI(i)
  383.    strDisplay = strDisplay & "DecrI of '" & 1 & "' is '" & i & "'" & vbCrLf
  384.    i = 32000
  385.    Call cDecrI(i)
  386.    strDisplay = strDisplay & "DecrI of '" & 32000 & "' is '" & i & "'" & vbCrLf
  387.    i = -32767
  388.    Call cDecrI(i)
  389.    strDisplay = strDisplay & "DecrI of '" & -32767 & "' is '" & i & "'" & vbCrLf & vbCrLf
  390.    
  391.    lResult = 1
  392.    Call cIncrL(lResult)
  393.    strDisplay = strDisplay & "IncrL of '" & 1 & "' is '" & lResult & "'" & vbCrLf
  394.    lResult = 32000
  395.    Call cIncrL(lResult)
  396.    strDisplay = strDisplay & "IncrL of '" & 32000 & "' is '" & lResult & "'" & vbCrLf
  397.    lResult = -32768
  398.    Call cIncrL(lResult)
  399.    strDisplay = strDisplay & "IncrL of '" & -32768 & "' is '" & lResult & "'" & vbCrLf & vbCrLf
  400.    
  401.    lResult = 1
  402.    Call cDecrL(lResult)
  403.    strDisplay = strDisplay & "DecrL of '" & 1 & "' is '" & lResult & "'" & vbCrLf
  404.    lResult = 32000
  405.    Call cDecrL(lResult)
  406.    strDisplay = strDisplay & "DecrL of '" & 32000 & "' is '" & lResult & "'" & vbCrLf
  407.    lResult = -32768
  408.    Call cDecrL(lResult)
  409.    strDisplay = strDisplay & "DecrL of '" & -32768 & "' is '" & lResult & "'"
  410.    
  411.    txt_Result = strDisplay
  412.  
  413.    'time the function
  414.  
  415.    TimerHandle = cTimerOpen()
  416.    TimerStartOk = cTimerStart(TimerHandle)
  417.    
  418.    For i = 1 To Iteration
  419.       Call cIncrI(i)
  420.    Next i
  421.    
  422.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  423.    
  424.    TimerCloseOk = cTimerClose(TimerHandle)
  425.  
  426. End Sub
  427.  
  428. Private Sub TestRndX()
  429.    
  430.    Dim lResult          As Long
  431.    Dim strResult        As String
  432.    Dim strDisplay       As String
  433.    
  434.    Dim i                As Integer
  435.    
  436.    Dim Str1             As String
  437.    Dim Str2             As String
  438.    
  439.    lResult = 0
  440.    
  441.    strResult = ""
  442.    strDisplay = ""
  443.      
  444.    Call cRndInit(-1)
  445.    
  446.    strDisplay = "Some random Integer number" & vbCrLf & vbCrLf
  447.  
  448.    For i = 1 To 2
  449.       strDisplay = strDisplay & cRndI() & vbCrLf
  450.    Next i
  451.  
  452.    strDisplay = strDisplay & vbCrLf
  453.  
  454.    strDisplay = strDisplay & "Some random Long number" & vbCrLf & vbCrLf
  455.  
  456.    For i = 1 To 2
  457.       strDisplay = strDisplay & cRndL() & vbCrLf
  458.    Next i
  459.  
  460.    strDisplay = strDisplay & vbCrLf
  461.  
  462.    strDisplay = strDisplay & "Some random Single number" & vbCrLf & vbCrLf
  463.  
  464.    For i = 1 To 2
  465.       strDisplay = strDisplay & cRndS() & vbCrLf
  466.    Next i
  467.  
  468.    strDisplay = strDisplay & vbCrLf
  469.  
  470.    strDisplay = strDisplay & "Some random Double number" & vbCrLf & vbCrLf
  471.  
  472.    For i = 1 To 2
  473.       strDisplay = strDisplay & cRndD() & vbCrLf
  474.    Next i
  475.  
  476.    strDisplay = strDisplay & vbCrLf
  477.  
  478.    strDisplay = strDisplay & "Some random Double number between 0.0 and 1.0" & vbCrLf & vbCrLf
  479.  
  480.    For i = 1 To 2
  481.       strDisplay = strDisplay & cRnd() & vbCrLf
  482.    Next i
  483.    
  484.    txt_Result = strDisplay
  485.  
  486.    'time the function
  487.  
  488.    TimerHandle = cTimerOpen()
  489.    TimerStartOk = cTimerStart(TimerHandle)
  490.    
  491.    For i = 1 To Iteration
  492.       lResult = cRndL()
  493.    Next i
  494.    
  495.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  496.    
  497.    TimerCloseOk = cTimerClose(TimerHandle)
  498.  
  499. End Sub
  500.  
  501. Private Sub TestSpellMoney()
  502.    
  503.    Dim lResult          As Long
  504.    Dim strResult        As String
  505.    Dim strDisplay       As String
  506.    
  507.    Dim i                As Integer
  508.    
  509.    Dim Str1             As String
  510.    
  511.    Dim Units            As String
  512.    Dim Cents            As String
  513.  
  514.    lResult = 0
  515.    
  516.    strResult = ""
  517.    strDisplay = ""
  518.      
  519.    Units = "dollars"
  520.    Cents = "cents"
  521.  
  522.    strDisplay = "Spelling the following money value " & vbCrLf & vbCrLf
  523.  
  524.    strDisplay = strDisplay & "4.12 is '" & cSpellMoney(4.12, Units, Cents) & "'" & vbCrLf & vbCrLf
  525.    strDisplay = strDisplay & "16 is '" & cSpellMoney(16, Units, Cents) & "'" & vbCrLf & vbCrLf
  526.    strDisplay = strDisplay & "25 is '" & cSpellMoney(25, Units, Cents) & "'" & vbCrLf & vbCrLf
  527.    strDisplay = strDisplay & "34 is '" & cSpellMoney(34, Units, Cents) & "'" & vbCrLf & vbCrLf
  528.    strDisplay = strDisplay & "43 is '" & cSpellMoney(43, Units, Cents) & "'" & vbCrLf & vbCrLf
  529.    strDisplay = strDisplay & "61 is '" & cSpellMoney(61, Units, Cents) & "'" & vbCrLf & vbCrLf
  530.    strDisplay = strDisplay & "98765.43 is '" & cSpellMoney(98765.43, Units, Cents) & "'" & vbCrLf & vbCrLf
  531.    strDisplay = strDisplay & "123456789.75 is '" & cSpellMoney(123456789.75, Units, Cents) & "'"
  532.  
  533.    txt_Result = strDisplay
  534.  
  535.    'time the function
  536.  
  537.    TimerHandle = cTimerOpen()
  538.    TimerStartOk = cTimerStart(TimerHandle)
  539.    
  540.    For i = 1 To Iteration
  541.       strResult = cSpellMoney(12.34, Units, Cents)
  542.    Next i
  543.    
  544.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  545.    
  546.    TimerCloseOk = cTimerClose(TimerHandle)
  547.  
  548. End Sub
  549.  
  550. Private Sub TestFraction()
  551.    
  552.    Dim dblResult        As Double
  553.    Dim strResult        As String
  554.    Dim strDisplay       As String
  555.    
  556.    Dim i                As Integer
  557.    Dim v                As Double
  558.    Dim n                As Double
  559.    Dim p                As Double
  560.    Dim q                As Double
  561.    Dim e                As Integer
  562.    
  563.    Dim Str1             As String
  564.    
  565.    Dim Units            As String
  566.    Dim Cents            As String
  567.  
  568.    dblResult = 0
  569.    
  570.    strResult = ""
  571.    strDisplay = ""
  572.      
  573.    strDisplay = "Determining fraction part (numerator/denominator) for the following value " & vbCrLf & vbCrLf
  574.  
  575.    n = 4.12
  576.    v = cFraction(n, p, q)
  577.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  578.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  579.    
  580.    n = 1.75
  581.    v = cFraction(n, p, q)
  582.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  583.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  584.    
  585.    n = 0.5
  586.    v = cFraction(n, p, q)
  587.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  588.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  589.    
  590.    n = 365.25
  591.    v = cFraction(n, p, q)
  592.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  593.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  594.  
  595.    n = 3.14
  596.    v = cFraction(n, p, q)
  597.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  598.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  599.  
  600.    n = 3.14159
  601.    v = cFraction(n, p, q)
  602.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  603.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  604.  
  605.    n = 3.14159265
  606.    v = cFraction(n, p, q)
  607.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  608.    strDisplay = strDisplay & "   value is " & v & vbCrLf & vbCrLf
  609.  
  610.    n = 0.9999999
  611.    v = cFraction(n, p, q)
  612.    strDisplay = strDisplay & n & " is " & p & " / " & q & vbCrLf
  613.    strDisplay = strDisplay & "   value is " & v
  614.  
  615.    txt_Result = strDisplay
  616.  
  617.    'time the function
  618.  
  619.    TimerHandle = cTimerOpen()
  620.    TimerStartOk = cTimerStart(TimerHandle)
  621.    
  622.    For i = 1 To Iteration
  623.       dblResult = cFraction(n, p, q)
  624.    Next i
  625.    
  626.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  627.    
  628.    TimerCloseOk = cTimerClose(TimerHandle)
  629.  
  630. End Sub
  631.  
  632. Private Sub TestBaseConversion()
  633.    
  634.    Dim lResult          As Long
  635.    Dim strResult        As String
  636.    Dim strDisplay       As String
  637.    
  638.    Dim i                As Integer
  639.    
  640.    Dim Str1             As String
  641.    
  642.    lResult = 0
  643.    
  644.    strResult = ""
  645.    strDisplay = ""
  646.      
  647.    For i = 1 To 34
  648.       strDisplay = strDisplay & "Convert '1234567' base 10 to base " & i & " is " & cBaseConversion("1234567", 10, i) & vbCrLf
  649.    Next i
  650.  
  651.    txt_Result = strDisplay
  652.  
  653.    'time the function
  654.  
  655.    TimerHandle = cTimerOpen()
  656.    TimerStartOk = cTimerStart(TimerHandle)
  657.    
  658.    For i = 1 To Iteration
  659.       strResult = cBaseConversion("123456789", 10, 10)
  660.    Next i
  661.    
  662.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  663.    
  664.    TimerCloseOk = cTimerClose(TimerHandle)
  665.  
  666. End Sub
  667.  
  668. Private Sub TestCombination()
  669.    
  670.    Dim dblResult        As Double
  671.    Dim strResult        As String
  672.    Dim strDisplay       As String
  673.    
  674.    Dim i                As Integer
  675.    
  676.    Dim Str1             As String
  677.    
  678.    dblResult = 0
  679.    
  680.    strResult = ""
  681.    strDisplay = ""
  682.      
  683.    For i = 0 To 10
  684.       strDisplay = strDisplay & "Combination C(42, " & i & ") is '" & cCombination(42, i) & "'" & vbCrLf
  685.    Next i
  686.  
  687.    strDisplay = strDisplay & vbCrLf
  688.  
  689.    For i = 42 To 32 Step -1
  690.       strDisplay = strDisplay & "Combination C(42, " & i & ") is '" & cCombination(42, i) & "'" & vbCrLf
  691.    Next i
  692.  
  693.    txt_Result = strDisplay
  694.  
  695.    'time the function
  696.  
  697.    TimerHandle = cTimerOpen()
  698.    TimerStartOk = cTimerStart(TimerHandle)
  699.    
  700.    For i = 1 To Iteration
  701.       dblResult = cCombination(42, 6)
  702.    Next i
  703.    
  704.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  705.    
  706.    TimerCloseOk = cTimerClose(TimerHandle)
  707.  
  708. End Sub
  709.