Senin, 22 Oktober 2012

Tugas Kuliah


Di post pertama saya , saya akan menjelaskan sedikit cara Membuat Aplikasi Sparepart MOTOR Menggunakan Visual Basic dan dibuat menggunakan program Microsoft Visual Studio 2010 .
Langkah – Langkah Membuat Aplikasi Sparepart Motor
1. Buka Microsoft Visual Studio 2010
2. Buka File –> New Project –> pilih windows form application
3. Buatlah design form sesukamu .
dan inilah design yang saya sudah buat


untuk memasukkan Label, Button , serta Textbox kedalam form adalah dengan cara drag salah satu tool tersebut di dalam toolbox ke form tersebut .
4. Setelah itu beri nama masing-masing Label, Textbox, dan Buttonnya supaya memudahkan dalam menulis script .
5. Beri Script pada ke tiga button tersebut dengan cara double click pada button tersebut .
A. Button Hitung :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim harga, jumlah, disc, beli, totdisc, bayar As Integer
        harga = Val(txtharga.Text)
        jumlah = Val(txtjumlah.Text)
        disc = Val(txtdiscount.Text)
        beli = (harga * jumlah)
        totdisc = (beli * disc) / 100
        bayar = (beli - totdisc)
        MsgBox("Rincian Biaya Pembelian" & vbNewLine & vbNewLine & _
        "Kode : " & txtkode.Text & vbNewLine & _
        "Nama barang : " & txtbarang.Text & vbNewLine & _
        "Merk : " & txtmerk.Text & vbNewLine & _
        "Harga : " & txtharga.Text & vbNewLine & _
        "Jumlah : " & txtjumlah.Text & vbNewLine & _
        "Discount : " & txtdiscount.Text & " %" & vbNewLine & _
        "Harga discount : Rp. " & totdisc & vbNewLine & vbNewLine & _
        "Total Bayar : Rp. " & bayar & vbNewLine)
        
    End Sub

B. Button Hapus
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtkode.Clear()
        txtbarang.Clear()
        txtmerk.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        txtdiscount.Clear()
        txtkode.Focus()
    End Sub
C. Button Keluar
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Sumpah LU mau KELUAR ??? ", 4 + 32 + 256, "cIYUUUSSS") = 6 Then
            Me.Close()
        End If
    End Sub
6. Lalu jalankan program tersebut dengan cara klik tombol icon play ( segitiga miring warna hijau )
7. ScreenShoot Program yang telah dijalankan :

Setelah di klik button hitung :


Setelah di klik button keluar :