Latihan Pertama Menampilkan Hasil Inputan

Latihan Pertama Menampilkan Hasil Inputan

Coding nya :

Public Class PrLatihan3

    Private Sub btKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btKeluar.Click

        If MsgBox("Anda Yakin Ingin Keluar dari Aplikasi Ini", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub btBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBersih.Click

        txtNama.Clear()

        txtAlamat.ResetText()

        txtUmur.Text = ""

        txtNama.Focus()

    End Sub

    Private Sub btTampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTampilkan.Click

        MsgBox("Nama Anda Adalah :" & txtNama.Text & vbNewLine & _

               "Alamat Anda Adalah :" & txtAlamat.Text & vbNewLine & _

               "Sekarang Umur Anda Adalah :" & txtUmur.Text & vbNewLine)

    End Sub

End Class