Visual Lanjutan TEORI Latihan 5(Operator Logika)

Operator Logika

Public Class Form1
    'RAFIF KARUNIA RAHMAN
    '2017230174
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim depan, belakang As String
        depan = TextBox1.Text
        belakang = TextBox2.Text
        If (TextBox1.Text = "" And TextBox2.Text = "") Then
            MessageBox.Show("Anda Belum Memasukan Nama Depan Dan Belakang.")
        ElseIf (TextBox1.Text = "" Or TextBox2.Text = "") Then
            MessageBox.Show("Anda Belum Memasukan Nama Depan Atau Belakang.")
        Else
            MessageBox.Show("Nama Lengkap Anda Adalah : " + depan + belakang)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        If (e.KeyChar Like "[A-Z,a-z]" _
            OrElse KeyAscii = Keys.Back _
            OrElse KeyAscii = Keys.Space _
            OrElse KeyAscii = Keys.Return _
            OrElse KeyAscii = Keys.Delete) Then
            KeyAscii = 0
        End If
        e.Handled = CBool(KeyAscii)
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        If (e.KeyChar Like "[A-z,a-z]" _
            OrElse KeyAscii = Keys.Back _
            OrElse KeyAscii = Keys.Space _
            OrElse KeyAscii = Keys.Return _
            OrElse KeyAscii = Keys.Delete) Then
            KeyAscii = 0
        End If
        e.Handled = CBool(KeyAscii)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class