VB.NET Program Rekening Listrik

Program Selanjutnya yang saya bagikan ini adalah Tugas Kuliah Saya yaitu membuat tagihan Rekening Telpon atau bias digunakan juga untuk rekening listrik . . .

Program ini merupakan penggabungan antara Combobox dan juga default  dari textbox  

Inputan berupa nama pelanggan dan id Pelanggan dan beberapa ketentuan umum sehingga seolah-olah ini menjadi software yang digunakan dipetugas Rekeneing listrik .

Baik langsung saja teman buka vb.net nya ..  .

Lalu buat project baru. . . .

Bentuk Form seperti gambar dibawah ini :

Keterangan form diatas :

Pada Label jl. Hasanudin 04 Donomulyo dibuat berjalan kekiri . . .

Dan ketika button cek tagihan di klik maka Di total akan tampil jumlah latihan . . .

Jangan Lupa tambahkan juga timer nya . . .  seperti gambar di bawah ini.

Langsung saja anda buat ya, dan berikut ini listing  programnya silahkan anda copy

Dan kalau anda bingung silahkan tulis coment saja . . .

//Listing Program

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label2.Left = Label2.Left - 4

        If Label2.Left = -250 Then

            Label2.Left = 510

        End If

    End Sub



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

        ComboBox1.Items.Add("Lokal")

        ComboBox1.Items.Add("Interlokal")

        TextBox4.Text = ("Malang")



    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedIndex = "0" Then

            TextBox6.Text = " 300 "

            TextBox7.Text = " ....... 0"

            TextBox3.Text = " 1250 "

            TextBox8.Text = " 1434341-2010 "

        Else

            TextBox6.Text = " 700 "

            TextBox7.Text = " ....... 0"

            TextBox3.Text = " 1500 "

            TextBox8.Text = " 1324566777-2010 "

        End If

    End Sub



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

        Dim a, b, c, d As Double

        a = CDbl(TextBox3.Text)

        b = CDbl(TextBox6.Text)

        c = CDbl(TextBox5.Text)

        d = a + b + c

        TextBox9.Text = CDbl(d)

    End Sub



    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

        Button1.Enabled = True



    End Sub



    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Label15.Left = Label15.Left - 4

        If Label15.Left = -250 Then

            Label15.Left = 510

        End If

    End Sub



    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End



    End Sub



    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        TextBox9.Clear()

        TextBox3.Clear()

        TextBox5.Clear()



    End Sub





    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Label14.Left = Label14.Left - 3

        If Label14.Left = -200 Then

            Label14.Left = 510

        End If



    End Sub



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

        MsgBox("okkkkk")

    End Sub

End Class 

Hasilnya setelah Di Compile