Dasar 20. Text Berkedip

Kita akan belajar bagaimana membuat Text menjadi berkedap kedip

1. Buatlah 2 buah form dengan beberapa objek sebagai berikut :

NAME	CAPTION	TOOL
Form1	KEDIP 1	Form
Form2	KEDIP 2	Form
Timer1(Form1)	-	Timer
Timer2(Form2)	-	Timer
Label1	ASSALAMUALAIKUM	Label
Label2	WELCOME	Label
Label3	SELAMAT DATANG	Label

2. Keterangan :

- Label1 diletakan pada FORM1

- Label2 diletakan pada FORM2

- Label3 diletakan pada FORM2

- Timer1 diletakan pada FORM1

- Timer2 diletakan pada FORM2

- Timer1 dan Timer2 intervalnya dirubah menjadi 250



3. Listing Programnya adalah :

- Form1 (KEDIP 1)

Private Sub Timer1_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub
    

 - Form2 (KEDIP 2)

Private Sub Timer2_Timer()
If Label2.Visible = True Then
Label2.Visible = False
Label3.Visible = True
ElseIf Label2.Visible = False Then
Label2.Visible = True
Label3.Visible = False
End If
End Sub

    

4. Jalankan kedua form tersebut satu persatu.
(sebenarnya kedua form ini juga bisa digabung menjadi satu form saja, tetapi saya buat seperti ini untuk melihat perbedannya walaupun sedikit). 

DEMIKIANLAH TUTORIALNYA SEMOGA BERMANFAAT..... JANGAN LUPA LIKE POST INI>>>>> MAKASIH.....

Print this page

Posted in: Visual Basic 6.0