Translator

Senin, 01 November 2010

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

Read More..

Rabu, 23 September 2009

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 <= 11 Then End Next Gointo End End Sub Semoga bermanfaat.

Read More..

Minggu, 26 April 2009

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 : ????
Read More..