Tugas Pemrograman Visual Latihan 3

1. Memodifikasi Program If dan Case

    Inilah hasil modifikasi pada program If dan Case.
    Hasil modifikasi ini telah mengacu pada soal-soal yang sudah di berikan, diantara lain :
  
       a. Saat form dijalankan            : semua isian tidak aktiv, tombol isi data dan tombol tutup - aktiv.
                                                        tombol clear - tidak aktiv.
  
       b. Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli, tombol clear - actif.
                                                        tombol isi data - tidak aktiv.

       c. saat ditekan tombol clear sama dengan saat form dijalankan.

    Inilah gambar program saat pertama dijalankan :

       


    Lalu ini gambar program saat tombol Isi Data sudah ditekan :

      

    Dan ini adalah listing programnya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbKode.Items.Add("SPT")
        cmbKode.Items.Add("SND")
        cmbKode.Items.Add("TST")
        cmbKode.Items.Add("TOP")
        cmbKode.Items.Add("TAS")
    End Sub

    Private Sub cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged
        Dim kdBarang, namaBarang As String
        Dim harga As Single
        kdBarang = cmbKode.Text

        Select Case kdBarang
            Case "SPT"
                namaBarang = "Sepatu"
                harga = 200000
            Case "SND"
                namaBarang = "Sandal"
                harga = 100000
            Case "TST"
                namaBarang = "T-Sirt"
                harga = 1500000
            Case "TOP"
                namaBarang = "Topi"
                harga = 500000
            Case "TAS"
                namaBarang = "Tas"
                harga = 700000
            Case Else
                namaBarang = "-"
                harga = 0
        End Select

        txtNama.Text = namaBarang
        txtHarga.Text = harga
        txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)
        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
        If radioTunai.Checked = True Then
            txtDiskon.Text = Val(txtTotal.Text) * 10 / 100
            txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
        ElseIf radioKredit.Checked = True Then
            txtDiskon.Text = 0
            txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
        End If
    End Sub

    Private Sub txtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtJumlah.TextChanged
        txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)
        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
    End Sub

    Private Sub radioTunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioTunai.CheckedChanged
        txtDiskon.Text = Val(txtTotal.Text) * 10 / 100
        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
    End Sub

    Private Sub radioKredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioKredit.CheckedChanged
        txtDiskon.Text = 0
        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
    End Sub


    Private Sub btIsiData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btIsiData.Click

        cmbKode.Enabled = True
        txtJumlah.Enabled = True
        radioKredit.Enabled = True
        radioTunai.Enabled = True
        btClear.Enabled = True
    End Sub

    Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click
        txtDiskon.Clear()
        txtHarga.Clear()
        txtJumlah.Clear()
        txtTotal.Clear()
        txtNama.Clear()
        cmbKode.Text = ""
        Me.radioTunai.Checked = False
        Me.radioKredit.Checked = False
        cmbKode.Enabled = False
        radioKredit.Enabled = False
        radioTunai.Enabled = False
        txtJumlah.Enabled = False
        btClear.Enabled = False

    End Sub

    Private Sub btTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTutup.Click
        Me.Close()
    End Sub
End Class

2. Puzzle

    Berikut ini adalah program puzzle sederhana.
  
    Ini adalah gambar saat program puzzle baru dijalankan :

       
  
    Ini gambar program puzzle setelah berhasil disusun :

      

    dan ini listing programnya :

Public Class Form1
    Dim pindah As String

    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        pindah = bt1.Text
        If bt2.Text = "" Then
            bt1.Text = ""
            bt2.Text = pindah
        ElseIf bt4.Text = "" Then
            bt1.Text = ""
            bt4.Text = pindah
        ElseIf bt5.Text = "" Then
            bt1.Text = ""
            bt5.Text = pindah
        End If
    End Sub

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
        pindah = bt2.Text
        If bt1.Text = "" Then
            bt2.Text = ""
            bt1.Text = pindah
        ElseIf bt3.Text = "" Then
            bt2.Text = ""
            bt3.Text = pindah
        End If
    End Sub

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click
        pindah = bt3.Text
        If bt2.Text = "" Then
            bt3.Text = ""
            bt2.Text = pindah
        ElseIf bt5.Text = "" Then
            bt3.Text = ""
            bt5.Text = pindah
        ElseIf bt6.Text = "" Then
            bt3.Text = ""
            bt6.Text = pindah
        End If

    End Sub

    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
        pindah = bt4.Text
        If bt9.Text = "" Then
            bt4.Text = ""
            bt9.Text = pindah
        ElseIf bt1.Text = "" Then
            bt4.Text = ""
            bt1.Text = pindah
        End If
    End Sub

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click
        pindah = bt5.Text
        If bt1.Text = "" Then
            bt5.Text = ""
            bt1.Text = pindah
        ElseIf bt3.Text = "" Then
            bt5.Text = ""
            bt3.Text = pindah
        ElseIf bt8.Text = "" Then
            bt5.Text = ""
            bt8.Text = pindah
        ElseIf bt9.Text = "" Then
            bt5.Text = ""
            bt9.Text = pindah
        End If
    End Sub

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click
        pindah = bt7.Text
        If bt9.Text = "" Then
            bt7.Text = ""
            bt9.Text = pindah
        ElseIf bt8.Text = "" Then
            bt7.Text = ""
            bt8.Text = pindah
        End If
    End Sub

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click
        pindah = bt8.Text
        If bt5.Text = "" Then
            bt8.Text = ""
            bt5.Text = pindah
        ElseIf bt6.Text = "" Then
            bt8.Text = ""
            bt6.Text = pindah
        ElseIf bt7.Text = "" Then
            bt8.Text = ""
            bt7.Text = pindah
        End If

    End Sub

    Private Sub bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt9.Click
        pindah = bt9.Text
        If bt4.Text = "" Then
            bt9.Text = ""
            bt4.Text = pindah
        ElseIf bt5.Text = "" Then
            bt9.Text = ""
            bt5.Text = pindah
        ElseIf bt7.Text = "" Then
            bt9.Text = ""
            bt7.Text = pindah
        End If
    End Sub

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click
        pindah = bt6.Text
        If bt3.Text = "" Then
            bt6.Text = ""
            bt3.Text = pindah
        ElseIf bt8.Text = "" Then
            bt6.Text = ""
            bt8.Text = pindah
        End If
        If bt4.Text = "1" And bt1.Text = "2" And
            bt2.Text = "3" And
            bt9.Text = "4" And
            bt5.Text = "5" And
            bt3.Text = "6" And
            bt7.Text = "7" And
            bt8.Text = "8" Then
            MsgBox("Selamat Anda Berhasil !")


        End If


    End Sub
End Class


Demikianlah hasil dari Tugas Pemrograman Visual Latihan 3.
Saya mohon maaf jika ada salah penulisan kata atau ada kata-kata yang kurang berkenan.
Atas perhatiannya Saya ucapkan terimakasih.

Tugas Pemrograman Visual Praktikum ke-2

Berikut ini adalah jawaban saya mengenai tugas pada praktikum ke-2 mata kuliah Visual Basic.

Latihan 1
a. Yang menyebabkan error pada btalamat1_click baris program alamat = "kuningan" adalah :
    variabel alamat = "kuningan" belum di-deklarasikan pada method di dalam class tersebut, seharusnya
    diatas baris program alamat = "kuningan" ditambahi perintah Dim alamat As String.

b. Saat tombol nama1 dan nama2 ditekan, nama pada textbox nama berbeda sedangkan saat tombol
    alamat1dan alamat2 ditekan alamat yang ditampilkan pada textbox alamat sama, hal ini dikarenakan
    tombol nama1 sudah memesan variabel string yang sudah dinyatakan sebagai "Nandang". Pada
    tombol nama2 pemesanan variable belum dinyatakan, oleh karena itu program akan mengambil
    pernyataan yang sudah dideklarasikan pada modul1 yang bersifat public.

c. Saat tombol tambah umur 1 ditekan hasilnya pada textbox umur selalu keluar angka 1 sedangkan pada
    tombol tambah umur 2 jika ditekan hasilnya pada textbox umur maka umur akan bertambah 1 dari umur
    sebelumya, hal ini dikarenakan perintah pada tombol tambah umur 1 menggunakan variabel Dim yang
    akan selalu berubah nilainya jika dijalankan. Sedangkan pada tombol tambah umur 2 menggunakan
    variable yang tipenya statik dan nilainya tidak akan berubah, sehingga jika dijalankan akan menambah
    nilainya (pada program ini +1), dan akan terus bertambah (+1) jika program ini terus menerus dijalankan.

d. Analisa saya pada form2 adalah :
    Pada form2 sudah ada perintah Option Explicit Off, yang artinya form dua mengambil data-data dari
    deklarasi publik yang pada kasus ini data tersebut ada pada module1.

Latihan 2

Analisa dan perbaikan yang saya lakukan pada Latihan 2 - If dan Case adalah sebagai berikut :

Kekurangan-kekurangan pada Latihan 2

   1. pada kdbarang terdapat kode "TAS" namun tidak ada pendefinisian harga, maka jika program
       dijalankan akan terjadi seperti ini :

   2. Pada textbox di form tersebut datanya bisa diubah-ubah oleh user. Walaupun tidak begitu berarti,
       namun hal ini bisa cukup mengganggu user ketika user salah meng-klik pada textbox txtNama atau
       yang lainnya dan terhapus.

Perbaikaan pada Latihan 2

   1. Pada cmbKode, kode "TAS" ditambahi perintah sebagai berikut :
       Case "TAS"
                namabarang = "Tas"
                harga = 1000000
       maka hasilnya akan seperti gambar berikut :

 

   2. Pada textbox properties kolom behavior, ubah Enabled menjadi False.

       dan hasilnya akan seperti gambar berikut :

Demikianlah analisa saya mengenai Tugas Visual Basic Praktikum ke-2.
Apabila ada salah penulisan kata atau ada kata yang kurang berkenan di hati, Saya mohon maaf.
Atas perhatiannya saya ucapkan Terimakasih.

Program Persewaan DVD Sederhana

Beikut ini adalah program Persewaan DVD Sederhana.

Ini adalah tampilan dari program persewaan DVD sederhana.

Cara kerja dari program ini sangat sederhana, cukup inputkan Nama, Alamat, Judul film yang-

Dipinjam dan yang lainnya pada kolom yang sudah disediakan.

Setelah semua kolom terisi, klik “Tampilkan” untuk menjumlah dan menampilkan data-

Juga total biaya yang harus dibayarkan.

Sedangkan tombol “Bersihkan” berfungsi untuk mengosongkan atau mengulangi inputan-

Pada kolom yang sudah terisi.

Lalu tombol “Keluar” yang fungsinya tentu saja untuk keluar dari program ini.

Setelah tombol “Keluar” di klik, maka akan muncul pilihan “Yes/No”.

Klik “Yes” untuk keluar dari program ini dan “No” untuk kembali ke program.

Inilah coding yang saya gunakan untuk menjalankan program ini.

Demikian sedikit penjelasan tentang program Persewaan DVD Sederhana yang telah saya-

Buat.

Saya mohon maaf jika ada kesalahan dalam penulisan kata atau kata-kata yang kurang berkenan-

Pada blog ini. Saya ucapkan terimakasih atas perhatian yang telah anda berikan.