PENJUALAN KARTU PERDANA

PROJECT

“PENJUALAN KARTU PERDANA”

 Ini merupakan program sederha yang saya buat yaitu “PENJUALAN KARTU PERDANA”

Langkah pertama buat lah Form program seperti di bawah ini:

Toolbox yang digunakan antara lain adalah:

1. Untuk Penamaan “Kode barang” sampai “Total Bayar” mengunakan tool Label

2. Untuk kolom yang ada tanda panah kebawah menggunakan tool Combobox

3. Untuk kolom kosong menggunakan tool TextBox

4. Untuk Tunai dan Kredit menggunakan tool RadioButton 

 

·         Lngkah pertama pillih new project untuk membuka lembar baru .

 

·         Lalu pillih Windows Forms Application

·         Beri nama padda folder  = WindowsApplication2

·         Kemudian pliih Brows

                                                  

·         Akan muncul lembar baru seperti gambar di atas.

 

·         Untuk mengisi lembar kosong pillih toolbox ,di sana terdapat pilihan (Label) untuk judul .nama perdana,daftar harga,jenis kartu perdana “indosat,Telkomsel,XL” jumlah barang.

·         Lalu pillih menu button pada menu toolbox untuk tombol Clear & Exit.

 

·         Setelah selese mendisain pillih menu Debug lalu klik menu run ,akkan muncul tampilan seperti di atas .

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

        TxtIndos.Clear()

        TxtTelkoms.Clear()

        TxtXL.Clear()

        TxtJmlbay.Clear()

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        TxtJmlbay.Text = Val(TxtIndos.Text) + Val(TxtTelkoms.Text) + Val(TxtXL.Text)

    End Sub

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

        If MsgBox("Anda Yakin Ingin Keluar", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

            Me.Close()

        End If

    End Sub

End Class