tugas VB yg ke3

tugas menyerangku kembali...pusing banget bikinnya...
nih ada tampilan dan codingnya silahkan di liat


1. Memodifikasi aplikasi penjualan barang
    
 Tampilan pertama saat di run

  



saat di run yg aktif cuma tombol tutup dan isi data












Tampilan saat ditekan tombol isi data

saat di tekan tombol isi data..tombol isi data mati yg lain aktif















Tampilan saat ditekan combol clear

saat menekan tombol clear kembali seperti saat pertama di run










codingnya

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim control As Windows.Forms.Control For Each control In Me.Controls control.Enabled = False Btisidata.Enabled = True btntutup.Enabled = True Next Cmbkode.Items.Add("SPT") cmbkode.items.Add("SND") cmbkode.items.Add("TST") cmbkode.items.Add("TOP") Cmbkode.Items.Add("TAS") End Sub Private Sub Cbxkb_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 = 20000 Case "SND" namabarang = "SANDAL" harga = 10000 Case "TST" namabarang = "T-SHIRT" harga = 15000 Case "TOP" namabarang = "TOPI" harga = 50000 Case Else namabarang = "-" harga = 0 End Select txtnama.Text = namabarang txtharga.Text = harga 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 Btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnclear.Click Dim control As Windows.Forms.Control For Each control In Me.Controls control.Enabled = False Btisidata.Enabled = True btntutup.Enabled = True Next txtbayar.Clear() txtdiskon.Clear() txtharga.Clear() txtjumlah.Clear() txtnama.Clear() txttotal.Clear() Me.Radiotunai.Checked = False Me.Radiokredit.Checked = False Cmbkode.Text = "" End Sub Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click If MsgBox("mau keluar nih ?", vbYesNo + vbQuestion + vbDefaultButton3, "keluar aplikasi") = vbYes Then Me.Close() End Sub Private Sub Btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisidata.Click Dim control As Windows.Forms.Control For Each control In Me.Controls control.Enabled = True Btisidata.Enabled = False Next End Sub End Class

2. Game puzzle
sebelum di run angka masih urut

Tampilan sebelum di run

Tampilan setelah di run

Sedang dimainkan

setelah di run angka acak
















saat dimainkan jika kita menekan angka..angka tersebut akan pindah

Setelah selesai dan menang                                      

jika sudah tersusun akan ada kotak dialog










codingnya

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim control As Windows.Forms.Control For Each control In Me.Controls If control.GetType.Name = "Button" Then Dim rndnumber As Random Dim number As Integer rndnumber = New Random number = rndnumber.Next(1, 9) control.Text = number If Button2.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button2.Text = number Loop Until Button2.Text <> Button1.Text End If If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button3.Text = number Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text End If If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button4.Text = number Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text End If If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button4.Text = number Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text End If If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button5.Text = number Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text End If If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button6.Text = number Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text End If If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button7.Text = number Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text End If If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then Do number = rndnumber.Next(1, 9) Button8.Text = number Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text End If End If Button9.Text = "" Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button2.Text = "" Then Button2.Text = Button1.Text Button1.Text = "" ElseIf Button4.Text = "" Then Button4.Text = Button1.Text Button1.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then MsgBox("Selamat Anda Menang") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Button1.Text = "" Then Button1.Text = Button2.Text Button2.Text = "" ElseIf Button3.Text = "" Then Button3.Text = Button2.Text Button2.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button2.Text Button2.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Button2.Text = "" Then Button2.Text = Button3.Text Button3.Text = "" ElseIf Button6.Text = "" Then Button6.Text = Button3.Text Button3.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Button1.Text = "" Then Button1.Text = Button4.Text Button4.Text = "" ElseIf Button7.Text = "" Then Button7.Text = Button4.Text Button4.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button4.Text Button4.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Button2.Text = "" Then Button2.Text = Button5.Text Button5.Text = "" ElseIf Button4.Text = "" Then Button4.Text = Button5.Text Button5.Text = "" ElseIf Button6.Text = "" Then Button6.Text = Button5.Text Button5.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button5.Text Button5.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If Button9.Text = "" Then Button9.Text = Button6.Text Button6.Text = "" ElseIf Button3.Text = "" Then Button3.Text = Button6.Text Button6.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button6.Text Button6.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If Button4.Text = "" Then Button4.Text = Button7.Text Button7.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button7.Text Button7.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If Button7.Text = "" Then Button7.Text = Button8.Text Button8.Text = "" ElseIf Button9.Text = "" Then Button9.Text = Button8.Text Button8.Text = "" ElseIf Button5.Text = "" Then Button5.Text = Button8.Text Button8.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If Button6.Text = "" Then Button6.Text = Button9.Text Button9.Text = "" ElseIf Button8.Text = "" Then Button8.Text = Button9.Text Button9.Text = "" End If If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then msgBox("Selamat Anda Menang") End If End Sub End Class