Visual Lanjutan TEORI Latihan 2 (STRUCTURE)

Structure

Pada lembar kali ini kita menggunakan 3 button. button perama proses adalah untuk menginput data dan button ke 2 hapus adalah untuk menghapus data dan butto ketiga keluar adalah untuk keluar dari aplikasi. Tapi pada button ke 3 kita memiliki massage box untuk meyakinkan apakah ingin keluar atau tidak. berikut adalah contoh aplikasi dan code nya.

Public Class Form1
    'RAFIF KARUNIA RAHMAN
    '2017230174
    Public Structure mobil
        Dim warna As String
        Dim jumlah_pintu As Byte
        Dim merk As String
        Dim besar_silinder As String
    End Structure

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim data As mobil
        data.warna = "Merah"
        data.merk = "Toyota Avanza"
        data.jumlah_pintu = 4
        data.besar_silinder = 2.2
        TextBox1.Text = data.merk
        TextBox2.Text = data.warna
        TextBox3.Text = data.jumlah_pintu
        TextBox4.Text = data.besar_silinder

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    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