Membuat Animasi Jam dan Fungsi Timer

Sekarang kita belajar membuat animasi jam dan belajar fungsi Timer

Buat 1 buah label dan timer
dan ketik source code dibawah ini:

Private Sub Form_Load()
Me.Label1.FontBold = True
Me.Label1.FontSize = 24

Me.Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Me.Label1.Caption = Format(Now, “hh:mm:ss”)
End Sub

danesurya

Membuat Program Address Menggunakan VB

Program Address dengan VB

Ketik source code dibawah ini

Private Sub Command2_Click()
databar.Recordset.Delete
databar.Recordset.MovePrevious
End Sub

Private Sub Command3_Click()
databar.Recordset.Edit
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text1_GotFocus()

End Sub

Private Sub cmdAdd_Click()
databar.Recordset.AddNew
End Sub

Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub cmdNew_Click()
databar.Recordset.AddNew
End Sub
Private Sub cmdUpdate_Click()
databar.UpdateRecord
End Sub

Private Sub txtAddress_GotFocus()
txtAddress.SelStart = 0
txtAddress.SelLength = Len(txtAddress.Text)
End Sub

Private Sub txtCity_GotFocus()
txtCity.SelStart = 0
txtCity.SelLength = Len(txtCity.Text)
End Sub

Private Sub txtComments_GotFocus()
txtComments.SelStart = 0
txtComments.SelLength = Len(txtComments.Text)
End Sub

Private Sub txtEmail_GotFocus()
txtEmail.SelStart = 0
txtEmail.SelLength = Len(txtEmail.Text)
End Sub

Private Sub txtFirst_GotFocus()
txtFirst.SelStart = 0
txtFirst.SelLength = Len(txtFirst.Text)
End Sub

Private Sub txtLast_GotFocus()
txtLast.SelStart = 0
txtLast.SelLength = Len(txtLast.Text)
End Sub

Private Sub txtPhone_GotFocus()
txtPhone.SelStart = 0
txtPhone.SelLength = Len(txtPhone.Text)
End Sub

Private Sub txtState_GotFocus()
txtState.SelStart = 0
txtState.SelLength = Len(txtState.Text)
End Sub

Private Sub txtZip_GotFocus()
txtZip.SelStart = 0
txtZip.SelLength = Len(txtZip.Text)
End Sub
Private Sub txtHp_GotFocus()
txtHp.SelStart = 0
txtHp.SelLength = Len(txtHp.Text)
End Sub

Nb:
Buat programm database (table) di MsAccess

Field Name Data Type
fname Text
lname Text
address Text
city Text
state Text
zip Text
phone Text
hp Text
comments Text
extra text

simpan dan beri nama :AddressDatabase
danesurya

Belajar Fungsi Label, Text dan command

Kita buat 1 buah label, 1 buah text dan 1 buah command

dan ketik source code dibawah ini:

Private sub command1_click()
Me.label1.caption=text1
end sub

danesurya

Shut Down dan Restart dengan VB

Membuat Program Shotdown,Restart dan LogOff dengan menggunakan VB

Buat 3 buah command dan beri nama command tersebut:
cmdLogOff,cmdRestart,cmdShutdown

dan ketik source code dibawah ini:

Private sub cmdLogOff_Click()
‘Log off windows XP
Shell “shutdown -l -f -t 0″
End sub

Private sub cmdRestart_click()
shell “shutdown -r -f -t 0″
end sub

Private sub cmdShutdown_click()
shell “shutdown -s -f -t 0″
end sub

danesurya