SONG : YANG TERDALAM

Kulepas semua yang ku inginkan
Tak akan ku ulangi
Maafkan jika kau kusayangi
Dan bila kumenanti

Pernahkah engkau coba mengerti
Lihatlah ku disini
Mungkinkah jika aku bermimpi
Salahkah tuk menanti

reff: Takkan lelah aku menanti
Takkan hilang cintaku ini
Hingga saat kau tlah kembali
Kan kukenang di hati saja

Kau telah tinggalkan
Hati yang terdalam
Hingga tiada cinta
Yang tersisa di jiwa

Kamis, 16 Juni 2011

TUGAS VB DENGAN DATABASE





LISTING LOGIN
Dim b
Dim c As String

Private Sub Command2_Click()
If txtuser = "ADMIN" Then
txtpass = "admin"
MDIForm1.Show
Me.Hide
Else
MsgBox "Maaf username & password anda salah"
txtuser.SetFocus
End If
End Sub


Private Sub Form_Load()
c = "SILAHKAN LOGIN TERLEBIH DAHLULU"
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 100
b = b + 1
Label3 = Left(c, b)
If b = Len(c) Then
b = 1
Timer1.Interval = 3000
End If

End Sub

Private Sub Timer2_Timer()
Label4.ForeColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)
End Sub
KLIK DISINI

Tidak ada komentar:

Posting Komentar