@@ -52,7 +52,6 @@ Public Class FormEmulator
5252 Me .BackColor = Color.Black
5353
5454 'RunChecks()
55- SetupCPUClockLabels()
5655
5756 ' New settings that are recommend to be turned on
5857 INT13EmulationToolStripMenuItem.Checked = True
@@ -682,8 +681,7 @@ Public Class FormEmulator
682681
683682 Private Sub SetSimulationMultiplierFromMenu(sender As Object , e As EventArgs) Handles ToolStripMenuItemSpeed25.Click, ToolStripMenuItemSpeed50.Click,
684683 ToolStripMenuItemSpeed100.Click, ToolStripMenuItemSpeed150.Click,
685- ToolStripMenuItemSpeed200.Click, ToolStripMenuItemSpeed500.Click,
686- ToolStripMenuItemSpeed1000.Click
684+ ToolStripMenuItemSpeed200.Click
687685 Dim speedText As String = CType (sender, ToolStripMenuItem).Text
688686 Dim speedPercentage As Integer = Integer .Parse(speedText.Replace( "%" , "" ))
689687
@@ -705,18 +703,9 @@ Public Class FormEmulator
705703 MHz1908ToolStripMenuItem.Click, MHz3816ToolStripMenuItem.Click,
706704 MHz4770ToolStripMenuItem4.Click
707705
708- Dim speedValue As Double = CType (sender, ToolStripMenuItem).Tag
709- SetCPUClockSpeed(speedValue)
710- End Sub
711-
712- Private Sub SetupCPUClockLabels()
713- Dim mult() As Integer = { 1 , 2 , 4 , 8 , 10 }
714- For i As Integer = 0 To 4
715- With CPUClockToolStripMenuItem.DropDownItems(i)
716- .Text = $"{mult(i) * X8086.BASECLOCK / X8086.MHz:N2} MHz"
717- .Tag = mult(i) * X8086.BASECLOCK
718- End With
719- Next
706+ Dim speedText As String = CType (sender, ToolStripMenuItem).Text
707+ Dim speedValue As Double = Double .Parse(speedText.Replace( " MHz" , "" ))
708+ SetCPUClockSpeed(speedValue * X8086.MHz)
720709 End Sub
721710
722711 Private Sub ExitToolStripMenuItem_Click(sender As Object , e As EventArgs) Handles ExitToolStripMenuItem.Click
@@ -813,7 +802,7 @@ Public Class FormEmulator
813802 If mi.Text.StartsWith( "Custom" ) Then
814803
815804 Else
816- mi.Checked = (ddi.Tag = value )
805+ mi.Checked = (ddi.Text = clockSpeedText )
817806 End If
818807 End If
819808 Next
0 commit comments