Visual Lanjutan Praktek Kasus 1(Tipe Data & Variabel)

Tipe Data & Variabel

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 nomor As String
        nomor = TextBox1.Text
        TextBox4.Text = nomor

        Dim nama As String
        nama = TextBox2.Text
        TextBox5.Text = nama

        Dim jabatan As String
        jabatan = ComboBox1.Text
        TextBox6.Text = jabatan

        Dim alamat As String
        alamat = TextBox3.Text
        TextBox7.Text = alamat

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Me.ComboBox1.SelectedItem = Nothing
        Me.TextBox4.Clear()
        Me.TextBox5.Clear()
        Me.TextBox6.Clear()
        Me.TextBox7.Clear()

    End Sub

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

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

    End Sub
End Class