Tugas VB

Langkah1
Membuat Label dan mengganti caption dan fontnya.

Langkah2
Klik Text Box pada toolbox untuk membuat text box, klik passwordchar pada properties window untuk mengganti character pada textbox saat memasukkan password

Langkah3
klik command button pada toolbox untuk membuat 2 command button dan mengganti caption dan fontnya

Langkah4
klik frame pada toolbox untuk membuat frame dan mengganti caption & font

Langkah5
Klik option kemudian klik Di dalam frame dan mengganti captionnya.
NB:Optionnya tidak boleh di copy-paste,namenya tidak boleh sama.

Langkah6
klik image pada toolbox untuk membuat image NB : buatlah 10 image

Langkah7
klik label untuk membuat label dan mengganti caption serta font, NB : butlah 3 label

Langkah8
Butlah 3 textbox lagi dan mengganti font

Langkah9
Buatlah 1 command button lagi untuk tmbol CLEAR dan mengganti caption dan font

Buatlah 1 command button mengganti font dan caption serta memberi picture pada image

Keterangan :

1.       Label1 = Judul

2.       Label2 = Nama

3.       Label3 = TTL

4.       Label4 = position

5.       Text1 = Password

6.       Text2 = K. nama

7.       Text3 = K.TTL

8.       Text4 = K.Position

9.       Command1 = Ok

10.   Command2 = Clear all

11.   Command3 = Active

12.   Command4 = Clear pass

13.   Frame1 = member

14.   Option1 = Onew

15.   Option2 = Taemin

16.   Option3 = Key

17.   Option4 = Minho

18.   Option5 = Jonghyun

19.   Image1 & 2 = Taemin

20.   Image4 & 6 = Onew

21.   Image5 & 7 = Key

22.   Image8 & 9 = Minho

23.   Image3 & 10 = Jonghyun

24.   Form1

CODING

Private Sub Command1_Click()

If Text1.Text = "04091995" Then Command3.Enabled = True Else MsgBox "Password Salah.!"

If Text1.Text = "04091995" Then Option1.Enabled = True

If Text1.Text = "04091995" Then Option2.Enabled = True

If Text1.Text = "04091995" Then Option3.Enabled = True

If Text1.Text = "04091995" Then Option4.Enabled = True

If Text1.Text = "04091995" Then Option5.Enabled = True

End Sub

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

End Sub

Private Sub Command3_Click()

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Image7.Visible = False

Image8.Visible = False

Image9.Visible = False

Image10.Visible = False

Command1.Enabled = False

Command2.Enabled = False

Option1.Enabled = False

Option2.Enabled = False

Option3.Enabled = False

Option3.Enabled = False

Option4.Enabled = False

Option5.Enabled = False

Command1.Enabled = True

Command2.Enabled = True

Command4.Enabled = True

End Sub

Private Sub Command4_Click()

Text1.Text = Clear

End Sub

Private Sub Form_Load()

Command4.Enabled = False

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Image7.Visible = False

Image8.Visible = False

Image9.Visible = False

Image10.Visible = False

Command1.Enabled = False

Command2.Enabled = False

Option1.Enabled = False

Option2.Enabled = False

Option3.Enabled = False

Option3.Enabled = False

Option4.Enabled = False

Option5.Enabled = False

End Sub

Private Sub Option1_Click()

Text2.Text = " Lee Jinki"

Text3.Text = "December 14th, 1989 "

Text4.Text = "Leader"

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = True

Image5.Visible = False

Image6.Visible = True

Image7.Visible = False

Image8.Visible = False

Image9.Visible = False

Image10.Visible = False

End Sub

Private Sub Option2_Click()

Text2.Text = "Lee Tae Min"

Text3.Text = "July 18th, 1993 "

Text4.Text = "Lead Dancer"

Image1.Visible = True

Image2.Visible = True

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Image7.Visible = False

Image8.Visible = False

Image9.Visible = False

Image10.Visible = False

End Sub

Private Sub Option3_Click()

Text2.Text = "Kim Ki Bum"

Text3.Text = "Sept 23rd 1991"

Text4.Text = "Vocalist, Rapper"

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = True

Image6.Visible = False

Image7.Visible = True

Image8.Visible = False

Image9.Visible = False

Image10.Visible = False

End Sub

Private Sub Option4_Click()

Text2.Text = "Choi Minho"

Text3.Text = "December 9, 1991"

Text4.Text = "Rapper"

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Image7.Visible = False

Image8.Visible = True

Image9.Visible = True

Image10.Visible = False

End Sub

Private Sub Option5_Click()

Text2.Text = "Kim Jonghyun"

Text3.Text = "April 8,1990"

Text4.Text = "Main Vocalist"

Image1.Visible = False

Image2.Visible = False

Image3.Visible = True

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Image7.Visible = False

Image8.Visible = False

Image9.Visible = False

Image10.Visible = True

End Sub

jika ingin mendownload aplikasi ini klik disini