TUGAS 3 PEMROGRAMAN VISUAL VB 2010

Artikel terkait : TUGAS 3 PEMROGRAMAN VISUAL VB 2010

MEMODIFIKASI PROGRAM PENJUALAN MENGGUNAKAN PERULANGAN

DAN

MEMBUAT GAME PUZZLE SEDERHANA MENGGUNAKAN Visual Basic 2010

Pada posting ini saya mempostingkan tentang modifikasi program penjualan sebelumnya yang saya buat menggunakan vb 2010 pada postingan sebelumnya tentang analisa program penjualan. dan juga posting membuat game puzzle sederhana menggunakan vb 2010 juga . post ini juga merupakan salah satu tugas mata kuliah saya "pemrograman visual" di kampus saya :D .

pertama saya akan menjelaskan tentang modifikasi program penjualan dengan cara kerja program seperti ini yang ada di bawah ini :

PROGRAM PENJUALAN MODIFIKASI

1. Saat form dijalankan : semua isian tidak aktif, tombol isi data dan tutup aktif, tombol clear tidak aktif

2. Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli, tombol clear, aktif, tombol isi data tidak aktif

3. Saat ditekan combol clear maka akan sama dengan saat form dijalankan pertama kali.

Tampilan awal pada saat program baru pertama kali dijalankan.

program pada saat di tekan tombol "isi data"

Printscreen code program penjualan modifikasi menggunakan perulangan.

Dan berikut Sources List Code Program Penjualan modifikasi :

Public Class Form1 Private Sub txtkodebrang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkodebrang.SelectedIndexChanged Dim kdbarang, nmbarang As String Dim harga As Single kdbarang = txtkodebrang.Text If kdbarang = "SPT" Then nmbarang = "SEPATU" harga = 200000 ElseIf kdbarang = "SND" Then nmbarang = "SANDAL" harga = 100000 ElseIf kdbarang = "TST" Then nmbarang = "T-SHIRT" harga = 150000 ElseIf kdbarang = "TOP" Then nmbarang = "TOPI" harga = 50000 ElseIf kdbarang = "TAS" Then nmbarang = "TAS" harga = 170000 Else nmbarang = "kosong" harga = 0 End If txtnamabrang.Text = nmbarang txthargabarang.Text = harga End Sub Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged txttotalharga.Text = Val(txthargabarang.Text) * Val(txtjmlbarang.Text) txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text) End Sub Private Sub tunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunai.CheckedChanged txtdiskon.Text = Val(txttotalharga.Text) * 10 / 100 txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text) End Sub Private Sub kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kredit.CheckedChanged txtdiskon.Text = 0 txttotalbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text) End Sub Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click Me.Close() End Sub Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click txtdiskon.Clear() txthargabarang.Clear() txtjmlbarang.Clear() txtnamabrang.Clear() txttotalbayar.Clear() txttotalharga.Clear() Dim control As Windows.Forms.Control For Each control In Me.Controls control.Enabled = False btisidata.Enabled = True bttutup.Enabled = True Next End Sub 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 bttutup.Enabled = True Next 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

PROGRAM GAME PUZZLE

dan posting ini berisi tentang program puzzle menggunakan perulangan pada visual basic 2010 dengan cara kerja program sebagai berikut :

1.Saat form dijalankan posisi angka acak

2.Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8

3.Saat angka sudah tersusun tampilkan pesan selamat anda berhasil.

berikut printscreen Design Game Puzzle

Sources List Code Program puzzle :

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

SEMOGA BERMANFAAT

PELUANG BISNIS