Di sini menerima pembuatan Program Aplikasi, bila anda berminat bisa kontak lewat via Email rizal.lonly@gmail.com, dan bila ada link yang rusak segera hubungi admin, Terima kasih atas kunjungannya.

Script Code : Buat Billing Rental Komputer

Posted on
  • Sunday, December 18, 2011
  • by
  • Rizal
  • in
  • Labels:
  • Anda sekalian pasti sudah tahu apa itu Billing? Nah, disini saya akan berbagi Script Code tentang membuat Billing Rental Komputer, bahasa pemprograman yang digunakan adalah bahasa pemprograman VB (Visual Basic), bisa juga dicoba dengan bahasa pemprograman yang lainnya seperti Java maupun Foxpro, tapi memang harus sedikit merubah perintahnya saja. Jika anda tertarik untuk mencoba bisa mengikuti langkah-langkah berikut ini, disini anda tinggal mengklik menu dibawah ini!
    1.  Forms
         -  FrmBilling(FrmBilling.frm)
         -  frmHelp(frmHelp.frm)
         -  FrmMenu(FrmMenu.frm)
         -  frmSplash(frmSplash.frm)

    --------------------------------------------------------------------------------------------------
    1.  Forms
         -  FrmBilling
         Script Code :
    Private Sub CekRental_Click()
    CekSendiri.Enabled = False
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub CekSendiri_Click()
    CekRental.Enabled = False
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub CmdBilUlang_Click()
    DTPickTgl.Enabled = False
    CmdMasuk.Enabled = False
    TxtMasuk.Text = ""
    TxtMasuk.Enabled = False
    CmdKeluar.Enabled = False
    TxtKeluar.Text = ""
    TxtKeluar.Enabled = False
    CmdLama.Enabled = False
    TxtLama.Text = ""
    TxtLama.Enabled = False
    OptYa.Value = False
    OptTidak.Value = False
    OptYa.Enabled = False
    OptTidak.Enabled = False
    CekSendiri.Value = 0
    CekRental.Value = 0
    CekSendiri.Enabled = False
    CekRental.Enabled = False
    TxtPrint.Text = ""
    TxtPrint.Enabled = False
    txtTotal.Text = ""
    txtTotal.Enabled = False
    CmdHitung.Enabled = False
    CmdBilUlang.Enabled = False
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub CmdHitung_Click()
    Dim lama_rental As Integer
    Dim kertas As Integer
    Dim banyak_print As Integer
    lama_rental = TxtLama.Text
    biaya_rental = (lama_rental / 60) * 1000
    If CekRental.Value = Checked Then
    kertas = 300
    Else
    kertas = 200
    End If
    banyak_print = TxtPrint.Text
    biaya_print = banyak_print * kertas
    txtTotal.Text = biaya_rental + biaya_print
    txtTotal.Text = Format(txtTotal.Text, "Rp ###,###,###")
    CmdBilUlang.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub CmdKeluar_Click()
    TxtKeluar.Enabled = True
    TxtKeluar.Text = Time
    CmdLama.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub CmdLama_Click()
    TxtLama.Enabled = True
    TxtLama.Text = DateDiff("n", TxtMasuk.Text, TxtKeluar.Text)
    OptYa.Enabled = True
    OptTidak.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub CmdMasuk_Click()
    TxtMasuk.Enabled = True
    TxtMasuk.Text = Time
    CmdKeluar.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub ComHari_Change()
    If ComHari.Text = "Senin" Or ComHari.Text = "Selasa" Or ComHari.Text = "Rabu" Or ComHari.Text = "Kamis" Or ComHari.Text = "Jumat" Or ComHari.Text = "Sabtu" Or ComHari.Text = "Minggu" Then
    CmdMasuk.Enabled = True
    DTPickTgl.Enabled = True
    Else
    X = MsgBox("Nama hari yang Anda isi Salah !!! Silahkan memilih dari daftar yang telah tersedia", vbOKOnly, "Nama Hari Salah")
    ComHari.SetFocus
    End If
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub ComHari_DropDown()
    CmdMasuk.Enabled = True
    DTPickTgl.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub ComHari_KeyDown(KeyCode As Integer, Shift As Integer)
    CmdMasuk.Enabled = True
    DTPickTgl.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub Form_Load()
    FrmBilling.Top = 0
    FrmBilling.Left = 0
    DTPickTgl.Enabled = False
    CmdMasuk.Enabled = False
    CmdKeluar.Enabled = False
    CmdLama.Enabled = False
    OptYa.Enabled = False
    OptTidak.Enabled = False
    CekSendiri.Enabled = False
    CekRental.Enabled = False
    TxtPrint.Enabled = False
    txtTotal.Enabled = False
    CmdHitung.Enabled = False
    CmdBilUlang.Enabled = False
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub Image1_Click()
    FrmBilling.Hide
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub OptTidak_Click()
    CekSendiri.Enabled = False
    CekRental.Enabled = False
    TxtPrint.Text = "0"
    TxtPrint.Enabled = False
    CmdHitung.Enabled = True
    CmdHitung.Default = True
    CmdBilUlang.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub OptYa_Click()
    OptTidak.Enabled = False
    CekSendiri.Enabled = True
    CekRental.Enabled = True
    TxtPrint.Enabled = True
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub TxtPrint_Change()
    CmdHitung.Enabled = True
    End Sub
        -  frmHelp
         Script Code :
    Option Explicit
    -----------------------------------------------------------------------------------------
    Private Sub CmdOk_Click()
    Unload Me
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub Form_Resize()
    CmdOk.Move (Me.ScaleWidth - CmdOk.Width) / 2, Me.ScaleHeight - CmdOk.Height - 120
    txtHelp.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - CmdOk.Height - 240
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub txtHelp_Click()
    CmdOk.SetFocus
    End Sub
        -  FrmMenu
         Script Code :
    Private Sub MnuBantu_Click()
    frmHelp.Show
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub MnuInputBil_Click()
    FrmBilling.Show
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub TmrAnimasi_Timer()
    FrmMenu.Caption = Right(FrmMenu.Caption, Len(FrmMenu.Caption) - 1) & Left(FrmMenu.Caption, 1)
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "ToolBilling"
    FrmBilling.Show
    Case "ToolHelp"
    frmHelp.Show
    Case "ToolExit"
    End
    End Select
    End Sub
         - frmSplash
         Script Code :
    Option Explicit
    -----------------------------------------------------------------------------------------
    Private Sub Form_Click()
    animasilayar
    Unload Me
    FrmMenu.Show
    End Sub
    -----------------------------------------------------------------------------------------
    Private Sub Form_KeyPress(KeyAscii As Integer)
    animasilayar
    Unload Me
    FrmMenu.Show
    End Sub
    -----------------------------------------------------------------------------------------
    Sub animasilayar()
    Dim i As Integer
    i = Me.Height
    While i >= frmSplash.Height
    i = i - 110
    If i < frmSplash.Height Then
    Me.Height = i
    Else
    Me.Height = frmSplash.Height
    End If
    DoEvents
    Wend
    i = Me.Top
    i = Me.Top
    While i > 0
    Me.Move Me.Left, i, Me.Width, Me.Height
    i = i - 330
    DoEvents
    Wend
    i = Me.Left
    While i < Screen.Width
    Me.Move i, Me.Top + 135, Me.Width, Me.Height
    i = i + 335
    DoEvents
    Wend
    End Sub
    Sekian dulu informasi dari saya, apabila ada pertanyaan bisa lewat kotak komentar.
    Terima kasih, semoga bermanfaat!

    Baca Juga Artikel Terkait :

     
    Copyright © 2011 - 2012 Blogger templates by Rizal