Pertemuan 4

Form ini menampilkan kode ASC atau American Standard Character.

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox2.Text = Asc(TextBox1.Text)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form3.Show()

    End Sub

End Class

Untuk form ini menampilkan cara untuk memperbesar,memperkecil,mengambil huruf.

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim X As String

        X = InputBox("Masukkan Huruf Besar")

        TextBox1.Text = X

        TextBox2.Text = LCase(X)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim y As String

        y = InputBox("Masukkan Huruf Besar")

        TextBox1.Text = y

        TextBox2.Text = UCase(y)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim banyak As String

        banyak = InputBox("Masukkan Huruf")

        TextBox1.Text = banyak

        TextBox2.Text = Len(banyak)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim Kiri As String

        Dim banyak As Long

        Kiri = InputBox("Masukkan Kata")

        banyak = InputBox("Masukkan pengambilan banyaknya")

        TextBox1.Text = Kiri

        TextBox2.Text = Strings.Left(Kiri, banyak)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim tengah As String

        Dim b As Long

        tengah = InputBox("Masukkan Kata")

        b = InputBox("Masukkan pengambilan banyaknya")

        TextBox1.Text = tengah

        TextBox3.Text = Strings.Mid(tengah, b)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim kanan As String

        Dim c As String

        kanan = InputBox("Masukkan Kata")

        c = InputBox("Masukkan pengambilan banyaknya")

        TextBox1.Text = kanan

        TextBox4.Text = Strings.Right(kanan, c)

    End Sub

End Class