Senin, 08 Maret 2010

Pencarian Nama,kewarganegaraan sertan foto dalam teim ARSENAL..

Tampilan Awal

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...