E-Book ini akan sangat membantu dalam menguasai Microsoft Visual Basic 6.0
Disini kamu akan belajar membuat sebuah Aplikasi
Dasar-dasar membuat Aplikasi
Ada 3 form dasar membuat Aplikasi
|
|
Paloh Gadeng, 11 Mei 2011 PENULIS
MUNAZARUDDIN |
|
SEPATAH KATA
Puji syukur kepada ALLAH SWT yang telah memberi saya kesempatan dalam menulis E-book ini. Shalawat tak lupa kepada Nabi Besar Muhammad SAW juga keluarga dan sahabat beliau sekalian serta kepada seluruh ulama baik yang mutaqaddimin maupun yang mutaakhirin.
Do’a selalu kepada kedua orang tua saya yang telah membesarkan dan merawat saya dari kecil hingga saya dewasa seperti sekarang ini.
Ucapan terima kasih saya kepada semua guru-guru yang telah mencurahkan banyak ilmu.
E-book ini berisi secuil ilmu yang saya miliki tentang membuat Aplikasi menggunakan Microsoft Visaul Basic 6.0
Mungkin ada tulisan saya yang kurang bagus mohon dipebesar maaf karena baru belajar menulis sebuah ebook.
Demikilah sepatah kata dari saya, terimakasih telah membaca dan menggunakan ebook ini. Semoga bermamfaat.
Saya kira langsung saja ya...!!!
Baiklah...
· Silahkan buka Microsoft Visual Basic 6.0
· Pilih VB Enterprise Editions Controls
· Klik Open
Setelah itu dilakukan
Kita akan mencoba membuat sebuah frmsplash
Caranya :
· Tambah Form baru
· Pilih Splash Screen
Maka akan muncul seperti digambar dibawah ini :
Lalu edit semua Toolbox dan Propertiesnya yang ada didalam Form sesuai dengan selera. Misal, seperti digambar dibawah ini :
Untuk listing kode frmsplash, seperti ini :
Option Explicit
Dim Cntr As Integer
Dim RegCtrl As Boolean
Private Sub Form_Load()
RegCtrl = False
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title
End Sub
Private Sub Load(Cntr As Integer)
On Error GoTo ErrorMsg
If Cntr = 1 Then
lblStatus.Caption = "Sedang registrasi komponen System..."
tmrLoad.Enabled = False
If RegCtrl = False Then
RegCtrl = True
End If
tmrLoad.Enabled = True
ElseIf Cntr = 2 Then
tmrLoad.Enabled = False
lblStatus.Caption = "Pengaturan Koneksi..."
tmrLoad.Enabled = True
ElseIf Cntr = 3 Then
lblStatus.Caption = "Sedang melakukan scan untuk keamanan Akun..."
ElseIf Cntr = 4 Then
tmrLoad.Enabled = False
lblStatus.Caption = "Sedang melakukan scan untuk mendekteksi System..."
tmrLoad.Enabled = True
ElseIf Cntr = 5 Then
Unload Me
frmlogin.Show
End If
Exit Sub
ErrorMsg:
MsgBox "System Error untuk dijalankan. Silahkan Hubungi Programmer Program. " & vbNewLine & vbNewLine & _
"Status Error: " & lblStatus & vbNewLine & "System Error: " & Err.Description, vbCritical
End
End Sub
Private Sub tmrLoad_Timer()
If lblStatus().Left = 1200 Then
lblStatus().Visible = False
lblStatus().Left = 120
If 120 Then
Cntr = Cntr + 1
End If
End If
If lblStatus().Left = 120 Then
lblStatus().Visible = True
End If
lblStatus().Left = lblStatus().Left + 30
Load Cntr
End Sub
Silahkan dicoba aja dulu...
Kalau sudah bisa pasti buat hati lega, he he he...
Selamat belajar dan terus mencoba !!!
Sekarang kita Lanjut, Ok...!!!
Yes...
Setelah frmsplash diatas siap
Frmsplash-nya jangan dijalankan dulu
Lalu buatlah frmlogin
Caranya :
· Tambahkan form baru
· Lalu design form
Caranya, gunakan :
· 2 Frame
· 2 Label
· 2 TexBox
· 3 Image
· 1 CommandButton
Sehingga tampilan frmlogin seperti dibawah ini :
Gemana bisa didesign???
Kalo belom silahkan coba lagi
Pantang menyerah, Ok.
Saya yakin kamu pasti bisa...!!
Kalo sudah siap design-nya
Gemana perasaanya, lega tidak???
Pasti lega doong, iya kan...
Untuk listing kode frmlogin, seperti ini :
Dim kesempatan As Integer
Dim pesan As String
Private Sub cmdok_Click()
kesempatan = kesempatan + 1
If (LCase(txtuser.Text) = "admin") And (LCase(txtpass.Text) = "admin") And (kesempatan <= 3) Then
imghome.Visible = True
flogin.Visible = False
fproses.Visible = False
imghome.ShowWhatsThis
Else
MsgBox "Username dan Passwordnya Salah !"
If kesempatan < 3 Then
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
Else
End
End If
End If
End Sub
Private Sub Form_Load()
imghome.Visible = False
End Sub
Private Sub imghome_Click()
MDImain.Show
Unload Me
End Sub
Kita lanjut lagi ya...!!!
Santai aja dulu sebentar
Udah santainya???
Ok... kita lanjut...!!
Setelah frmsplash dan frmlogin diatas siap
Masih ada satu tugas lagi yang harus segera siap
Apa itu???
Membuat MDIForm atau MDImain
Bisanya saya ganti nama MDIForm menjadi MDImain
Cara membuat MDImain :
· Tambahkan MDIForm
· Ganti nama menjadi MDImain
· Lalu design MDImain
Caranya, gunakan :
· 1 Toolbar
· 1 Imagelist
· 1 Statusbar
· 2 PictureBox
· 4 CommandButton
· Jangan lupa buat Menu Editor
Langkah mendesign Imagelist
· Klik kanan di Imagelist
· Pilih Properties
· Atur properties seperti gambar dibawah ini :
Langkah mendesign Toolbar
· Klik kanan di Toolbar
· Pilih properties
· Atur general properties seperti gambar ini :
· Lalu atur buttons properties seperti gambar ini :
Apa bila semua cara mendesign MDImain sudah siap maka tampilannya seperti dibawah ini :
Untuk listing kode MDImain, seperti dibawah ini :
Dim pesan As String
Private Sub cmdhide_Click()
If cmdhide.Caption = "<<" Then
pic.Width = 250
cmdhide.Caption = ">>"
Command1.Enabled = False
Command2.Enabled = False
frmmenu.Hide
Else
pic.Width = 1485
cmdhide.Caption = "<<"
Command1.Enabled = True
Command2.Enabled = True
frmmenu.Hide
End If
End Sub
Private Sub Command1_Click()
Shell "calc.exe", vbNormalFocus
frmmenu.Hide
End Sub
Private Sub Command2_Click()
Shell "notepad.exe", vbNormalFocus
frmmenu.Hide
End Sub
Private Sub MDIForm_Load()
Me.Caption = App.ProductName & " AplikaT " & App.Major & "." & App.Minor & "." & App.Revision
