30 June 2011

Effand Nozh

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





Effand Nozh

About Effand Nozh -

Author Description here.. Nulla sagittis convallis. Curabitur consequat. Quisque metus enim, venenatis fermentum, mollis in, porta et, nibh. Duis vulputate elit in elit. Mauris dictum libero id justo.

Subscribe to this Blog via Email :

1 komentar:

Write komentar
cruel
AUTHOR
Thursday, 25 August, 2011 delete

Mas Boleh Minta Full source nya nggak ?

tolong kirim ke email : victor@dirge-inferno.com

Reply
avatar