Latihan menggunakan Tipe Data, Structure, dan Konversi Data

Latihan 1 Program Variabel

* Menampilkan nama anda pada textbox 

Berikut source code nya :

Public Class latihan1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nama As String
        nama = TextBox1.Text
        TextBox2.Text = "Nama Anda Adalah : " + nama 'nadiahtami 2017230007'
    End Sub
End Class

Latihan 2 Program Variabel

*Latihan menggunakan structure

Berikut Source Code nya:

Public Class latihan2

    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 = "Biru"

        data.merk = "Honda Jazz" 'nadiahtami 2017230007'

        data.jumlah_pintu = 4

        data.besar_silinder = 2.2

        TextBox1.Text = data.warna

        TextBox2.Text = data.merk

        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 Ingin Keluar ??", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            Close()

            End

        End If

    End Sub

End Class

Latihan 3 Program Variabel

*Latihan menggunakan Konversi Data

Berikut Source Code nya :

Public Class latihan3

    Public a As String

    Public b As Integer

    Public c As Integer

    Public hasil As Double

    'nadiahtami 2017230007'

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

        a = "100"

        b = 40

        c = Convert.ToInt32(a)

        hasil = b * c

        TextBox1.Text = a

        TextBox2.Text = hasil.ToString

    End Sub

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

        TextBox1.Text = ""

        TextBox2.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 Ingin Keluar ??", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            Close()

            End

        End If

    End Sub

End Class

Terimakasih Semoga Sukses Selalu :)