
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 Form1Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickLabel2.Left = Label2.Left - 4If Label2.Left = -250 ThenLabel2.Left = 510End IfEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadComboBox1.Items.Add("Lokal")ComboBox1.Items.Add("Interlokal")TextBox4.Text = ("Malang")End SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedIf ComboBox1.SelectedIndex = "0" ThenTextBox6.Text = " 300 "TextBox7.Text = " ....... 0"TextBox3.Text = " 1250 "TextBox8.Text = " 1434341-2010 "ElseTextBox6.Text = " 700 "TextBox7.Text = " ....... 0"TextBox3.Text = " 1500 "TextBox8.Text = " 1324566777-2010 "End IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b, c, d As Doublea = CDbl(TextBox3.Text)b = CDbl(TextBox6.Text)c = CDbl(TextBox5.Text)d = a + b + cTextBox9.Text = CDbl(d)End SubPrivate Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChangedButton1.Enabled = TrueEnd SubPrivate Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.TickLabel15.Left = Label15.Left - 4If Label15.Left = -250 ThenLabel15.Left = 510End IfEnd SubPrivate Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.ClickEndEnd SubPrivate Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.ClickTextBox1.Clear()TextBox2.Clear()TextBox6.Clear()TextBox7.Clear()TextBox8.Clear()TextBox9.Clear()TextBox3.Clear()TextBox5.Clear()End SubPrivate Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.TickLabel14.Left = Label14.Left - 3If Label14.Left = -200 ThenLabel14.Left = 510End IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)MsgBox("okkkkk")End SubEnd Class
1 komentar:
Write komentarMas Boleh Minta Full source nya nggak ?
Replytolong kirim ke email : victor@dirge-inferno.com