1.Pilih no punggung pemain yang diingin dicari
2.Lalu Klik info untuk mengetahui nama dan kewarganegaraan yang dimiliki oleh pesepakbola tersebut
3.Program akan menampilkan info tersebut,lalu klik foto untuk melihat foto pesepakbola tersebut.
foto dan info akan tampil,dan jika ingin keluar ,klik exit.HIDUP ARSENAL...!
Source Code=
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "1" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\almunia.jpg")
ElseIf ComboBox1.Text = "2" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\diaby.jpg")
ElseIf ComboBox1.Text = "3" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\sagna.jpg")
ElseIf ComboBox1.Text = "4" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\fabregas.jpg")
ElseIf ComboBox1.Text = "5" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\vermelen.jpg")
ElseIf ComboBox1.Text = "23" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\arshavin.jpg")
ElseIf ComboBox1.Text = "7" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\rosicky.jpg")
ElseIf ComboBox1.Text = "8" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\nasri.jpg")
ElseIf ComboBox1.Text = "9" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\eduardo.jpg")
ElseIf ComboBox1.Text = "10" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\gallas.jpg")
ElseIf ComboBox1.Text = "11" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\vanpersie.jpg")
ElseIf ComboBox1.Text = "16" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\ramsey.jpg")
ElseIf ComboBox1.Text = "17" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\song.jpg")
ElseIf ComboBox1.Text = "21" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\fabianski.jpg")
ElseIf ComboBox1.Text = "22" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\clichy.jpg")
ElseIf ComboBox1.Text = "24" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\manone.jpg")
ElseIf ComboBox1.Text = "6" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\senderos.jpg")
ElseIf ComboBox1.Text = "31" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\cambel.jpg")
ElseIf ComboBox1.Text = "coach" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\wenger.jpg")
ElseIf ComboBox1.Text = "18" Then
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Documents and Settings\User\Desktop\arsenal\silvestre.jpg")
End If
PictureBox1.Visible = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Enabled = False
TextBox2.Enabled = False
Select Case ComboBox1.Text
Case Is = "1"
TextBox1.Text = "Almunia"
TextBox2.Text = "spain"
Case Is = "2"
TextBox1.Text = "Diaby"
TextBox2.Text = "france"
Case Is = "3"
TextBox1.Text = "Sagna"
TextBox2.Text = "france"
Case Is = "4"
TextBox1.Text = "Fabregas"
TextBox2.Text = "spain"
Case Is = "5"
TextBox1.Text = "Vermeulen"
TextBox2.Text = "belgium"
Case Is = "23"
TextBox1.Text = "Arshavin"
TextBox2.Text = "Rusian"
Case Is = "7"
TextBox1.Text = "Rosicky"
TextBox2.Text = "Rep.Cheska"
Case Is = "8"
TextBox1.Text = "Nasri"
TextBox2.Text = "France"
Case Is = "9"
TextBox1.Text = "Eduardo"
TextBox2.Text = "Croatia"
Case Is = "10"
TextBox1.Text = "Gallas"
TextBox2.Text = "France"
Case Is = "11"
TextBox1.Text = "Van Persie"
TextBox2.Text = "Netherland"
Case Is = "17"
TextBox1.Text = "song"
TextBox2.Text = "cameroon"
Case Is = "16"
TextBox1.Text = "ramsey"
TextBox2.Text = "welsh"
Case Is = "21"
TextBox1.Text = "fabianski"
TextBox2.Text = "poland"
Case Is = "24"
TextBox1.Text = "manonne"
TextBox2.Text = "italy"
Case Is = "22"
TextBox1.Text = "clichy"
TextBox2.Text = "france"
Case Is = "6"
TextBox1.Text = "senderos"
TextBox2.Text = "switzerland"
Case Is = "31"
TextBox1.Text = "campbell"
TextBox2.Text = "england"
Case Is = "coach"
TextBox1.Text = "Arsene Wenger"
TextBox2.Text = "france"
Case Is = "18"
TextBox1.Text = "silvestre"
TextBox2.Text = "france"
Case Else
Dim a As Integer
a = MsgBox("Please choose one of number", MsgBoxStyle.OkOnly, "INFO")
TextBox1.Enabled = False
TextBox2.Enabled = False
End Select
End Sub
End Class
Alhamdulillah Selesai...
