Membuat program sederhana VB.NET

Sunday, October 26, 2014

Bagikan :

Tweet

Membuat program sederhana VB.NET

Program Pulsa Elektronik "Flazz Unlimited"

Yosh, sudah lama saya tidak memposting di blog ini,, Tapi kali ini saat nya membagi ilmu yang saya dapat ya walau masih newbie tak apalah buat saling belajar ^_^

Silahkan lihat ScreenShoot dari program yang saya telah buat, sekaligus ada contoh coding nya juga dan maaf saya tidak langsung memberikan program yang sudah jadi karena ini bertujuan untuk saling belajar,,

Step 1. Pastikan ya sudah menginstal software Ms. Visual Studio 2010 di Pc / laptop masing - masing,,

Step 2. Lihat gambar dan pastikan koding anda benar,, hehehhe,,

Step 3. Baca doa terlebih dahulu supaya lancar,,

Silahkan dilihat Screenshoot dari program nya,,

Koding :

Masukkan pada BUTTON "BARU"M YANG BERGUNA UNTUK MENGHAPUS RIWAYAT

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

        Me.txt1.Clear()

        Me.txt2.Clear()

        Me.txt4.Clear()

        Me.txt5.Clear()

        Me.cb1.Text = "==PILIH=="

        Me.rbxl.Text = "XL (AXIATA)"

        Me.rbtri.Text = "3 (TRI)"

        Me.rbtsel.Text = "TELKOMSEL"

End Sub

Masukkan Koding ini setelah koding di atas

'Berguna sebagai daftar output pilihan setelah radio button 

    ' Nama Operator" di klik maka akan muncul pilihan di combo jumlah pulsa

    Sub xl()

        Me.cb1.Items.Clear()

        Me.cb1.Items.Add("5000")

        Me.cb1.Items.Add("10000")

        Me.cb1.Items.Add("15000")

        Me.cb1.Items.Add("20000")

    End Sub

    Sub tri()

        Me.cb1.Items.Clear()

        Me.cb1.Items.Add("5000")

        Me.cb1.Items.Add("10000")

        Me.cb1.Items.Add("15000")

        Me.cb1.Items.Add("20000")

    End Sub

    Sub tsel()

        Me.cb1.Items.Clear()

        Me.cb1.Items.Add("5000")

        Me.cb1.Items.Add("10000")

        Me.cb1.Items.Add("15000")

        Me.cb1.Items.Add("20000")

    End Sub

Masukkan Koding ini setelah koding di atas

 Private Sub rb1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbxl.CheckedChanged

        xl()

    End Sub

    Private Sub rb2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtri.CheckedChanged

        tri()

    End Sub

    Private Sub tsel_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtsel.CheckedChanged

        tsel()

    End Sub

Masukkan Koding ini di dalam combo button "JUMLAH PULSA"

Private Sub cb1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb1.SelectedIndexChanged

        If Me.cb1.Text = "5000" Then

            Me.txt2.Text = 5500

        ElseIf Me.cb1.Text = "10000" Then

            Me.txt2.Text = 11000

        ElseIf Me.cb1.Text = "15000" Then

            Me.txt2.Text = 21000

        ElseIf Me.cb1.Text = "20000" Then

            Me.txt2.Text = 21000

        End If

    End Sub

Masukkan Koding ini di dalam button "HITUNG KEMBALI"

'OPERATOR LOGIKA YANG MANA BILA "HARGA PULSA - JUMLAH BAYAR = KEMBALI"

Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click

        'Untuk Mencari Jumlah dari sub harga = "Harga + Lama waktu penyewaan"

        Dim b1, b2 As New Integer

        Dim h As New Double

        b1 = Val(txt2.Text)

        b2 = Val(txt4.Text)

        h = b2 - b1

        txt5.Text = h

    End Sub

Masukkan Koding ini di dalam button "TUTUP"

Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click

        MsgBox("Program Telah Di Tutup, Terimakasih", MsgBoxStyle.Critical, "Pesan")

        Me.Close()

    End Sub

Tag : TUTOR VB.NET