home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / System Speed Test / frmDiags.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-03-31  |  47.7 KB  |  1,393 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDiags 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Speed Test 3.0"
  5.    ClientHeight    =   6165
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   9525
  9.    Icon            =   "frmDiags.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   411
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   635
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton cmdQuit 
  18.       Caption         =   "QUIT"
  19.       Height          =   330
  20.       Left            =   8460
  21.       TabIndex        =   53
  22.       Top             =   5760
  23.       Width           =   915
  24.    End
  25.    Begin VB.PictureBox Picture2 
  26.       Height          =   3045
  27.       Left            =   90
  28.       ScaleHeight     =   199
  29.       ScaleMode       =   3  'Pixel
  30.       ScaleWidth      =   619
  31.       TabIndex        =   20
  32.       Top             =   2610
  33.       Width           =   9345
  34.       Begin VB.Label lblValue 
  35.          BackStyle       =   0  'Transparent
  36.          Caption         =   "..."
  37.          BeginProperty Font 
  38.             Name            =   "Small Fonts"
  39.             Size            =   6.75
  40.             Charset         =   0
  41.             Weight          =   400
  42.             Underline       =   0   'False
  43.             Italic          =   0   'False
  44.             Strikethrough   =   0   'False
  45.          EndProperty
  46.          ForeColor       =   &H00800000&
  47.          Height          =   240
  48.          Index           =   18
  49.          Left            =   2025
  50.          TabIndex        =   52
  51.          ToolTipText     =   "Hardware high-frequency counter (based on resolution/second)"
  52.          Top             =   45
  53.          Width           =   1470
  54.       End
  55.       Begin VB.Label lblLabel 
  56.          AutoSize        =   -1  'True
  57.          BackStyle       =   0  'Transparent
  58.          Caption         =   "Tick count:"
  59.          BeginProperty Font 
  60.             Name            =   "Small Fonts"
  61.             Size            =   6.75
  62.             Charset         =   0
  63.             Weight          =   400
  64.             Underline       =   0   'False
  65.             Italic          =   0   'False
  66.             Strikethrough   =   0   'False
  67.          EndProperty
  68.          ForeColor       =   &H00800000&
  69.          Height          =   165
  70.          Index           =   7
  71.          Left            =   135
  72.          TabIndex        =   51
  73.          Top             =   45
  74.          Width           =   690
  75.       End
  76.       Begin VB.Label lblValue 
  77.          BackStyle       =   0  'Transparent
  78.          Caption         =   "..."
  79.          BeginProperty Font 
  80.             Name            =   "Small Fonts"
  81.             Size            =   6.75
  82.             Charset         =   0
  83.             Weight          =   400
  84.             Underline       =   0   'False
  85.             Italic          =   0   'False
  86.             Strikethrough   =   0   'False
  87.          EndProperty
  88.          ForeColor       =   &H00800000&
  89.          Height          =   240
  90.          Index           =   16
  91.          Left            =   2025
  92.          TabIndex        =   40
  93.          ToolTipText     =   "Value (low/high)"
  94.          Top             =   1710
  95.          Width           =   1650
  96.       End
  97.       Begin VB.Label lblLabel 
  98.          AutoSize        =   -1  'True
  99.          BackStyle       =   0  'Transparent
  100.          Caption         =   "Floating-point division:"
  101.          BeginProperty Font 
  102.             Name            =   "Small Fonts"
  103.             Size            =   6.75
  104.             Charset         =   0
  105.             Weight          =   400
  106.             Underline       =   0   'False
  107.             Italic          =   0   'False
  108.             Strikethrough   =   0   'False
  109.          EndProperty
  110.          ForeColor       =   &H00800000&
  111.          Height          =   165
  112.          Index           =   12
  113.          Left            =   135
  114.          TabIndex        =   39
  115.          Top             =   1710
  116.          Width           =   1410
  117.       End
  118.       Begin VB.Label lblLabel 
  119.          AutoSize        =   -1  'True
  120.          BackStyle       =   0  'Transparent
  121.          Caption         =   "Floating-point multiplication:"
  122.          BeginProperty Font 
  123.             Name            =   "Small Fonts"
  124.             Size            =   6.75
  125.             Charset         =   0
  126.             Weight          =   400
  127.             Underline       =   0   'False
  128.             Italic          =   0   'False
  129.             Strikethrough   =   0   'False
  130.          EndProperty
  131.          ForeColor       =   &H00800000&
  132.          Height          =   165
  133.          Index           =   11
  134.          Left            =   135
  135.          TabIndex        =   38
  136.          Top             =   1530
  137.          Width           =   1755
  138.       End
  139.       Begin VB.Label lblValue 
  140.          BackStyle       =   0  'Transparent
  141.          Caption         =   "..."
  142.          BeginProperty Font 
  143.             Name            =   "Small Fonts"
  144.             Size            =   6.75
  145.             Charset         =   0
  146.             Weight          =   400
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          ForeColor       =   &H00800000&
  152.          Height          =   240
  153.          Index           =   11
  154.          Left            =   2025
  155.          TabIndex        =   37
  156.          ToolTipText     =   "Value (low/high)"
  157.          Top             =   1530
  158.          Width           =   1650
  159.       End
  160.       Begin VB.Label lblLabel 
  161.          AutoSize        =   -1  'True
  162.          BackStyle       =   0  'Transparent
  163.          Caption         =   "Overall calculation speed:"
  164.          BeginProperty Font 
  165.             Name            =   "Small Fonts"
  166.             Size            =   6.75
  167.             Charset         =   0
  168.             Weight          =   400
  169.             Underline       =   0   'False
  170.             Italic          =   0   'False
  171.             Strikethrough   =   0   'False
  172.          EndProperty
  173.          ForeColor       =   &H00800000&
  174.          Height          =   165
  175.          Index           =   10
  176.          Left            =   135
  177.          TabIndex        =   36
  178.          Top             =   2340
  179.          Width           =   1575
  180.       End
  181.       Begin VB.Label lblValue 
  182.          BackStyle       =   0  'Transparent
  183.          Caption         =   "..."
  184.          BeginProperty Font 
  185.             Name            =   "Small Fonts"
  186.             Size            =   6.75
  187.             Charset         =   0
  188.             Weight          =   700
  189.             Underline       =   0   'False
  190.             Italic          =   0   'False
  191.             Strikethrough   =   0   'False
  192.          EndProperty
  193.          ForeColor       =   &H00800000&
  194.          Height          =   240
  195.          Index           =   10
  196.          Left            =   2025
  197.          TabIndex        =   35
  198.          ToolTipText     =   "Average (operations per second)"
  199.          Top             =   2340
  200.          Width           =   1650
  201.       End
  202.       Begin VB.Label lblValue 
  203.          BackStyle       =   0  'Transparent
  204.          Caption         =   "..."
  205.          BeginProperty Font 
  206.             Name            =   "Small Fonts"
  207.             Size            =   6.75
  208.             Charset         =   0
  209.             Weight          =   400
  210.             Underline       =   0   'False
  211.             Italic          =   0   'False
  212.             Strikethrough   =   0   'False
  213.          EndProperty
  214.          ForeColor       =   &H00800000&
  215.          Height          =   240
  216.          Index           =   9
  217.          Left            =   2025
  218.          TabIndex        =   34
  219.          ToolTipText     =   "Average (operations per second)"
  220.          Top             =   1890
  221.          Width           =   1650
  222.       End
  223.       Begin VB.Label lblLabel 
  224.          AutoSize        =   -1  'True
  225.          BackStyle       =   0  'Transparent
  226.          Caption         =   "Floating-point average:"
  227.          BeginProperty Font 
  228.             Name            =   "Small Fonts"
  229.             Size            =   6.75
  230.             Charset         =   0
  231.             Weight          =   400
  232.             Underline       =   0   'False
  233.             Italic          =   0   'False
  234.             Strikethrough   =   0   'False
  235.          EndProperty
  236.          ForeColor       =   &H00800000&
  237.          Height          =   165
  238.          Index           =   9
  239.          Left            =   135
  240.          TabIndex        =   33
  241.          Top             =   1890
  242.          Width           =   1425
  243.       End
  244.       Begin VB.Label lblValue 
  245.          BackStyle       =   0  'Transparent
  246.          Caption         =   "..."
  247.          BeginProperty Font 
  248.             Name            =   "Small Fonts"
  249.             Size            =   6.75
  250.             Charset         =   0
  251.             Weight          =   400
  252.             Underline       =   0   'False
  253.             Italic          =   0   'False
  254.             Strikethrough   =   0   'False
  255.          EndProperty
  256.          ForeColor       =   &H00800000&
  257.          Height          =   240
  258.          Index           =   8
  259.          Left            =   2025
  260.          TabIndex        =   32
  261.          ToolTipText     =   "Value (low/high)"
  262.          Top             =   1350
  263.          Width           =   1650
  264.       End
  265.       Begin VB.Label lblLabel 
  266.          AutoSize        =   -1  'True
  267.          BackStyle       =   0  'Transparent
  268.          Caption         =   "Floating-point addition:"
  269.          BeginProperty Font 
  270.             Name            =   "Small Fonts"
  271.             Size            =   6.75
  272.             Charset         =   0
  273.             Weight          =   400
  274.             Underline       =   0   'False
  275.             Italic          =   0   'False
  276.             Strikethrough   =   0   'False
  277.          EndProperty
  278.          ForeColor       =   &H00800000&
  279.          Height          =   165
  280.          Index           =   8
  281.          Left            =   135
  282.          TabIndex        =   31
  283.          Top             =   1350
  284.          Width           =   1425
  285.       End
  286.       Begin VB.Label lblLabel 
  287.          AutoSize        =   -1  'True
  288.          BackStyle       =   0  'Transparent
  289.          Caption         =   "Integer division:"
  290.          BeginProperty Font 
  291.             Name            =   "Small Fonts"
  292.             Size            =   6.75
  293.             Charset         =   0
  294.             Weight          =   400
  295.             Underline       =   0   'False
  296.             Italic          =   0   'False
  297.             Strikethrough   =   0   'False
  298.          EndProperty
  299.          ForeColor       =   &H00800000&
  300.          Height          =   165
  301.          Index           =   5
  302.          Left            =   135
  303.          TabIndex        =   28
  304.          Top             =   855
  305.          Width           =   960
  306.       End
  307.       Begin VB.Label lblValue 
  308.          BackStyle       =   0  'Transparent
  309.          Caption         =   "..."
  310.          BeginProperty Font 
  311.             Name            =   "Small Fonts"
  312.             Size            =   6.75
  313.             Charset         =   0
  314.             Weight          =   400
  315.             Underline       =   0   'False
  316.             Italic          =   0   'False
  317.             Strikethrough   =   0   'False
  318.          EndProperty
  319.          ForeColor       =   &H00800000&
  320.          Height          =   240
  321.          Index           =   5
  322.          Left            =   2025
  323.          TabIndex        =   27
  324.          ToolTipText     =   "Value (low/high)"
  325.          Top             =   855
  326.          Width           =   1650
  327.       End
  328.       Begin VB.Label lblLabel 
  329.          AutoSize        =   -1  'True
  330.          BackStyle       =   0  'Transparent
  331.          Caption         =   "Integer average:"
  332.          BeginProperty Font 
  333.             Name            =   "Small Fonts"
  334.             Size            =   6.75
  335.             Charset         =   0
  336.             Weight          =   400
  337.             Underline       =   0   'False
  338.             Italic          =   0   'False
  339.             Strikethrough   =   0   'False
  340.          EndProperty
  341.          ForeColor       =   &H00800000&
  342.          Height          =   165
  343.          Index           =   4
  344.          Left            =   135
  345.          TabIndex        =   26
  346.          Top             =   1035
  347.          Width           =   975
  348.       End
  349.       Begin VB.Label lblValue 
  350.          BackStyle       =   0  'Transparent
  351.          Caption         =   "..."
  352.          BeginProperty Font 
  353.             Name            =   "Small Fonts"
  354.             Size            =   6.75
  355.             Charset         =   0
  356.             Weight          =   400
  357.             Underline       =   0   'False
  358.             Italic          =   0   'False
  359.             Strikethrough   =   0   'False
  360.          EndProperty
  361.          ForeColor       =   &H00800000&
  362.          Height          =   240
  363.          Index           =   4
  364.          Left            =   2025
  365.          TabIndex        =   25
  366.          ToolTipText     =   "Average (operations per second)"
  367.          Top             =   1035
  368.          Width           =   1650
  369.       End
  370.       Begin VB.Label lblValue 
  371.          BackStyle       =   0  'Transparent
  372.          Caption         =   "..."
  373.          BeginProperty Font 
  374.             Name            =   "Small Fonts"
  375.             Size            =   6.75
  376.             Charset         =   0
  377.             Weight          =   400
  378.             Underline       =   0   'False
  379.             Italic          =   0   'False
  380.             Strikethrough   =   0   'False
  381.          EndProperty
  382.          ForeColor       =   &H00800000&
  383.          Height          =   240
  384.          Index           =   1
  385.          Left            =   2025
  386.          TabIndex        =   24
  387.          ToolTipText     =   "Value (low/high)"
  388.          Top             =   675
  389.          Width           =   1650
  390.       End
  391.       Begin VB.Label lblLabel 
  392.          AutoSize        =   -1  'True
  393.          BackStyle       =   0  'Transparent
  394.          Caption         =   "Integer multiplication:"
  395.          BeginProperty Font 
  396.             Name            =   "Small Fonts"
  397.             Size            =   6.75
  398.             Charset         =   0
  399.             Weight          =   400
  400.             Underline       =   0   'False
  401.             Italic          =   0   'False
  402.             Strikethrough   =   0   'False
  403.          EndProperty
  404.          ForeColor       =   &H00800000&
  405.          Height          =   165
  406.          Index           =   1
  407.          Left            =   135
  408.          TabIndex        =   23
  409.          Top             =   675
  410.          Width           =   1305
  411.       End
  412.       Begin VB.Label lblLabel 
  413.          AutoSize        =   -1  'True
  414.          BackStyle       =   0  'Transparent
  415.          Caption         =   "Integer addition:"
  416.          BeginProperty Font 
  417.             Name            =   "Small Fonts"
  418.             Size            =   6.75
  419.             Charset         =   0
  420.             Weight          =   400
  421.             Underline       =   0   'False
  422.             Italic          =   0   'False
  423.             Strikethrough   =   0   'False
  424.          EndProperty
  425.          ForeColor       =   &H00800000&
  426.          Height          =   165
  427.          Index           =   0
  428.          Left            =   135
  429.          TabIndex        =   22
  430.          Top             =   495
  431.          Width           =   975
  432.       End
  433.       Begin VB.Label lblValue 
  434.          BackStyle       =   0  'Transparent
  435.          Caption         =   "..."
  436.          BeginProperty Font 
  437.             Name            =   "Small Fonts"
  438.             Size            =   6.75
  439.             Charset         =   0
  440.             Weight          =   400
  441.             Underline       =   0   'False
  442.             Italic          =   0   'False
  443.             Strikethrough   =   0   'False
  444.          EndProperty
  445.          ForeColor       =   &H00800000&
  446.          Height          =   240
  447.          Index           =   0
  448.          Left            =   2025
  449.          TabIndex        =   21
  450.          ToolTipText     =   "Value (low/high)"
  451.          Top             =   495
  452.          Width           =   1650
  453.       End
  454.    End
  455.    Begin VB.PictureBox Picture1 
  456.       AutoRedraw      =   -1  'True
  457.       Height          =   2400
  458.       Left            =   90
  459.       ScaleHeight     =   2340
  460.       ScaleWidth      =   9285
  461.       TabIndex        =   0
  462.       Top             =   90
  463.       Width           =   9345
  464.       Begin VB.Label Label13 
  465.          BackStyle       =   0  'Transparent
  466.          Caption         =   "Enhanced Virtual 8086:"
  467.          BeginProperty Font 
  468.             Name            =   "Small Fonts"
  469.             Size            =   6.75
  470.             Charset         =   0
  471.             Weight          =   400
  472.             Underline       =   0   'False
  473.             Italic          =   0   'False
  474.             Strikethrough   =   0   'False
  475.          EndProperty
  476.          ForeColor       =   &H00800000&
  477.          Height          =   240
  478.          Index           =   3
  479.          Left            =   5175
  480.          TabIndex        =   50
  481.          Top             =   1215
  482.          Width           =   1815
  483.       End
  484.       Begin VB.Label lblEnhanced 
  485.          BackStyle       =   0  'Transparent
  486.          Caption         =   "..."
  487.          BeginProperty Font 
  488.             Name            =   "Small Fonts"
  489.             Size            =   6.75
  490.             Charset         =   0
  491.             Weight          =   400
  492.             Underline       =   0   'False
  493.             Italic          =   0   'False
  494.             Strikethrough   =   0   'False
  495.          EndProperty
  496.          ForeColor       =   &H00800000&
  497.          Height          =   240
  498.          Left            =   7245
  499.          TabIndex        =   49
  500.          Top             =   1215
  501.          Width           =   1995
  502.       End
  503.       Begin VB.Label lblFPU 
  504.          BackStyle       =   0  'Transparent
  505.          Caption         =   "..."
  506.          BeginProperty Font 
  507.             Name            =   "Small Fonts"
  508.             Size            =   6.75
  509.             Charset         =   0
  510.             Weight          =   400
  511.             Underline       =   0   'False
  512.             Italic          =   0   'False
  513.             Strikethrough   =   0   'False
  514.          EndProperty
  515.          ForeColor       =   &H00800000&
  516.          Height          =   240
  517.          Left            =   7245
  518.          TabIndex        =   48
  519.          Top             =   1035
  520.          Width           =   1995
  521.       End
  522.       Begin VB.Label Label13 
  523.          BackStyle       =   0  'Transparent
  524.          Caption         =   "Floating Point Unit:"
  525.          BeginProperty Font 
  526.             Name            =   "Small Fonts"
  527.             Size            =   6.75
  528.             Charset         =   0
  529.             Weight          =   400
  530.             Underline       =   0   'False
  531.             Italic          =   0   'False
  532.             Strikethrough   =   0   'False
  533.          EndProperty
  534.          ForeColor       =   &H00800000&
  535.          Height          =   240
  536.          Index           =   0
  537.          Left            =   5175
  538.          TabIndex        =   47
  539.          Top             =   1035
  540.          Width           =   1815
  541.       End
  542.       Begin VB.Label lblCPUModel 
  543.          BackStyle       =   0  'Transparent
  544.          Caption         =   "..."
  545.          BeginProperty Font 
  546.             Name            =   "Small Fonts"
  547.             Size            =   6.75
  548.             Charset         =   0
  549.             Weight          =   400
  550.             Underline       =   0   'False
  551.             Italic          =   0   'False
  552.             Strikethrough   =   0   'False
  553.          EndProperty
  554.          ForeColor       =   &H00800000&
  555.          Height          =   240
  556.          Left            =   7245
  557.          TabIndex        =   46
  558.          Top             =   855
  559.          Width           =   1995
  560.       End
  561.       Begin VB.Label Label13 
  562.          BackStyle       =   0  'Transparent
  563.          Caption         =   "Processor Model / Stepping:"
  564.          BeginProperty Font 
  565.             Name            =   "Small Fonts"
  566.             Size            =   6.75
  567.             Charset         =   0
  568.             Weight          =   400
  569.             Underline       =   0   'False
  570.             Italic          =   0   'False
  571.             Strikethrough   =   0   'False
  572.          EndProperty
  573.          ForeColor       =   &H00800000&
  574.          Height          =   240
  575.          Index           =   4
  576.          Left            =   5175
  577.          TabIndex        =   45
  578.          Top             =   855
  579.          Width           =   1815
  580.       End
  581.       Begin VB.Label lblCPUType 
  582.          BackStyle       =   0  'Transparent
  583.          Caption         =   "..."
  584.          BeginProperty Font 
  585.             Name            =   "Small Fonts"
  586.             Size            =   6.75
  587.             Charset         =   0
  588.             Weight          =   400
  589.             Underline       =   0   'False
  590.             Italic          =   0   'False
  591.             Strikethrough   =   0   'False
  592.          EndProperty
  593.          ForeColor       =   &H00800000&
  594.          Height          =   240
  595.          Left            =   7245
  596.          TabIndex        =   44
  597.          Top             =   675
  598.          Width           =   1995
  599.       End
  600.       Begin VB.Label Label13 
  601.          BackStyle       =   0  'Transparent
  602.          Caption         =   "Processor Type:"
  603.          BeginProperty Font 
  604.             Name            =   "Small Fonts"
  605.             Size            =   6.75
  606.             Charset         =   0
  607.             Weight          =   400
  608.             Underline       =   0   'False
  609.             Italic          =   0   'False
  610.             Strikethrough   =   0   'False
  611.          EndProperty
  612.          ForeColor       =   &H00800000&
  613.          Height          =   240
  614.          Index           =   2
  615.          Left            =   5175
  616.          TabIndex        =   43
  617.          Top             =   675
  618.          Width           =   1815
  619.       End
  620.       Begin VB.Label Label12 
  621.          BackStyle       =   0  'Transparent
  622.          Caption         =   "Keyboard Type:"
  623.          BeginProperty Font 
  624.             Name            =   "Small Fonts"
  625.             Size            =   6.75
  626.             Charset         =   0
  627.             Weight          =   400
  628.             Underline       =   0   'False
  629.             Italic          =   0   'False
  630.             Strikethrough   =   0   'False
  631.          EndProperty
  632.          ForeColor       =   &H00800000&
  633.          Height          =   240
  634.          Left            =   135
  635.          TabIndex        =   42
  636.          Top             =   1755
  637.          Width           =   1815
  638.       End
  639.       Begin VB.Label Label1 
  640.          BackStyle       =   0  'Transparent
  641.          Caption         =   "..."
  642.          BeginProperty Font 
  643.             Name            =   "Small Fonts"
  644.             Size            =   6.75
  645.             Charset         =   0
  646.             Weight          =   400
  647.             Underline       =   0   'False
  648.             Italic          =   0   'False
  649.             Strikethrough   =   0   'False
  650.          EndProperty
  651.          ForeColor       =   &H00800000&
  652.          Height          =   240
  653.          Left            =   2250
  654.          TabIndex        =   41
  655.          Top             =   1755
  656.          Width           =   1995
  657.       End
  658.       Begin VB.Label lblLabel 
  659.          BackStyle       =   0  'Transparent
  660.          Caption         =   "Estimated Processor Speed:"
  661.          BeginProperty Font 
  662.             Name            =   "Small Fonts"
  663.             Size            =   6.75
  664.             Charset         =   0
  665.             Weight          =   400
  666.             Underline       =   0   'False
  667.             Italic          =   0   'False
  668.             Strikethrough   =   0   'False
  669.          EndProperty
  670.          ForeColor       =   &H00800000&
  671.          Height          =   240
  672.          Index           =   6
  673.          Left            =   5175
  674.          TabIndex        =   30
  675.          Top             =   1485
  676.          Width           =   2085
  677.       End
  678.       Begin VB.Label lblValue 
  679.          BackStyle       =   0  'Transparent
  680.          Caption         =   "0"
  681.          BeginProperty Font 
  682.             Name            =   "Times New Roman"
  683.             Size            =   12
  684.             Charset         =   0
  685.             Weight          =   700
  686.             Underline       =   0   'False
  687.             Italic          =   0   'False
  688.             Strikethrough   =   0   'False
  689.          EndProperty
  690.          ForeColor       =   &H00800000&
  691.          Height          =   285
  692.          Index           =   6
  693.          Left            =   7245
  694.          TabIndex        =   29
  695.          ToolTipText     =   "Hardware high-frequency counter resolution (per second)"
  696.          Top             =   1440
  697.          Width           =   1995
  698.       End
  699.       Begin VB.Label lblScreenSize 
  700.          BackStyle       =   0  'Transparent
  701.          Caption         =   "..."
  702.          BeginProperty Font 
  703.             Name            =   "Small Fonts"
  704.             Size            =   6.75
  705.             Charset         =   0
  706.             Weight          =   400
  707.             Underline       =   0   'False
  708.             Italic          =   0   'False
  709.             Strikethrough   =   0   'False
  710.          EndProperty
  711.          ForeColor       =   &H00800000&
  712.          Height          =   240
  713.          Left            =   2250
  714.          TabIndex        =   19
  715.          Top             =   1575
  716.          Width           =   1995
  717.       End
  718.       Begin VB.Label Label11 
  719.          BackStyle       =   0  'Transparent
  720.          Caption         =   "Screen Resolution:"
  721.          BeginProperty Font 
  722.             Name            =   "Small Fonts"
  723.             Size            =   6.75
  724.             Charset         =   0
  725.             Weight          =   400
  726.             Underline       =   0   'False
  727.             Italic          =   0   'False
  728.             Strikethrough   =   0   'False
  729.          EndProperty
  730.          ForeColor       =   &H00800000&
  731.          Height          =   240
  732.          Left            =   135
  733.          TabIndex        =   18
  734.          Top             =   1575
  735.          Width           =   1815
  736.       End
  737.       Begin VB.Label lblComputerName 
  738.          BackStyle       =   0  'Transparent
  739.          Caption         =   "..."
  740.          BeginProperty Font 
  741.             Name            =   "Small Fonts"
  742.             Size            =   6.75
  743.             Charset         =   0
  744.             Weight          =   400
  745.             Underline       =   0   'False
  746.             Italic          =   0   'False
  747.             Strikethrough   =   0   'False
  748.          EndProperty
  749.          ForeColor       =   &H00800000&
  750.          Height          =   240
  751.          Left            =   2250
  752.          TabIndex        =   17
  753.          Top             =   1935
  754.          Width           =   1995
  755.       End
  756.       Begin VB.Label Label3 
  757.          BackStyle       =   0  'Transparent
  758.          Caption         =   "Computer Name:"
  759.          BeginProperty Font 
  760.             Name            =   "Small Fonts"
  761.             Size            =   6.75
  762.             Charset         =   0
  763.             Weight          =   400
  764.             Underline       =   0   'False
  765.             Italic          =   0   'False
  766.             Strikethrough   =   0   'False
  767.          EndProperty
  768.          ForeColor       =   &H00800000&
  769.          Height          =   240
  770.          Left            =   135
  771.          TabIndex        =   16
  772.          Top             =   1935
  773.          Width           =   1815
  774.       End
  775.       Begin VB.Label Label10 
  776.          BackStyle       =   0  'Transparent
  777.          Caption         =   "Central Processing Unit:"
  778.          BeginProperty Font 
  779.             Name            =   "Small Fonts"
  780.             Size            =   6.75
  781.             Charset         =   0
  782.             Weight          =   400
  783.             Underline       =   0   'False
  784.             Italic          =   0   'False
  785.             Strikethrough   =   0   'False
  786.          EndProperty
  787.          ForeColor       =   &H00800000&
  788.          Height          =   240
  789.          Left            =   5175
  790.          TabIndex        =   15
  791.          Top             =   495
  792.          Width           =   1815
  793.       End
  794.       Begin VB.Label lblProcessor 
  795.          BackStyle       =   0  'Transparent
  796.          Caption         =   "..."
  797.          BeginProperty Font 
  798.             Name            =   "Small Fonts"
  799.             Size            =   6.75
  800.             Charset         =   0
  801.             Weight          =   400
  802.             Underline       =   0   'False
  803.             Italic          =   0   'False
  804.             Strikethrough   =   0   'False
  805.          EndProperty
  806.          ForeColor       =   &H00800000&
  807.          Height          =   240
  808.          Left            =   7245
  809.          TabIndex        =   14
  810.          Top             =   495
  811.          Width           =   1995
  812.       End
  813.       Begin VB.Label Label9 
  814.          BackStyle       =   0  'Transparent
  815.          Caption         =   "Available Physical Memory:"
  816.          BeginProperty Font 
  817.             Name            =   "Small Fonts"
  818.             Size            =   6.75
  819.             Charset         =   0
  820.             Weight          =   400
  821.             Underline       =   0   'False
  822.             Italic          =   0   'False
  823.             Strikethrough   =   0   'False
  824.          EndProperty
  825.          ForeColor       =   &H00800000&
  826.          Height          =   240
  827.          Left            =   135
  828.          TabIndex        =   13
  829.          Top             =   675
  830.          Width           =   1995
  831.       End
  832.       Begin VB.Label lblMemAvail 
  833.          BackStyle       =   0  'Transparent
  834.          Caption         =   "..."
  835.          BeginProperty Font 
  836.             Name            =   "Small Fonts"
  837.             Size            =   6.75
  838.             Charset         =   0
  839.             Weight          =   400
  840.             Underline       =   0   'False
  841.             Italic          =   0   'False
  842.             Strikethrough   =   0   'False
  843.          EndProperty
  844.          ForeColor       =   &H00800000&
  845.          Height          =   240
  846.          Left            =   2250
  847.          TabIndex        =   12
  848.          Top             =   675
  849.          Width           =   1995
  850.       End
  851.       Begin VB.Label lblAvailVirtual 
  852.          BackStyle       =   0  'Transparent
  853.          Caption         =   "..."
  854.          BeginProperty Font 
  855.             Name            =   "Small Fonts"
  856.             Size            =   6.75
  857.             Charset         =   0
  858.             Weight          =   400
  859.             Underline       =   0   'False
  860.             Italic          =   0   'False
  861.             Strikethrough   =   0   'False
  862.          EndProperty
  863.          ForeColor       =   &H00800000&
  864.          Height          =   240
  865.          Left            =   2250
  866.          TabIndex        =   11
  867.          Top             =   1395
  868.          Width           =   1995
  869.       End
  870.       Begin VB.Label Label6 
  871.          BackStyle       =   0  'Transparent
  872.          Caption         =   "Available Virtual Memory:"
  873.          BeginProperty Font 
  874.             Name            =   "Small Fonts"
  875.             Size            =   6.75
  876.             Charset         =   0
  877.             Weight          =   400
  878.             Underline       =   0   'False
  879.             Italic          =   0   'False
  880.             Strikethrough   =   0   'False
  881.          EndProperty
  882.          ForeColor       =   &H00800000&
  883.          Height          =   240
  884.          Left            =   135
  885.          TabIndex        =   10
  886.          Top             =   1395
  887.          Width           =   1815
  888.       End
  889.       Begin VB.Label Label100 
  890.          BackStyle       =   0  'Transparent
  891.          Caption         =   "Total Virtual Memory:"
  892.          BeginProperty Font 
  893.             Name            =   "Small Fonts"
  894.             Size            =   6.75
  895.             Charset         =   0
  896.             Weight          =   400
  897.             Underline       =   0   'False
  898.             Italic          =   0   'False
  899.             Strikethrough   =   0   'False
  900.          EndProperty
  901.          ForeColor       =   &H00800000&
  902.          Height          =   240
  903.          Left            =   135
  904.          TabIndex        =   9
  905.          Top             =   1215
  906.          Width           =   1815
  907.       End
  908.       Begin VB.Label lblTotalVirtual 
  909.          BackStyle       =   0  'Transparent
  910.          Caption         =   "..."
  911.          BeginProperty Font 
  912.             Name            =   "Small Fonts"
  913.             Size            =   6.75
  914.             Charset         =   0
  915.             Weight          =   400
  916.             Underline       =   0   'False
  917.             Italic          =   0   'False
  918.             Strikethrough   =   0   'False
  919.          EndProperty
  920.          ForeColor       =   &H00800000&
  921.          Height          =   240
  922.          Left            =   2250
  923.          TabIndex        =   8
  924.          Top             =   1215
  925.          Width           =   1995
  926.       End
  927.       Begin VB.Label lblAvailPage 
  928.          BackStyle       =   0  'Transparent
  929.          Caption         =   "..."
  930.          BeginProperty Font 
  931.             Name            =   "Small Fonts"
  932.             Size            =   6.75
  933.             Charset         =   0
  934.             Weight          =   400
  935.             Underline       =   0   'False
  936.             Italic          =   0   'False
  937.             Strikethrough   =   0   'False
  938.          EndProperty
  939.          ForeColor       =   &H00800000&
  940.          Height          =   240
  941.          Left            =   2250
  942.          TabIndex        =   7
  943.          Top             =   1035
  944.          Width           =   1995
  945.       End
  946.       Begin VB.Label Label4 
  947.          BackStyle       =   0  'Transparent
  948.          Caption         =   "Available Page File:"
  949.          BeginProperty Font 
  950.             Name            =   "Small Fonts"
  951.             Size            =   6.75
  952.             Charset         =   0
  953.             Weight          =   400
  954.             Underline       =   0   'False
  955.             Italic          =   0   'False
  956.             Strikethrough   =   0   'False
  957.          EndProperty
  958.          ForeColor       =   &H00800000&
  959.          Height          =   240
  960.          Left            =   135
  961.          TabIndex        =   6
  962.          Top             =   1035
  963.          Width           =   1995
  964.       End
  965.       Begin VB.Label Label5 
  966.          BackStyle       =   0  'Transparent
  967.          Caption         =   "Total Page File:"
  968.          BeginProperty Font 
  969.             Name            =   "Small Fonts"
  970.             Size            =   6.75
  971.             Charset         =   0
  972.             Weight          =   400
  973.             Underline       =   0   'False
  974.             Italic          =   0   'False
  975.             Strikethrough   =   0   'False
  976.          EndProperty
  977.          ForeColor       =   &H00800000&
  978.          Height          =   240
  979.          Left            =   135
  980.          TabIndex        =   5
  981.          Top             =   855
  982.          Width           =   1995
  983.       End
  984.       Begin VB.Label lblPageFile 
  985.          BackStyle       =   0  'Transparent
  986.          Caption         =   "..."
  987.          BeginProperty Font 
  988.             Name            =   "Small Fonts"
  989.             Size            =   6.75
  990.             Charset         =   0
  991.             Weight          =   400
  992.             Underline       =   0   'False
  993.             Italic          =   0   'False
  994.             Strikethrough   =   0   'False
  995.          EndProperty
  996.          ForeColor       =   &H00800000&
  997.          Height          =   240
  998.          Left            =   2250
  999.          TabIndex        =   4
  1000.          Top             =   855
  1001.          Width           =   1995
  1002.       End
  1003.       Begin VB.Label lblPhysMem 
  1004.          BackStyle       =   0  'Transparent
  1005.          Caption         =   "..."
  1006.          BeginProperty Font 
  1007.             Name            =   "Small Fonts"
  1008.             Size            =   6.75
  1009.             Charset         =   0
  1010.             Weight          =   400
  1011.             Underline       =   0   'False
  1012.             Italic          =   0   'False
  1013.             Strikethrough   =   0   'False
  1014.          EndProperty
  1015.          ForeColor       =   &H00800000&
  1016.          Height          =   240
  1017.          Left            =   2250
  1018.          TabIndex        =   3
  1019.          Top             =   495
  1020.          Width           =   1995
  1021.       End
  1022.       Begin VB.Label Label2 
  1023.          BackStyle       =   0  'Transparent
  1024.          Caption         =   "Total Physical Memory:"
  1025.          BeginProperty Font 
  1026.             Name            =   "Small Fonts"
  1027.             Size            =   6.75
  1028.             Charset         =   0
  1029.             Weight          =   400
  1030.             Underline       =   0   'False
  1031.             Italic          =   0   'False
  1032.             Strikethrough   =   0   'False
  1033.          EndProperty
  1034.          ForeColor       =   &H00800000&
  1035.          Height          =   240
  1036.          Left            =   135
  1037.          TabIndex        =   2
  1038.          Top             =   495
  1039.          Width           =   1815
  1040.       End
  1041.       Begin VB.Label lblPlatform 
  1042.          Alignment       =   2  'Center
  1043.          BackColor       =   &H00C0C0C0&
  1044.          BackStyle       =   0  'Transparent
  1045.          Caption         =   "windows"
  1046.          BeginProperty Font 
  1047.             Name            =   "Times New Roman"
  1048.             Size            =   14.25
  1049.             Charset         =   0
  1050.             Weight          =   700
  1051.             Underline       =   0   'False
  1052.             Italic          =   0   'False
  1053.             Strikethrough   =   0   'False
  1054.          EndProperty
  1055.          ForeColor       =   &H00FF0000&
  1056.          Height          =   315
  1057.          Left            =   45
  1058.          TabIndex        =   1
  1059.          Top             =   0
  1060.          Width           =   9270
  1061.       End
  1062.    End
  1063. Attribute VB_Name = "frmDiags"
  1064. Attribute VB_GlobalNameSpace = False
  1065. Attribute VB_Creatable = False
  1066. Attribute VB_PredeclaredId = True
  1067. Attribute VB_Exposed = False
  1068. Const Max_Time As Long = 1000000
  1069. Dim ms As MEMORYSTATUS
  1070. Dim flagnum&
  1071. Dim dl&, s$
  1072. Dim vernum&, verword%
  1073. Dim mySys As SYSTEM_INFO
  1074. Dim temp$
  1075. Dim result&
  1076. Dim bDynamic As Boolean
  1077. Dim NL As String
  1078. Dim sPlatform As String
  1079. Dim sVersion As String
  1080. Dim sBuild As String
  1081. Dim retval
  1082. Dim done As Boolean
  1083. Dim tickStart, tickStop As Long
  1084. Dim low(0 To 100) As Long
  1085. Dim high(0 To 100) As Long
  1086. Dim n As Long
  1087. Dim iValue As Long
  1088. Dim fValue As Double
  1089. Dim iCount As Long
  1090. Dim fCount As Long
  1091. Dim iAvg As Long
  1092. Dim iAvgTotal As Long
  1093. Dim fAvg As Long
  1094. Dim fAvgTotal As Long
  1095. Dim avg As Double
  1096. Dim iNum As Long
  1097. Dim fNum As Double
  1098. Dim mhz As Double
  1099. Private Sub cmdQuit_Click()
  1100.     End
  1101. End Sub
  1102. Private Sub cmdTest_Click()
  1103.     Timer1.Enabled = Not Timer1.Enabled
  1104. End Sub
  1105. Function Overhead_Speed() As Long
  1106.     Start_Counter
  1107.     For n = 1 To Max_Time
  1108.     Next n
  1109.     Stop_Counter
  1110.     Overhead_Speed = Get_Counter
  1111. End Function
  1112. Sub PerformTest()
  1113.         iAvg = 0
  1114.         iCount = 0
  1115.         fAvg = 0
  1116.         fCount = 0
  1117.         iNum = Int((9 * Rnd) + 1)
  1118.         fNum = Rnd + 1
  1119.         
  1120.         'integer addition test
  1121.         iValue = 0
  1122.         Start_Counter
  1123.         For n = 1 To Max_Time
  1124.             iValue = iNum + n
  1125.         Next n
  1126.         Stop_Counter
  1127.         temp = Get_Counter
  1128.         If temp < low(1) Then low(1) = temp
  1129.         If temp > high(1) Then high(1) = temp
  1130.         lblValue(0).Caption = Format$(temp, "#,##0") & " (" & low(1) & "/" & high(1) & ")"
  1131.         iAvg = iAvg + temp
  1132.         iCount = iCount + 1
  1133.         DoEvents
  1134.         
  1135.         ' integer multiplication test
  1136.         iValue = 0
  1137.         Start_Counter
  1138.         For n = 1 To Max_Time
  1139.             iValue = n * iNum
  1140.         Next n
  1141.         Stop_Counter
  1142.         temp = Get_Counter
  1143.         If temp < low(2) Then low(2) = temp
  1144.         If temp > high(2) Then high(2) = temp
  1145.         lblValue(1).Caption = Format$(temp, "#,##0") & " (" & low(2) & "/" & high(2) & ")"
  1146.         iAvg = iAvg + temp
  1147.         iCount = iCount + 1
  1148.         DoEvents
  1149.         
  1150.         ' integer division test
  1151.         iValue = 0
  1152.         Start_Counter
  1153.         For n = 1 To Max_Time
  1154.             iValue = n \ iNum
  1155.         Next n
  1156.         Stop_Counter
  1157.         temp = Get_Counter
  1158.         If temp < low(3) Then low(3) = temp
  1159.         If temp > high(3) Then high(3) = temp
  1160.         lblValue(5).Caption = Format$(temp, "#,##0") & " (" & low(3) & "/" & high(3) & ")"
  1161.         iAvg = iAvg + temp
  1162.         iCount = iCount + 1
  1163.         
  1164.         iAvgTotal = (iAvg / iCount)
  1165.         lblValue(4).Caption = Format$(iAvgTotal, "#,##0")
  1166.         DoEvents
  1167.         
  1168.         'floating-point addition test
  1169.         fValue = 0
  1170.         Start_Counter
  1171.         For n = 1 To Max_Time
  1172.             fValue = fNum + n
  1173.         Next n
  1174.         Stop_Counter
  1175.         temp = Get_Counter
  1176.         If temp < low(4) Then low(4) = temp
  1177.         If temp > high(4) Then high(4) = temp
  1178.         fAvg = fAvg + temp
  1179.         fCount = fCount + 1
  1180.         DoEvents
  1181.         
  1182.         ' floating-point multiplication test
  1183.         fValue = 0
  1184.         Start_Counter
  1185.         For n = 1 To Max_Time
  1186.             fValue = n * fNum
  1187.         Next n
  1188.         Stop_Counter
  1189.         temp = Get_Counter
  1190.         If temp < low(5) Then low(5) = temp
  1191.         If temp > high(5) Then high(5) = temp
  1192.         fAvg = fAvg + temp
  1193.         fCount = fCount + 1
  1194.         DoEvents
  1195.         
  1196.         ' floating-point division test
  1197.         fValue = 0
  1198.         Start_Counter
  1199.         For n = 1 To Max_Time
  1200.             fValue = n / fNum
  1201.         Next n
  1202.         Stop_Counter
  1203.         temp = Get_Counter
  1204.         If temp < low(6) Then low(6) = temp
  1205.         If temp > high(6) Then high(6) = temp
  1206.         fAvg = fAvg + temp
  1207.         fCount = fCount + 1
  1208.         DoEvents
  1209.         
  1210.         ' calculate floating point average
  1211.         fAvgTotal = (fAvg / fCount)
  1212.         lblValue(9).Caption = Format$(fAvgTotal, "#,##0")
  1213.         
  1214.         ' calculate MHz based on P2-300 system
  1215.         temp = Max_Time / ((iAvgTotal + fAvgTotal) / 2)
  1216.         mhz = (temp / 20000) * 500
  1217.         mhz = Relative_Speed(mhz)
  1218.         lblValue(6).Caption = Format$(mhz, "#,##0") & " MHz"
  1219.         lblValue(8).Caption = Format$(temp, "#,##0") & " (" & low(4) & "/" & high(4) & ")"
  1220.         lblValue(11).Caption = Format$(temp, "#,##0") & " (" & low(5) & "/" & high(5) & ")"
  1221.         lblValue(16).Caption = Format$(temp, "#,##0") & " (" & low(6) & "/" & high(6) & ")"
  1222.         lblValue(10).Caption = Format$(temp, "#,##0") & " op/s"
  1223.         Picture2.Line (544, 10)-(593, 215), QBColor(7), BF
  1224.         Picture2.Line (544, 215 - mhz / 3)-(593, 215), QBColor(12), BF
  1225.         DoEvents
  1226. End Sub
  1227. Function Relative_Speed(speed As Double) As Long
  1228.     Dim temp&
  1229.     If speed > 480 Then
  1230.         temp = "500"
  1231.     ElseIf speed > 460 Then
  1232.         temp = "466"
  1233.     ElseIf speed > 440 Then
  1234.         temp = 450
  1235.     ElseIf speed > 420 Then
  1236.         temp = 433
  1237.     ElseIf speed > 380 Then
  1238.         temp = 400
  1239.     ElseIf speed > 360 Then
  1240.         temp = 366
  1241.     ElseIf speed > 340 Then
  1242.         temp = 350
  1243.     ElseIf speed > 320 Then
  1244.         temp = 333
  1245.     ElseIf speed > 280 Then
  1246.         temp = 300
  1247.     ElseIf speed > 260 Then
  1248.         temp = 266
  1249.     ElseIf speed > 240 Then
  1250.         temp = 250
  1251.     ElseIf speed > 220 Then
  1252.         temp = 233
  1253.     ElseIf speed > 190 Then
  1254.         temp = 200
  1255.     ElseIf speed > 170 Then
  1256.         temp = 180
  1257.     ElseIf speed > 160 Then
  1258.         temp = 166
  1259.     ElseIf speed > 140 Then
  1260.         temp = 150
  1261.     ElseIf speed > 125 Then
  1262.         temp = 133
  1263.     ElseIf speed > 110 Then
  1264.         temp = 120
  1265.     ElseIf speed > 95 Then
  1266.         temp = 100
  1267.     ElseIf speed > 80 Then
  1268.         temp = 90
  1269.     ElseIf speed > 70 Then
  1270.         temp = 75
  1271.     ElseIf speed > 60 Then
  1272.         temp = 66
  1273.     ElseIf speed > 45 Then
  1274.         temp = 50
  1275.     ElseIf speed > 38 Then
  1276.         temp = 40
  1277.     ElseIf speed > 28 Then
  1278.         temp = 33
  1279.     ElseIf speed > 22 Then
  1280.         temp = 25
  1281.     ElseIf speed > 18 Then
  1282.         temp = 20
  1283.     ElseIf speed > 14 Then
  1284.         temp = 16
  1285.     Else
  1286.         temp = 12
  1287.     End If
  1288.     Relative_Speed = temp
  1289. End Function
  1290. Sub Start_Counter()
  1291.     tickStart = GetTickCount
  1292. End Sub
  1293. Function Get_Counter() As Long
  1294.     Get_Counter = tickStop - tickStart
  1295. End Function
  1296. Sub Stop_Counter()
  1297.     tickStop = GetTickCount
  1298. End Sub
  1299. Sub Display_Information()
  1300.     Dim freq As FREQ_INFO
  1301.     Dim sBuild$
  1302.     ms.dwLength = Len(ms)
  1303.     GlobalMemoryStatus ms
  1304.     lblPhysMem = Format$(ms.dwTotalPhys, "#,###,###,##0 ")
  1305.     lblMemAvail = Format$(ms.dwAvailPhys, "#,###,###,##0") & " (" & Format$(ms.dwMemoryLoad / 100, "##0%") & " FREE)"
  1306.     lblPageFile = Format$(ms.dwTotalPageFile, "#,###,###,##0 ")
  1307.     lblAvailPage = Format$(ms.dwAvailPageFile, "#,###,###,##0 ")
  1308.     lblTotalVirtual = Format$(ms.dwTotalVirtual, "#,###,###,##0 ")
  1309.     lblAvailVirtual = Format$(ms.dwAvailVirtual, "#,###,###,##0 ")
  1310.     myVer.dwOSVersionInfoSize = 148
  1311.     dl& = GetVersionEx&(myVer)
  1312.     Select Case myVer.dwPlatformId
  1313.         Case VER_PLATFORM_WIN32S:        sPlatform$ = "WIN32S"
  1314.         Case VER_PLATFORM_WIN32_WINDOWS: sPlatform$ = "WINDOWS 95"
  1315.         Case VER_PLATFORM_WIN32_NT:      sPlatform$ = "WINDOWS NT"
  1316.     End Select
  1317.     csd = myVer.szCSDVersion
  1318.     sBuild = Trim(Str(myVer.dwBuildNumber And &HFFFF&))
  1319.     If sBuild = "1998" Then
  1320.         sPlatform$ = "WINDOWS 98"
  1321.     End If
  1322.     sPlatform$ = sPlatform$ & ", Version " & myVer.dwMajorVersion & "." & myVer.dwMinorVersion & ", Build " & sBuild
  1323.     lblPlatform = sPlatform$
  1324.     Dim n$
  1325.     n$ = String$(MAX_COMPUTERNAME_LENGTH + 1, 0)
  1326.     Dim sz&
  1327.     sz& = MAX_COMPUTERNAME_LENGTH + 1
  1328.     dl& = GetComputerName(n$, sz)
  1329.     lblComputerName = n$
  1330.     Dim retw, reth As Long
  1331.     retw = GetSystemMetrics(SM_CXSCREEN)
  1332.     reth = GetSystemMetrics(SM_CYSCREEN)
  1333.     lblScreenSize = retw & " x " & reth
  1334.     Select Case GetKeyboardType(0)
  1335.         Case 0: Label1.Caption = "Error"
  1336.         Case 1: Label1.Caption = "IBM PC/XT 83"
  1337.         Case 2: Label1.Caption = "Olivetti ICO 102"
  1338.         Case 3: Label1.Caption = "IBM PC/AT 84"
  1339.         Case 4: Label1.Caption = "IBM Enhanced 101"
  1340.         Case 5: Label1.Caption = "Nokia 1050"
  1341.         Case 6: Label1.Caption = "Nokia 9140"
  1342.         Case 7: Label1.Caption = "Japanese keyboard"
  1343.         Case Else: Label1.Caption = "Unknown Type: " & GetKeyboardType(1)
  1344.     End Select
  1345.     Dim temp$
  1346.     Select Case CPUID
  1347.         Case 0: temp = "8086/8088"      ' 32-bit code...this will never show up
  1348.         Case 1: temp = "80186"          ' 32-bit code...this will never show up
  1349.         Case 2: temp = "80286"          ' 32-bit code...this will never show up
  1350.         Case 3: temp = "80386"
  1351.         Case 4: temp = "80486"
  1352.         Case 5: temp = "P5 Pentium"
  1353.         Case 6: temp = "P6 Pentium"
  1354.         Case 7: temp = "P7 Processor"
  1355.         Case 8: temp = "P8 Processor"
  1356.         Case 9: temp = "P9 Processor"
  1357.     End Select
  1358.     Select Case (CPUIDExt Mod 1000) \ 100
  1359.         Case 3: temp = "P5 Pentium"
  1360.         Case 4: temp = "P6 Pentium"
  1361.         Case 5: temp = "P7 Pentium II"
  1362.         Case 6: temp = "P8 Pentium II (100MHz Bus)"
  1363.         Case 7: temp = "P9 Pentium II (Newer)"
  1364.         Case Else: temp = "Unknown"
  1365.     End Select
  1366.     lblProcessor = temp
  1367.     Select Case (CPUIDExt \ 1000)
  1368.         Case 0: lblCPUType = "Standard"
  1369.         Case 1: lblCPUType = "OEM"
  1370.         Case 2: lblCPUType = "Dual CPU"
  1371.     End Select
  1372.     lblCPUModel = (CPUIDExt Mod 100) \ 10 & " / " & (CPUIDExt Mod 10)
  1373.     lblCPUFeatures = CPUFeatures
  1374.     If (CPUFeatures And 1) Then lblFPU = "Present" Else lblFPU = "Not Found"
  1375.     If (CPUFeatures And 2) Then lblEnhanced = "Supported" Else lblEnhanced = "Not Supported"
  1376. End Sub
  1377. Private Sub Form_Load()
  1378.     Me.Show
  1379.     done = False
  1380.     Randomize
  1381.     Display_Information
  1382.     For n = 0 To 100
  1383.         low(n) = 1000000
  1384.         high(n) = 0
  1385.     Next n
  1386.     DoEvents
  1387.     Do Until done
  1388.         lblValue(18).Caption = GetTickCount()
  1389.         PerformTest
  1390.         Display_Information
  1391.     Loop
  1392. End Sub
  1393.