Halaman

Sabtu, 27 Oktober 2012


Tugas 3
Pemrograman visual
Soal 1
“memodifikasi program penjualan”
Sebelum kita memodifikasi program penjualan kita harus Membuat program penjualan terlebih dahulu  ,untuk membuat program penjualan gunakan langkah-langkah berikut:
1.      Buka Aplikasi Microsoft Visual Studio 2010

2.      Akan muncul menu utama pada visual basic 2010,kemudian pilih new project

3.      Kemudian design form dengan memasukan 8 label, 2 button, 6 textbox, 1 combobox, dan 2  radiobutton seperti gambar berikut:

4.      Kemudian ubah seperti gambar berikut:

5.      Setelah membuat design program penjualan,kemudian isikan perintah atau koding pada masing-masing button,textbox,radiobutton dan combobox:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show("SELAMAT DATANG DI PROGRAM PENJUALAN SEDERHANA..")
        c.Items.Add("SPT")
        c.Items.Add("SND")
        c.Items.Add("TST")
        c.Items.Add("TAS")
        c.Items.Add("TOP")


    End Sub

    Private Sub CmbKodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.SelectedIndexChanged
        Dim Kodebarang, Namabarang As String
        Dim Harga As Single
        Kodebarang = c.Text

        Select Case Kodebarang
            Case "SPT"
                Namabarang = "Sepatu"
                Harga = 100000
            Case "SND"
                Namabarang = "Sandal"
                Harga = 150000
            Case "TST"
                Namabarang = "T-Shirt"
                Harga = 90000
            Case "TAS"
                Namabarang = "TAS"
                Harga = 100000
            Case "TOP"
                Namabarang = "TOPI"
                Harga = 50000

            Case Else
                Namabarang = "-"
                Harga = 0

        End Select
        TxtNambar.Text = Namabarang
        TxtHarbar.Text = Harga
    End Sub

    Private Sub TxtJumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumbar.TextChanged
        TxtTotHarg.Text = Val(TxtHarbar.Text) * Val(TxtJumbar.Text)
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TxtDiskon.Text = Val(TxtTotHarg.Text) * 10 / 100
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TxtDiskon.Text = 0
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TxtNambar.Clear()
        TxtHarbar.Clear()
        TxtJumbar.Clear()
        TxtTotHarg.Clear()
        TxtDiskon.Clear()
        TxtTotBayr.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Apakah anda ingin keluar ?",
                  vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

            Me.Close()
        End If
    End Sub

End Class

6.      Setelah koding di isi kemudian program di jalankan dengan pilih debug pada menu bar >kemudian pilih start Debugging



Memodifikasi
Soal 1
a.  Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
b.      Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
c.  Saat ditekan tombol clear sama dengan saat form dijalankan



7.      Tambahkan satu button untuk tombol isi data

8.      Tambahkan koding pada form seperti berikut

MessageBox.Show("SELAMAT DATANG DI PROGRAM PENJUALAN SEDERHANA..")
        c.Items.Add("SPT")
        c.Items.Add("SND")
        c.Items.Add("TST")
        c.Items.Add("TAS")
        c.Items.Add("TOP")
        Dim control1 As Windows.Forms.Control
        For Each control1 In Me.Controls
            If control1.GetType.Name = "TextBox" Or control1.GetType.Name = "ComboBox" Or
control1.GetType.Name = "RadioButton" Or control1.Name = "BtnClear" Then
                control1.Visible = False
            End If
        Next
End class
9.      Tambahkan koding pada tombol  isi data
Dim control2 As Windows.Forms.Control
        For Each control2 In Me.Controls
            If control2.Name = "c" Or control2.GetType.Name = "TextBox" Or control2.GetType.Name = "RadioButton" Or
                            control2.Name = "BtnClear" Then
                control2.Visible = True
            ElseIf control2.Name = "BtnIsiData" Then
                control2.Visible = False
            End If
        Next


    End Sub
10.  Tambahkan koding pada tombol hapus

txtdiskon.Text = ""
        txtharbar.Text = ""
        txtjumbar.Text = ""
        txtnambar.Text = ""
        txttotbayr.Text = ""
        txttotharg.Text = ""
        c.Text = ""
        RadioButton2.Checked = False
        RadioButton1.Checked = False
        Dim control3 As Windows.Forms.Control
        For Each control3 In Me.Controls
            If control3.GetType.Name = "TextBox" Or control3.GetType.Name = "ComboBox" Or
                            control3.GetType.Name = "RadioButton" Or control3.Name = "BtnClear" Then
                control3.Visible = False
            ElseIf control3.Name = "BtnIsiData" Then
                control3.Visible = True
            End If
        Next

    End Sub

11.  Setelah koding di isi kemudian program di jalankan dengan pilih debug pada menu bar >kemudian pilih start Debugging

a.tampilan setelah di run

b.tampilan setelah tombol isi data di tekan

c.tampilan setelah tombol hapus di tekan












Soal 2
“Membuat Game Puzzle Sederhana”
Langkah membuat game puzzle pada visual basic 2010:
1)        Buka Aplikasi Microsoft Visual Studio 2010

2)        Kemudian pilih new project


3)        Buat design menggunakan button seperti gambar berikut:


4)        Ubah text pada button seperti berikut:


5)        Dan ubah nama pada masing-masing button
·         Pada button1 ubah nama menjadi ->>>>>BtnAngka1
·         Pada button2 ubah nama menjadi ->>>>>BtnAngka2
·         Pada button3 ubah nama menjadi ->>>>>BtnAngka3

·         Pada button4 ubah nama menjadi ->>>>>BtnAngka4
·         Pada button5 ubah nama menjadi ->>>>>BtnAngka5
·         Pada button6 ubah nama menjadi ->>>>>BtnAngka6
·         Pada button7 ubah nama menjadi ->>>>>BtnAngka7
·         Pada button8 ubah nama menjadi ->>>>>BtnAngka8
·         Pada button9 ubah nama menjadi ->>>>>Btnkosong
6)      Modif desing pada form dengan menambahkan warna dan button untuk tombol keluar seperti berikut

7)        Kemudian isikan koding atau perintah sebagai berikut pada form1 :

     Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            If control.GetType.Name = "Btn" Then
                Dim rndnumber As Random
                Dim number As Integer
                rndnumber = New Random
                number = rndnumber.Next(1, 9)
                control.Text = number

                If BtnAngka2.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka2.Text = number
                    Loop Until BtnAngka2.Text <> BtnAngka1.Text
                End If

                If BtnAngka3.Text = BtnAngka2.Text Or BtnAngka3.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka3.Text = number
                    Loop Until BtnAngka3.Text <> BtnAngka2.Text And BtnAngka3.Text <> BtnAngka1.Text
                End If

                If BtnAngka4.Text = BtnAngka3.Text Or BtnAngka4.Text = BtnAngka2.Text Or BtnAngka4.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka4.Text = number
                    Loop Until BtnAngka4.Text <> BtnAngka3.Text And BtnAngka4.Text <> BtnAngka2.Text And BtnAngka4.Text <> BtnAngka1.Text
                End If

                If BtnAngka4.Text = BtnAngka3.Text Or BtnAngka4.Text = BtnAngka2.Text Or BtnAngka4.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka4.Text = number
                    Loop Until BtnAngka4.Text <> BtnAngka3.Text And BtnAngka4.Text <> BtnAngka2.Text And BtnAngka4.Text <> BtnAngka1.Text
                End If

                If BtnAngka5.Text = BtnAngka4.Text Or BtnAngka5.Text = BtnAngka3.Text Or BtnAngka5.Text = BtnAngka2.Text Or BtnAngka5.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka5.Text = number
                    Loop Until BtnAngka5.Text <> BtnAngka4.Text And BtnAngka5.Text <> BtnAngka3.Text And BtnAngka5.Text <> BtnAngka2.Text And BtnAngka5.Text <> BtnAngka1.Text
                End If

                If BtnAngka6.Text = BtnAngka5.Text Or BtnAngka6.Text = BtnAngka4.Text Or BtnAngka6.Text = BtnAngka3.Text Or BtnAngka6.Text = BtnAngka2.Text Or BtnAngka6.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka6.Text = number
                    Loop Until BtnAngka6.Text <> BtnAngka5.Text And BtnAngka6.Text <> BtnAngka3.Text And BtnAngka6.Text <> BtnAngka2.Text And BtnAngka6.Text <> BtnAngka1.Text
                End If

                If BtnAngka7.Text = BtnAngka6.Text Or BtnAngka7.Text = BtnAngka5.Text Or BtnAngka7.Text = BtnAngka4.Text Or BtnAngka7.Text = BtnAngka3.Text Or BtnAngka7.Text = BtnAngka2.Text Or BtnAngka7.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka7.Text = number
                    Loop Until BtnAngka7.Text <> BtnAngka6.Text And BtnAngka7.Text <> BtnAngka5.Text And BtnAngka7.Text <> BtnAngka4.Text And BtnAngka7.Text <> BtnAngka3.Text And BtnAngka7.Text <> BtnAngka2.Text And BtnAngka7.Text <> BtnAngka1.Text
                End If

                If BtnAngka8.Text = BtnAngka7.Text Or BtnAngka8.Text = BtnAngka6.Text Or BtnAngka8.Text = BtnAngka5.Text Or BtnAngka8.Text = BtnAngka4.Text Or BtnAngka8.Text = BtnAngka3.Text Or BtnAngka8.Text = BtnAngka2.Text Or BtnAngka8.Text = BtnAngka1.Text Then
                    Do
                        number = rndnumber.Next(1, 9)
                        BtnAngka8.Text = number
                    Loop Until BtnAngka8.Text <> BtnAngka7.Text And BtnAngka8.Text <> BtnAngka6.Text And BtnAngka8.Text <> BtnAngka5.Text And BtnAngka8.Text <> BtnAngka4.Text And BtnAngka8.Text <> BtnAngka3.Text And BtnAngka8.Text <> BtnAngka2.Text And BtnAngka8.Text <> BtnAngka1.Text
                End If
            End If
            Btnkosong.Text = ""
        Next

    End

8)        Kemudian isikan koding atau perintah pada btnAngka1

     If BtnAngka2.Text = "" Then
            BtnAngka2.Text = BtnAngka1.Text
            BtnAngka1.Text = ""
        ElseIf BtnAngka4.Text = "" Then
            BtnAngka4.Text = BtnAngka1.Text
            BtnAngka1.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If

   End Sub
9)      Kemudian isikan koding atau perintah pada btnAngka2

If BtnAngka1.Text = "" Then
            BtnAngka1.Text = BtnAngka2.Text
            BtnAngka2.Text = ""
        ElseIf BtnAngka3.Text = "" Then
            BtnAngka3.Text = BtnAngka2.Text
            BtnAngka2.Text = ""
        ElseIf BtnAngka5.Text = "" Then
            BtnAngka5.Text = BtnAngka2.Text
            BtnAngka2.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub

10)    Kemudian isikan koding atau perintah pada btnAngka3

If BtnAngka2.Text = "" Then
            BtnAngka2.Text = BtnAngka3.Text
            BtnAngka3.Text = ""
        ElseIf BtnAngka6.Text = "" Then
            BtnAngka6.Text = BtnAngka3.Text
            BtnAngka3.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub

11)    Kemudian isikan koding atau perintah pada btnAngka4

If BtnAngka1.Text = "" Then
            BtnAngka1.Text = BtnAngka4.Text
            BtnAngka4.Text = ""
        ElseIf BtnAngka7.Text = "" Then
            BtnAngka7.Text = BtnAngka4.Text
            BtnAngka4.Text = ""
        ElseIf BtnAngka5.Text = "" Then
            BtnAngka5.Text = BtnAngka4.Text
            BtnAngka4.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub


12)    Kemudian isikan koding atau perintah pada btnAngka5

If BtnAngka2.Text = "" Then
            BtnAngka2.Text = BtnAngka5.Text
            BtnAngka5.Text = ""
        ElseIf BtnAngka4.Text = "" Then
            BtnAngka4.Text = BtnAngka5.Text
            BtnAngka5.Text = ""
        ElseIf BtnAngka6.Text = "" Then
            BtnAngka6.Text = BtnAngka5.Text
            BtnAngka5.Text = ""
        ElseIf BtnAngka8.Text = "" Then
            BtnAngka8.Text = BtnAngka5.Text
            BtnAngka5.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub

13)    Kemudian isikan koding atau perintah pada btnAngka6

If BtnAngka3.Text = "" Then
            BtnAngka3.Text = BtnAngka6.Text
            BtnAngka6.Text = ""
        ElseIf BtnAngka5.Text = "" Then
            BtnAngka5.Text = BtnAngka6.Text
            BtnAngka6.Text = ""
        ElseIf Btnkosong.Text = "" Then
            Btnkosong.Text = BtnAngka6.Text
            BtnAngka6.Text = ""
        End If
If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub


14)    Kemudian isikan koding atau perintah pada btnAngka7

  If BtnAngka4.Text = "" Then
            BtnAngka4.Text = BtnAngka7.Text
            BtnAngka7.Text = ""
        ElseIf BtnAngka8.Text = "" Then
            BtnAngka8.Text = BtnAngka7.Text
            BtnAngka7.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub

15)    Kemudian isikan koding atau perintah pada btnAngka8

If BtnAngka5.Text = "" Then
            BtnAngka5.Text = BtnAngka8.Text
            BtnAngka8.Text = ""
        ElseIf BtnAngka7.Text = "" Then
            BtnAngka7.Text = BtnAngka8.Text
            BtnAngka8.Text = ""
        ElseIf Btnkosong.Text = "" Then
            Btnkosong.Text = BtnAngka8.Text
            BtnAngka8.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub

16)    Kemudian isikan koding atau perintah pada btnkosong

  If BtnAngka6.Text = "" Then
            BtnAngka6.Text = Btnkosong.Text
            Btnkosong.Text = ""
        ElseIf BtnAngka8.Text = "" Then
            BtnAngka8.Text = Btnkosong.Text
            Btnkosong.Text = ""
        End If
        If BtnAngka1.Text = "1" And BtnAngka2.Text = "2" And BtnAngka3.Text = "3" And BtnAngka4.Text = "4" And BtnAngka5.Text = "5" And BtnAngka6.Text = "6" And BtnAngka7.Text = "7" And BtnAngka8.Text = "8" And Btnkosong.Text = "" Then
            MsgBox("You Win")
        End If
    End Sub
End Class

17)    Kemudian isikan koding pada button1 untuk kekuar
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

18)    Kemudian Tekan tombbol Debug –>>>Start Debugging untuk melihat hasilnya dan bermain Puzzle







Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)