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 --- .../External/Textpad/App_TextPad.vb | 34 ++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb (limited to 'ShiftOS-TheRevival/TerminalApplications/External/Textpad/App_TextPad.vb') 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