MEMANGGIL & MEMBERSIHKAN METHOD Rangkuman “Part 2”

Method memanggil dan Method membersihkan

Penjelasan isi program :

e.keychar = chr (13) =====> angka 13 merupakan kode ascii untuk enter

|___>terdapat pada tulisan Sub Text7_keypress

jadi, itu adalah sebuah ketentuan

TextBox3.Focus()====> maksudnya adalah ketika semua kata telah masuk di ListBox,maka kursor akan berfokus/berada di TextBox3

Call perintah()====> untuk memanggil  sub perintah

Pertama kita buat disainnya :

Berikutnya kita isi printahnya:

Public Class lat1

    Dim jurusan As String

    Dim kelas, jenjang As String, waktu As Integer

    Dim d As Integer = 5

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

        Call perintah()

    End Sub

    Sub perintah()

        Dim lo As String

        If TextBox1.Text = "TI" Then

            lo = "60"

            TextBox2.Text = "Teknik Informatika"

        Else

            If TextBox1.Text = "SI" Then

                TextBox2.Text = "Sistem Informasi"

            End If

        End If

    End Sub

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

        Call perintah()

    End Sub

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

        pros3()

    End Sub

    Sub pros3()

        ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text)

    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox4.Focus()

        End If

    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox5.Focus()

        End If

    End Sub

    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox6.Focus()

        End If

    End Sub

    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox7.Focus()

        End If

    End Sub

    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

        If e.KeyChar = Chr(13) Then

            Call pros3()

            Call bersihpros3()

            TextBox3.Focus()

        End If

    End Sub

    Sub bersihpros3()

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class

Sekian dan untuk latihan berikutnya,“Selanjutnya ke-part3”