Tugas 1 Arif
Tugas Teknik Informasi pertama oleh Arif Widodo
Download lengkap di sini
Download lengkap di sini
Presentasi Perangkat Penyusun Komputer
Ini adalah Presentasi Microsoft Office yang disematkan, didukung oleh Office Online .
Postingan populer dari blog ini
Membuat efek pada saat form di tutup pada vb6
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
Membuat Text Berjalan Pada Title Bar Form di VB 6
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
Komentar
Posting Komentar