QIEBAE

Latihan 1

1)Karena pada saat penulisan “Const alamat = "kuningan"” tidak disertai dengan type dari variable. Dan juga konstanta tidak bisa menjadi target dari suatu pekerjaan/perintah.

2)Karena pada “btnama1” data sudah dideklarasikan “Dim nama As String” “nama = "Nandang"” sedangkan pada “btnama2” data belum dideklarasikan dan pada modul tertulis “Public Const nama As String = "Nandang Hermanto"” sehingga “btnama2” membaca apa yang ada di modul, karena jangkauan pada modul lebih luas dari apa yg hanya dideklarasikan di “btnama1” saja.

3)Karena pada “bttambahumur2” menggunakan jenis variable static dimana jenis variable ini tidak akan mengubah nilai selama program dijalankan, sehingga saat “bttambahumur2” diclick nilai pada textbox umur akan bertambah dan pada saat “bttambahumur1” diclick nilai akan berubah menjadi 1, dan saat “bttambahumur2” diclick lagi nilai akan bertambah karena sifat dari variable static tersebut yang akan menyimpan nilai selama program masih berjalan.

4)Pada form2, tidak ada perintah menyatakan variable, sehingga saat tombol “nama-alamat-umur” diclick semua akan membaca apa yang ada dimodule.

Latihan 2

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

                harga = "150000"

            Case "TOP"

                namabarang = "Topi"

                harga = "50000"

            Case Else

                       namabarang = "Tas"

                harga = "200000"

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

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

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        Me.radiotunai.checked = False

        Me.radiokredit.checked = False

        cmbkode.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

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

    End Sub

End Class

Berikut adalah hasil dari perbaikan :

       Download hasil perbaikan disini :)

                Saat ini teknologi berkembang sangat pesat, banyak sekali teknologi-teknologi baru bermunculan. Salah satunya bidang Fotografi, jika kita mengingat ke masa lalu, pada jaman itu Foto adalah suatu hal yang sangat hebat (terus gw harus bilang WOW gitu?). Karena pada jaman dulu jarang sekali foto-foto menghiasi dinding rumah penduduk Indonesia. Karena pada jaman dulu jarang sekali orang yang memiliki kamera, bahkan mungkin hanya orang-orang tertentu saja yang memiliki, seperti jurnalis. Semakin lama kamera pun berevolusi, mulai dari model bohlam pecah,Polaroid, kamera film(klise) hingga sekarang model digital yg menggunakan memori sebagai penyimpanan gambar. Saat ini di Indonesia sudah banyak orang yang memiliki kamera, handphone pun kini makin canggih dengan dilengkapi kamera resolusi tinggi. Hal ini juga dibarengi dengan pertumbuhan usaha studio foto yang banyak bermunculan dimana-mana. Apalagi dengan kebutuhan orang Indonesia terhadap foto masih tinggi, selain sebagai dokumentasi, mengenang seseorang, foto juga berguna sebagai sarat dalam urusan sipil.

Dari latar belakang diatas, saya mempunyai ide membuat aplikasi ini. Aplikasi ini masih sederhana. Akan tetapi tidak menutup kemungkinan untuk dikembangkan lagi. Aplikasi ini terdiri dari input kode konsumen, nama konsumen, bayar. Dan ada combo box pilihan ukuran cetak, dan jika kita memilih harga per lembar akan muncul di kolom harga. Saat kita menginputkan jumlah yg ingin kita cetak lalu klik tombol total harga,..,dan harga akan masuk. Begitu juga kolom kembalian. Saat tombol hapus diclick maka semua kolom isian dan pilihan akan direset.

Setelah membuat form ssperti diatas, ketik skrip dibawah ini :

Public Class Form1

    Dim kembali As Double

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

        With ComboBox1

            .Items.Add("2x3")

            .Items.Add("3x4")

            .Items.Add("4x6")

            .Items.Add("2R(dompet)")

            .Items.Add("3R")

            .Items.Add("4R")

            .Items.Add("5R")

            .Items.Add("10R")

        End With

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = ("2x3") Then txtharga.Text = ("500")

        If ComboBox1.Text = ("3x4") Then txtharga.Text = ("750")

        If ComboBox1.Text = ("4x6") Then txtharga.Text = ("1000")

        If ComboBox1.Text = ("2R(dompet)") Then txtharga.Text = ("1000")

        If ComboBox1.Text = ("3R") Then txtharga.Text = ("1500")

        If ComboBox1.Text = ("4R") Then txtharga.Text = ("2000")

        If ComboBox1.Text = ("5R") Then txtharga.Text = ("5000")

        If ComboBox1.Text = ("10R") Then txtharga.Text = ("10000")

    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click

        Dim total As Single

        total = (txtharga.Text * txtcetak.Text)

        Tothar.Text = Format(total, "#.#")

    End Sub

    Private Sub btkembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkembali.Click

        Dim kembali As Single

        kembali = txtbayar.Text - Tothar.Text

        Kembalian.Text = Format(kembali, "#.#")

       End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        txtkode.Text = Nothing

        txtbayar.Text = Nothing

        txtcetak.Text = Nothing

        txtharga.Text = Nothing

        txtnama.Text = Nothing

        ComboBox1.Text = Nothing

        Tothar.Text = Nothing

        Kembalian.Text = Nothing

    End Sub

d. Dan yg terakhir button untuk keluar, saat diklik akan muncul message box pilihan ya atau tidak   

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim pil As Single

        pil = MsgBox("Anda Yakin untuk keluar?", vbQuestion + vbYesNo, "Exit")

        If (pil = vbYes) Then Close()

    End Sub

End Class

Dibawah ini adalah link untuk mendownload

 Download Disini :)