home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_2_94 / vbwin / ccall / vbbench / vbbench1.txt < prev   
Text File  |  1994-01-24  |  3KB  |  143 lines
  1. Option Explicit
  2.  
  3. Sub SearchDouble_Click ()
  4. Static a#(1 To 13)
  5.   Dim l&, i%
  6.   Dim TimeVal#
  7.   a#(1) = 3.1415
  8.   a#(2) = 6.283
  9.   a#(3) = 12.566
  10.   a#(4) = 25.132
  11.   a#(5) = 50.264
  12.   a#(6) = 100.528
  13.   a#(7) = 201.056
  14.   a#(8) = 402.112
  15.   a#(9) = 804.224
  16.   a#(10) = 1608.448
  17.   a#(11) = 3216.896
  18.   a#(12) = 6433.792
  19.   a#(13) = 12867.584
  20. ' Start der Zeitmessung
  21.   TimeVal# = Now
  22.   For l& = 1 To 200000
  23.     For i% = 1 To 13
  24.       If a#(i%) = 2.718281 Then Exit For
  25.     Next i%
  26.   Next l&
  27.   TimeVal# = Now - TimeVal#
  28.   MsgBox ("Ende der Berechnung. Zeit: " + Str$(Int(TimeVal# * 8640000) / 100) + " Sek.")
  29. End Sub
  30.  
  31. Sub SearchFloat_Click ()
  32. Static a!(1 To 13)
  33.   Dim l&, i%
  34.   Dim TimeVal#
  35.   a!(1) = 3.1415
  36.   a!(2) = 6.283
  37.   a!(3) = 12.566
  38.   a!(4) = 25.132
  39.   a!(5) = 50.264
  40.   a!(6) = 100.528
  41.   a!(7) = 201.056
  42.   a!(8) = 402.112
  43.   a!(9) = 804.224
  44.   a!(10) = 1608.448
  45.   a!(11) = 3216.896
  46.   a!(12) = 6433.792
  47.   a!(13) = 12867.584
  48.   ' Start der Zeitmessung
  49.   TimeVal# = Now
  50.   For l& = 1 To 200000
  51.     For i% = 1 To 13
  52.       If a!(i%) = 2.718281 Then Exit For
  53.     Next i%
  54.   Next l&
  55.   TimeVal# = Now - TimeVal#
  56.   MsgBox ("Ende der Berechnung. Zeit: " + Str$(Int(TimeVal# * 8640000) / 100) + " Sek.")
  57. End Sub
  58.  
  59. Sub SearchInteger_Click ()
  60. Static a%(1 To 13)
  61.   Dim l&, i%
  62.   Dim TimeVal#
  63.   a%(1) = 4
  64.   a%(2) = 9
  65.   a%(3) = 19
  66.   a%(4) = 39
  67.   a%(5) = 79
  68.   a%(6) = 159
  69.   a%(7) = 319
  70.   a%(8) = 639
  71.   a%(9) = 1279
  72.   a%(10) = 2559
  73.   a%(11) = 5119
  74.   a%(12) = 10239
  75.   a%(13) = 20479
  76.   ' Start der Zeitmessung
  77.   TimeVal# = Now
  78.   For l& = 1 To 200000
  79.     For i% = 1 To 13
  80.       If a%(i%) = 12345 Then Exit For
  81.     Next i%
  82.   Next l&
  83.   TimeVal# = Now - TimeVal#
  84.   MsgBox ("Ende der Berechnung. Zeit: " + Str$(Int(TimeVal# * 8640000) / 100) + " Sek.")
  85. End Sub
  86.  
  87. Sub SearchLong_Click ()
  88. Static a&(1 To 13)
  89.   Dim l&, i%
  90.   Dim TimeVal#
  91.   a&(1) = 262144
  92.   a&(2) = 524288
  93.   a&(3) = 1048576
  94.   a&(4) = 2097152
  95.   a&(5) = 4194304
  96.   a&(6) = 8388608
  97.   a&(7) = 16777216
  98.   a&(8) = 33554432
  99.   a&(9) = 67108864
  100.   a&(10) = 134217728
  101.   a&(11) = 268435456
  102.   a&(12) = 536870912
  103.   a&(13) = 1073741824
  104.   ' Start der Zeitmessung
  105.   TimeVal# = Now
  106.   For l& = 1 To 200000
  107.     For i% = 1 To 13
  108.       If a&(i%) = 1234567890 Then Exit For
  109.     Next i%
  110.   Next l&
  111.   TimeVal# = Now - TimeVal#
  112.   MsgBox ("Ende der Berechnung. Zeit: " + Str$(Int(TimeVal# * 8640000) / 100) + " Sek.")
  113. End Sub
  114.  
  115. Sub SearchString_Click ()
  116.   Static a$(1 To 13)
  117.   Dim l&, i%
  118.   Dim TimeVal#
  119.   a$(1) = "Buchheit"
  120.   a$(2) = "Dudek"
  121.   a$(3) = "Jung"
  122.   a$(4) = "Kopf"
  123.   a$(5) = "Kreisel"
  124.   a$(6) = "Maslo"
  125.   a$(7) = "Monadjemi"
  126.   a$(8) = "Ramm"
  127.   a$(9) = "Reinartz"
  128.   a$(10) = "SteingrΣber"
  129.   a$(11) = "Tischer"
  130.   a$(12) = "Waldmeyer"
  131.   a$(13) = "Zoschke"
  132.   ' Start der Zeitmessung
  133.   TimeVal# = Now
  134.   For l& = 1 To 200000
  135.     For i% = 1 To 13
  136.       If a$(i%) = "Gates" Then Exit For
  137.     Next i%
  138.   Next l&
  139.   TimeVal# = Now - TimeVal#
  140.   MsgBox ("Ende der String-Suche. Zeit: " + Str$(Int(TimeVal# * 8640000) / 100) + " Sek.")
  141. End Sub
  142.  
  143.