From be79ac82e2a542d21f15222119be99051f32dfa8 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 17 Nov 2022 11:22:51 +0700 Subject: More structured in functions --- .../TerminalApplications/External/App_TextPad.vb | 34 ---------------------- .../External/Textpad/App_TextPad.vb | 34 ++++++++++++++++++++++ 2 files changed, 34 insertions(+), 34 deletions(-) delete mode 100644 ShiftOS-TheRevival/TerminalApplications/External/App_TextPad.vb create mode 100644 ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb (limited to 'ShiftOS-TheRevival/TerminalApplications') diff --git a/ShiftOS-TheRevival/TerminalApplications/External/App_TextPad.vb b/ShiftOS-TheRevival/TerminalApplications/External/App_TextPad.vb deleted file mode 100644 index 80e9599..0000000 --- a/ShiftOS-TheRevival/TerminalApplications/External/App_TextPad.vb +++ /dev/null @@ -1,34 +0,0 @@ -Imports System.IO - -Module App_TextPad - Public Sub TextPad_CheckExist(TxtFileName As String) - If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then - Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName) - End If - End Sub - - Public Sub TextPad_GenerateCP_SavedFile() - Select Case Console.TextBox1.TextLength - Case 1 To 9 - Dim GetCP As New Random - 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(4, 26) - ChangeCP(True, GotCP) - Case 100 To 999 - Dim GetCP As New Random - 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(252, 2501) - ChangeCP(True, GotCP) - End Select - End Sub - - Public Sub TextPad_WarnFile() - NewLine("Type any filename after 'textpad'!, ex: textpad text.txt") - End Sub -End Module diff --git a/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb b/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb new file mode 100644 index 0000000..80e9599 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb @@ -0,0 +1,34 @@ +Imports System.IO + +Module App_TextPad + Public Sub TextPad_CheckExist(TxtFileName As String) + If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then + Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName) + End If + End Sub + + Public Sub TextPad_GenerateCP_SavedFile() + Select Case Console.TextBox1.TextLength + Case 1 To 9 + Dim GetCP As New Random + 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(4, 26) + ChangeCP(True, GotCP) + Case 100 To 999 + Dim GetCP As New Random + 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(252, 2501) + ChangeCP(True, GotCP) + End Select + End Sub + + Public Sub TextPad_WarnFile() + NewLine("Type any filename after 'textpad'!, ex: textpad text.txt") + End Sub +End Module -- cgit v1.2.3