home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / t2win_32 / _bitstr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-20  |  21.1 KB  |  575 lines
  1. VERSION 4.00
  2. Begin VB.Form frmBitString 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Bit string"
  5.    ClientHeight    =   4545
  6.    ClientLeft      =   1890
  7.    ClientTop       =   3270
  8.    ClientWidth     =   7485
  9.    Height          =   4950
  10.    Left            =   1830
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4545
  14.    ScaleWidth      =   7485
  15.    ShowInTaskbar   =   0   'False
  16.    Top             =   2925
  17.    Width           =   7605
  18.    Begin Threed.SSPanel SSPanel2 
  19.       Align           =   2  'Align Bottom
  20.       Height          =   465
  21.       Left            =   0
  22.       TabIndex        =   1
  23.       Top             =   4080
  24.       Width           =   7485
  25.       _Version        =   65536
  26.       _ExtentX        =   13203
  27.       _ExtentY        =   820
  28.       _StockProps     =   15
  29.       BackColor       =   12632256
  30.       Begin VB.TextBox Text1 
  31.          Height          =   285
  32.          Left            =   1440
  33.          TabIndex        =   3
  34.          Tag             =   "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  35.          Top             =   90
  36.          Width           =   5055
  37.       End
  38.       Begin Threed.SSCommand SSCommand2 
  39.          Height          =   285
  40.          Left            =   6570
  41.          TabIndex        =   4
  42.          Top             =   90
  43.          Width           =   825
  44.          _Version        =   65536
  45.          _ExtentX        =   1455
  46.          _ExtentY        =   503
  47.          _StockProps     =   78
  48.          Caption         =   "&Reset"
  49.          BevelWidth      =   1
  50.          Outline         =   0   'False
  51.       End
  52.       Begin VB.Label Label1 
  53.          Caption         =   "&Enter a test string"
  54.          Height          =   255
  55.          Left            =   90
  56.          TabIndex        =   2
  57.          Top             =   120
  58.          Width           =   1275
  59.       End
  60.    End
  61.    Begin Threed.SSPanel SSPanel1 
  62.       Align           =   1  'Align Top
  63.       Height          =   480
  64.       Left            =   0
  65.       TabIndex        =   5
  66.       Top             =   0
  67.       Width           =   7485
  68.       _Version        =   65536
  69.       _ExtentX        =   13203
  70.       _ExtentY        =   847
  71.       _StockProps     =   15
  72.       ForeColor       =   -2147483640
  73.       BackColor       =   12632256
  74.       Begin VB.ComboBox cmb_Function 
  75.          Height          =   315
  76.          Left            =   1365
  77.          TabIndex        =   6
  78.          Top             =   90
  79.          Width           =   4785
  80.       End
  81.       Begin Threed.SSCommand cmdNP 
  82.          Height          =   300
  83.          Index           =   1
  84.          Left            =   7140
  85.          TabIndex        =   10
  86.          Top             =   90
  87.          Width           =   255
  88.          _Version        =   65536
  89.          _ExtentX        =   450
  90.          _ExtentY        =   529
  91.          _StockProps     =   78
  92.          Caption         =   ">"
  93.          BevelWidth      =   1
  94.          Font3D          =   3
  95.          RoundedCorners  =   0   'False
  96.          Outline         =   0   'False
  97.       End
  98.       Begin Threed.SSCommand cmdNP 
  99.          Height          =   300
  100.          Index           =   0
  101.          Left            =   6300
  102.          TabIndex        =   9
  103.          Top             =   90
  104.          Width           =   255
  105.          _Version        =   65536
  106.          _ExtentX        =   450
  107.          _ExtentY        =   529
  108.          _StockProps     =   78
  109.          Caption         =   "<"
  110.          BevelWidth      =   1
  111.          Font3D          =   3
  112.          RoundedCorners  =   0   'False
  113.          Outline         =   0   'False
  114.       End
  115.       Begin VB.Label Label2 
  116.          Caption         =   "&Select a function"
  117.          Height          =   255
  118.          Left            =   90
  119.          TabIndex        =   8
  120.          Top             =   120
  121.          Width           =   1275
  122.       End
  123.       Begin Threed.SSCommand SSCommand1 
  124.          Default         =   -1  'True
  125.          Height          =   300
  126.          Left            =   6615
  127.          TabIndex        =   7
  128.          Top             =   90
  129.          Width           =   465
  130.          _Version        =   65536
  131.          _ExtentX        =   820
  132.          _ExtentY        =   529
  133.          _StockProps     =   78
  134.          Caption         =   "&Go"
  135.          BevelWidth      =   1
  136.          RoundedCorners  =   0   'False
  137.          Outline         =   0   'False
  138.       End
  139.    End
  140.    Begin VB.Label lbl_Result 
  141.       Appearance      =   0  'Flat
  142.       BackColor       =   &H80000005&
  143.       BackStyle       =   0  'Transparent
  144.       ForeColor       =   &H80000008&
  145.       Height          =   3345
  146.       Left            =   90
  147.       TabIndex        =   0
  148.       Top             =   630
  149.       Width           =   7305
  150.    End
  151. Attribute VB_Name = "frmBitString"
  152. Attribute VB_Creatable = False
  153. Attribute VB_Exposed = False
  154. Option Explicit
  155. Option Base 1
  156. Private Const Iteration = 250
  157. Dim IsLoaded         As Integer
  158. Dim TimerStartOk     As Integer
  159. Dim TimerCloseOk     As Integer
  160. Dim TimerHandle      As Integer
  161. Dim TimerValue       As Long
  162. Private Sub cmb_Function_Click()
  163.    If (IsLoaded = False) Then Exit Sub
  164.    Call cDisableFI(mdiT2W.Picture1)
  165.    SSPanel2.Visible = True
  166.    lbl_Result = ""
  167.    DoEvents
  168.    Select Case cmb_Function.ListIndex
  169.       Case 0
  170.          SSPanel2.Visible = False
  171.          Call TestCreateBits
  172.       Case 1
  173.          Call TestFindBitReset
  174.       Case 2
  175.          Call TestFindBitSet
  176.       Case 3
  177.          Call TestGetBit
  178.       Case 4
  179.          SSPanel2.Visible = False
  180.          Call TestGiveBitPalindrome
  181.       Case 5
  182.          Call TestIsBitPalindrome
  183.       Case 6
  184.          Call TestReverseAllBits
  185.       Case 7
  186.          Call TestReverseAllBitsByChar
  187.       Case 8
  188.          Call TestSetAllBits
  189.       Case 9
  190.          Call TestSetBit
  191.       Case 10
  192.          Call TestToggleAllBits
  193.       Case 11
  194.          Call TestToggleBit
  195.    End Select
  196.    DoEvents
  197.    Call cEnableFI(mdiT2W.Picture1)
  198. End Sub
  199. Private Sub cmdNP_Click(Index As Integer)
  200.    Call sub_NextPrev(cmb_Function, Index)
  201. End Sub
  202. Private Sub Form_Activate()
  203.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  204. End Sub
  205. Private Sub Form_Load()
  206.    IsLoaded = False
  207.    Show
  208.    Text1.Text = Text1.Tag + LCase$(Text1.Tag)
  209.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_bitstr.t2w")
  210.    IsLoaded = True
  211. End Sub
  212. Private Sub SSCommand1_Click()
  213.    Call cmb_Function_Click
  214. End Sub
  215. Private Sub TestCreateBits()
  216.    Dim intResult        As Integer
  217.    Dim strResult        As String
  218.    Dim strDisplay       As String
  219.    Dim i                As Integer
  220.    intResult = 0
  221.    strResult = ""
  222.    strDisplay = ""
  223.      
  224.    strResult = cCreateBits(1024)
  225.    strDisplay = strDisplay + "Create a bit string for 1024 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  226.    strResult = cCreateBits(512)
  227.    strDisplay = strDisplay + "Create a bit string for 512 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  228.    strResult = cCreateBits(33)
  229.    strDisplay = strDisplay + "Create a bit string for 33 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  230.    strResult = cCreateBits(1)
  231.    strDisplay = strDisplay + "Create a bit string for 1 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  232.    strResult = cCreateBits(-1)
  233.    strDisplay = strDisplay + "Create a bit string for -1 bits is '" & Len(strResult) & "' bytes" & vbCrLf & vbCrLf
  234.    lbl_Result = strDisplay
  235.    'time the function
  236.    TimerHandle = cTimerOpen()
  237.    TimerStartOk = cTimerStart(TimerHandle)
  238.    For i = 1 To Iteration
  239.       strResult = cCreateBits(1024)
  240.    Next i
  241.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  242.    TimerCloseOk = cTimerClose(TimerHandle)
  243. End Sub
  244. Private Sub TestFindBitReset()
  245.    Dim intResult        As Integer
  246.    Dim strResult        As String
  247.    Dim strDisplay       As String
  248.    Dim strData          As String
  249.    Dim i                As Integer
  250.    intResult = 0
  251.    strResult = ""
  252.    strDisplay = ""
  253.      
  254.    strData = Text1.Text
  255.    strDisplay = strDisplay + "The following bits are Reset (False) " & vbCrLf & vbCrLf
  256.    intResult = True
  257.    Do
  258.       intResult = cFindBitReset(strData, intResult)
  259.       If (intResult <> True) Then strDisplay = strDisplay & intResult & ", "
  260.    Loop Until (intResult = True)
  261.    strDisplay = Left$(strDisplay, Len(strDisplay) - 1)
  262.    strDisplay = strDisplay & vbCrLf & vbCrLf
  263.    lbl_Result = strDisplay
  264.    'time the function
  265.    TimerHandle = cTimerOpen()
  266.    TimerStartOk = cTimerStart(TimerHandle)
  267.    For i = 1 To Iteration
  268.       intResult = cFindBitReset(strData, i)
  269.    Next i
  270.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  271.    TimerCloseOk = cTimerClose(TimerHandle)
  272. End Sub
  273. Private Sub SSCommand2_Click()
  274.    Text1.Text = Text1.Tag + LCase$(Text1.Tag)
  275.    Call SSCommand1_Click
  276. End Sub
  277. Private Sub TestFindBitSet()
  278.    Dim intResult        As Integer
  279.    Dim strResult        As String
  280.    Dim strDisplay       As String
  281.    Dim strData          As String
  282.    Dim i                As Integer
  283.    intResult = 0
  284.    strResult = ""
  285.    strDisplay = ""
  286.      
  287.    strData = Text1.Text
  288.    strDisplay = strDisplay + "The following bits are Set (True) " & vbCrLf & vbCrLf
  289.    intResult = True
  290.    Do
  291.       intResult = cFindBitSet(strData, intResult)
  292.       If (intResult <> True) Then strDisplay = strDisplay & intResult & ", "
  293.    Loop Until (intResult = True)
  294.    strDisplay = Left$(strDisplay, Len(strDisplay) - 1)
  295.    strDisplay = strDisplay & vbCrLf & vbCrLf
  296.    lbl_Result = strDisplay
  297.    'time the function
  298.    TimerHandle = cTimerOpen()
  299.    TimerStartOk = cTimerStart(TimerHandle)
  300.    For i = 1 To Iteration
  301.       intResult = cFindBitSet(strData, i)
  302.    Next i
  303.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  304.    TimerCloseOk = cTimerClose(TimerHandle)
  305. End Sub
  306. Private Sub TestGetBit()
  307.    Dim intResult        As Integer
  308.    Dim strResult        As String
  309.    Dim strDisplay       As String
  310.    Dim strData          As String
  311.    Dim i                As Integer
  312.    intResult = 0
  313.    strResult = ""
  314.    strDisplay = ""
  315.      
  316.    strData = Text1.Text
  317.    strDisplay = strDisplay + "Bit '1' is '" & IIf(cGetBit(strData, 1), "set", "reset") & "'" & vbCrLf
  318.    strDisplay = strDisplay + "Bit '3' is '" & IIf(cGetBit(strData, 3), "set", "reset") & "'" & vbCrLf
  319.    strDisplay = strDisplay + "Bit '5' is '" & IIf(cGetBit(strData, 5), "set", "reset") & "'" & vbCrLf
  320.    strDisplay = strDisplay + "Bit '7' is '" & IIf(cGetBit(strData, 7), "set", "reset") & "'" & vbCrLf
  321.    strDisplay = strDisplay + "Bit '100' is '" & IIf(cGetBit(strData, 100), "set", "reset") & "'" & vbCrLf
  322.    strDisplay = strDisplay + "Bit '102' is '" & IIf(cGetBit(strData, 102), "set", "reset") & "'" & vbCrLf
  323.    strDisplay = strDisplay + "Bit '104' is '" & IIf(cGetBit(strData, 104), "set", "reset") & "'" & vbCrLf
  324.    strDisplay = strDisplay + "Bit '106' is '" & IIf(cGetBit(strData, 106), "set", "reset") & "'" & vbCrLf
  325.    lbl_Result = strDisplay
  326.    'time the function
  327.    TimerHandle = cTimerOpen()
  328.    TimerStartOk = cTimerStart(TimerHandle)
  329.    For i = 1 To Iteration
  330.       intResult = cGetBit(strData, i)
  331.    Next i
  332.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  333.    TimerCloseOk = cTimerClose(TimerHandle)
  334. End Sub
  335. Private Sub TestGiveBitPalindrome()
  336.    Dim intResult        As Integer
  337.    Dim strResult        As String
  338.    Dim strDisplay       As String
  339.    Dim strData          As String
  340.    Dim i                As Integer
  341.    intResult = 0
  342.    strResult = ""
  343.    strDisplay = ""
  344.      
  345.    strResult = cGiveBitPalindrome()
  346.    strDisplay = strDisplay + "The followings chars are Bit Palindrome : " & vbCrLf & vbCrLf
  347.    strDisplay = strDisplay + "chr(0) and  " & cBlockCharFromRight(cGiveBitPalindrome(), 1)
  348.    lbl_Result = strDisplay
  349.    'time the function
  350.    TimerHandle = cTimerOpen()
  351.    TimerStartOk = cTimerStart(TimerHandle)
  352.    For i = 1 To Iteration
  353.       strResult = cGiveBitPalindrome()
  354.    Next i
  355.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  356.    TimerCloseOk = cTimerClose(TimerHandle)
  357. End Sub
  358. Private Sub TestIsBitPalindrome()
  359.    Dim intResult        As Integer
  360.    Dim strResult        As String
  361.    Dim strDisplay       As String
  362.    Dim strData          As String
  363.    Dim i                As Integer
  364.    intResult = 0
  365.    strResult = ""
  366.    strDisplay = ""
  367.    strData = Text1.Text
  368.      
  369.    intResult = cIsBitPalindrome(strData)
  370.    strDisplay = strDisplay + "Test string is " & IIf(intResult, "", "not ") & "Bit Palindrome " & vbCrLf & vbCrLf
  371.    strDisplay = strDisplay + "The followings chars are Bit Palindrome : " & vbCrLf
  372.    For i = 1 To 255
  373.       If cIsBitPalindrome(Chr$(i)) Then strDisplay = strDisplay + Chr$(i) & " (" & i & ") "
  374.    Next i
  375.    lbl_Result = strDisplay
  376.    'time the function
  377.    TimerHandle = cTimerOpen()
  378.    TimerStartOk = cTimerStart(TimerHandle)
  379.    For i = 1 To Iteration
  380.       intResult = cIsBitPalindrome(strData)
  381.    Next i
  382.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  383.    TimerCloseOk = cTimerClose(TimerHandle)
  384. End Sub
  385. Private Sub TestReverseAllBits()
  386.    Dim intResult        As Integer
  387.    Dim strResult        As String
  388.    Dim strDisplay       As String
  389.    Dim strData          As String
  390.    Dim i                As Integer
  391.    intResult = 0
  392.    strResult = ""
  393.    strDisplay = ""
  394.    strData = Text1.Text
  395.      
  396.    Call cReverseAllBits(strData)
  397.    strDisplay = strDisplay + "Reverse all bits is " & vbCrLf & strData & vbCrLf & vbCrLf
  398.    Call cReverseAllBits(strData)
  399.    strDisplay = strDisplay + "Reverse all bits of the reversed is " & vbCrLf & strData & vbCrLf & vbCrLf
  400.    lbl_Result = strDisplay
  401.    'time the function
  402.    TimerHandle = cTimerOpen()
  403.    TimerStartOk = cTimerStart(TimerHandle)
  404.    For i = 1 To Iteration
  405.       Call cReverseAllBits(strData)
  406.    Next i
  407.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  408.    TimerCloseOk = cTimerClose(TimerHandle)
  409. End Sub
  410. Private Sub TestReverseAllBitsByChar()
  411.    Dim intResult        As Integer
  412.    Dim strResult        As String
  413.    Dim strDisplay       As String
  414.    Dim strData          As String
  415.    Dim i                As Integer
  416.    intResult = 0
  417.    strResult = ""
  418.    strDisplay = ""
  419.    strData = Text1.Text
  420.      
  421.    Call cReverseAllBitsByChar(strData)
  422.    strDisplay = strDisplay + "Reverse all bits by char is " & vbCrLf & strData & vbCrLf & vbCrLf
  423.    Call cReverseAllBitsByChar(strData)
  424.    strDisplay = strDisplay + "Reverse all bits by char of the reversed is " & vbCrLf & strData & vbCrLf & vbCrLf
  425.    lbl_Result = strDisplay
  426.    'time the function
  427.    TimerHandle = cTimerOpen()
  428.    TimerStartOk = cTimerStart(TimerHandle)
  429.    For i = 1 To Iteration
  430.       Call cReverseAllBitsByChar(strData)
  431.    Next i
  432.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  433.    TimerCloseOk = cTimerClose(TimerHandle)
  434. End Sub
  435. Private Sub TestSetAllBits()
  436.    Dim intResult        As Integer
  437.    Dim strResult        As String
  438.    Dim strDisplay       As String
  439.    Dim strData          As String
  440.    Dim i                As Integer
  441.    intResult = 0
  442.    strResult = ""
  443.    strDisplay = ""
  444.    strData = Text1.Text
  445.    Call cSetAllBits(strData, True)
  446.    strDisplay = strDisplay + "Set all bits is " & vbCrLf
  447.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  448.    Call cSetAllBits(strData, False)
  449.    strDisplay = strDisplay + "Reset all bits is " & vbCrLf
  450.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  451.    lbl_Result = strDisplay
  452.    'time the function
  453.    TimerHandle = cTimerOpen()
  454.    TimerStartOk = cTimerStart(TimerHandle)
  455.    For i = 1 To Iteration
  456.       Call cSetAllBits(strData, True)
  457.    Next i
  458.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  459.    TimerCloseOk = cTimerClose(TimerHandle)
  460. End Sub
  461. Private Sub TestSetBit()
  462.    Dim intResult        As Integer
  463.    Dim strResult        As String
  464.    Dim strDisplay       As String
  465.    Dim strData          As String
  466.    Dim i                As Integer
  467.    intResult = 0
  468.    strResult = ""
  469.    strDisplay = ""
  470.    strData = Text1.Text
  471.    Call cSetBit(strData, 0, True)
  472.    strDisplay = strDisplay + "Set bit '0' is '" & strData & "'" & vbCrLf
  473.    Call cSetBit(strData, 5, True)
  474.    strDisplay = strDisplay + "Set bit '5' is '" & strData & "'" & vbCrLf
  475.    Call cSetBit(strData, 7, True)
  476.    strDisplay = strDisplay + "Set bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  477.    Call cSetBit(strData, 0, False)
  478.    strDisplay = strDisplay + "Reset bit '0' is '" & strData & "'" & vbCrLf
  479.    Call cSetBit(strData, 5, False)
  480.    strDisplay = strDisplay + "Reset bit '5' is '" & strData & "'" & vbCrLf
  481.    Call cSetBit(strData, 7, False)
  482.    strDisplay = strDisplay + "Reset bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  483.    Call cSetBit(strData, 22, True)
  484.    strDisplay = strDisplay + "Set bit '22' is '" & strData & "'" & vbCrLf
  485.    Call cSetBit(strData, 30, True)
  486.    strDisplay = strDisplay + "Set bit '30' is '" & strData & "'" & vbCrLf
  487.    Call cSetBit(strData, 38, True)
  488.    strDisplay = strDisplay + "Set bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  489.    Call cSetBit(strData, 22, False)
  490.    strDisplay = strDisplay + "Reset bit '22' is '" & strData & "'" & vbCrLf
  491.    Call cSetBit(strData, 30, False)
  492.    strDisplay = strDisplay + "Reset bit '30' is '" & strData & "'" & vbCrLf
  493.    Call cSetBit(strData, 38, False)
  494.    strDisplay = strDisplay + "Reset bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  495.    lbl_Result = strDisplay
  496.    'time the function
  497.    TimerHandle = cTimerOpen()
  498.    TimerStartOk = cTimerStart(TimerHandle)
  499.    For i = 1 To Iteration
  500.       Call cSetBit(strData, 0, True)
  501.    Next i
  502.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  503.    TimerCloseOk = cTimerClose(TimerHandle)
  504. End Sub
  505. Private Sub TestToggleAllBits()
  506.    Dim intResult        As Integer
  507.    Dim strResult        As String
  508.    Dim strDisplay       As String
  509.    Dim strData          As String
  510.    Dim i                As Integer
  511.    intResult = 0
  512.    strResult = ""
  513.    strDisplay = ""
  514.    strData = Text1.Text
  515.    Call cToggleAllBits(strData)
  516.    strDisplay = strDisplay + "Toggle all bits is " & vbCrLf
  517.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  518.    Call cToggleAllBits(strData)
  519.    strDisplay = strDisplay + "Toggle all bits of the toggled is " & vbCrLf
  520.    strDisplay = strDisplay + strData & vbCrLf & vbCrLf
  521.    lbl_Result = strDisplay
  522.    'time the function
  523.    TimerHandle = cTimerOpen()
  524.    TimerStartOk = cTimerStart(TimerHandle)
  525.    For i = 1 To Iteration
  526.       Call cToggleAllBits(strData)
  527.    Next i
  528.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  529.    TimerCloseOk = cTimerClose(TimerHandle)
  530. End Sub
  531. Private Sub TestToggleBit()
  532.    Dim intResult        As Integer
  533.    Dim strResult        As String
  534.    Dim strDisplay       As String
  535.    Dim strData          As String
  536.    Dim i                As Integer
  537.    intResult = 0
  538.    strResult = ""
  539.    strDisplay = ""
  540.    strData = Text1.Text
  541.    Call cToggleBit(strData, 0)
  542.    strDisplay = strDisplay + "Toggle bit '0' is '" & strData & "'" & vbCrLf
  543.    Call cToggleBit(strData, 5)
  544.    strDisplay = strDisplay + "Toggle bit '5' is '" & strData & "'" & vbCrLf
  545.    Call cToggleBit(strData, 7)
  546.    strDisplay = strDisplay + "Toggle bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  547.    Call cToggleBit(strData, 0)
  548.    strDisplay = strDisplay + "Toggle bit '0' is '" & strData & "'" & vbCrLf
  549.    Call cToggleBit(strData, 5)
  550.    strDisplay = strDisplay + "Toggle bit '5' is '" & strData & "'" & vbCrLf
  551.    Call cToggleBit(strData, 7)
  552.    strDisplay = strDisplay + "Toggle bit '7' is '" & strData & "'" & vbCrLf & vbCrLf
  553.    Call cToggleBit(strData, 22)
  554.    strDisplay = strDisplay + "Toggle bit '22' is '" & strData & "'" & vbCrLf
  555.    Call cToggleBit(strData, 30)
  556.    strDisplay = strDisplay + "Toggle bit '30' is '" & strData & "'" & vbCrLf
  557.    Call cToggleBit(strData, 38)
  558.    strDisplay = strDisplay + "Toggle bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  559.    Call cToggleBit(strData, 22)
  560.    strDisplay = strDisplay + "Toggle bit '22' is '" & strData & "'" & vbCrLf
  561.    Call cToggleBit(strData, 30)
  562.    strDisplay = strDisplay + "Toggle bit '30' is '" & strData & "'" & vbCrLf
  563.    Call cToggleBit(strData, 38)
  564.    strDisplay = strDisplay + "Toggle bit '38' is '" & strData & "'" & vbCrLf & vbCrLf
  565.    lbl_Result = strDisplay
  566.    'time the function
  567.    TimerHandle = cTimerOpen()
  568.    TimerStartOk = cTimerStart(TimerHandle)
  569.    For i = 1 To Iteration
  570.       Call cToggleBit(strData, 0)
  571.    Next i
  572.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  573.    TimerCloseOk = cTimerClose(TimerHandle)
  574. End Sub
  575.