Langsung ke konten utama

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 :)

Komentar

Posting Komentar

Postingan populer dari blog ini

Latihan menggunakan If-then-Else dan Nested-If

Latihan 1 menggunakan (IF – THEN –ELSE) Berikut Source Codenya : Public Class latihan1    'nadiahtami 2017230007     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim keterangan As String         If TextBox1.Text >= 80 Then             keterangan = "Selamat Anda Lulus"         Else             keterangan = "Mohon Maaf Anda Belum Lulus"         End If         TextBox2.Text = keterangan     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 Ingin Keluar??", vbYesNo, "Konfirmasi")         If pesan = vbYes Then  ...
Posting Komentar
Baca selengkapnya

Materi Percabangan Struktur IIF dan Struktur Select-Case

Percabangan (IIF)          Bentuk penulisan dari struktur If–Then–Else adalah tegak atau vertikal. Bentuk semacam ini tentu banyak memakan baris atau terulang panjang, apalagi jika bentuknya Nested If.        Untuk mengatasi kekurangan tersebut, dapat menggunakan struktur IIF yaitu struktur If–Then-else yang bentuknya datar atau horisontal. Bentuk penulisan IIF butuh variabel untuk menampung jawabannya. Dari segi kecepatan struktur IIF lebih cepat prosesnya dibandingkan dengan struktur If – Then – Else. Aturan Penulisannya adalah : 1. Expresi (kondisi)    Nilai = IIF (Ekspresi1, Nilai benar, Nilai Salah) 2. Lebih dari satu kondisi    Nilai = IIF (Ekspresi1, Nilai benar, IIF(Ekspresi1,Nilai benar, Nilai salah)) dan seterusnya... Keterangan : *kondisi: Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang...
Posting Komentar
Baca selengkapnya

Contoh Latihan dan Kasus Menggunakan Array Satu Dimensi pada VB.NET

Latihan 1 menggunakan Satu Dimensi Berikut Source Codenya : Public Class latihan1     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim makanan(3) As String         makanan(0) = "Nasi Goreng"         makanan(1) = "Ayam Goreng"         makanan(2) = "Nasi Rames"         makanan(3) = "Gado-Gado"         For Each element As String In makanan             ComboBox1.Items.Add(element)         Next         ComboBox1.Text = "Menu Makanan"     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Dim pesan As String        ...
Posting Komentar
Baca selengkapnya