From 0a2b03e31283da77d6feaa2fd9d65349a9e82602 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 7 Nov 2022 19:22:19 +0700 Subject: Refined ShiftOS Menu to be more finished and added del command --- ShiftOS-TheRevival/MainForms/TerminalApps.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/TerminalApps.vb') 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 -- cgit v1.2.3