TUGAS 3 PART II

 2 ) MEMBUAT PROGRAM PUZZLE .

1 . Buat button dengan tampilan berikut .

Buat 9 button dengan 1 button kosong pada button 9.
Button 1 : Dengan nama text satu .

Button 2 : Dengan nama text dua .

Button 3 : Dengan nama text tiga .

Button 4 : Dengan nama text empat .

Button 5 : Dengan nama text lima .

Button 6 : Dengan nama text enam .

Button 7 : Dengan nama text tujuh .

Button 8 : Dengan nama text delapan .

Pada program ini saya tidak memakai GroupBox pada 9 button yang dijadikan puzzle namun saya memakainya pada button restart dan exit untuk membedakan dari 9 button tersebut  .

-  <> 0 :  Memanggil semua angka kecuali 0 .
-  number = Rnd() * 8 : Mengacak nomer 1-8.
- And & Or : Memberikan syarat tambahan .
- Else if : Untuk pengecekan pertukaran angka .
- Loop Until : Kondisi dihentikan sampai dengan benar .

 *Tampilan sebelum dijalankan

2 . Syntax Program .


Public Class Form1

    Private Sub tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiga.Click
        If dua.Text = "" Then
            dua.Text = tiga.Text
            tiga.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = tiga.Text
            tiga.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub empat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empat.Click
        If satu.Text = "" Then
            satu.Text = empat.Text
            empat.Text = ""
        ElseIf tujuh.Text = "" Then
            tujuh.Text = empat.Text
            empat.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = empat.Text
            empat.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lima.Click
        If dua.Text = "" Then
            dua.Text = lima.Text
            lima.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = lima.Text
            lima.Text = ""
        ElseIf enam.Text = "" Then
            enam.Text = lima.Text
            lima.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = lima.Text
            lima.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enam.Click
        If Button9.Text = "" Then
            Button9.Text = enam.Text
            enam.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = enam.Text
            enam.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = enam.Text
            enam.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuh.Click
        If empat.Text = "" Then
            empat.Text = tujuh.Text
            tujuh.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = tujuh.Text
            tujuh.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub

    Private Sub delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delapan.Click
        If tujuh.Text = "" Then
            tujuh.Text = delapan.Text
            delapan.Text = ""
        ElseIf Button9.Text = "" Then
            Button9.Text = delapan.Text
            delapan.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = delapan.Text
            delapan.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If

    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If enam.Text = "" Then
            enam.Text = Button9.Text
            Button9.Text = ""
        ElseIf delapan.Text = "" Then
            delapan.Text = Button9.Text
            Button9.Text = ""
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And Button9.Text = "" Then
            MsgBox("Selamat Anda Succes")
        End If


    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
        Dim number As Integer
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                control.Text = number
            End If


            If dua.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    dua.Text = number
                Loop Until dua.Text <> satu.Text And dua.Text <> "0"

            End If

            If tiga.Text = dua.Text Or tiga.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    tiga.Text = number
                Loop Until tiga.Text <> dua.Text And tiga.Text <> satu.Text And tiga.Text <> "0"

            End If

            If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    empat.Text = number
                Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text And empat.Text <> "0"
            End If

            If empat.Text = tiga.Text Or empat.Text = dua.Text Or empat.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    empat.Text = number
                Loop Until empat.Text <> tiga.Text And empat.Text <> dua.Text And empat.Text <> satu.Text And lima.Text <> "0"
            End If

            If lima.Text = empat.Text Or lima.Text = tiga.Text Or lima.Text = dua.Text Or lima.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    lima.Text = number
                Loop Until lima.Text <> empat.Text And lima.Text <> tiga.Text And lima.Text <> dua.Text And lima.Text <> satu.Text And lima.Text <> "0"
            End If

            If enam.Text = lima.Text Or enam.Text = empat.Text Or enam.Text = tiga.Text Or enam.Text = dua.Text Or enam.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    enam.Text = number

                Loop Until enam.Text <> lima.Text And enam.Text <> tiga.Text And enam.Text <> dua.Text And enam.Text <> satu.Text And enam.Text <> "0"

            End If

            If tujuh.Text = enam.Text Or tujuh.Text = lima.Text Or tujuh.Text = empat.Text Or tujuh.Text = tiga.Text Or tujuh.Text = dua.Text Or tujuh.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    tujuh.Text = number

                Loop Until tujuh.Text <> enam.Text And tujuh.Text <> lima.Text And tujuh.Text <> empat.Text And tujuh.Text <> tiga.Text And tujuh.Text <> dua.Text And tujuh.Text <> satu.Text And tujuh.Text <> "0"

            End If

            If delapan.Text = tujuh.Text Or delapan.Text = enam.Text Or delapan.Text = lima.Text Or delapan.Text = empat.Text Or delapan.Text = tiga.Text Or delapan.Text = dua.Text Or delapan.Text = satu.Text Then
                Do
                    number = Rnd() * 8
                    delapan.Text = number

                Loop Until delapan.Text <> tujuh.Text And delapan.Text <> enam.Text And delapan.Text <> lima.Text And delapan.Text <> empat.Text And delapan.Text <> tiga.Text And delapan.Text <> dua.Text And delapan.Text <> satu.Text And delapan.Text <> "0"

            End If
            Button9.Text = ""
        Next
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        If MsgBox(" Do you want to exit? ", vbQuestion + vbYesNo + vbDefaultButton2, "Exit") = vbYes Then
            Me.Close()
        End If

    End Sub

    Private Sub satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click
        If dua.Text = "" Then
            dua.Text = satu.Text
            satu.Text = ""
        ElseIf empat.Text = "" Then
            empat.Text = satu.Text
            satu.Text = ""
        End If
    End Sub

    Private Sub dua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dua.Click
        If satu.Text = "" Then
            satu.Text = dua.Text
            dua.Text = ""
        ElseIf lima.Text = "" Then
            lima.Text = dua.Text
            dua.Text = ""
        ElseIf tiga.Text = "" Then
            tiga.Text = dua.Text
            dua.Text = ""
        End If
    End Sub

    Private Sub btrestart_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btrestart.Click
        If MsgBox(" Do you want to restart? ", vbInformation + vbYesNo, " Restart Game Puzzle ") = vbYes Then
            Application.Restart()
        End If
    End Sub
End Class

* Tampilan setelah dijalankan .

* Tampilan saat akan puzzle terurut .

*Tampilan saat akan direstart .

*Tampilan saat akan diexit .

Selamat Mencoba
SEKIAN TERIMAKASIH ^_^

TUGAS 3

MODIFIKASI PROGRAM DAN MEMBUAT PROGRAM PUZZLE .

Pada blog saya kali ini, saya akan memaparkan hasil tugas yang diberikan pada pertemuan ke-4 minggu lalu , tentang memodifikasi program yang sudah dibuat pada pertemuan ke- 3 yaitu Latihan IF dan Case menggunakan perulangan .

Selain memodifikasi program ,dalam tugas 3 kali ini juga diberikan tugas untuk membuat puzzle menggunakan visual basic 2010.

Bagaimana ulasannya , mari kita pelajari dibawah ini :

1 ) MODIFIKASI LATIHAN IF DAN CASE .

Pada program modifikasi menggunakan perulangan ini saya menggunakan perintah FOR EACH.

For Each digunakan untuk melakukan iterasi berdasarkan collection tertentu.

* Tampilan Program.

* Syntax Program Menggunakan Perulangan .

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")

        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
    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-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 50000
            Case "TAS"
                namabarang = "Tas"
                harga = 250000
            Case Else
                namabarang = "-"
                harga = 0
        End Select
        txtnama.Text = namabarang
        txtharga.Text = harga
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        txtbayar.Clear()
        txtdiskon.Clear()
        txtjumlah.Clear()
        txttotal.Clear()
        txtjumlah.Focus()
    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged


        If (txtjumlah.Text = "") Then
        Else
            Dim jumlah As Integer
            Try
                jumlah = Convert.ToInt32(txtjumlah.Text)
            Catch ex As Exception
                jumlah = 0
                MsgBox("Jumlah barang harus berupa angka", MsgBoxStyle.Critical, "Peringatan")
            End Try
                txttotal.Text = Val(txtharga.Text) * jumlah
                txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
            End If
    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 Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        cmbkode.Text = ""
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
        Btisidata.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
        If (MsgBox("Apa Anda yakin untuk menutup aplikasi ini?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
            Me.Close()
        End If

    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
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = True
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = True
            End If
        Next
        txtjumlah.Enabled = True
        Btclear.Enabled = True
        Btisidata.Enabled = False


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

* Ketentuan Modifikasi Program .

1 . Saat form dijalankan : semua isian tidak aktif , tombol isidata dan tutup aktif tombol clear tidak aktif.
Jawab :  Dim Control As Windows.Forms.Control ' Digunakan untuk mengendalikan perintah.
        For Each Control In Me.Controls ' Sistem perulangan.
            If Control.GetType.Name = "ComboBox" Then '
                Control.Enabled = False ' Perintah mematikan (False) .
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False
    End Sub

 * Tampilan Program.

2 . Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli , tombol clear, aktif , tombol isi data tidak aktif .
Jawab :  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
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = True "Perintah mengaktifkan (True).
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = True
            End If
        Next
        txtjumlah.Enabled = True ' Perintah aktif
        Btclear.Enabled = True ' Perintah aktif
        Btisidata.Enabled = False' Perintah mematikan (False) .


    End Sub

* Tampilan Program .

Saat ditekan isi data tidak aktif

3 . Saat ditekan tombol clear sama dengan tombol dijalankan .
Jawab : Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        txtbayar.Clear()
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        cmbkode.Text = ""
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "TextBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "ComboBox" Then
                Control.Enabled = False
            End If
            If Control.GetType.Name = "RadioButton" Then
                Control.Enabled = False
            End If
        Next
        Btclear.Enabled = False 'Perintah Mematikan
        Btisidata.Enabled = True 'Perintah Mengaktifkan

    End Sub
End Class

* Tampilan Program.

SEKIAN TERIMAKASIH ^_^

TUGAS 2

Hallo saudara - saudara....
Kali ini saya akan menganalisa program visual basic 2010 yang telah ditugaskan..
berikut penjabarannya ,,,

Latihan 1.

1. Apa yang menyebabkan error pada btalamat1_click baris program alamat = "Kuningan".
   Jawab :  Karena pada variabel alamat belum dideklarasikan perintahnya.Selain itu pada variabel alamat = "kuningan" telah dideklarasikan dengan perintah konstanta (Const) pada public class frmsatu.

Seharusnyya pada variabel tersebut terdapat syntax "Dim Alamat As String" sehingga dapat dijalankan.

Seperti tampilan syntax dibawah ini .

2 . Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 alamat yang ditampilkan pada textbox alamat yang sama.
Jawab : - Karena pada btnama1_click codingnya sudah terdeklarasi berupa Dim
Sedangkan pada btnama2_click menggunakan listing nama txtnama,selain itu variabel tersebut juga diambil dari module 1.

            -  Pada btalamat tertampil alamat yang sama karena pada btalamat frmsatu menggunakan syntax Const yang berarti global tidak dapat diubah meskipun program dijalankan .

3 . Kenapa saat ditekan tombol tambah umur 1 umur selalu keluar angka 1,sedangkan saat ditekan tombol tambah umur 2 umur selalu bertambah 1 dari umur sebelumnya
Jawab : Karena pada btumur1 memakai deklarasi "Dim" yaitu pendeklarasian dengan angka tetap sehingga tidak akan bertambah meskipun diklik terus menerus.
Sedangkan pada btumur2 memakai "Static" yaitu pendeklarasian dengan angka bertambah 1 selama program dijalankan.

4 . Analisa form 2


LATIHAN 2

 IF DAN CASE

Pada program ini menurut saya terdapat kesalahan sebagai berikut :

1. Pada program ini kelemahan pada pilihan kode barang "TAS" listing programnya belum sempurna karena belum diinputkan,sehingga saat program dijalankan hasil tidak nampak atau = 0.

Seharusnya program diinputkan perbaikan seperti berikut .

 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-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 500000
            Case "TAS"
                namabarang = "Tas"
                harga = 325000
            Case Else
                namabarang = "-"
        End Select

  txtnama.Text = namabarang
        txtharga.Text = harga

    End Sub

 * Tampilan setelah dijalankan (Syntax yang dibenarkan).

 *Listing program cara beli tunai dan kredit yang benar adalah

2 . Kesalahan berikutnya terdapat pada program penutupan, dimana setelah user menekan tombol tutup program akan langsung tertutup tidak menggunakan syntak keluaran sesuai keinginan seperti akan melanjutkan atau tidak,maka dari itu saya menambahkan sedikit syntax pada program keluaran tutup.
* Listing program.

* Tampilan sesudah dijalankan.

Demikian hasil analisis saya 

SEKIAN TERIMAKASIH ^_^

DATA TRANSAKSI PENJUALAN KASET

Hallo guys...

Pada kesempatan ini saya akan memaparkan sedikit dari pemikiran saya tentang Visual Basic 2010.
Visual Basic ( Beginners All- Purpose Symbolic Intruction Code ) merupakan bahasa pemrograman Integrated Development Environment (IDE),yaitu bahasa pemrograman visual yang digunakan untuk membuat program aplikasi atau software berbasis sistem operasi Microsoft Windows, dengan menggunakan model pemrograman Common Object Model(COM) visual basic merupakan turunan bahasa pemrograman BASIC yang menawarkan pengembangan perangkat lunak komputer berbasia grafik dengan cepat . Dengan menggunakan bahasa pemrograman VB para programmer dapat membangun aplikasi dengan menggunakan komponen - komponen yang disediakan VB .

Setelah kita mengetahui apa itu Visual Basic kemudian mari kita kenali contoh programnya, disini saya akan memberikan sebuah contoh mengenai data menggunakan visual basic 2010 yang saya buat dengan judul TRANSAKSI PENJUALAN KASET...


Pada program ini saya hanya memberikan sedikit dari beberapa objek ,seperti :

·         4 Label                                  :  Untuk Memberikan keterangan .

·         4 Textbox                              :   Untuk memasukan input / menampilkan data .

·         1 Group Box                          :  Untuk menempatkan radio button pada 1 group .

·         5 Radio Button                       :  Sebagai alternatif penentuan 1 dari berbagai pilihan .

·         3 Button                                 :  Digunakan sebagai tombol eksekusi program .

Berikut adalah hasil program Transaksi Penjualan Kaset yang saya buat beserta codingnya. 

 1 ) Tampilan Program Sebelum Dijalankan .

2 ) Coding Program .

3 ) Tampilan Program Sesudah Dijalankan .

 Untuk mengetahui jumlah bayar pada program sebelumnya masukan inputan pada kode kaset,nama kaset,harga kaset lalu pilih diskon pada radio button yang disediakan sesuai ketentuan , kemudian klik hitung lalu akan muncul berapa jumlah harga yang harus dibayarkan .

Demikian hasil program yang saya buat,semoga dapat bermanfaat bagi saudara-sadara yang sedang mempelajari dan memahami bahasa visual basic 2010.Selamat Belajar.

SEKIAN TERIMAKASIH ^_^