home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _IEEENUM.FRM < prev    next >
Text File  |  1998-04-07  |  19KB  |  741 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmIeeenum 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Ieeenum"
  6.    ClientHeight    =   4845
  7.    ClientLeft      =   1890
  8.    ClientTop       =   3270
  9.    ClientWidth     =   10905
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4845
  14.    ScaleWidth      =   10905
  15.    ShowInTaskbar   =   0   'False
  16.    Begin Threed.SSPanel SSPanel1 
  17.       Align           =   1  'Align Top
  18.       Height          =   480
  19.       Left            =   0
  20.       TabIndex        =   1
  21.       Top             =   0
  22.       Width           =   10905
  23.       _Version        =   65536
  24.       _ExtentX        =   19235
  25.       _ExtentY        =   847
  26.       _StockProps     =   15
  27.       ForeColor       =   -2147483640
  28.       BackColor       =   12632256
  29.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Begin VB.ComboBox cmb_Function 
  39.          Height          =   315
  40.          Left            =   1365
  41.          TabIndex        =   2
  42.          Top             =   90
  43.          Width           =   8295
  44.       End
  45.       Begin Threed.SSCommand cmdNP 
  46.          Height          =   300
  47.          Index           =   1
  48.          Left            =   10560
  49.          TabIndex        =   6
  50.          Top             =   90
  51.          Width           =   255
  52.          _Version        =   65536
  53.          _ExtentX        =   450
  54.          _ExtentY        =   529
  55.          _StockProps     =   78
  56.          Caption         =   ">"
  57.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  58.             Name            =   "MS Sans Serif"
  59.             Size            =   8.25
  60.             Charset         =   0
  61.             Weight          =   400
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          BevelWidth      =   1
  67.          Font3D          =   3
  68.          RoundedCorners  =   0   'False
  69.          Outline         =   0   'False
  70.       End
  71.       Begin Threed.SSCommand cmdNP 
  72.          Height          =   300
  73.          Index           =   0
  74.          Left            =   9720
  75.          TabIndex        =   5
  76.          Top             =   90
  77.          Width           =   255
  78.          _Version        =   65536
  79.          _ExtentX        =   450
  80.          _ExtentY        =   529
  81.          _StockProps     =   78
  82.          Caption         =   "<"
  83.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  84.             Name            =   "MS Sans Serif"
  85.             Size            =   8.25
  86.             Charset         =   0
  87.             Weight          =   400
  88.             Underline       =   0   'False
  89.             Italic          =   0   'False
  90.             Strikethrough   =   0   'False
  91.          EndProperty
  92.          BevelWidth      =   1
  93.          Font3D          =   3
  94.          RoundedCorners  =   0   'False
  95.          Outline         =   0   'False
  96.       End
  97.       Begin Threed.SSCommand SSCommand1 
  98.          Default         =   -1  'True
  99.          Height          =   300
  100.          Left            =   10035
  101.          TabIndex        =   3
  102.          Top             =   90
  103.          Width           =   465
  104.          _Version        =   65536
  105.          _ExtentX        =   820
  106.          _ExtentY        =   529
  107.          _StockProps     =   78
  108.          Caption         =   "&Go"
  109.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  110.             Name            =   "MS Sans Serif"
  111.             Size            =   8.25
  112.             Charset         =   0
  113.             Weight          =   400
  114.             Underline       =   0   'False
  115.             Italic          =   0   'False
  116.             Strikethrough   =   0   'False
  117.          EndProperty
  118.          BevelWidth      =   1
  119.          RoundedCorners  =   0   'False
  120.          Outline         =   0   'False
  121.       End
  122.       Begin VB.Label Label2 
  123.          Caption         =   "&Select a function"
  124.          Height          =   255
  125.          Left            =   90
  126.          TabIndex        =   4
  127.          Top             =   120
  128.          Width           =   1275
  129.       End
  130.    End
  131.    Begin VB.Label lbl_Result 
  132.       Appearance      =   0  'Flat
  133.       BackColor       =   &H80000005&
  134.       BackStyle       =   0  'Transparent
  135.       ForeColor       =   &H80000008&
  136.       Height          =   4110
  137.       Left            =   90
  138.       TabIndex        =   0
  139.       Top             =   630
  140.       Width           =   10635
  141.    End
  142. End
  143. Attribute VB_Name = "frmIeeenum"
  144. Attribute VB_GlobalNameSpace = False
  145. Attribute VB_Creatable = False
  146. Attribute VB_PredeclaredId = True
  147. Attribute VB_Exposed = False
  148. Option Explicit
  149. Option Base 1
  150.  
  151. Private Const Iteration = 250
  152.  
  153. Dim IsLoaded         As Integer
  154.  
  155. Dim TimerStartOk     As Integer
  156. Dim TimerCloseOk     As Integer
  157.  
  158. Dim TimerHandle      As Integer
  159. Dim TimerValue       As Long
  160.  
  161. Private Sub cmdNP_Click(Index As Integer)
  162.  
  163.    Call sub_NextPrev(cmb_Function, Index)
  164.  
  165. End Sub
  166.  
  167.  
  168. Private Sub cmb_Function_Click()
  169.    
  170.    If (IsLoaded = False) Then Exit Sub
  171.    
  172.    Call cDisableFI(mdiT2W.Picture1)
  173.    
  174.    lbl_Result = ""
  175.    
  176.    DoEvents
  177.    
  178.    Select Case cmb_Function.ListIndex
  179.       Case 0
  180.          Call TestByte
  181.       Case 1
  182.          Call TestInteger
  183.       Case 2
  184.          Call TestLong
  185.       Case 3
  186.          Call TestSingle
  187.       Case 4
  188.          Call TestDouble
  189.       Case 5
  190.          Call TestCurrency
  191.       Case 6
  192.          Call TestSMBF
  193.       Case 7
  194.          Call TestGetByte
  195.       Case 8
  196.          Call TestGetInteger
  197.       Case 9
  198.          Call TestGetLong
  199.       Case 10
  200.          Call TestGetSingle
  201.       Case 11
  202.          Call TestGetDouble
  203.       Case 12
  204.          Call TestGetCurrency
  205.    End Select
  206.  
  207.    DoEvents
  208.    Call cEnableFI(mdiT2W.Picture1)
  209.    
  210. End Sub
  211.  
  212.  
  213. Private Sub Form_Activate()
  214.  
  215.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  216.  
  217. End Sub
  218.  
  219. Private Sub Form_Load()
  220.  
  221.    IsLoaded = False
  222.    
  223.    Show
  224.  
  225.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_ieeenum.t2w")
  226.    
  227.    IsLoaded = True
  228.    
  229. End Sub
  230.  
  231. Private Sub SSCommand1_Click()
  232.    
  233.    Call cmb_Function_Click
  234.    
  235. End Sub
  236.  
  237. Private Sub TestByte()
  238.    
  239.    Dim intResult        As Integer
  240.    Dim strResult        As String
  241.    Dim strDisplay       As String
  242.    
  243.    Dim i                As Integer
  244.    Dim j                As Byte
  245.    
  246.    strResult = ""
  247.    strDisplay = ""
  248.      
  249.    For i = 1 To 7
  250.       j = Int((255 - 1 + 1) * Rnd + 1)
  251.       strResult = cMKB(j)
  252.       strDisplay = strDisplay + "MKB of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  253.       strDisplay = strDisplay + "CVB of '0x" & cToHexa(strResult) & "' is '" & cCVB(strResult) & "'" & vbCrLf & vbCrLf
  254.    Next i
  255.    
  256.    lbl_Result = strDisplay
  257.  
  258.    'time the function
  259.  
  260.    TimerHandle = cTimerOpen()
  261.    TimerStartOk = cTimerStart(TimerHandle)
  262.    
  263.    For i = 1 To Iteration
  264.       strResult = cMKB(j)
  265.    Next i
  266.    
  267.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  268.    
  269.    TimerCloseOk = cTimerClose(TimerHandle)
  270.  
  271. End Sub
  272.  
  273.  
  274. Private Sub TestInteger()
  275.    
  276.    Dim intResult        As Integer
  277.    Dim strResult        As String
  278.    Dim strDisplay       As String
  279.    
  280.    Dim i                As Integer
  281.    Dim j                As Integer
  282.    
  283.    strResult = ""
  284.    strDisplay = ""
  285.    
  286.    Call cRndInit(-1)
  287.      
  288.    For i = 1 To 7
  289.       j = cRndI()
  290.       strResult = cMKI(j)
  291.       strDisplay = strDisplay + "MKI of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  292.       strDisplay = strDisplay + "CVI of '0x" & cToHexa(strResult) & "' is '" & cCVI(strResult) & "'" & vbCrLf & vbCrLf
  293.    Next i
  294.    
  295.    lbl_Result = strDisplay
  296.  
  297.    'time the function
  298.  
  299.    TimerHandle = cTimerOpen()
  300.    TimerStartOk = cTimerStart(TimerHandle)
  301.    
  302.    For i = 1 To Iteration
  303.       strResult = cMKI(j)
  304.    Next i
  305.    
  306.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  307.    
  308.    TimerCloseOk = cTimerClose(TimerHandle)
  309.  
  310. End Sub
  311.  
  312. Private Sub TestLong()
  313.    
  314.    Dim intResult        As Integer
  315.    Dim strResult        As String
  316.    Dim strDisplay       As String
  317.    
  318.    Dim i                As Integer
  319.    Dim j                As Long
  320.    
  321.    strResult = ""
  322.    strDisplay = ""
  323.    
  324.    Call cRndInit(-1)
  325.      
  326.    For i = 1 To 7
  327.       j = cRndL()
  328.       strResult = cMKL(j)
  329.       strDisplay = strDisplay + "MKL of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  330.       strDisplay = strDisplay + "CVL of '0x" & cToHexa(strResult) & "' is '" & cCVL(strResult) & "'" & vbCrLf & vbCrLf
  331.    Next i
  332.    
  333.    lbl_Result = strDisplay
  334.  
  335.    'time the function
  336.  
  337.    TimerHandle = cTimerOpen()
  338.    TimerStartOk = cTimerStart(TimerHandle)
  339.    
  340.    For i = 1 To Iteration
  341.       strResult = cMKL(j)
  342.    Next i
  343.    
  344.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  345.    
  346.    TimerCloseOk = cTimerClose(TimerHandle)
  347.  
  348. End Sub
  349.  
  350. Private Sub TestSingle()
  351.    
  352.    Dim intResult        As Integer
  353.    Dim strResult        As String
  354.    Dim strDisplay       As String
  355.    
  356.    Dim i                As Integer
  357.    Dim j                As Single
  358.    
  359.    strResult = ""
  360.    strDisplay = ""
  361.    
  362.    Call cRndInit(-1)
  363.      
  364.    For i = 1 To 7
  365.       j = cRndS()
  366.       strResult = cMKS(j)
  367.       strDisplay = strDisplay + "MKS of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  368.       strDisplay = strDisplay + "CVS of '0x" & cToHexa(strResult) & "' is '" & cCVS(strResult) & "'" & vbCrLf & vbCrLf
  369.    Next i
  370.    
  371.    lbl_Result = strDisplay
  372.  
  373.    'time the function
  374.  
  375.    TimerHandle = cTimerOpen()
  376.    TimerStartOk = cTimerStart(TimerHandle)
  377.    
  378.    For i = 1 To Iteration
  379.       strResult = cMKS(j)
  380.    Next i
  381.    
  382.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  383.    
  384.    TimerCloseOk = cTimerClose(TimerHandle)
  385.  
  386. End Sub
  387.  
  388. Private Sub TestDouble()
  389.    
  390.    Dim intResult        As Integer
  391.    Dim strResult        As String
  392.    Dim strDisplay       As String
  393.    
  394.    Dim i                As Integer
  395.    Dim j                As Double
  396.    
  397.    strResult = ""
  398.    strDisplay = ""
  399.    
  400.    Call cRndInit(-1)
  401.      
  402.    For i = 1 To 7
  403.       j = cRndD()
  404.       strResult = cMKD(j)
  405.       strDisplay = strDisplay + "MKD of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  406.       strDisplay = strDisplay + "CVD of '0x" & cToHexa(strResult) & "' is '" & cCVD(strResult) & "'" & vbCrLf & vbCrLf
  407.    Next i
  408.    
  409.    lbl_Result = strDisplay
  410.  
  411.    'time the function
  412.  
  413.    TimerHandle = cTimerOpen()
  414.    TimerStartOk = cTimerStart(TimerHandle)
  415.    
  416.    For i = 1 To Iteration
  417.       strResult = cMKD(j)
  418.    Next i
  419.    
  420.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  421.    
  422.    TimerCloseOk = cTimerClose(TimerHandle)
  423.  
  424. End Sub
  425.  
  426. Private Sub TestCurrency()
  427.    
  428.    Dim intResult        As Integer
  429.    Dim strResult        As String
  430.    Dim strDisplay       As String
  431.    
  432.    Dim i                As Integer
  433.    Dim j                As Currency
  434.    
  435.    strResult = ""
  436.    strDisplay = ""
  437.    
  438.    Call cRndInit(-1)
  439.      
  440.    For i = 1 To 7
  441.       j = cRndS()
  442.       strResult = cMKC(j)
  443.       strDisplay = strDisplay + "MKC of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  444.       strDisplay = strDisplay + "CVC of '0x" & cToHexa(strResult) & "' is '" & cCVC(strResult) & "'" & vbCrLf & vbCrLf
  445.    Next i
  446.    
  447.    lbl_Result = strDisplay
  448.  
  449.    'time the function
  450.  
  451.    TimerHandle = cTimerOpen()
  452.    TimerStartOk = cTimerStart(TimerHandle)
  453.    
  454.    For i = 1 To Iteration
  455.       strResult = cMKC(j)
  456.    Next i
  457.    
  458.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  459.    
  460.    TimerCloseOk = cTimerClose(TimerHandle)
  461.  
  462. End Sub
  463.  
  464. Private Sub TestSMBF()
  465.    
  466.    Dim intResult        As Integer
  467.    Dim strResult        As String
  468.    Dim strDisplay       As String
  469.    
  470.    Dim i                As Integer
  471.    Dim j                As Single
  472.    
  473.    strResult = ""
  474.    strDisplay = ""
  475.    
  476.    Call cRndInit(-1)
  477.      
  478.    For i = 1 To 7
  479.       j = cRndS()
  480.       strResult = cMKSMBF(j)
  481.       strDisplay = strDisplay + "MKSMBF of '" & j & "' is '0x" & cToHexa(strResult) & "'" & vbCrLf
  482.       strDisplay = strDisplay + "CVSMBF of '0x" & cToHexa(strResult) & "' is '" & cCVSMBF(strResult) & "'" & vbCrLf & vbCrLf
  483.    Next i
  484.    
  485.    lbl_Result = strDisplay
  486.  
  487.    'time the function
  488.  
  489.    TimerHandle = cTimerOpen()
  490.    TimerStartOk = cTimerStart(TimerHandle)
  491.    
  492.    For i = 1 To Iteration
  493.       strResult = cMKSMBF(j)
  494.    Next i
  495.    
  496.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  497.    
  498.    TimerCloseOk = cTimerClose(TimerHandle)
  499.  
  500. End Sub
  501.  
  502. Private Sub TestGetByte()
  503.    
  504.    Dim intResult        As Integer
  505.    Dim strResult        As String
  506.    Dim strDisplay       As String
  507.    Dim s                As String
  508.    
  509.    Dim i                As Integer
  510.    Dim j                As Byte
  511.    
  512.    strResult = ""
  513.    strDisplay = ""
  514.    s = String$(32, 0)
  515.      
  516.    For i = 1 To 4
  517.       j = Int((255 - 1 + 1) * Rnd + 1)
  518.       strDisplay = strDisplay + "PutMKB '" & j & "' at position '" & i & "' in string '" & cToHexa(s) & "'" & vbCrLf
  519.       Call cPutMKB(s, i, j)
  520.       strDisplay = strDisplay + "GetCVB at position '" & i & "' in string '" & cToHexa(s) & "' is '" & cGetCVB(s, i) & "'" & vbCrLf & vbCrLf
  521.    Next i
  522.    
  523.    lbl_Result = strDisplay
  524.  
  525.    'time the function
  526.  
  527.    TimerHandle = cTimerOpen()
  528.    TimerStartOk = cTimerStart(TimerHandle)
  529.    
  530.    For i = 1 To Iteration
  531.       Call cPutMKB(s, 1, j)
  532.    Next i
  533.    
  534.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  535.    
  536.    TimerCloseOk = cTimerClose(TimerHandle)
  537.  
  538. End Sub
  539.  
  540. Private Sub TestGetInteger()
  541.    
  542.    Dim intResult        As Integer
  543.    Dim strResult        As String
  544.    Dim strDisplay       As String
  545.    Dim s                As String
  546.    
  547.    Dim i                As Integer
  548.    Dim j                As Integer
  549.    
  550.    strResult = ""
  551.    strDisplay = ""
  552.    s = String$(32, 0)
  553.    
  554.    Call cRndInit(-1)
  555.      
  556.    For i = 1 To 4
  557.       j = cRndI()
  558.       strDisplay = strDisplay + "PutMKI '" & j & "' at position '" & i & "' in string '" & cToHexa(s) & "'" & vbCrLf
  559.       Call cPutMKI(s, i, j)
  560.       strDisplay = strDisplay + "GetCVI at position '" & i & "' in string '" & cToHexa(s) & "' is '" & cGetCVI(s, i) & "'" & vbCrLf & vbCrLf
  561.    Next i
  562.    
  563.    lbl_Result = strDisplay
  564.  
  565.    'time the function
  566.  
  567.    TimerHandle = cTimerOpen()
  568.    TimerStartOk = cTimerStart(TimerHandle)
  569.    
  570.    For i = 1 To Iteration
  571.       Call cPutMKI(s, 1, j)
  572.    Next i
  573.    
  574.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  575.    
  576.    TimerCloseOk = cTimerClose(TimerHandle)
  577.  
  578. End Sub
  579.  
  580. Private Sub TestGetLong()
  581.    
  582.    Dim intResult        As Integer
  583.    Dim strResult        As String
  584.    Dim strDisplay       As String
  585.    Dim s                As String
  586.    
  587.    Dim i                As Integer
  588.    Dim j                As Long
  589.    
  590.    strResult = ""
  591.    strDisplay = ""
  592.    s = String$(32, 0)
  593.    
  594.    Call cRndInit(-1)
  595.      
  596.    For i = 1 To 4
  597.       j = cRndL()
  598.       strDisplay = strDisplay + "PutMKL '" & j & "' at position '" & i & "' in string '" & cToHexa(s) & "'" & vbCrLf
  599.       Call cPutMKL(s, i, j)
  600.       strDisplay = strDisplay + "GetCVL at position '" & i & "' in string '" & cToHexa(s) & "' is '" & cGetCVL(s, i) & "'" & vbCrLf & vbCrLf
  601.    Next i
  602.    
  603.    lbl_Result = strDisplay
  604.  
  605.    'time the function
  606.  
  607.    TimerHandle = cTimerOpen()
  608.    TimerStartOk = cTimerStart(TimerHandle)
  609.    
  610.    For i = 1 To Iteration
  611.       Call cPutMKL(s, 1, j)
  612.    Next i
  613.    
  614.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  615.    
  616.    TimerCloseOk = cTimerClose(TimerHandle)
  617.  
  618. End Sub
  619.  
  620. Private Sub TestGetSingle()
  621.    
  622.    Dim intResult        As Integer
  623.    Dim strResult        As String
  624.    Dim strDisplay       As String
  625.    Dim s                As String
  626.    
  627.    Dim i                As Integer
  628.    Dim j                As Single
  629.    
  630.    strResult = ""
  631.    strDisplay = ""
  632.    s = String$(32, 0)
  633.    
  634.    Call cRndInit(-1)
  635.      
  636.    For i = 1 To 4
  637.       j = cRndS()
  638.       strDisplay = strDisplay + "PutMKS '" & j & "' at position '" & i & "' in string '" & cToHexa(s) & "'" & vbCrLf
  639.       Call cPutMKS(s, i, j)
  640.       strDisplay = strDisplay + "GetCVS at position '" & i & "' in string '" & cToHexa(s) & "' is '" & cGetCVS(s, i) & "'" & vbCrLf & vbCrLf
  641.    Next i
  642.    
  643.    lbl_Result = strDisplay
  644.  
  645.    'time the function
  646.  
  647.    TimerHandle = cTimerOpen()
  648.    TimerStartOk = cTimerStart(TimerHandle)
  649.    
  650.    For i = 1 To Iteration
  651.       Call cPutMKS(s, 1, j)
  652.    Next i
  653.    
  654.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  655.    
  656.    TimerCloseOk = cTimerClose(TimerHandle)
  657.  
  658. End Sub
  659.  
  660. Private Sub TestGetDouble()
  661.    
  662.    Dim intResult        As Integer
  663.    Dim strResult        As String
  664.    Dim strDisplay       As String
  665.    Dim s                As String
  666.    
  667.    Dim i                As Integer
  668.    Dim j                As Double
  669.    
  670.    strResult = ""
  671.    strDisplay = ""
  672.    s = String$(32, 0)
  673.    
  674.    Call cRndInit(-1)
  675.      
  676.    For i = 1 To 4
  677.       j = cRndD()
  678.       strDisplay = strDisplay + "PutMKD '" & j & "' at position '" & i & "' in string '" & cToHexa(s) & "'" & vbCrLf
  679.       Call cPutMKD(s, i, j)
  680.       strDisplay = strDisplay + "GetCVD at position '" & i & "' in string '" & cToHexa(s) & "' is '" & cGetCVD(s, i) & "'" & vbCrLf & vbCrLf
  681.    Next i
  682.    
  683.    lbl_Result = strDisplay
  684.  
  685.    'time the function
  686.  
  687.    TimerHandle = cTimerOpen()
  688.    TimerStartOk = cTimerStart(TimerHandle)
  689.    
  690.    For i = 1 To Iteration
  691.       Call cPutMKD(s, 1, j)
  692.    Next i
  693.    
  694.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  695.    
  696.    TimerCloseOk = cTimerClose(TimerHandle)
  697.  
  698. End Sub
  699.  
  700. Private Sub TestGetCurrency()
  701.    
  702.    Dim intResult        As Integer
  703.    Dim strResult        As String
  704.    Dim strDisplay       As String
  705.    Dim s                As String
  706.    
  707.    Dim i                As Integer
  708.    Dim j                As Currency
  709.    
  710.    strResult = ""
  711.    strDisplay = ""
  712.    s = String$(32, 0)
  713.    
  714.    Call cRndInit(-1)
  715.      
  716.    For i = 1 To 4
  717.       j = cRndL()
  718.       strDisplay = strDisplay + "PutMKC '" & j & "' at position '" & i & "' in string '" & cToHexa(s) & "'" & vbCrLf
  719.       Call cPutMKC(s, i, j)
  720.       strDisplay = strDisplay + "GetCVC at position '" & i & "' in string '" & cToHexa(s) & "' is '" & cGetCVC(s, i) & "'" & vbCrLf & vbCrLf
  721.    Next i
  722.    
  723.    lbl_Result = strDisplay
  724.  
  725.    'time the function
  726.  
  727.    TimerHandle = cTimerOpen()
  728.    TimerStartOk = cTimerStart(TimerHandle)
  729.    
  730.    For i = 1 To Iteration
  731.       Call cPutMKC(s, 1, j)
  732.    Next i
  733.    
  734.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  735.    
  736.    TimerCloseOk = cTimerClose(TimerHandle)
  737.  
  738. End Sub
  739.  
  740.  
  741.