Tugas Pemrograman Visual 1

MEMBUAT PROGRAM PENJUALAN SEDERHANA

(menggunakan Visual Basic 2010)

- Wahyu Yulirianto, TI 11 Sore -

Selamat datang di Blog saya, dalam kesempatan ini saya akan mencoba membuat suatu program penjualan sederhana (dalam rangka mengerjakan tugas dari dosen) menggunakan program Microsoft Visual Studio 2010. Dalam artikel ini saya akan berikan langkah-langkah untuk membuat program tsb.

Langsung saja ke langkah pertama, tentunya instal dulu Visual Basic 2010, yang belum punya bisa download di sini
langkah berikutnya buka program Microsoft Visual Studio 2010, buka menu file pilih new project, Pada bagian visual basic pilih windows - windows forms application lalu tekan OK. Maka tampilannya akan seperti gambar di bawah ini...

langkah selanjutnya membuat FORM, masukkahn toolbox-toolbox yang akan diganakan, karena program ini sederhana makam toolbox yang digunakan hanya 3 macam saja yaitu :

1. Label sebanyak 4 buah : untuk Kode Barang, Nama Barang, Harga dan Jumlah

2. TextBox sebanyak 4 buah : untuk mengisi Kode Barang, Nama Barang, Harga dan Jumlah

3. Button sebanyak 5 buah : untuk tombol total harga, diskon, total bayar, selesai dan keluar

lebih jelasnya seperti gambar di bawah ini...

Setelah FORM jadi maka kita akan masukan coding pada setiap tombol button yaitu tombol Jumlah Harga, Diskon, Total Bayar, Selesai dan Exit. Codingnya silahkan dimasukkan satu per satu, caranya double clik pada setiap tombol/button.

1.       Tombol/button “Jumlah Harga”

Logikanya adalah jika tombol “Jumlah Harga” di clik maka dimunculkan messege box yang menyatakan bahwa jumlah harga adalah harga barang dikalikan jumlah beli, maka codingnya seperti ini :

Masukkan dulu coding pada Public Class Form1

Public Class Form1

    Dim a, b, c, d As Double

Lalu pada bagian jumlah harga masukkan coding di bawah ini :

Private Sub btjmlharga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btjmlharga.Click

        a = txtharga.Text()

        b = txtjumlah.Text()

        c = a * b

        MsgBox("Jumlah harga : Rp. " & c)

        End Sub

2.       Tombol/button “Diskon”

Logikanya adalah jika tombol “Diskon” di clik maka dimunculkan messege box yang menyatakan bahwa jika jumlah beli > 9 maka diskon 10% dan jika </= 9 tidak mendapatkan diskon, maka codingnya seperti ini :

Private Sub btdiskon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdiskon.Click

               a = txtharga.Text()

               b = txtjumlah.Text()

               d = (a * b) * 10 / 100

        If b > 9 Then

            MsgBox(" Diskon sebesar = Rp. " & d)

        ElseIf MsgBox(" Anda tidak mendapatkan diskon") Then

        End If

        End Sub

3.       Tombol/button “Total Bayar”

Logikanya adalah jika tombol “Total Bayar” di clik maka dimunculkan messege box yang menyatakan bahwa total bayar adalah jumlah bayar dikurangi diskon, maka codingnya seperti ini :

Private Sub btttlbayar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btttlbayar.Click

               a = txtharga.Text()

               b = txtjumlah.Text()

               c = a * b

               d = (a * b) * 10 / 100

        If b > 9 Then

               MsgBox(" Total Bayar Anda  = Rp. " & c - d)

        ElseIf MsgBox(" Tatal Bayar Anda = Rp. " & c) Then

        End If

        End Sub

4.       Tombol/button “Selesai”

Logikanya adalah jika tombol “Selesai” di clik maka isi seluruh textbox akan di hapus dan pointer akan dimulai dari proses pertama, maka codingnya seperti ini :

Private Sub btselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btselesai.Click

              txtkodebarang.Clear()

              txtnamabarang.Clear()

              txtharga.Clear()

              txtjumlah.Clear()

              txtkodebarang.Focus()

        End Sub

5.       Tombol “Exit”

Logikanya adalah jika tombol “Exit” di clik maka maka dimunculkan messege box yang menyatakan bahwa akan keluar dari program, maka codingnya seperti ini :

Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click

If MsgBox("Anda yakin ingin keluar?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

              Me.Close()

        End If

        End Sub

Setelah semua coding selesai dimasukkan silahkan jalankan programnya dengan perintah start debugging atau tekan tombol F5.

Alhamdulillah, begitulah kira-kira program penjualan sangat sederhana, semoga dapat bermanfaat dan mohon saran dan kritik dari rekan-rekan atau pun dari dosen saya Bapak Nandang Hermanto, S.Kom (program ini dibuat sebagai tugas dari beliau) untuk membangun semangat membuat program-program selanjutnya. Trimakasih