TUGAS PEMROGRAMAN VISUAL 3

Setelah program latihan If dan Case yang pertama selesai, kini saya memodifikasinya. Dan saya beri judul pemrograman if dan case 2.

Langsung saja, dalam modifikasi ini saya menambah beberapa button seperti isi data, clear dan tutup. Berikut adalah tampilan awal dari aplikasi tersebut.

Keterangan :

·         Pada saat form dijalankan, akan muncul seperti tampilan di atas. Berikut adalah keterangannya : Semua isian tidak aktif, tombol isi data dan tutup aktif, namun tombol clear tidak aktif.

·  Saat ditekan tombol Isi Data, maka combo box  kode barang, text box  jumlah barang, radio button cara beli dan tombol Clear aktif tetapi tombol Isi Data tidak aktif. Seperti gambar di bawah

·           Saat tombol Clear ditekan maka akan kembali ke tampilan awal.

·         Pada saat tombol tutup ditekan, maka akan ada tampilan “anda yakin?” seperti gambar di bawah ini

Di bawah ini adalah listing dari program diatas

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

            Btisi.Enabled = True

            bttutup.Enabled = True

        Next

    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 String

        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 Else

                namabarang = " Tas "

                harga = 30000

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

        txtjumlah.Text = ""

        txttotal.Text = ""

        txtdiskon.Text = ""

        txtbayar.Text = ""

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

    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 btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

     

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = False

            Btisi.Enabled = True

            bttutup.Enabled = True

            txtbayar.Clear()

            txtdiskon.Clear()

            txtharga.Clear()

            txtjumlah.Clear()

            txtnama.Clear()

            txttotal.Clear()

            Me.radiotunai.Checked = False

            Me.radiokredit.Checked = False

            cmbkode.Text = ""



        Next



    End Sub



    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        If MsgBox(" anda yakin?", vbYesNo + vbQuestion + vbDefaultButton2, "EXIT") = vbYes Then

            Me.Close()

        End If





    End Sub



 

    Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click

   

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            control.Enabled = True

            Btisi.Enabled = False

            bttutup.Enabled = False

          







        Next





        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

    



    End Sub





End Class

PUZZLE

Tugas yang selanjutnya adalah membuat aplikasi sederhana game puzzle,berikut adalah tampilan awal dari game tersebut.

a. ketika form dijalankan, maka akan tampil seperti di atas dan angkanya akan teracak dengan tersendirinya.
b. selanjutnya kita klik tombol stop, untuk menghentikan acakan dari angka tersebut. berikut adalah tampilannya

dalam program ini, yang bergerak adalah angka-angkanya. dan apabila kita berhasil, maka akan ada tampilan "anda sukses"



c. tombol exit, apabila aplikasi akan ditutup. berikut adalah tampilannya

berikut adalah listing dari program di atas

sekian program dan penjelasannya, terima kasih atas perhatiannya. salam

TUGAS PEMROGRAMAN VISUAL 2

TUGAS PEMROGRAMAN VISUAL 2

Di bawah ini merupakan program ke dua saya dalam pembelajaran pemrograman visual. Dan saya akan mencoba untuk menganalisa kesalahan yang terjadi terhadap program tersebut. 

Program di atas nampak sudah selesai dan benar, namun  kesalahan terjadi apabila kita menjalankan program tersebut. Maka muncullah pertanyaan seperti berikut ini :

• Apa yang menyebabkan program error pada btalamat1_Click baris program alamat=”Kuningan”?

•  Kenapa saat ditekan tombol nama 1 dan nama 2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat 1 dan alamat 2 alamat yang ditampilkan pada textbox alamat sama?

• 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?

Berikut adalah penjelasan dari pertanyaan di atas (jawaban latihan1 no3)

a.  Penyebab  Error pada btalamat1_Click baris program alamat = "Kuningan" adalah karena varabel nama belum di deklarasikan :
alamat = "Kuningan"
Txtalamat.Text = alamat
seharusnya adalah :
Dim alamat As String
alamat = "Kuningan"
Txtalamat.Text = alamat

b.  Penyebab  munculnya nama yang berbeda pada textbox saat tombol nama1 dan nama2 ditekan adalah karena variabel nama pada Btnama2_Click tidak di definisikan pada class tersebut dan yang yang kedua karena tidak ada deklarasi variabel pada sub tersebut, maka nilai yang diambil adalah nilai yang terdapat pada deklarasi variabel di module.

c.  Yang menyebabkan saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu adalah karena tombol tersebut menggunakan variabel Dim, sebab Dim adalah kependekan dari Dinamis, variabel jenis ini akan selalu berubah nilainya saat kita mengeksekusinya dalam sebuat operasi bilangan. Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu.Berbeda dengan varabel umur pada Bttambahumur2_Click yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 .

d.  Analisa saya untuk Form Dua adanya Option Explicit Off
berarti varibelya  tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebtu terdapat pada Module1. Sehingga pada saat kita menekan tombol Nama atau Alamat atau Umur, nilai yang keluar adalah nilai yang terdapat pada Module1.

Analisa Kelemahan Program pada Latihan 2 If dan Case

Langsung saja kita menuju ke analisa pada latihan Case If

a. listing pada program kurang lengkap sehingga terjadi banyak error

b. saat kita memilih kode barang, yang akan diikuti dengan ditampilkannya nama barang dan  harga barang, lalu kita menginputkan jumlah barang, maka secara otomatis total harga dan total bayar akan dihitung dan ditampilkan pada textbox. Namun saat kita mengganti kode barang, tanpa merubah nilai pada jumlah barang, total harga tidak mau berubah sesuai dengan harga barang.

berikut adalah gambar dan programnya :

dan setelah saya mencoba memperbaiki programnya, maka akan menjadi seperti di bawah ini :

dan masih beberapa koding yang lainnya, maka program akan menjadi seperti berikut ini :

TUGAS 1 PEMROGRAMAN VISUAL

Pada tugas kali ini, saya membuat sebuah aplikasi sederhana dengan menggunakan Visual Basic 2010. Saya membuat aplikasi Pemesanan Tiket Candi Borobudur, Berikut adalah tampilan awal aplikasi tersebut :

Beberapa tools telah saya gunakan pada tampilan di atas, diantaranya adalah Label, TextBox, ComboBox dan Button. 

Terdapat 6 label dalam program ini :

•    Nama Aplikasi
•    Nama Pemesan
•   Jenis Pengunjung
•   Harga Tiket
•  Jumlah
•   Harga yang dibayar

Ada 4 TextBox dalam tampilan di atas, yaitu :

•   Nama
•   Harga Tiket
•   Jumlah
•   Harga Yang Dibayar

ComboBox di atas akan menampilkan dua pilihan jenis pengunjung, terdapat dua jenis yaitu :

•   Pengunjung Dewasa 
•   Pengunjung Anak-anak

Berikut adalah tampilannya

 

Dalam aplikasi ini juga saya gunakan beberapa button, diantaranya adalah :

•  Hitung
•   Bersihkan
• Rincian
•  Keluar

Fungsi dari button di atas akan saya jelaskan sebagaimana berikut ini :

1.      Tombol hitung

Digunakan untuk menghitung, atau mengetahui seberapa banyak nominal uang yang harus dibayar oleh pemesan. Dibawah ini merupakan contoh hasil dari tombol hitung

   2.    Tombol Bersihkan

Digunakan untuk menghasilkan tulisan yang akan dihapus, semisal kita akan memasukkan nama pemesan yang baru.

  

Apabila kita klik tombol Bersihkan, maka akan terdapat hasil sebagai berikut

 

 

   3.  Tombol Rincian

Tombol rincian digunakan untuk mengetahui semua rincian tentang pemesanan, seperti nama pemesan, jenis pengunjung, jumlah orang, dan harga yang harus dibayar.

 

1.        4.  Tombol Keluar

Yang terakhir adalah tombol keluar, dimana aplikasi ini akan keluar jika kita klik tombol ini. Namun sebelumnya aplikasi akan menampilkan pertanyaan terlebih dahulu jika anda benar-benar akan keluar. Seperti pada gambar berikut :

 

Dalam pembuatan aplikasi di atas, saya juga menuliskan beberapa listing seperti di bawah ini :

Demikianlah penjelasan tugas pertama Pemrograman Visual yang saya buat, semoga bermanfaat. 

Terima kasih