Kumpulan Tugas

 Frenki Setia Budi - 11.11.2004 - TI 11 Sore

Tugas 1

Tugas 2

Tugas 3

Tugas 4

Tugas 7

Tugas 8

Tugas 9

TUGAS VB 2

Lat. 1

 

Pertanyaan :

1. Apa yang menyebabkan program error pada btalamat_click pada baris alamat “Banyumas”
2. Kenapa pada waktu ditekan tombol nama1 dan nama 2 nama yang ditampilkan pada textbox berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 alamat yang ditampilkan pada textbox sama
3. Kenapa saat ditekan tombol tambah umur 1 umur selalu keluar angka 1 sedangkan pada saat ditekan tombol umur 2 umur selalu bertambah 1 dari umur sebelumnya
4. Berilah analisa untuk form 2

Jawaban :

1. Pendeklarasian const memiliki nilai variabel tetap, jadi tidak bisa dRUN program karena pada btalamat1 ditulis kembali. Jika ingin tetap bisa diRUN program maka btalamt1 harus diganti dengan nama alamat yang lain misal “CILACAP” atau const diganti menggunakan DIM, karena DIM dapat digunakan pada modul, program, dan sub-program.
2. Pada sub-program btnama1 yang digunakan nama depan, sedangkan pada btnama2 di deklarasikan kembali menggunakan nama lengkap yang diambil dari variabel global.

Pengambilan alamat pada tombol alamat 1 dan alamat 2 berbeda karena pada btalamat1 dideklarasikan sendiri tetapi pada btalamat2 menggunakan variabel lokal.

3. Pada tombal tambah umur 1 deklarasian variabelnya menggunakan DIM sehingga pada saat tombol ditekan, program akan meReset awal lagi dan data yang lama akan hilang, sedangakan pada tombol tambah umur 2 variabel dideklarasikan menggunakan static, dimana ketika tombol ditekan, program akan menyimpan data yang lama kemudian akan menambahkannya dengan data yang baru.
4. Form2 hanya bisa dijalankan setelah form1 diRUN program karena showform2 ada pada form1 dan semua pendeklarasian ada pada form1.

  

 

Lat.2

1. Analisa program lat. 2 if dab case kemudian perbaiki  

Jawaban :

pada saat sebelum dianalisa, hasil Run program akan berjalan tetapi pada waktu jml.barang yang diinput diganti dengan inputan berbeda hasilnya akan error atau tidak sesuai. Ketika Run program berjalan  dan semua text box diisi ( kode barang, jumlah barang dan pilihan tunai atau kredit ), kode dan jumlah barang tidak bisa langsung diganti tetapi harus menekan tombol clear terlebih dulu, jika langsung di ganti maka  yang dihasilkan tidak sesuai dengan yang kenyataan.  Hal ini membuat tidak efektif dan efisien waktu pekerjaan jika harus menekan tombol clear dulu dan memualinya dari awal transaksi lagi. 

 

Maka pada txtjmlbrg diberi koding

 

 sedangkan sebelumnya

 Run Program

Run Program 

“ TRANSAKSI PENJUALAN PD WARUNG MAKAN ”

Koding Program Transaksi

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btot.Click
        Dim bayar As Double
        Dim total As Double
        Dim total2 As Double

        total = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        total2 = total - (total * 3 / 100)


        If bns.Checked = True Then
            bayar = total2
        Else
            bayar = total

        End If


        MsgBox("makan  : " & Combomkn.Text & "    jumlah : " & combobli1.Text & vbNewLine & _
                      "minum : " & Combomnm.Text & "    jumlah : " & Combobli2.Text & vbNewLine & _
                      "jumlah  : " & jmlbyr1.Text & vbNewLine & _
                      "Bayar     : " & klii.Text & vbNewLine & _
               "Kembali : Rp " & klii.Text - bayar)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combomkn.SelectedIndexChanged
        If Combomkn.Text = "BAKSO" Then
            hrgmkn.Text = 7000
        ElseIf Combomkn.Text = "MIE AYAM" Then
            hrgmkn.Text = 6500
        ElseIf Combomkn.Text = "NASI GORENG" Then
            hrgmkn.Text = 8000
        ElseIf Combomkn.Text = "GADO-GADO" Then
            hrgmkn.Text = 6000
        ElseIf Combomkn.Text = "RAMES" Then
            hrgmkn.Text = 4000


        End If

    End Sub

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

    End Sub

    Private Sub Combomnm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combomnm.SelectedIndexChanged
        If Combomnm.Text = "ES TEH" Then
            hrgmnm.Text = 2500
        ElseIf Combomnm.Text = "ES JERUK" Then
            hrgmnm.Text = 3000
        ElseIf Combomnm.Text = "SOFT DRINK" Then
            hrgmnm.Text = 2500
        ElseIf Combomnm.Text = "SODA GILA" Then
            hrgmnm.Text = 5000
       
        End If

    End Sub

    Private Sub lnn_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub jmlbyr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlbyr1.TextChanged

    End Sub

    Private Sub jmll_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub jmlmnm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub bns_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bns.CheckedChanged

    End Sub

    Private Sub klii_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klii.TextChanged

    End Sub

    Private Sub rst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rst.Click
        Combomkn.Text = ""
        Combomnm.Text = ""
        hrgmkn.Clear()
        combobli1.Text = ""
        hrgmnm.Clear()
        Combobli2.Text = ""
        jmlbyr1.Clear()
        klii.Clear()
        bns.Text = ""



    End Sub

    Private Sub klr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klr.Click
        If MsgBox("Anda Benar-Benar Yakin ? ", vbYesNo + vbQuestion + vbDefaultButton3, "KELUAR") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Combobli2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combobli2.SelectedIndexChanged
        If Combobli2.Text = 1 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 2 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 3 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 4 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        ElseIf Combobli2.Text = 5 Then
            jmlbyr1.Text = hrgmkn.Text * combobli1.Text + hrgmnm.Text * Combobli2.Text
        End If



    End Sub
End Class

Tampilan Keluar

Program Transaksi Penjuanlan pd Warung menggunakan :

1. 9 label untuk makanan, minuman, jml mkn & minum, hrg mkn&minum, diskon, jml byr & kembali.
2. 4 combobox untuk nama makanan, minuman, jlm makanan dan minuman.
3. 4 text box untuk harga satuan makanan dan minuman
4. 1 ceckbox untuk yang mendapat discon
5. 3 botton untuk tombol total, reset, dan keluar

Program ini menggunakan combobox pada  “makanan, minuman, jml makan, jml minum “ dan dengan harga satuan pada masing-masing item makanan dan minuman. Diskon berlaku 3% untuk pembelian > 50.000.

Ket : maaf untuk ket gambar belum bisa diupload karena saya kesulitan dalam memposting gambar, trimakasih.