Tugas 1

Tugas membuat Aplikasi dengan Visual Basic Studio 2010

Langkah – Langkah Membuat Aplikasi Penjualan Merchandise  :

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 Calculate :

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 & _

        "Jenis Baju : " & txtbaju.Text & vbNewLine & _

        "Marchendise : " & txtmer.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 Del

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

        txtkode.Clear()

        txtbaju.Clear()

        txtmer.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 buttonkeluar.Click
If MsgBox(“you want to exit ??? miapaaahhh “, 4 + 32 + 256, “Exit”) = 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 Calculate :

Jika anda ingin menyudahi Aplikasi tersebut, tekan button EXIT 

Klik yes untuk Keluar ...

TERIMAKASIH 

SAMA - SAMAAAAAAAAAAAAAAAAAA ....