) If useParse Then parseTime = DoubleParseRoutine() If useTryParse Then tryParseTime = DoubleTryParseRoutine() If useCharArray Then If useOptimizedCharArray Then charArrayParseTime = OptimizedDoubleCharArrayRoutine() Else charArrayParseTime = DoubleCharArrayRoutine() End If End If If useRegex Then regexParseTime = DoubleRegexRoutine() sb.Append(TimeResult(parseTime, tryParseTime, charArrayParseTime, regexParseTime)) sb.Append("") WebBrowser1.DocumentText = sb.ToString Cursor = Cursors.Arrow End Sub Private Function TimeResult(ByVal parseTime As Long, ByVal tryParseTime As Long, ByVal charArrayParseTime As Long, ByVal regexParseTime As Long) As String Return "" & parseTime & " ms" & tryParseTime & "ms" & charArrayParseTime & "ms" & regexParseTime & "ms" End Function Private Sub CloseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseButton.Click Me.Close() End Sub End Class ' ************************************************************ ''' SECOND BLOCK _ Partial Public Class MainForm Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.CloseButton = New System.Windows.Forms.Button Me.RunButton = New System.Windows.Forms.Button Me.SuccessRateNumericUpDown = New System.Windows.Forms.NumericUpDown Me.WebBrowser1 = New System.Windows.Forms.WebBrowser Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.StringCountNumericUpDown = New System.Windows.Forms.NumericUpDown Me.Label5 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.IntegerRegexTextBox = New System.Windows.Forms.TextBox Me.Label4 = New System.Windows.Forms.Label Me.FloatRegexTextBox = New System.Windows.Forms.TextBox Me.UseTryCheckBox = New System.Windows.Forms.CheckBox Me.UseTryParseCheckBox = New System.Windows.Forms.CheckBox Me.UseCharArrayCheckBox = New System.Windows.Forms.CheckBox Me.UseRegexCheckBox = New System.Windows.Forms.CheckBox Me.UseOptimizeCharArrayCheckBox = New System.Windows.Forms.CheckBox CType(Me.SuccessRateNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.StringCountNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'CloseButton ' Me.CloseButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.CloseButton.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.CloseButton.Location = New System.Drawing.Point(592, 441) Me.CloseButton.Margin = New System.Windows.Forms.Padding(4) Me.CloseButton.Name = "CloseButton" Me.CloseButton.Size = New System.Drawing.Size(100, 28) Me.CloseButton.TabIndex = 0 Me.CloseButton.Text = "Close" ' 'RunButton ' Me.RunButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.RunButton.Location = New System.Drawing.Point(484, 441) Me.RunButton.Margin = New System.Windows.Forms.Padding(4) Me.RunButton.Name = "RunButton" Me.RunButton.Size = New System.Drawing.Size(100, 28) Me.RunButton.TabIndex = 1 Me.RunButton.Text = "Run" ' 'SuccessRateNumericUpDown ' Me.SuccessRateNumericUpDown.Location = New System.Drawing.Point(461, 15) Me.SuccessRateNumericUpDown.Margin = New System.Windows.Forms.Padding(4) Me.SuccessRateNumericUpDown.Name = "SuccessRateNumericUpDown" Me.SuccessRateNumericUpDown.Size = New System.Drawing.Size(77, 22) Me.SuccessRateNumericUpDown.TabIndex = 5 Me.SuccessRateNumericUpDown.Value = New Decimal(New Integer() {100, 0, 0, 0}) ' 'WebBrowser1 ' Me.WebBrowser1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.WebBrowser1.Location = New System.Drawing.Point(17, 108) Me.WebBrowser1.Margin = New System.Windows.Forms.Padding(4) Me.WebBrowser1.Name = "WebBrowser1" Me.WebBrowser1.Size = New System.Drawing.Size(675, 325) ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(547, 17) Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(49, 16) Me.Label2.TabIndex = 10 Me.Label2.Text = "percent" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(16, 17) Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(110, 16) Me.Label3.TabIndex = 11 Me.Label3.Text = "Attempt to convert" ' 'StringCountNumericUpDown ' Me.StringCountNumericUpDown.Location = New System.Drawing.Point(144, 15) Me.StringCountNumericUpDown.Margin = New System.Windows.Forms.Padding(4) Me.StringCountNumericUpDown.Maximum = New Decimal(New Integer() {999999, 0, 0, 0}) Me.StringCountNumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) Me.StringCountNumericUpDown.Name = "StringCountNumericUpDown" Me.StringCountNumericUpDown.Size = New System.Drawing.Size(77, 22) Me.StringCountNumericUpDown.TabIndex = 12 Me.StringCountNumericUpDown.Value = New Decimal(New Integer() {10000, 0, 0, 0}) ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(219, 16) Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(0, 0) Me.Label5.TabIndex = 13 ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(229, 17) Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(208, 16) Me.Label6.TabIndex = 14 Me.Label6.Text = "string values with a success rate of" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(18, 47) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(88, 16) Me.Label1.TabIndex = 16 Me.Label1.Text = "Integer Regex" ' 'IntegerRegexTextBox ' Me.IntegerRegexTextBox.Location = New System.Drawing.Point(112, 44) Me.IntegerRegexTextBox.Name = "IntegerRegexTextBox" Me.IntegerRegexTextBox.Size = New System.Drawing.Size(210, 23) Me.IntegerRegexTextBox.TabIndex = 17 Me.IntegerRegexTextBox.Text = "^([-+]?\d+)$" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(397, 47) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(77, 16) Me.Label4.TabIndex = 18 Me.Label4.Text = "Float Regex" ' 'FloatRegexTextBox ' Me.FloatRegexTextBox.Location = New System.Drawing.Point(480, 44) Me.FloatRegexTextBox.Name = "FloatRegexTextBox" Me.FloatRegexTextBox.Size = New System.Drawing.Size(212, 23) Me.FloatRegexTextBox.TabIndex = 19 Me.FloatRegexTextBox.Text = "^([-+]?\d+\.?\d*)$" ' 'UseTryCheckBox ' Me.UseTryCheckBox.AutoSize = True Me.UseTryCheckBox.Checked = True Me.UseTryCheckBox.CheckState = System.Windows.Forms.CheckState.Checked Me.UseTryCheckBox.Location = New System.Drawing.Point(18, 81) Me.UseTryCheckBox.Name = "UseTryCheckBox" Me.UseTryCheckBox.Size = New System.Drawing.Size(87, 20) Me.UseTryCheckBox.TabIndex = 21 Me.UseTryCheckBox.Text = "Use Parse" ' 'UseTryParseCheckBox ' Me.UseTryParseCheckBox.AutoSize = True Me.UseTryParseCheckBox.Checked = True Me.UseTryParseCheckBox.CheckState = System.Windows.Forms.CheckState.Checked Me.UseTryParseCheckBox.Location = New System.Drawing.Point(109, 81) Me.UseTryParseCheckBox.Name = "UseTryParseCheckBox" Me.UseTryParseCheckBox.Size = New System.Drawing.Size(110, 20) Me.UseTryParseCheckBox.TabIndex = 22 Me.UseTryParseCheckBox.Text = "Use Try Parse" ' 'UseCharArrayCheckBox ' Me.UseCharArrayCheckBox.AutoSize = True Me.UseCharArrayCheckBox.Checked = True Me.UseCharArrayCheckBox.CheckState = System.Windows.Forms.CheckState.Checked Me.UseCharArrayCheckBox.Location = New System.Drawing.Point(225, 80) Me.UseCharArrayCheckBox.Name = "UseCharArrayCheckBox" Me.UseCharArrayCheckBox.Size = New System.Drawing.Size(114, 20) Me.UseCharArrayCheckBox.TabIndex = 23 Me.UseCharArrayCheckBox.Text = "Use Char Array" ' 'UseRegexCheckBox ' Me.UseRegexCheckBox.AutoSize = True Me.UseRegexCheckBox.Checked = True Me.UseRegexCheckBox.CheckState = System.Windows.Forms.CheckState.Checked Me.UseRegexCheckBox.Location = New System.Drawing.Point(345, 80) Me.UseRegexCheckBox.Name = "UseRegexCheckBox" Me.UseRegexCheckBox.Size = New System.Drawing.Size(91, 20) Me.UseRegexCheckBox.TabIndex = 24 Me.UseRegexCheckBox.Text = "Use Regex" ' 'UseOptimizeCharArrayCheckBox ' Me.UseOptimizeCharArrayCheckBox.AccessibleRole = System.Windows.Forms.AccessibleRole.None Me.UseOptimizeCharArrayCheckBox.AutoSize = True Me.UseOptimizeCharArrayCheckBox.Location = New System.Drawing.Point(551, 81) Me.UseOptimizeCharArrayCheckBox.Name = "UseOptimizeCharArrayCheckBox" Me.UseOptimizeCharArrayCheckBox.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.UseOptimizeCharArrayCheckBox.Size = New System.Drawing.Size(141, 20) Me.UseOptimizeCharArrayCheckBox.TabIndex = 26 Me.UseOptimizeCharArrayCheckBox.Text = "Optimize Char Array" ' 'MainForm ' Me.AcceptButton = Me.RunButton Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.CloseButton Me.ClientSize = New System.Drawing.Size(708, 476) Me.Controls.Add(Me.UseOptimizeCharArrayCheckBox) Me.Controls.Add(Me.UseRegexCheckBox) Me.Controls.Add(Me.UseCharArrayCheckBox) Me.Controls.Add(Me.UseTryParseCheckBox) Me.Controls.Add(Me.UseTryCheckBox) Me.Controls.Add(Me.FloatRegexTextBox) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.IntegerRegexTextBox) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.StringCountNumericUpDown) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.WebBrowser1) Me.Controls.Add(Me.SuccessRateNumericUpDown) Me.Controls.Add(Me.RunButton) Me.Controls.Add(Me.CloseButton) Me.Margin = New System.Windows.Forms.Padding(4) Me.Name = "MainForm" Me.Text = "TryParse Benchmark" CType(Me.SuccessRateNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.StringCountNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents CloseButton As System.Windows.Forms.Button Friend WithEvents RunButton As System.Windows.Forms.Button Friend WithEvents SuccessRateNumericUpDown As System.Windows.Forms.NumericUpDown Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents StringCountNumericUpDown As System.Windows.Forms.NumericUpDown Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents IntegerRegexTextBox As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents FloatRegexTextBox As System.Windows.Forms.TextBox Friend WithEvents UseTryCheckBox As System.Windows.Forms.CheckBox Friend WithEvents UseTryParseCheckBox As System.Windows.Forms.CheckBox Friend WithEvents UseCharArrayCheckBox As System.Windows.Forms.CheckBox Friend WithEvents UseRegexCheckBox As System.Windows.Forms.CheckBox Friend WithEvents UseOptimizeCharArrayCheckBox As System.Windows.Forms.CheckBox End Class