Tugas Program VB 2

1. PROGRAM LATIHAN KE 1

1. harusnya  mengunakan variable (Dim alamat =”kuningan”)

2.karena button “nama1” mengunakan Dim ,sehingga program menjalankan nilai atau isi dari variabel nama hanya pada button tersebut, sementara pada button “nama2” tidak di tentukan variabel dan nilai ny dalam tombol tersebut , dan di lain sisi  pada module variabel nama nya “Public Const nama As String = "Nandang Hermanto" maka dari itu tombol nama2 mengambil nilai secara global karena variabel ny public”.

pada button “alamat 1” dan button “alamat2” sama karena variable dan nilai nya tidak di tentukan pada tombol masing-masing maka dari itu program menjalankan perintah yg ada dalam module yaitu  “ Public Const alamat As String = "kuningan" di ambil secara global atau luar karena menggunakan public

3. karena button “ tambah umur 1” menggunakan Dim yang sudah dikenal di tempat variabel itu dipesan,dan nilai variabel nya sendiri telah di tentukan = 1.

Sedangkan button “tambah umur2” mengunakan static yang nilai itu tidak akan hilang saat program berjalan.dan nilai itu +1.maka setiap kali menekan button “tambah umur 2” nilai nya akan bertambah 1

4. menurut saya pada Form “formdua” itu mengunakan tiga button yang masing-masing button tidak di isi variabel dan nilai nya. maka nilai pada button di  “formdua” mengambil nilai variabel dari module. karena pada module mengunakan public (dikenal disetiap From program).

berikut tampilan program Form satu dan Form dua :

2. LATIHAN PROGRAM KE2 DAN PENJELASANYA(IF ,CASE)

  

a.)Menurut saya ada yang kurang pada  program if dan case tersebut, pada saat kita sudah memilih barang dan mengisi semua textbox kemudian ingin mengganti barang tanpa menekan button “Clear” , perhitungan sebelumnya tidak otomatis terhapus dan masih tetap ada..

Maka dari itu saya menambahkan kode program supaya perhitungan sebelumnya otomatis bisa terhapus jika mengganti barang tanpa harus menekan button “Clear”   

        txtnama.Text = namabarang

        txtharga.Text = harga

        txtjumlah.Text = ""

        txttotal.Text = ""

        txtdiskon.Text = ""

        txttotalbayar.Text = ""

        Me.Radiotunai.Checked = False

        Me.Radiokredit.Checked = False

b.)Pada “cmbkode” nama barang “TAS”  belum di tentukan harga pada tas tersebut maka saya memperbaiki dengan menambahkan

       

Case "TAS"

                namabarang = "tas"

                harga = 700000

 berikut tampilan sebelum diperbaiki :

dan berikut tampilan setelah diperbaiki :

Penjelasan program ,

penghitungan “total bayar” di dapat dari “harga barang”(yang telah di tetapkan) kemudian dikalikan “jumlah barang”.

Dan “total bayar” di hitung dari “total harga”  dikurangi diskon  . Jika memilih “Radiotunai” berarti kita mendapatkan diskon 10% (Rumus “diskon” berasal dari “totalharga” dikalikan 10/100.), jika memilih “Radiokredit” kita tidak mendapatkan diskon.

 Rumus / kode  perhitungan yang terdapat program tersebut adalah:

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

Dan,

    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