Visual basic es un programa que nos permite hacer diferentes aplicaciones para Windows.
Programa : es un conjunto de instrucciones que devuelven un valor al usuario, ya sea numerio o una cadena de caracteres. es un resultado de la acción del usuario sobre el programa ya que el usuario es el solicitante de los diferentes datos.
Visual Basic: programa que puede ser manipulado y se puede utilizar en las aplicaciones necesarias.
EJEMPLO:
botones, etiquetas, y cuadros de textos.
Contiene: propiedades, metodos y eventos.
Propiedad: características que tiene un objeto. Éste determina apariencia y comportamiento.
Metodos: son las acciones que puede hacer un objeto.
Eventos: son las acciones a las que responde el objeto.
Programacion lineal: las lineas de un programa de esta aplicacion se utilizan sin la linea anterior. a esto se llama flujo de programa.
COMO SE PROGRAMA?
Para crear un programa es necesario tener un diagrama de flujo.
1. crear el entorno grafico (interfaz)
2. establecer las propiedades del objeto.
CODIGOS.
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Kg_btn_Click()
Kg_txt.Text = Lb_txt.Text / 2.2
End Sub
Private Sub Km_btn_Click()
Km_txt.Text = Mi_txt.Text / 0.6214
End Sub
Private Sub Lb_btn_Click()
Lb_txt.Text = Kg_txt.Text * 2.2
End Sub
Private Sub M_btn_Click()
M_txt.Text = Cm_txt.Text / 100
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Mi_btn_Click()
Mi_txt.Text = Km_txt.Text * 0.6214
End Sub
Ciclo: es una estructura que permite repetir una operacion determinada cantidad de veces en funcion de las condiciones que se le imponga.
For,Next: permite crear un ciclo.
Sintaxis.
Ej. For i = 1 To 10
Print num; ” * ”; i; “ = “; i* num
Next i.
CODIGO. Private Sub Command1_Click()
Dim num, i As IntegerForm1.Cls
num = InputBox("Introduce el numero de la tabla que desees generar")
For i = 1 To 20Print num; " * "; i; " = "; i * numNext i
End Sub
COMANDOS.
Val: Permite operar el valor real de una caja de texto.
Sintaxis.
Val (caja de texto.txt)
Sqr: permite obtener la raíz cuadrada
Sintaxis:
sqr(valor) .. - Donde valor puede ser sustituido por un dato numérico o una caja de texto.
PROYECTO 4 FORMULAS.
Private Sub Command1_Click()
End Sub
Private Sub calcu_btn_Click()
a = Val(a_txt.Text)
b = Val(b_txt.Text)
c = Val(c_txt.Text)
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x1_txt.Text = x1
x2_txt.Text = x2
End Sub
Private Sub limpiar_btn_Click()
a_txt.Text = ""
b_txt.Text = ""
c_txt.Text = ""
x1_txt.Text = ""
x2_txt.Text = ""
End Sub
Private Sub salida_btn_Click()
End
End Sub
PROYECTO 5. COLORES.
Private Sub azul_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub
Private Sub rojo_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub
Private Sub verde_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub
PROYECTO. SUMAS!
Dim opera As Byte
Dim num1, num2 As Double
Private Sub cmdCero_Click()
txtVisor.Text = txtVisor.Text + Str(0)
End Sub
Private Sub cmdCinco_Click()
txtVisor.Text = txtVisor.Text + Str(5)
End Sub
Private Sub cmdCuatro_Click()
txtVisor.Text = txtVisor.Text + Str(4)
End Sub
Private Sub cmdDiv_Click()
num1 = Val(txtVisor.Text)
opera = 4
txtVisor.Text = ""
End Sub
Private Sub cmdDos_Click()
txtVisor.Text = txtVisor.Text + Str(2)
End Sub
Private Sub cmdIgual_Click()
Resp = 0
num2 = Val(txtVisor.Text)
If opera = 1 Then
Resp = num1 + num2
End If
If opera = 2 Then
Resp = num1 - num2
End If
If opera = 3 Then
Resp = num1 * num2
End If
If opera = 4 Then
Resp = num1 / num2
End If
If opera = 5 Then
Resp = num1 ^ 2
End If
If opera = 6 Then
Resp = Sqr(num1)
End If
txtVisor.Text = Resp
End Sub
Private Sub cmdLimpiar_Click()
txtVisor.Text = ""
num1 = 0
num2 = 0
Resp = 0
End Sub
Private Sub cmdMulti_Click()
num1 = Val(txtVisor.Text)
opera = 3
txtVisor.Text = " "
End Sub
Private Sub cmdNueve_Click()
txtVisor.Text = txtVisor.Text + Str(9)
End Sub
Private Sub cmdOcho_Click()
txtVisor.Text = txtVisor.Text + Str(8)
End Sub
Private Sub cmdPotencia_Click()
num1 = Val(txtVisor.Text)
opera = 5
txtVisor.Text = ""
End Sub
Private Sub cmdRaiz_Click()
num1 = Val(txtVisor.Text)
opera = 6
txtVisor.Text = ""
End Sub
Private Sub cmdResta_Click()
num1 = Val(txtVisor.Text)
opera = 2
txtVisor.Text = ""
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub cmdSeis_Click()
txtVisor.Text = txtVisor.Text + Str(6)
End Sub
Private Sub cmdSiete_Click()
txtVisor.Text = txtVisor.Text + Str(7)
End Sub
Private Sub cmdSuma_Click()
num1 = Val(txtVisor.Text)
opera = 1
txtVisor.Text = ""
End Sub
Private Sub cmdTres_Click()
txtVisor.Text = txtVisor.Text + Str(3)
End Sub
Private Sub cmdUno_Click()
txtVisor.Text = txtVisor.Text + Str(1)
End Sub
Private Sub Form_Load()
num1 = 0
num2 = 0
End Sub
CONDICIONES.
Private Sub Form_Load()
List1.AddItem "Beethoven"
List1.AddItem "Che Guevara"
List1.AddItem "Adolfo Hitler"
List1.AddItem "Mahatma Gandhi"
List1.AddItem "Pelé"
List1.AddItem "Puyol"
List1.AddItem "Arjona"
List1.AddItem "Ronaldhino"
List1.AddItem "Guardiola"
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture("beethoven.jpg")
lblName.Caption = "Beethoven"
lblBio.Caption = "Ludwig van Beethoven (Bonn, 16 de diciembre de 1770 - Viena, 26 de marzo de 1827), compositor alemán de música académica, vivió en la transición del Clacisismo al Romanticismo. Uno de los más grandes y admirados de todos los tiempos. Se le considera como el principal precursor de la transición del clasicismo al romanticismo. Entre sus obras destacan la Quinta Sinfonía; la Heróica, también llamada Tercera Sinfonía, en mi bemol mayor, con la que rompe todas las pautas de la música clásica, y la Novena Sinfonía, cuya música del cuarto movimiento ha sido establecida como Himno de la Unión Europea (UE)."
Case 1
Image1.Picture = LoadPicture("che guevara.jpg")
lblName.Caption = "Che Guevara"
lblBio.Caption = "Ernesto Guevara de la Serna (1928 - 1967), conocido como Che Guevara, médico, político y guerrillero revolucionario.Nació el 14 de junio de 1928 en Rosario (Argentina) y murió asesinado por el gobierno del presidente Barrientos tras ser capturado por el ejercito boliviano con la colaboración de la CIA en La Higuera (Bolivia) el 9 de octubre de 1967. Revolucionario argentino-cubano, médico de profesión. Se dirigió a Cuba a luchar contra la tiranía batistiana. Tras su desaparición física su figura ha recorrido el mundo entero convirtiéndose en un icono representado por la famosa foto de Alberto Korda. Aún después de muerto es reconocido como uno de los principales líderes mundiales, capaz de influenciar en millones de seres humanos."
Case 2
Image1.Picture = LoadPicture("hitler_adolf.jpg")
lblName.Caption = "Adolfo Hitler"
lblBio.Caption = "Adolf Hitler (Braunau am Inn, Austria, 20 de abril de 1889 - Berlín, 30 de abril de 1945), político y dictador alemán de origen austríaco, que estableció un régimen nacionalsocialista en el que recibió el título de Reichskanzler y Führer. Como jefe del Partido Nacional Socialista Alemán de los Trabajadores, dirigió el gobierno del país de 1933 a 1945, período en el que ocupó sucesivamente los cargos de canciller, jefe de Gobierno y jefe de Estado. Fue el autor intelectual de uno de los genocidios más grandes de la historia al enviar a seis millones de personas a la muerte. El sistema industrial-militar que instauró llevó a Alemania al salir de la crisis económica posterior a la Primera Guerra Mundial y, en su apogeo, a controlar gran parte de Europa."
Case 3
Image1.Picture = LoadPicture("Mahatma gandhi.jpg")
lblName.Caption = "Mahatma Gandhi"
lblBio.Caption = "Mohandas Karamchand Gandhi (2 de octubre de 1869 - 30 de enero de 1948) fue un politico y pensador indio. Estudio Derecho en las universidades de Ahmedabad y Londres y ejercip como abogado en Bombay. se intereso por la situacion de los 150000 compatriotas que residian en Sudafrica, luchando contra las leyes que discriminaban a los indios en Sudafrica mediante la resistencia pasiva y la desobediencia civil. una vez en su pais, desde 1918 figuro abiertamente al frente del movimiento nacionalista indio. instauro nuevos metodos de lucha y en sus programas rechazaba la lucha armada y predicaba la no violencia como medio para resistir al dominio britanico. preconizaba la total fidelidad a los dictados de la conciencia, llegando incluso a la desobediencia civil si fuese necesario."
Case 4
Image1.Picture = LoadPicture("Pele.jpg")
lblName.Caption = "Pelé"
lblBio.Caption = "Edson Arantes do Nascimento (Tres Coracoes, Brasil, 23 de octubre de 1940), futbolista brasileño, mas conocido como Pelé, es ex-jugador de futbol. Apodado tambien ºReyº, es considerado como uno de los mejores jugadores de la historia de este deporte, alcanzando el galardon al Jugador del Siglo de la FIFA. Desarrollo lo mejor de su carrera en el Santos, club donde debuto el 7 de semptiembre de 1956, sin haber cumplido los 16 años y anotado un gol. en ese equipo permanecio practicamente toda su carrera, ganando dos Copas Libertadores, dos Copas Intercontinentales, una Recopa Intercontinental, 15 titulos de Liga y 5 copas Brasil hasta 1975, cuando ya en el declive de sy carrera decidio probar su suerte en la North American Soccer League estadounidense. Alli se destaco como el mejor jugador del torneo y gano un titulo de Liga (1977)."
Case 5
Image1.Picture = LoadPicture("puyol.jpg")
lblName.Caption = "Puyol"
lblBio.Caption = "Carles Puyol conocido como Puyol, nació el 13 de abril de 1978 es un futbolista español. Toda su vida a jugado en el FC Barcelona donde todo su éxito a sido, es un defensor central y siempre juega en esa posición también es defensor en la Selección Española la cual recientemente gano la Copa Mundial de Futbol. Su vida esta llena de premios, con le club ah ganado todas las copas y sigue aspirando a mas. Con sus 35 años es un jugador ya veterano, pero aun así es impasable en la defensa. Ah tenido premios como mejor defensa del mundo en varias ocasiones. Así que hasta el día de hoy sigue jugando y dando grandes espectáculos en al defensa siendo confiable y flexible en todas las jugadas, lo mas destacado de este jugador es su agresividad para poder derivar a sus rivales lo cual lo hace un maestro en el terreno de juego."
Case 6
Image1.Picture = LoadPicture("arjona.jpg")
lblName.Caption = "Arjona"
lblBio.Caption = "Ricardo Arjona nació el 19 de enero de 1964, en jocotenango, Guatemala. Allí vivió toda su infancia hasta que a la edad de 21 años tuvo la oportunidad de hacer su primer disco llamado Déjame decir que te amo, pero no tuvo mucho éxito así que dejo la carrera de la música por un tiempo y se dedico al estudio. Estudio en la Universidad San Carlos de Guatemala y en su honor un salón de esta universidad tiene el su nombre. Luego viajo a Buenos Aires donde se dedico un poco a la música en la cual comenzó otra vez y hasta el día de hoy esta teniendo éxito, ha ganado muchos premios y reconocimientos como discos platinos, disco de diamante, y disco de oro por su famosa canción mujeres. Hasta el día de hoy Arjona sigue teniendo fama y en esta etapa de la vida esta pasando por un momento histórico en su vida con muchos álbumes y discos es uno de los artistas latinoamericanos mas famosos."
Case 7
Image1.Picture = LoadPicture("ronaldhino.jpg")
lblName.Caption = "Ronaldhino"
lblBio.Caption = "Ronaldo de Assis Moreira mas conocido como Ronaldihno, nació el 21 de marzo de 1980. Es un futbolista famoso y uno de los mejores del siglo XX. Su juventud la vivió en una humilde familia en la ciudad brasileña de Porto Alegre. Comenzó a jugar al futbol donde es muy bueno y tiene mucha inteligencia para poder jugar, se mudo a España donde obtuvo también la nacionalidad allí jugo en su tercer equipo y uno de los mas famoso del mundo el FC Barcelona aquí es donde se dio a conocer y obtuvo todo lo que se puede en copas. Ganando la liga de campeones una de las copas mas difíciles y prestigiadas del mundo también la liga española, la copa del rey, La súper copa todo esto en varias ocasiones lo cual lo hacen uno de los mejores jugadores junto a Pele, Zidane, Cruyff. Luego de algunos problemas con el equipo técnico del FC Barcelona se retiro del club dejando tristeza en muchos aficionados."
Case 8
Image1.Picture = LoadPicture("guardiola.jpg")
lblName.Caption = "Guardiola"
lblBio.Caption = "Josep Guardiola más conocido como Pep Guardiola, nació el 18 de enero de 1971 en Barcelona, desde su juventud se volvió jugador de futbol el cual hasta el día de hoy no practica pero esta en la cancha es director técnico del FC Barcelona el mismo club en el que jugo una parte de su vida luego se movió a Inglaterra y jugo para el Manchester City donde anuncio su retiro. Como jugador fue muy bueno y muy famosos pero su vida a tenido mucha mas fama como director técnico, con el FC Barcelona a podido ganar todas las copas y a su corta edad de director técnico tiene muchas aspiraciones con el club, cuenta con uno de los mejores jugadores del mundo en este momento como Messi, Xavi Hernández, Iniesta y David Villa lo cual hacen su trabajo mas fácil, pero sin el club no pudiera tener los logros de los últimos dos años."
End Select
End Sub
COMANDOS.
Val: Permite operar el valor real de una caja de texto.
Sintaxis.
Val (caja de texto.txt)
Sqr: permite obtener la raíz cuadrada
Sintaxis:
sqr(valor) .. - Donde valor puede ser sustituido por un dato numérico o una caja de texto.
PROYECTO 4 FORMULAS.
Private Sub Command1_Click()
End Sub
Private Sub calcu_btn_Click()
a = Val(a_txt.Text)
b = Val(b_txt.Text)
c = Val(c_txt.Text)
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x1_txt.Text = x1
x2_txt.Text = x2
End Sub
Private Sub limpiar_btn_Click()
a_txt.Text = ""
b_txt.Text = ""
c_txt.Text = ""
x1_txt.Text = ""
x2_txt.Text = ""
End Sub
Private Sub salida_btn_Click()
End
End Sub
PROYECTO 5. COLORES.
Private Sub azul_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub
Private Sub rojo_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub
Private Sub verde_HS_Change()
Dim rojo, verde, azul As Integer
rojo = rojo_HS.Value
verde = verde_HS.Value
azul = azul_HS.Value
color_txt.BackColor = RGB(rojo, verde, azul)
End Sub
PROYECTO. SUMAS!
Dim opera As Byte
Dim num1, num2 As Double
Private Sub cmdCero_Click()
txtVisor.Text = txtVisor.Text + Str(0)
End Sub
Private Sub cmdCinco_Click()
txtVisor.Text = txtVisor.Text + Str(5)
End Sub
Private Sub cmdCuatro_Click()
txtVisor.Text = txtVisor.Text + Str(4)
End Sub
Private Sub cmdDiv_Click()
num1 = Val(txtVisor.Text)
opera = 4
txtVisor.Text = ""
End Sub
Private Sub cmdDos_Click()
txtVisor.Text = txtVisor.Text + Str(2)
End Sub
Private Sub cmdIgual_Click()
Resp = 0
num2 = Val(txtVisor.Text)
If opera = 1 Then
Resp = num1 + num2
End If
If opera = 2 Then
Resp = num1 - num2
End If
If opera = 3 Then
Resp = num1 * num2
End If
If opera = 4 Then
Resp = num1 / num2
End If
If opera = 5 Then
Resp = num1 ^ 2
End If
If opera = 6 Then
Resp = Sqr(num1)
End If
txtVisor.Text = Resp
End Sub
Private Sub cmdLimpiar_Click()
txtVisor.Text = ""
num1 = 0
num2 = 0
Resp = 0
End Sub
Private Sub cmdMulti_Click()
num1 = Val(txtVisor.Text)
opera = 3
txtVisor.Text = " "
End Sub
Private Sub cmdNueve_Click()
txtVisor.Text = txtVisor.Text + Str(9)
End Sub
Private Sub cmdOcho_Click()
txtVisor.Text = txtVisor.Text + Str(8)
End Sub
Private Sub cmdPotencia_Click()
num1 = Val(txtVisor.Text)
opera = 5
txtVisor.Text = ""
End Sub
Private Sub cmdRaiz_Click()
num1 = Val(txtVisor.Text)
opera = 6
txtVisor.Text = ""
End Sub
Private Sub cmdResta_Click()
num1 = Val(txtVisor.Text)
opera = 2
txtVisor.Text = ""
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub cmdSeis_Click()
txtVisor.Text = txtVisor.Text + Str(6)
End Sub
Private Sub cmdSiete_Click()
txtVisor.Text = txtVisor.Text + Str(7)
End Sub
Private Sub cmdSuma_Click()
num1 = Val(txtVisor.Text)
opera = 1
txtVisor.Text = ""
End Sub
Private Sub cmdTres_Click()
txtVisor.Text = txtVisor.Text + Str(3)
End Sub
Private Sub cmdUno_Click()
txtVisor.Text = txtVisor.Text + Str(1)
End Sub
Private Sub Form_Load()
num1 = 0
num2 = 0
End Sub
CONDICIONES.
Private Sub Form_Load()
List1.AddItem "Beethoven"
List1.AddItem "Che Guevara"
List1.AddItem "Adolfo Hitler"
List1.AddItem "Mahatma Gandhi"
List1.AddItem "Pelé"
List1.AddItem "Puyol"
List1.AddItem "Arjona"
List1.AddItem "Ronaldhino"
List1.AddItem "Guardiola"
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture("beethoven.jpg")
lblName.Caption = "Beethoven"
lblBio.Caption = "Ludwig van Beethoven (Bonn, 16 de diciembre de 1770 - Viena, 26 de marzo de 1827), compositor alemán de música académica, vivió en la transición del Clacisismo al Romanticismo. Uno de los más grandes y admirados de todos los tiempos. Se le considera como el principal precursor de la transición del clasicismo al romanticismo. Entre sus obras destacan la Quinta Sinfonía; la Heróica, también llamada Tercera Sinfonía, en mi bemol mayor, con la que rompe todas las pautas de la música clásica, y la Novena Sinfonía, cuya música del cuarto movimiento ha sido establecida como Himno de la Unión Europea (UE)."
Case 1
Image1.Picture = LoadPicture("che guevara.jpg")
lblName.Caption = "Che Guevara"
lblBio.Caption = "Ernesto Guevara de la Serna (1928 - 1967), conocido como Che Guevara, médico, político y guerrillero revolucionario.Nació el 14 de junio de 1928 en Rosario (Argentina) y murió asesinado por el gobierno del presidente Barrientos tras ser capturado por el ejercito boliviano con la colaboración de la CIA en La Higuera (Bolivia) el 9 de octubre de 1967. Revolucionario argentino-cubano, médico de profesión. Se dirigió a Cuba a luchar contra la tiranía batistiana. Tras su desaparición física su figura ha recorrido el mundo entero convirtiéndose en un icono representado por la famosa foto de Alberto Korda. Aún después de muerto es reconocido como uno de los principales líderes mundiales, capaz de influenciar en millones de seres humanos."
Case 2
Image1.Picture = LoadPicture("hitler_adolf.jpg")
lblName.Caption = "Adolfo Hitler"
lblBio.Caption = "Adolf Hitler (Braunau am Inn, Austria, 20 de abril de 1889 - Berlín, 30 de abril de 1945), político y dictador alemán de origen austríaco, que estableció un régimen nacionalsocialista en el que recibió el título de Reichskanzler y Führer. Como jefe del Partido Nacional Socialista Alemán de los Trabajadores, dirigió el gobierno del país de 1933 a 1945, período en el que ocupó sucesivamente los cargos de canciller, jefe de Gobierno y jefe de Estado. Fue el autor intelectual de uno de los genocidios más grandes de la historia al enviar a seis millones de personas a la muerte. El sistema industrial-militar que instauró llevó a Alemania al salir de la crisis económica posterior a la Primera Guerra Mundial y, en su apogeo, a controlar gran parte de Europa."
Case 3
Image1.Picture = LoadPicture("Mahatma gandhi.jpg")
lblName.Caption = "Mahatma Gandhi"
lblBio.Caption = "Mohandas Karamchand Gandhi (2 de octubre de 1869 - 30 de enero de 1948) fue un politico y pensador indio. Estudio Derecho en las universidades de Ahmedabad y Londres y ejercip como abogado en Bombay. se intereso por la situacion de los 150000 compatriotas que residian en Sudafrica, luchando contra las leyes que discriminaban a los indios en Sudafrica mediante la resistencia pasiva y la desobediencia civil. una vez en su pais, desde 1918 figuro abiertamente al frente del movimiento nacionalista indio. instauro nuevos metodos de lucha y en sus programas rechazaba la lucha armada y predicaba la no violencia como medio para resistir al dominio britanico. preconizaba la total fidelidad a los dictados de la conciencia, llegando incluso a la desobediencia civil si fuese necesario."
Case 4
Image1.Picture = LoadPicture("Pele.jpg")
lblName.Caption = "Pelé"
lblBio.Caption = "Edson Arantes do Nascimento (Tres Coracoes, Brasil, 23 de octubre de 1940), futbolista brasileño, mas conocido como Pelé, es ex-jugador de futbol. Apodado tambien ºReyº, es considerado como uno de los mejores jugadores de la historia de este deporte, alcanzando el galardon al Jugador del Siglo de la FIFA. Desarrollo lo mejor de su carrera en el Santos, club donde debuto el 7 de semptiembre de 1956, sin haber cumplido los 16 años y anotado un gol. en ese equipo permanecio practicamente toda su carrera, ganando dos Copas Libertadores, dos Copas Intercontinentales, una Recopa Intercontinental, 15 titulos de Liga y 5 copas Brasil hasta 1975, cuando ya en el declive de sy carrera decidio probar su suerte en la North American Soccer League estadounidense. Alli se destaco como el mejor jugador del torneo y gano un titulo de Liga (1977)."
Case 5
Image1.Picture = LoadPicture("puyol.jpg")
lblName.Caption = "Puyol"
lblBio.Caption = "Carles Puyol conocido como Puyol, nació el 13 de abril de 1978 es un futbolista español. Toda su vida a jugado en el FC Barcelona donde todo su éxito a sido, es un defensor central y siempre juega en esa posición también es defensor en la Selección Española la cual recientemente gano la Copa Mundial de Futbol. Su vida esta llena de premios, con le club ah ganado todas las copas y sigue aspirando a mas. Con sus 35 años es un jugador ya veterano, pero aun así es impasable en la defensa. Ah tenido premios como mejor defensa del mundo en varias ocasiones. Así que hasta el día de hoy sigue jugando y dando grandes espectáculos en al defensa siendo confiable y flexible en todas las jugadas, lo mas destacado de este jugador es su agresividad para poder derivar a sus rivales lo cual lo hace un maestro en el terreno de juego."
Case 6
Image1.Picture = LoadPicture("arjona.jpg")
lblName.Caption = "Arjona"
lblBio.Caption = "Ricardo Arjona nació el 19 de enero de 1964, en jocotenango, Guatemala. Allí vivió toda su infancia hasta que a la edad de 21 años tuvo la oportunidad de hacer su primer disco llamado Déjame decir que te amo, pero no tuvo mucho éxito así que dejo la carrera de la música por un tiempo y se dedico al estudio. Estudio en la Universidad San Carlos de Guatemala y en su honor un salón de esta universidad tiene el su nombre. Luego viajo a Buenos Aires donde se dedico un poco a la música en la cual comenzó otra vez y hasta el día de hoy esta teniendo éxito, ha ganado muchos premios y reconocimientos como discos platinos, disco de diamante, y disco de oro por su famosa canción mujeres. Hasta el día de hoy Arjona sigue teniendo fama y en esta etapa de la vida esta pasando por un momento histórico en su vida con muchos álbumes y discos es uno de los artistas latinoamericanos mas famosos."
Case 7
Image1.Picture = LoadPicture("ronaldhino.jpg")
lblName.Caption = "Ronaldhino"
lblBio.Caption = "Ronaldo de Assis Moreira mas conocido como Ronaldihno, nació el 21 de marzo de 1980. Es un futbolista famoso y uno de los mejores del siglo XX. Su juventud la vivió en una humilde familia en la ciudad brasileña de Porto Alegre. Comenzó a jugar al futbol donde es muy bueno y tiene mucha inteligencia para poder jugar, se mudo a España donde obtuvo también la nacionalidad allí jugo en su tercer equipo y uno de los mas famoso del mundo el FC Barcelona aquí es donde se dio a conocer y obtuvo todo lo que se puede en copas. Ganando la liga de campeones una de las copas mas difíciles y prestigiadas del mundo también la liga española, la copa del rey, La súper copa todo esto en varias ocasiones lo cual lo hacen uno de los mejores jugadores junto a Pele, Zidane, Cruyff. Luego de algunos problemas con el equipo técnico del FC Barcelona se retiro del club dejando tristeza en muchos aficionados."
Case 8
Image1.Picture = LoadPicture("guardiola.jpg")
lblName.Caption = "Guardiola"
lblBio.Caption = "Josep Guardiola más conocido como Pep Guardiola, nació el 18 de enero de 1971 en Barcelona, desde su juventud se volvió jugador de futbol el cual hasta el día de hoy no practica pero esta en la cancha es director técnico del FC Barcelona el mismo club en el que jugo una parte de su vida luego se movió a Inglaterra y jugo para el Manchester City donde anuncio su retiro. Como jugador fue muy bueno y muy famosos pero su vida a tenido mucha mas fama como director técnico, con el FC Barcelona a podido ganar todas las copas y a su corta edad de director técnico tiene muchas aspiraciones con el club, cuenta con uno de los mejores jugadores del mundo en este momento como Messi, Xavi Hernández, Iniesta y David Villa lo cual hacen su trabajo mas fácil, pero sin el club no pudiera tener los logros de los últimos dos años."
End Select
End Sub
