assalamu alaikum... sobat semuanya. mw cari tugas billing wartel yach. bisa diatur ini da billing yach semoga sesuai nya dengan yang saya buat ne.

pertama kita buat database pada MySQL pada Wamp. setelah itu kita buat program nya pada Visual Basic. objeck yang diperlukan yaitu : LABEL, CommandButton, Frame, AdoDC, DataGrid, Timer.

tampilan billing saat di Run (F5)

kemudian buat form baru untuk membuat menu utama (projeck-add form) dan buat laporannya untuk mengetahui setiap pemakaian yang dipakai pelanggan. buat data envirotment dan data reportnya. pasti tahu lha membuat laporan. berikut tampilan laporan biiling wartelnya.

source code billing

Dim mulai As Double

Private Sub Command1_Click()

mulai = Now

Timer1 = True

Text1.Text = Format$(Now, "hh:mm:ss")

End Sub

Private Sub Command2_Click()

Dim biaya As Integer

Timer1 = False

Text3.Text = Format$(Now, "hh:mm:ss")

Text2.Text = Format$(Now - mulai, "hh:mm:ss")

Selesai = Now

lama = Selesai - mulai

Lm_Detik = (Hour(lama) * 3600) + (Minute(lama) * 60) + (Second(lama))

If Text6.Text = "yogyakarta" Then

biaya = Lm_Detik * 100

Text4.Text = Format(biaya, "rp. #,#")

End If

If Text6.Text = "medan" Then

biaya = Lm_Detik * 25

Text4.Text = Format(biaya, "rp. #,#")

End If

If Text6.Text = "ponsel" Then

biaya = Lm_Detik * 75

Text4.Text = Format(biaya, "rp. #,#")

End If

Text3.Text = Format(Selesai, "hh:mm:ss")

Text2.Text = Lm_Detik

Adodc1.Recordset.MoveFirst

While Adodc1.Recordset("No_Tujuan") <> Text5.Text

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF = True Then

Adodc1.Recordset.AddNew

Adodc1.Recordset("No_Tujuan") = Text5.Text

Adodc1.Recordset("Kota_Tujuan") = Text6.Text

Adodc1.Recordset("Mulai") = Text1.Text

Adodc1.Recordset("Durasi") = Text2.Text

Adodc1.Recordset("Selesai") = Text3.Text

Adodc1.Recordset("Biaya") = Text4.Text

Adodc1.Recordset.Update

Exit Sub

Exit Sub

End If

Wend

End Sub

Private Sub Text5_Change()

If Text5.Text = "0274" Then

Text6.Text = "yogyakarta"

End If

If Text5.Text = "061" Then

Text6.Text = "medan"

End If

If Text5.Text = "081" Then

Text6.Text = "ponsel"

End If

Exit Sub

End Sub

Private Sub Timer1_Timer()

Text7.Text = Format$(Now - mulai, "hh:mm:ss")

Text2.Text = Format$(Now - mulai, "hh:mm:ss")

Text4.Text = Format(biaya, "rp, #,#")

Timer1 = True

End Sub

thank you anda mengunjungi blog ini jgn lupa donk komentar sobat sekalian...

dan saya akhiri dengan Alhamdullilah..

selesai juga tugas kami ini. semoga bermanfaaatnya bagi yang mencari tugasnya.
kelompok kami sbb:
Manajemen informatika / semester IV / executive

1. sri endang pertiwi
2. sri rahayu
3. novia mayandari
4. sri wahyuni
5. salmiah
6. dian

STMIK - AMIK INTELCOM G0LOBALINDO