Pembahasan Soal UTS 2011 smstr 3 VB Menggunakan VB 2010

tampilan Program Futsal Center ditulis kembali oleh Programer bego

Kali ini saya akan mencoba membahas Soal UTS pemrograman Visual Basic 2011.

Namun dipostingan kali ini mengunakan Visual Basic 2010.

Yuk kita sama sama belajar...

KETENTUAN SOAL

1. 

LAPANGAN	INDOOR			OUTDOOR
Jenis Lapangan	Reguler	Matras	Rumput	Reguler	Matras	Rumput
Biaya Lapangan	300000	250000	200000	250000	200000	150000

2. Jika tambahan penyewaan sepatu harga penyewaan = 50000 / jam

   Jika tambahan penyewaan kostum harga penyewaan = 45000 / jam

3. TotaL harga = (lama sewa * biayalapangan) + (lama sewa* (sepatu + kostum))

4. Uang Kembali = Uang bayar - Total harga

5. Saat keluar muncul message box pertanyaan "Apkah yakin ingin keluar" saat yes diklik maka  aplikasi akan keluar..

Listing Kode Dari Program Tersebut.

Public Class Form1

    'Dobel click form lalu masukan kode berikut

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 1 To 31 'untuk i dari 1 sampai 31

            cmbtgl.Items.Add(i) 'tambahkan pada commbobox tgl dari 1 sampai 31

        Next

        'inisialisai bln sebagai array string

        Dim bln() As String = {"januari", "Februari", "Maret", "April", "Mei", "Juni",

                             "Juli", "Agustus", "September", "Oktober", "November", "Desember"}

        For Each a In bln 'untuk setiap a dalam bln

            cmbbln.Items.Add(a) 'tambahkan a pada combobox bln

        Next

        Dim thn() As String = {"2010", "2011", "2012"}

        For Each a In thn

            cmbthn.Items.Add(a)

        Next

        Dim jenislapangan() As String = {"Matras", "Reguler", "Rumput"}

        For Each lapang In jenislapangan

            cmbjl.Items.Add(lapang)

        Next

    End Sub

    'doble click check box sepatu lalu masukan kode dibawah.a..

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then 'jika check sepatu dichecklist

            txtsepatu.Text = 50000 'text sepatu 50000

        Else 'jika tidak di check list

            txtsepatu.Text = 0 'textsepatu menjadi 0

        End If

    End Sub

    'doble clik checkbok kostum

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then 'jika check kostum di cheklist

            txtkostum.Text = 45000 'text kostum = 45000

        Else 'jika tidak dicheck

            txtkostum.Text = 0  'text kostum menjadi 0

        End If

    End Sub

    'masukan pada kode berikut pada combobox jenis lapangan

    Private Sub cmbjl_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjl.Click

        If rdoindoor.Checked = True Then

            If cmbjl.Text = "Reguler" Then

                txtbl.Text = 300000

            ElseIf cmbjl.Text = "Matras" Then

                txtbl.Text = 250000

            Else

                txtbl.Text = 200000

            End If

        Else

            If cmbjl.Text = "Reguler" Then

                txtbl.Text = 250000

            ElseIf cmbjl.Text = "Matras" Then

                txtbl.Text = 200000

            Else

                txtbl.Text = 150000

            End If

        End If

    End Sub

    'masukan pada option indoor

    Private Sub rdoindoor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoindoor.CheckedChanged

        'saat pergantian pilihan

        cmbjl.Text = "" 'combobox jenis lapangan kosong

        txtbl.Text = "" 'text biaya lapangan kosong

    End Sub

    'masukan pada button hitung

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        txtth.Text = Val(txtls.Text) * Val(txtbl.Text) + Val(txtls.Text) * (Val(txtsepatu.Text) + Val(txtkostum.Text))

    End Sub

    'masukan pada text uang bayar

    Private Sub txtub_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtub.TextChanged

        txtuk.Text = Val(txtub.Text) - Val(txtth.Text)

    End Sub

    'masukan pada button ulang

    Private Sub btnulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnulang.Click

        'menghapus seluru teks pada form

        txtnu.Text = ""

        txtnp.Text = ""

        txtls.Text = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        txtsepatu.Text = ""

        txtkostum.Text = ""

        txtbl.Text = ""

        txtth.Text = ""

        txtuk.Text = ""

        txtub.Text = ""

        txtnu.Focus()

    End Sub

    'masukan pada button keluar

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        'jika pesan berikut keluar dan klik yes

        If MessageBox.Show("Yakin akan Keluar ..?", "OOOPS..!!", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            Application.Exit() 'maka aplikasi keluar

        End If

    End Sub

  

End Class