Program Tambahan Visual Basic Bagian 6

Program Tambahan Visual Basic Bagian 6 : Backup Database

Saat ini kita belajar bagaimana cara membuat program untuk membackup atau menyalin database.

1. Buat sebuah form baru.
2. Masukanlah objek objek berikut ini ke dalam form tersebut :

NAME	CAPTION	TOOL
Frame1	File Sumber	Frame
Frame2	Direktori Tujuan	Frame
Drive1	-	DriveListBox
Drive2	-	DriveListBox
Dir1	-	DirListBox
Dir2	-	DirListBox
File1	-	FileListBox
Label1	Direktori Asal	Label
Label2	Direktori Tujuan	Label
Text1	-	TextBox
Text2	-	TextBox
CmdCopy	Copy File	CommandButton

3. Listing Program :
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOP As shfileopstruct) As Long
Private Const FO_copy = &H2
Private Const fof_allowundo = &H40
Private Type shfileopstruct
hwnd As Long
wfunc As Long
pfrom As String
pto As String
Fflags As Integer
Faborted As Boolean
hnamemaps As Long
sprogress As String
End Type
Public Sub copy(ByVal asal As String, ByVal tujuan As String)
Dim X As shfileopstruct
With X
.hwnd = 0
.wfunc = FO_copy
.pfrom = asal & vbNullChar & vbNullChar
.pto = tujuan & vbNullChar & vbNullChar
.Fflags = fof_allowundo
End With
SHFileOperation X
End Sub
Private Sub CMDCOPY_Click()
On Error Resume Next
copy Text1.Text, Text2.Text
End Sub
Private Sub Command1_KeyPress(Keyascii As Integer)
If Keyascii = 27 Then Unload Me
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Drive2_Change()
Dir2.Path = Drive2.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Dir2_Change()
Text2.Text = Dir2.Path
End Sub
Private Sub File1_Click()
Text1.Text = File1.Path & "\" & File1.FileName
End Sub


 Hasil syntax yang kita buat

 

Program Tambahan Visual Basic Bagian 5

Program Tambahan Visual Basic Bagian 5 : Loading

Kali ini kita akan belajar cara membuat Loading.

1. Buat sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	LOADING…..	Label
Timer1	-	Timer
ProgressBar1		ProgressBar

3. Keterangan :
- Ubahlah interval dari Timer1 menjadi 100.
- Cara memunculkan ProgressBar pada ToolBox:

• Klik kanan pada ToolBox lalu pilih Components.
• Beri tanda checklist pada MICROSOFT WINDOWS COMMON CONTROL 6.0 (SP6).
• kemudian tekan APPLY atau OK.

4. Listing Program :

Private Sub Form_Activate()
Tengah
End Sub
Private Sub Timer1_Timer()
a = ProgressBar1.Value
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = a + 10
Else
Unload Me
End If
End Sub
Public Sub Tengah()
Me.Left = (Screen.Width – Me.Width) / 2
Me.Top = (Screen.Height – Me.Height) / 2
End Sub

 Hasil syntax yang kita buat

 

Program Tambahan Visual Basic Bagian 4

Program Tambahan Visual Basic Bagian 4 : Objek Warna Warni

Sekarang kita belajar bagaimana cara membuat sebuah objek menjadi berkelap kelip dan berwarna warni.

1. Buatlah sebuah form baru.
2. Masukanlah objek objek berikut ini kedalam form tadi.

NAME	CAPTION	TOOL
Label1	TULISAN INI KELAP KELIP	Label
Text1	-	TextBox
Timer1	-	Timer

3. Keterangan :
Untuk Timer1 Gantilah intervalnya menjadi 200.
 
4. Listing Program :

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Text1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

5. Anda bisa memilih apakah hanya beberapa objek ataukah semuanya yang dijadikan berkelap kelip warna warni.

 Hasil syntax yang kita buat