Tugas 3 Pemrograman Visual

Tugas 3

1. Memodifikasi Program If dan case praktikum ke-2 dengan:

 a. menon aktifkan tombol Clear dan semua isian data kecuali tombol Isi data dan tombol Tutup.
 b. mengaktifkan tombol clear dan isisan kodebarang, jumlahbarang, cara beli.
 c. mengembalikan keadaan seperti saat program dijalankan ketika menekan tombol Clear.
 

 Kemudian listing program :

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")
    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-Sirt"
                harga = 1500000
            Case "TOP"
                namaBarang = "Topi"
                harga = 500000
            Case "TAS"
                namaBarang = "Tas"
                harga = 700000
            Case Else
                namaBarang = "-"
                harga = 0
        End Select

        txtNama.Text = namaBarang
        txtHarga.Text = harga
        txtTotal.Text = Val(txtHarga.Text) * Val(txtJumlah.Text)
        txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
        If radioTunai.Checked = True Then
            txtDiskon.Text = Val(txtTotal.Text) * 10 / 100
            txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
        ElseIf radioKredit.Checked = True Then
            txtDiskon.Text = 0
            txtBayar.Text = Val(txtTotal.Text) - Val(txtDiskon.Text)
        End If
    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
        txtDiskon.Clear()
        txtHarga.Clear()
        txtJumlah.Clear()
        txtTotal.Clear()
        txtNama.Clear()
        cmbKode.Text = ""
        Me.radioTunai.Checked = False
        Me.radioKredit.Checked = False
        cmbKode.Enabled = False
        radioKredit.Enabled = False
        radioTunai.Enabled = False
        txtJumlah.Enabled = False
        btClear.Enabled = False

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

        cmbKode.Enabled = True
        txtJumlah.Enabled = True
        radioKredit.Enabled = True
        radioTunai.Enabled = True
        btClear.Enabled = True
    End Sub
End Class

2. Permainan Punzle sederhana:

Buat form :

 Setelah dijalankan dan berhasil diurutkan:

 Listing Program:

Public Class Form1
    Dim tampung As String

    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        tampung = bt1.Text
        If bt2.Text = "" Then
            bt1.Text = ""
            bt2.Text = tampung
        ElseIf bt4.Text = "" Then
            bt1.Text = ""
            bt4.Text = tampung
        ElseIf bt5.Text = "" Then
            bt1.Text = ""
            bt5.Text = tampung
        End If
    End Sub

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
        tampung = bt2.Text
        If bt1.Text = "" Then
            bt2.Text = ""
            bt1.Text = tampung
        ElseIf bt3.Text = "" Then
            bt2.Text = ""
            bt3.Text = tampung
        End If
    End Sub

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click
        tampung = bt3.Text
        If bt2.Text = "" Then
            bt3.Text = ""
            bt2.Text = tampung
        ElseIf bt5.Text = "" Then
            bt3.Text = ""
            bt5.Text = tampung
        ElseIf bt6.Text = "" Then
            bt3.Text = ""
            bt6.Text = tampung
        End If

    End Sub

    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
        tampung = bt4.Text
        If bt9.Text = "" Then
            bt4.Text = ""
            bt9.Text = tampung
        ElseIf bt1.Text = "" Then
            bt4.Text = ""
            bt1.Text = tampung
        End If
    End Sub

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click
        tampung = bt5.Text
        If bt1.Text = "" Then
            bt5.Text = ""
            bt1.Text = tampung
        ElseIf bt3.Text = "" Then
            bt5.Text = ""
            bt3.Text = tampung
        ElseIf bt8.Text = "" Then
            bt5.Text = ""
            bt8.Text = tampung
        ElseIf bt9.Text = "" Then
            bt5.Text = ""
            bt9.Text = tampung
        End If
    End Sub

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click
        tampung = bt6.Text
        If bt3.Text = "" Then
            bt6.Text = ""
            bt3.Text = tampung
        ElseIf bt8.Text = "" Then
            bt6.Text = ""
            bt8.Text = tampung
        End If
        If bt4.Text = "1" And bt1.Text = "2" And
            bt2.Text = "3" And
            bt9.Text = "4" And
            bt5.Text = "5" And
            bt3.Text = "6" And
            bt7.Text = "7" And
            bt8.Text = "8" Then
            MsgBox("Anda Menang!!!")


        End If


    End Sub

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click
        tampung = bt7.Text
        If bt9.Text = "" Then
            bt7.Text = ""
            bt9.Text = tampung
        ElseIf bt8.Text = "" Then
            bt7.Text = ""
            bt8.Text = tampung
        End If
    End Sub

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click
        tampung = bt8.Text
        If bt5.Text = "" Then
            bt8.Text = ""
            bt5.Text = tampung
        ElseIf bt6.Text = "" Then
            bt8.Text = ""
            bt6.Text = tampung
        ElseIf bt7.Text = "" Then
            bt8.Text = ""
            bt7.Text = tampung
        End If

    End Sub

    Private Sub bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt9.Click
        tampung = bt9.Text
        If bt4.Text = "" Then
            bt9.Text = ""
            bt4.Text = tampung
        ElseIf bt5.Text = "" Then
            bt9.Text = ""
            bt5.Text = tampung
        ElseIf bt7.Text = "" Then
            bt9.Text = ""
            bt7.Text = tampung
        End If
    End Sub
End Class

Tugas 2 Pemrograman Visual

a ANALISA PRAKTIKUM 2 PROJECT PERTAMA

 1.     Program error pada btalamat1_click, karena belum ada pendeklarasian alamat ‘

Seharusnya > dim alamat as String

b2.   Karena Pada tombol nama1 pendeklarasian nama sudah di masukan Dim nama As String

Nama = “Nandang” sedangkan pada tombol nama2, nama belum di deklarasikan sehingga sehingga mengambil dari module

Pada Btalamat 1 dan tombol alamat

2 sudah di deklarasikan di form

1 dengan Conts alamat = “kuningan”

c3.     Karena pada tombol tambah umur1 menggunakan dim yaitu masukan selalu memulai kembali jika tombol di tekan sedangkan pada tombol tambah umur2 menggunakan static yaitu masukan yang tetap dan bertambah jika di tekan karna static dan umur +=1

d4.   Analisis form 2

Analisa saya untuk Form Dua, saat kita melihat coding pada FrmDua kita melihat ada baris perintah :
Option Explicit Off
Itu artinya bahwa variabel pada FrmDua 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 PRAKTIKUM 2 PROJECT KEDUA

 

Kelemahannya yaitu tidak ada pendeklarasian pada harga dan nama barang “TAS”, sehingga apabila di Run pada ComboBox pilih kode barang “Tas” nama barang dan harga tidak tercantum. 

Coding sebelum diperbaiki : 

            Tampilan form output sebelum perbaikan :

            Coding setelah diperbaiki :

            Tampilan output akhir atau setelah pengeditan dan perbaikan :
 

 

 

Membuat Aplikasi Penghitung Biaya SKS

    Pada kesempatan ini saya akan mencoba membuat program sederhana aplikasi pembayaran sks menggunakan program Microsoft Visual Studio 2010.
Agar lebih jelas lagi,berikut ini langkah-langkahnya :

1.Jalankan Visual Studio 2010 kemudian untuk membuatnya,klik file >> new project >> Windows form Application.
2.Lalu buatlah desain form seperti di bawah ini.

3.Ketikan code program pada menu button proses (double click buttom proses).Seperti gambar di bawah ini :

 4.Setelah selesai mengetikkan pada button proses,lalu double click lagi pada button reset.Ketikkan code program seperti gambar di bawah ini.

 5.Lanjutkan dengan  double click pada buttonexit,ketikkan code di bawah ini.

 6.Setelah semua selesai,coba jalankan/run program.Lalu isikan data yang diinginkan.Bila berhasil akan tampak seperti gambar di bawah ini.

 7.Untuk keluardari program,klik tombol exit.

Demikian program yang coba saya buat.Mudah-mudahan bagi semuanya.Terima kasih.