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.
Tidak ada komentar:
Posting Komentar