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 :