Visual basic: Permite hacer diversas aplicaciones específicas para Windows. Estas aplicaciones nos permiten trabajar muchas cosas personales.
¿Qué es un programa?
Es un conjunto de instrucciones que generalmente devuelven un valor al usuario, ya sea numérico o una cadena de caracteres. Este dato es resultado de la acción del suario sobre el programa ya qu e el usuario fue el que solicitó el dato.
¿Qué es un objeto?
Es algo que puede ser manipulado y se puede utilizar en las aplicaciones necesarias. Por ejemplo: botones, etiquetas, etc. Estos elementos van a reaccionar a propiedades, métodos y eventos.
Propiedades: Son las características que tiene un objeto. Pueden determinar la apariencia y el comportamineto (tamaño, color, nombre, etc).
Métodos: Son las acciones que puede hacer un objeto. Eventos: Son las acciones a las que responde el objeto, es decir, lo que ocurre sobre ellos/lo que lo hace hacer lo que hace.
Programación por eventos vs. Programación estructurada
Programación estructurada
Llamada también Lineal.
El flujo del programa son las líneas de un programa de esta aplicación, se utilizan de una forma lineal ya que cada línea no se puede ejecutar sin la anterior.
La creación de un programa siempre tiene el mismo enfoque, resolver un problema. La programación por eventos se ejecuta por diferentes porciones de código, no es necesario que exista un flujo lineal para ejecutarse.
¿Cómo se programa en Visual Basic?
Para crear un programa es necesario tener la solución gráfica.
Después de esto se siguen 3 pasos:
- Crear el entorno gráfico.
- Establecer las propiedades de los objetos.
- Escribir códigos.
Proyecto 1
Códigos: Private Sub Cm_btn_Click()
M2_txt.Text = Cm_txt.Text / 100
End Sub
Private Sub Cm2_btn_Click()
Mm_txt.Text = Cm2_txt.Text * 100
End Sub
Private Sub D_btn_Click()H_txt.Text = D_txt.Text * 24
End Sub
Private Sub H_btn_Click()
D_txt.Text = H_txt.Text / 24
End SubPrivate Sub Km_btn_Click()
Mi_txt.Text = Km_txt.Text / 1609
End Sub
M_txt.Text = Km2_txt.Text * 1000
End Sub
Private Sub M_btn_Click()
Km2_txt.Text = M_txt.Text / 1000
End Sub
Cm_txt.Text = M2_txt.Text * 100
End Sub
Private Sub Mi_btn_Click()
Km_txt.Text = Mi_txt.Text * 1609
End Sub
Private Sub Mm_btn_Click()
Cm2_txt.Text = Mm_txt.Text / 100
End Sub
Proyecto 2
Ciclo:es una estructura que te permite repetir una operacion o varias, una determinada cantidad de veces en funcion de las condiciones que le pongas.
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 20
Print num; " * "; i; " = "; i * num
Next iEnd Sub
Proyecto 3
Codigo:
Private Sub div_txt_Click()
ans_txt.Text = Val(num1_txt.Text) / Val(num2_txt.Text)
End Sub
Private Sub mul_txt_Click()
ans_txt.Text = Val(num1_txt.Text) * Val(num2_txt.Text)
End Sub
Sub resta_txt_Click()
ans_txt.Text = Val(num1_txt.Text) - Val(num2_txt.Text)
End Sub
Private Sub suma_txt_Click()
ans_txt.Text = Val(num1_txt.Text) + Val(num2_txt.Text)End Sub
Proyecto 4
Dim A, B, C, X1, X2 As Single
Private Sub calc_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 lim_btn_Click()
A_txt.Text = ""
B_txt.Text = ""
C_txt.Text = ""
X1_txt.Text = ""
X2_txt.Text = ""
End Sub
Private Sub sal_btn_Click()End
End Sub
Proyecto 5
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
Ejercicio 6
Private Sub Form_Click()
Dim x As Integer
Form1.Width = 10000Dim x As Integer
x = 0
Label1.Left = 0
Do While x < Form1.Width
Label1.Left = x
x = x + 1
Loop
End Sub
Ejercicio 7
Dim opera As Byte
Dim num1, num2 As DoublePrivate 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 cmdCubo_Click()
num1 = Val(txtVisor.Text)
opera = 6
txtVisor.Text = " "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
txtVisor.Text = Resp
If opera = 3 Then
Resp = num1 * num2
End If
txtVisor.Text = Resp
If opera = 4 Then
If num2 = 0 Then
MsgBox "Error... No puede dividirse por 0"
Exit Sub
End If
Resp = num1 / num2
End If
txtVisor.Text = Resp
If opera = 5 Then
Resp = num1 ^ 0.5
End If
txtVisor.Text = Resp
If opera = 6 Then
Resp = num1 * num1 * num1 * num1 * 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 cmdRaiz_Click()
num1 = Val(txtVisor.Text)
opera = 5
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
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
Ejercicio 8
Option ExplicitPrivate Sub Form_Load()
List1.AddItem "Beethoven"
List1.AddItem "Che Guevara"
List1.AddItem "Adolfo Hitler"
List1.AddItem "Mahatma Gandhi"
List1.AddItem "Pelé"
List1.AddItem "David Beckham"
List1.AddItem "Sean Faris"
List1.AddItem "Fernando Torres"
List1.AddItem "Bob Marley"
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture("beethoven.jpg")
Label2.Caption = "Beethoven"
Label1.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")
Label2.Caption = "Che Guevara"
Label1.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")
Label2.Caption = "Adolfo Hitler"
Label1.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")
Label2.Caption = "Mahatma Gandhi"
Label1.Caption = "Mohandas Karamchand Gandhi (2 de octubre de 1869 - 30 de enero de 1948) fue un político y pensador indio. Estudió Derecho en las universidades de Ahmedabad y Londres, y ejerció como abogado en Bombay.Se interesó por la situación de los 150.000 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 figuró abiertamente al frente del movimiento nacionalista indio. Instauró 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")
Label2.Caption = "Pelé"
Label1.Caption = "Edson Arsntes do Nascimiento (Tres Coracoes, Brasil, 23 de octubre de 1940O), futbolista brasileño, mas conocido como Pele, es ex jugador de futbol. Apodado tambien <>, 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 septiembre de 1956, sin haber cumplido los 16 años y anotando un gol. En ese equipo permanecio practicamente toda su carrera, ganando dos Copas Libertadores, dos Copas Intercontinentales, 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("beck.jpg")
Label2.Caption = "David Beckham"
Label1.Caption = "David Robert Joseph Beckham(Leytonstone, Londres, 2 de mayo de 1975)es un futbolista inglés. Actualmente juega en el LA Galaxy. Anteriormente, desarrolló toda su carrera deportiva en el Manchester United y luego pasó a formar parte del Real Madrid. Destacó su capacidad goleadora en Inglaterra, y sus tiros libres, los cuales poseen un efecto endiablado. Considerado por muchos como el mejor lanzador de tiros libres del mundo, debido a su gran precisión de tiro y potencia."
Case 6
Image1.Picture = LoadPicture("sean.jpg")
Label2.Caption = "Sean Farris"
Label1.Caption = "Sean Haroy Faris(Texas, Estados Unidos, 25 de marzo de 1982). A los 12 años se trasladó con su madre a Cleveland,Ohio.A los 17 años decide que quería ser actor. Antes de actuar, que tenía en mente alistarse en la Fuerza Aérea de Estados Unidos. Estudió en la Escuela Secundaria Padua Franciscana en Parma, Ohio.Era un atleta de alta escuela - él jugaba al fútbol, baloncesto y béisbol. También un buzo para el equipo de natación. Su padre y la mayoría de los miembros de su familia viven en Houston, mientras que su madre aún vive en Cleveland. Se graduó con honores en el 2000 y se mudó a Los Angeles, California, para dedicarse a la actuación de unas pocas semanas más tardes."
Case 7
Image1.Picture = LoadPicture("Torres.jpg")
Label2.Caption = "Fernando Torres"
Label1.Caption = "Fernando José Torres Sanz (20 de marzo de 1984, Fuenlabrada, Madrid, España), más conocido como Fernando Torres o «El Niño» en España, es un futbolista español de origen gallego. Se desempeña como delantero y su actual club es el Liverpool FC de la Premier League.Inició su carrera en las categorías inferiores del Atlético de Madrid. En 2001 debutó con el primer equipo, cuando este se encontraba jugando en la Segunda División, donde llego a marcar 7 tantos en 40 encuentros y lograr el ascenso a la Primera División de España. En la liga marcó 75 tantos en 174 encuentros. El Liverpool lo fichó en 2007, convirtiéndole en el futbolista más caro en llegar al equipo británico. En la temporada 2007/08 se convirtió en el único futbolista del Liverpool - desde Robbie Fowler (1995/6) - en marcar más de veinte tantos en una temporada."
Case 8
Image1.Picture = LoadPicture("Marley.jpg")
Label2.Caption = "Bob Marley"
Label1.Caption = "Robert Nesta Marley Booker (Nine Mile, Saint Ann Parish, Jamaica, 6 de febrero de 1945 - Miami, 11 de mayo de 1981), mejor conocido como Bob Marley, fue un músico y compositor jamaicano. Durante su carrera musical fue el líder, compositor y guitarrista de las bandas de ska, rocksteady y reggae The Wailers (1964–1974) y Bob Marley & the Wailers (1974–1981). Marley sigue siendo el más conocido y respetado intérprete de la música reggae y es acreditado por ayudar a difundir tanto la música de Jamaica como el movimiento Rastafari (de la que era un miembro comprometido) a una audiencia mundial."
End Select
End Sub
