I am making a project that has to take words from a textbox, then user pushes one of the six button and translates into the listbox. I have 6 buttons ( Uppercase, Lowercase, Reversed, Pig Latin, Rot13, and Clear). I have made a class, and did the form correctly. I am needing help doing the loop. I don't understand this part. I am only in beginning Visual Basics. Here is my code so far. This is my Class (StringMaker)
Here is my buttons:
I would appreciate any help!
Code:
Public Class Stringmaker
Private strUppercase As String
Private strLowercase As String
Private strReversed As String
Private strPigLatin As String
Private strRot13 As String
Private dblperform As Double
Public Property perform() As Double
Get
Return dblperform
End Get
Set(ByVal value As Double)
dblperform = value
End Set
End Property
Public Property Uppercase() As String
Get
Return strUppercase
End Get
Set(ByVal value As String)
strUppercase = value
End Set
End Property
Public Property Lowercase() As String
Get
Return strLowercase
End Get
Set(ByVal value As String)
strLowercase = value
End Set
End Property
Public Property Reversed() As String
Get
Return strReversed
End Get
Set(ByVal value As String)
strReversed = value
End Set
End Property
Public Property PigLatin() As String
Get
Return strPigLatin
End Get
Set(ByVal value As String)
strPigLatin = value
End Set
End Property
Public Property Rot13() As String
Get
Return strRot13
End Get
Set(ByVal value As String)
strRot13 = value
End Set
End Property
End ClassCode:
Public Class Form1
Dim myString As Stringmaker
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Length Then
End If
myString.Uppercase = TextBox1.Text
ListBox1.Text = "Input String = [] " & myString.ToString
TextBox1.Text = Button1.Text.ToUpper
ListBox1.Text = "Uppercase = []" & myString.ToString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = Button2.Text
ListBox1.Text = "Lowercase = []" & myString.ToString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = Button3.Text
ListBox1.Text = "Reversed = []" & myString.ToString
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Button4.Text
ListBox1.Text = "Pig Latin = []" & myString.ToString
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = Button5.Text
ListBox1.Text = "Rot13 = []" & myString.ToString
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If TextBox1.Text = Button6.Text Then
TextBox1.Clear()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myString = New Stringmaker
ListBox1.Text = "Word is " & myString.ToString
End Sub
End Class