Interface Sebuah Aplikasi Menggunakan Visual Basic



  •  Form Pertama yaitu Form Login :




  • Source Code :

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    LoginSucceeded = False
    Form9.Show
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "admin" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        MsgBox "Selamat Datang Selamat Datang", vbInformation, "login"
        MDIForm1.Show
        Unload Me
        Me.Hide
    Else
        MsgBox "Password salah, ulangi!!", , "Login"
        txtPassword.SetFocus
    End If
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

  • Form Kedua Yaitu Form MDIForm1 ( menu utama )

  • Source Code :

Private Sub exit_Click()
Form8.Show
Unload Me
End Sub

Private Sub lap_kembali_Click()
Form7.Show
Unload Me
End Sub

Private Sub lap_pinjam_Click()
Form6.Show
Unload Me
End Sub

Private Sub logout_Click()
frmLogin.Show
Unload Me
End Sub

Private Sub MDIForm_Load()
Skin1.ApplySkin Me.hWnd
End Sub

Private Sub mobil_Click()
Form2.Show
Unload Me
End Sub

Private Sub pelanggan_Click()
Form4.Show
Unload Me
End Sub

Private Sub peminjaman_Click()
Form5.Show
Unload Me
End Sub

Private Sub pengembalian_Click()
Form1.Show
Unload Me
End Sub

Private Sub petugas_Click()
Form3.Show
Unload Me
End Sub


  • Form Ketiga Yaitu Form Input Data Mobil

  • Source Code :

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command4_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub


  • Form Keempat Yaitu Form Input Data Pelanngan


  • Source Code :

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Label4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

  • Form Kelima Yaitu Form Data Petugas

  • Source Code :

Private Sub music_Click()

End Sub

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command4_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub


  • Form Keenam Yaitu Form Transaksi Peminjaman

  • Source Code :


Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Label15_Click()

End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

  • Form Ketujuh Yaitu Form Transaksi Pengembalian


  •  Source Code :

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub

  • Form Kedelapan Yaitu Form Laporan Peminjaman

  • Source Code :

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub


  • Form Kesembilan Yaitu Form Laporan Pengembalian

  • Source Code :

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub


  • Form Kesepuluh Yaitu Form Keluar

  • Source Code :

Private Sub Command1_Click()
End

End Sub

Private Sub Command2_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

Makalah Sistem Operasi Terdistribusi

Gambar
KATA  PENGANTAR Puji syukur kita panjatkan atas kehadiran Tuhan Yang Maha Esa yang telah memberikan segala rahmat serta hidayah-Nya kepada kita, sehingga penulis dapat menyelesaikan tugas ini untuk melengkapi tugas-tugas Sistem Operasi. Makalah ini disusun melalui beberapa tahapan, yakni dari browsing, dan juga menggunakan jasa layanan Internet sampai makalah ini selesai dibuat, makalah ini dapat terselesaikan oleh penulis berkat bantuan dari teman-teman yang tidak henti-hentinya memberikan motivasi. Dalam menyusun Tugas Kelompok ini penulis merasa masih banyak kekurangan-kekurangan baik pada teknis penulisan maupun  materi, mengingat akan kemampuan yang dimiliki penulis. Untuk itu kritik dan saran dari semua pihak sangat penulis harapkan demi penyempurnaan pembuatan Tugas Kelompok  ini. Dari permasalahan yang telah kita bahas, semoga kita lebih mengetahui dan mempermudah kita dalam menjalankan program browsing tersebut sehingga kita semua dapat mengambil hi...
Baca selengkapnya

Program Mencari Hari Lahir Menggunakan C++

Gambar
Syntax : #include <iostream.h> main() { int tgl,bln,thn,k,f,h,sisa; cout<<"==============================================="<<endl; cout<<" -- ** -- Program Pencarian Hari Lahir -- ** --"<<endl; cout<<"==============================================="<<endl; cout<<endl; cout<<"Masukkan Tanggal Lahir Anda      --> ";cin>>tgl; cout<<"Masukkan Bulan Lahir Anda (1-12) --> ";cin>>bln; cout<<"Masukkan Tahun Lahir Anda        --> ";cin>>thn; cout<<endl; { if (bln == 1) cout<<"Anda Lahir Pada Tanggal ' "<<tgl<<" Januari "<<thn<<" '"<<endl; else if (bln == 2) cout<<"Anda Lahir Pada Tanggal ' "<<tgl<<" Februari "<<thn<<" '"<<endl; else if (bln == 3) cou...
Baca selengkapnya

Program Bank Sederhana Menggunakan C++

Gambar
Syntax : #include<iostream> #include<stdlib.h> #include<iomanip> using namespace std; struct nasabah {                 char nama[30];                 long int norek;                 double saldo; }; int main() {               int n=0;                 nasabah nas[50];                 int i,pil,x,pos;                 long int no;                 doub...
Baca selengkapnya