Simple not just a words

Membuat program sederhana VB.NET

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
0 Komentar untuk "Membuat program sederhana VB.NET"

Back To Top