VISUAL BASIC

VISUAL BASIC:

NOS PERMITE REALIZAR ARCHIVOS ESPECIFICOS Y ES BASADA EN OBJETOS. NOS PERMITE HAVER PROGRAMAS MAS REALES.

¿QUE ES UN PROGRAMA?

ES UN CONJUNTP DE INSTRUCCIONES QUE GENERALEMTNE DEVUELVE UN VALOR AL USURIO YA SEA NUMERICO O CADENA DE CARACTERES.

¿QUE ES UN OBJETO?

COSAS QUE PODEMOS MANIPULAR EN PROGRAMACION SON:

BOTONES, CUADROS DE TEXTO, ETIQUETAS, MENU.

¿QUE ES METODO?
ES LO QUIE REALMENTE SE SABE HACER O SE PUEDE HACER CON EL OBJETO.

¿QUE ES EVENTOS?

ES LO QUE VA A RESPONDER EL OBJETO, LAS ACCIONES QUE OCURREN ENTRE ELLOS.


Private Sub cm_btn_Click()
Cm_txt.Text = M_txt.Text * 100

End Sub

Private Sub Kil_btn_Click()
Kil_txt.Text = mi_txt.Text / 1.6
End Sub

Private Sub Km_btn_Click()
Km_txt.Text = mt_txt.Text / 1000
End Sub

Private Sub L_btn_Click()
L_txt.Text = mL_txt.Text / 1000

End Sub

Private Sub m_btn_Click()
M_txt.Text = Cm_txt.Text / 100

End Sub

Private Sub mi_btn_Click()

mi_txt.Text = Kil_txt.Text * 1.6
End Sub

Private Sub mL_btn_Click()
mL_txt.Text = L_txt.Text * 1000
End Sub

Private Sub mt_btn_Click()
mt_txt.Text = Km_txt.Text * 1000
End Sub


CICLOS

Una secuencia de eventos que se repite regularmente.

Sintaxis

For i = 1 To 20

Print num; “*”; i; “=“ ; i * num

Next i

Private Sub Command1_Click()

Dim num, i As Integer

Form1.Cls

num = InputBox("Introduce el numero de la tabla que desees generar")

For i = 1 To 20

Print num; " * "; i; " = "; i * num

Next i

End Sub



Ciclos y condiciones


Dim: permite declarar variables
Cls: permite limpiar pantalla
For, Next: permite crear un ciclo
Print: permite mostrar en pantalla el valoe de la variable

EJERCICIO 3

Private Sub div_btn_Click()

res_txt = Val(num1_txt) / Val(num2_txt)

End Sub

Private Sub mul_btn_Click()

res_txt = Val(num1_txt) * Val(num2_txt)

End Sub

Private Sub res_btn_Click()

res_txt = Val(num1_txt) - Val(num2_txt)

End Sub

Private Sub sum_btn_Click()

res_txt = Val(num1_txt) + Val(num2_txt)

End Sub

EJERCICIO 4

EJERCICIO 5

EJERCICO 6

Ejercicio CALCULADORA

EJERCICIO PERSONAJES

Private Sub Form_Load()

List1.AddItem "Beethoven"
List1.AddItem "Che Guevara"
List1.AddItem "Adolfo Hitler"
List1.AddItem "Mahatma Gandhi"
List1.AddItem "Pelé"
List1.AddItem "Nelson Mandela"
List1.AddItem "Juan Pablo II"
End Sub


Private Sub List1_Click()


Select Case List1.ListIndex

Case 0
Image1.Picture = LoadPicture("beethoven.jpg")
lb1Name.Caption = "beethoven"
lb1Bio.Caption = "Ludwig Van beethoven (bonn, 16 de compositor aleman de musica acadedminca, volvio en la transicion del clacisismo al romanticismo.uno de los mas grandes y admirados de todos los tiempos. se le concidera como el principal precursor romantico. entre sus obras destacan la Quinta Sinfonia; la Heroica, tambien la llamada Tercera sinfonia, en mi bemol mayor, con la que rompe todas las pautasde la musica clasica; la novena sinfonia, cuya musica del cuarto movimiento ha sido establecida como himno de la union europea (UE)."

Case 1
Image1.Picture = LoadPicture("che guevara.jpg")
lb1Name.Caption = "Che Guevara"
lb1Bio.Caption = "Ernesto Guevara de la Serna (1928 - 1967). Conocido como Che Guevara, medico, político y guerrillero revolucionario. Nació el 14 de junio de 1928 en Rosario (Argentina) y murió asesinado por el gobierno del presidente Barrientos ras 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, medico de profesion. Se dirigió a Cuba a luchar contra lo que el consideraba 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. Aun después de muerto es reconocido como uno de los principales lideres mundiales, capaz de influenciar en millones de seres humanos."

Case 2
Image1.Picture = LoadPicture("hitler_adolf.jpg")
lb1Name.Caption = "Adolfo Hitler"
lb1Bio.Caption = "Adolfo Hitler (braunau am Inn, austria, 20 de abril de 1889 - berlin, 30 de abril de 1945). politico y dictador aleman de origen austraico, que establecio un regimen nacionalsocialista en el que recibio el titulo de reichskanzler y fuhere. como jefe del partido nacional socialista aleman de los trabajadores, dirigio el gobierno del pais de 1933 a 1945, peroiodo en el que ocupo sucesivamente los cargos de canciller, jefe de gobierno y jefe de estado. fue el autor intelectual de uno de los genocidios mas grandes de la historia al enviar a seis millones de personas a la muerte. el sistema industrial-militar que instauro llevo a alemania a salir de la crisis economica posterior a la primera guerra mundial y, en su apogeo, a controlar gran parte de europa."

Case 3
Image1.Picture = LoadPicture("Mahatma gandhi.jpg")
lb1Name.Caption = "Mahatma Gandhi"
lb1Bio.Caption = "Mohandas Karamchand Gandhi (2 de octubre de 1869 - 30 de enero de 1948) fue un político y pensador indio. Estudio Derecho en las universidades de Ahmedabad y Londres y ejerció como abogado en Bombay. Se intereso por la situación de los 150000 compatriotas que residían en Sudáfrica, luchando contra las leyes que discriminaban a los indios en Sudáfrica mediante la resistencia pasiva y la desobediencia civil. Una vez en su país, desde 1918 figuro abiertamente al frente del movimiento nacionalista indio. Instauro nuevos métodos de lucha y en sus programas rechazaba la lucha armada y predicaba la no violencia como medio para resistir al dominio británico. 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")
lb1Name.Caption = "pele"
lb1Bio.Caption = "edson arantes do nacimiento (tres coraçoes, brasil, 23 de octubre de 1940), futbolista brasileño, mas conocido como pele, es ex-jugador de futbol. apodado tambien <>, es conciderado 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 enn el santos, club donde debuto el 7 de septiembre de 1956, sin haber cumplido 16 años y anotando un gol. en ese equipo permanecio practicamente toda su carrera, ganando dos copas libertadores, dos copas internacionales, una recopa sudamericana, una recopa internacional, 15 titulos de liga y 5 copas brasil, hasta 1975, cuando ya en el declive de su carrera decidio probar 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("Nelson Mandela.jpg")
lb1Name.Caption = "Nelson Mandela"
lb1Bio.Caption = "Nelson Mandela (18 de julio de 1918), conocido en su país como Madiba, fue el primer presidente de Sudáfrica elegido democráticamente mediante sufragio universal así como el líder del Umkhonto we Sizwe, el brazo armado del Congreso Nacional Africano. En 1962 fue arrestado y condenado por sabotaje, además de otros cargos, a cadena perpetua. Mandela estuvo 27 años en la cárcel, la mayoría de los cuales estuvo confinado en la prisión de Robben Island. Tras su liberación el 11 de febrero de 1990, Mandela lideró a su partido en las negociaciones para conseguir una democracia multiracial en Sudáfrica, cosa que se consiguió en 1994 con las primeras elecciones democráticas por sufragio universal. Mandela ganó las elecciones y fue presidente desde 1994 hasta 1999, dando frecuentemente prioridad a su reconciliación."

Case 6
Image1.Picture = LoadPicture("Juan Pablo 2.jpg")
lb1Name.Caption = "Juan Pablo II"
lb1Bio.Caption = "Karol Józef Wojtya (18 de mayo de 1920 - 2 de abril de 2005) fue el ducentésimo sexagésimo cuarto Papa de la Iglesia Católica y monarca soberano de la Ciudad del Vaticano de 1978 a 2005."
End Select
End Sub