Arif Widodo's Blog

Pertama siapkan 1 form kemudian tambahkan 1 Timer ubah intervalnya jadi 500. Kemudian ketikan rumus berikut Dim teks As String Private Sub Form_Load() teks = "ANIMASI TEXT BERJALAN " End Sub Private Sub Timer1_Timer() a = Left(teks, 1) c = Len(teks) b = Right(teks, c - 1) teks = b + a form1.Caption = teks End Sub Kemudian run

Buat temen-temen yang masih pengen memperdalam vb ini ada sedikit tutorial tentang bagaimana membuat efek form saat ditutup Pertama buat dulu project baru kemudian tambahkan 1 timer dan 3 command, ganti properties interval timer jadi 500. Kemudian, masing-masing command ganti caption-nya jadi "Jatuh Kesamping", "Jatuh Kebawah" dan "Efek Mengecil". Ketikan code dibawah ini : Private Sub Command1_Click() Do Me.Left = Me.Left + 2 Me.Move Me.Left + 2 DoEvents Loop Until Me.Left > Screen.Width Unload Me End Sub Private Sub Command2_Click() Do Me.Top = Me.Top + 20 Me.Move Me.Left, Me.Top DoEvents Loop Until Me.Top > Screen.Height - 500 Unload Me End Sub Private Sub Command3_Click() GotoVal = Me.Height / 2 For Gointo = 1 To GotoVal DoEvents Me.Height = Me.Height - 10 If Me.Height <= 11 Then GoTo horiz Next Gointo horiz: Me.Height = 30 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal DoEvents Me.Width = Me.Width - 10

Tugas Teknik Informasi pertama oleh Arif Widodo Download lengkap di sini

Komputer, sekarang ini bukan lagi hal baru buat kita. Tetapi mungkin kita tak pernah tahu bagaimana sejarah dan perkembangan komputer. Klik di sini untuk dapat tahu sejarah dan perkembangan komputer.