diff options
| author | EverythingWindows <[email protected]> | 2022-11-07 19:22:19 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-07 19:22:19 +0700 |
| commit | 0a2b03e31283da77d6feaa2fd9d65349a9e82602 (patch) | |
| tree | 7c41ad58c6c5ee967dec4ac988e85d23b3259455 /ShiftOS-TheRevival/MainForms/TerminalApps.vb | |
| parent | 8e9314fd63a107720e0473412b6328d4675fb025 (diff) | |
| download | shiftos-therevival-old-0a2b03e31283da77d6feaa2fd9d65349a9e82602.tar.gz shiftos-therevival-old-0a2b03e31283da77d6feaa2fd9d65349a9e82602.tar.bz2 shiftos-therevival-old-0a2b03e31283da77d6feaa2fd9d65349a9e82602.zip | |
Refined ShiftOS Menu to be more finished and added del command
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/TerminalApps.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalApps.vb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ShiftOS-TheRevival/MainForms/TerminalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalApps.vb index 158fb8f..f137fc1 100644 --- a/ShiftOS-TheRevival/MainForms/TerminalApps.vb +++ b/ShiftOS-TheRevival/MainForms/TerminalApps.vb @@ -267,19 +267,19 @@ Module TerminalApps Select Case Terminal.TextBox1.TextLength Case 1 To 9 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 6) + Dim GotCP As Integer = GetCP.Next(1, 3) ChangeCP(True, GotCP) Case 10 To 99 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 51) + Dim GotCP As Integer = GetCP.Next(4, 26) ChangeCP(True, GotCP) Case 100 To 999 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 501) + Dim GotCP As Integer = GetCP.Next(27, 251) ChangeCP(True, GotCP) Case 1000 To 9999 Dim GetCP As New Random - Dim GotCP As Integer = GetCP.Next(1, 5001) + Dim GotCP As Integer = GetCP.Next(252, 2501) ChangeCP(True, GotCP) End Select End Sub |