option.bas

Billing Internet Cafe

Attribute VB_Name = "Option"
Public Const SockMax As Integer = 40
Public Const ClientMax As Integer = 40
Public Const NamaAplikasi As String = "BLacK PeaRL Billing Server"
Public Const VersiAplikasi As String = "004"
Public Const Penulis As String = "H@nSounDr3N@Lin3"
Public Const EmailPenulis As String = "[e-mail]"
Public Const HomePage As String = "theblackpearl86.blogspot.com"
Public Const setmnuServer As String = "File"
Public Const setmnuMatikan As String = "Exit"
Public Const setmnuClient As String = "Client"
Public Const setmnuStop As String = "Stop Client"
Public Const setmnuPindah As String = "Pindah Client"
Public Const setmnuShutdown As String = "Shutdown Client"
Public Const setmnuSetPasswordClient As String = "Set Password"
Public Const setmnuSetting As String = "Setting"
Public Const setmnuKonfig As String = "Konfigurasi"
Public Const setmnuUser As String = "Daftar User"
Public Const setmnuLaporan As String = "Laporan"
Public Const setmnuRekap As String = "Laporan Billing"
Public Const setmnuDeposit As String = "Status Pemakaian Member"
Public Const setmnuUtil As String = "Perangkat"
Public Const setmnuMember As String = "Member"
Public Const setmnuPesan As String = "Pesan"
Public Const setmnuBackup As String = "Backup Database"
Public Const setmnuHelp As String = "Help"
Public Const setmnuAbout As String = "About"
Public Const setPersonal As String = "personal"
Public Const setPelajar As String = "pelajar"
Public Const setMember As String = "member"
Public Const setGame As String = "game"
Public Const setKetik As String = "ketik"
Public Const setBebas As String = "Disconnected"
Public Const setAktif As String = "Connected"
Public Const setClient As String = "WStation "
Public Const setNamaUser As String = "Nama Client"
Public Const setStatus As String = "Status"
Public Const setMulai As String = "Mulai"
Public Const setDurasi As String = "Durasi"
Public Const setBiaya As String = "Biaya"
Public Const setJenis As String = "Jenis"
Public Const setDiscount As String = "Happy hours"
Public Const setTotal As String = "Total"
Public Const setNota As String = "Nota"
Public Const setNo As String = "No."
Public Const setTanggal As String = "Tanggal"
Public Const setSelesai As String = "Selesai"
Public Const setNamaMember As String = "Nama Member"
Public Const setAlamat As String = "Alamat"
Public Const setNoTelp As String = "No. Telp"
Public Const setDeposit As String = "Deposit"
Public Const setLaporanRekap As String = "Laporan Billing/Rekap Billing Tanggal "
'global

'greeting
Public Const setGreeting As String = "Terima Kasih Atas Kunjungan Anda Ketempat Kami"

'definisi setingan umum
Public mata_uang As String
Public Discount As Long
Public jam_awal As String
Public jam_akhir As String
Public harga_personal As Single
Public harga_member As Single
Public harga_pelajar As Single
Public harga_game As Single
Public harga_ketik As Single
Public harga_awal As Single
Public deposit_min As Single
Public password_admin As String
Public clientpopup As Long
Public pathdata As String
'def form pesan loaded
Public FrmPesanLoad As Boolean
Public Sub setMenu()
    FrmMain.mnuserver.Caption = setmnuServer
    FrmMain.mnumati.Caption = setmnuMatikan
    FrmMain.mnuclient.Caption = setmnuClient
    FrmMain.mnustop.Caption = setmnuStop
    FrmMain.mnupindah.Caption = setmnuPindah
    FrmMain.mnushutdown.Caption = setmnuShutdown
    FrmMain.mnupassadmin.Caption = setmnuSetPasswordClient
    FrmMain.mnusetting.Caption = setmnuSetting
    FrmMain.mnuconfig.Caption = setmnuKonfig
    FrmMain.mnuuser.Caption = setmnuUser
    FrmMain.mnulaporan.Caption = setmnuLaporan
    FrmMain.mnurekap.Caption = setmnuRekap
    FrmMain.mnudeposit.Caption = setmnuDeposit
    FrmMain.mnuutil.Caption = setmnuUtil
    FrmMain.mnumember.Caption = setmnuMember
    FrmMain.mnupesan.Caption = setmnuPesan
    FrmMain.mnubackup.Caption = setmnuBackup
    FrmMain.mnuhelp.Caption = setmnuHelp
    FrmMain.mnuabout.Caption = setmnuAbout
End Sub