Minggu, 03 April 2011

Tugas Visual Basic part 2

ini adalah tugas visual basic part 2

ini adalah tampilan awal form 1 nya ada yang menggunakan combobox untuk tanggal,bulan dan tahunnya

ini adalah tampilan program untuk form 1 saat kita mau buka form 2 nya lewat button

ini adalah tampilan program untuk form 2 menggunakan fungsi IF ELSE apabila si pembeli membeli barang 25 barang akan diberikan diskon 15%, dan apabila kurang atau lebih dari 25 unit maka tidak mendapat diskon.

ini adalah debug awal dan tanggal nya keluar karena menggunakan combobox

yang ini bulannya keluar karena combobox

ini tahunnya keluar karena combobox


ini tampilan kalau pembeliannya lebih dari 25 unit,diskonnya jadi nol (0)


ini hasil debug kalau pembellian 25 unit , dapat diskon 15%


demikianlah,program saya harap bapak maklum dengan segala kekurangan.
dini nurma fitria-1006724324

saya membuat program pembayaran untuk perusahaan yang bergerak dibidang penjualan barang elektronik.

Kamis, 03 Maret 2011

TUGAS VISUAL BASIC - MEMBUAT PROGRAM KASIR-

ini adalah project program visual basic 2011, projectnya tentang pembuatan mesin kasir. yang bisa digunakan untuk menghitung jumlah harga,diskon dan total harga yang harus dibayar.



dua gambar diatas adalah coding yang digunakan untuk membuat programnya.



dan dua gambar diatas ini adalah form programnya.


gambar yang terakhir ini adalah hasil dari program yang sudah di debug.


ini adalah coding untuk membuar form yang pertama:

Public Class Form1

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox4.Text = TextBox2.Text * TextBox3.Text
        TextBox5.Text = TextBox4.Text * 0.1
        TextBox6.Text = TextBox4.Text - TextBox5.Text

    End Sub

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

End Class

lalu yang ini adalah coding untuk membuat form kedua

Public Class Form2

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

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = TextBox1.Text - TextBox2.Text
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("LUNAS", "PEMBAYARAN", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class