Strings in Visual Basic

Start a new project named Cryptogram. Build the form as shown below:

  1. Add a labellabel with the words "Enter a saying, then press the button to make a cryptogram"
  2. Add a text box textboxnamed TxtWords.
  3. Set multiline to true for the text box.
  4. Copy TxtWords and paste. Rename as TxtCryptogram.
  5. Add a button button. Name it BtnGo and make the text &Go


Write the code as shown below:

Public Class Form1

    Private Sub BtnGo_Click(sender As Object, e As EventArgs) Handles BtnGo.Click
        Dim Alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim Code As String = Scramble(Alphabet)
        Me.Text = Code
        Dim S As String = Me.TxtWords.Text
        S = S.ToUpper
        Dim S2 As String = ""
        Dim I, Pos As Integer
        For I = 0 To S.Length - 1
            Dim Ch As Char = S.Substring(I, 1) 'get 1 character from S
            Pos = Alphabet.IndexOf(Ch)
            If Pos >= 0 Then
                S2 += Code.Substring(I, 1) 'get the corresponding character from code
                S2 += Ch 'if not a letter, do not encode it
            End If
        Me.TxtCryptogram.Text = S2
    End Sub
    Private Function Scramble(ByVal S As String) As String
        Dim Ch As Char()
        Ch = S.ToCharArray()
        Dim I As Integer
        For I = 0 To Ch.Length - 1
            Dim R As Integer = Int(Rnd() * Ch.Length)
            Dim Temp As Char = Ch(I)
            Ch(I) = Ch(R)
            Ch(R) = Temp
        Dim S2 As String = ""
        For I = 0 To Ch.Length - 1
            S2 += Ch(I)
        Return S2
    End Function 'Scramble

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize() 'This make sure it is different each time you run it
    End Sub
End Class
Experiment! You can make lots of games like hangman, fortune, etc. that use strings.

NEXT: Files in Visual Basic