Postingan

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

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 <= 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 If Me.Width …

Jumlah Ban Sedan

Si Joko & si Jeki...

Joko : Ki, Kalo elo pinter pasti bisa jawab tebakkan gua..
Jeki : Pasti gua bisa tebak
Apaan Ko??

Joko : Coba Tebak, ban mobil sedan ada berapa?
Jeki : Orang goblok juga tau kalo ban mobil sedan itu ada 4.
Joko : Ehmm.. Dasar bego, salahlah
Jeki : Emang ada berapa??
Joko : Ada 8..
Jeki : Kog Bisa???
Joko : Depan 2, belakang 2, kanan 2, kiri 2
Jadinya 8
Jeki : ????

Manusia

Tugas 1 Arif

Tugas Teknik Informasi pertama oleh Arif Widodo

Download lengkap di sini

Sejarah Dan Perkembangan Komputer

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.