Visual Basic

Intro al Visual Basic:

Permite hacer programas mas reales


¿Qué es un programa? Conjunto de instrucciones que devuelva un valor al usuario, numérico o cadena de caracteres este dato es el resultado de la acción del usuario sobre el programa, ya que el usuario solicitó el dato.
¿Qué es un objeto? Cosas manipulables. Botones, etiquetas, cuadros de texto, menú por esto se dice que Progra orienta a objeto.


Cada objeto responde a propiedades, métodos o eventos.


Propiedades: apariencia y comportamiento del objeto.


Métodos: se puede o sabe hacer el objeto. Procedimientos provistos por el objeto.


Eventos: lo que responde el objeto.


Programación Estructurada vs. Programación por eventos:


Progra Estructurada: también llamada lineal. Es cuando un programa en la primer línea del código y sigue una secuencia predeterminada atravez de la aplicación.


Progra por eventos: no sigue un flujo pre definido sino que ejecuta diferentes porciones del código.


Pasos para Programar en Visual Basic:


Suponiendo que ya está el programa de flujo. Se hace lo siguiente:


1. Crear el entorno gráfico (interphase gráfico).
2. Establecer las propiedades de los controles (objetos).
3. Programar como responden los controles a eventos (escribir código).


Nombres de Datos:


Se hace referencia a dicho objeto. El programa da nombres automáticos. Los nombres no son adecuados porque hace referencia al tipo pero no al uso del control.


Ejercicio # 1:

Private Sub Lb_bnt_Click()
Lb_txt.Text = Oz_txt.Text / 16
End Sub


Private Sub Lbs_bnt_Click()
Lbs_txt.Text = Ton_txt * 2000
End Sub


Private Sub Mt_bnt_Click()
Mt_txt.Text = Km_txt.Text / 1000
End Sub


Private Sub Oz_bnt_Click()
Oz_txt.Text = Lb_txt.Text * 16
End Sub


Private Sub Ozn_bnt_Click()
Ozn_txt.Text = Ts_txt.Text * 12
End Sub


Private Sub Ton_bnt_Click()
Ton_txt.Text = Lbs_txt.Text / 2000
End Sub


Private Sub Ts_bnt_Click()
Ts_txt.Text = Ozn_txt.Text / 12
End Sub


Ciclos y Condiciones
Los ciclos son las distancias de una onda que se repite.

For, Next: permite Crear un ciclo.

Ejercicio 2:

Sintaxis


For i = 1 To 20
Print num; “*”; i; “ = “; i * num
Next i


Ciclos

For, Next: permite crear un ciclo
Sintaxis
For i= 1 to 20
Print num; “*”;i;”=”;i*num
Next i

Ejercicio 3:

FORMULAS

Private Sub Command1_Click()
txt_3.Text = Val(txt_1.Text) + Val(txt_2.Text)
End Sub
Private Sub Command2_Click()
txt_3.Text = Val(txt_1.Text) - Val(txt_2.Text)
End Sub
Private Sub Command3_Click()
txt_3.Text = Val(txt_1.Text) / Val(txt_2.Text)
End Sub
Private Sub Command4_Click()
txt_3.Text = Val(txt_1.Text) * Val(txt_2.Text)
End Sub

Ejercicio 4:

FORMULAS

Private Sub Calcu_btn_Click()
A = Val(A_txt)
B = Val(B_txt)
C = Val(C_txt)

X1 = Val(-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
X2 = Val(-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 Salir_btn_Click()
End
End Sub

Ejercicio 5

Private Sub HScroll1_Change()

Dim Rojo, Verde, Azul As Integer
Rojo = HScroll1.Value
Verde = HScroll2.Value
Azul = HScroll3.Value
txtColor.BackColor = RGB(Rojo, Verde, Azul)
End Sub

Private Sub HScroll2_Change()
Dim Rojo, Verde, Azul As Integer
Rojo = HScroll1.Value
Verde = HScroll2.Value
Azul = HScroll3.Value
txtColor.BackColor = RGB(Rojo, Verde, Azul)
End Sub

Private Sub HScroll3_Change()
Dim Rojo, Verde, Azul As Integer
Rojo = HScroll1.Value
Verde = HScroll2.Value
Azul = HScroll3.Value
txtColor.BackColor = RGB(Rojo, Verde, Azul)
End Sub

Private Sub Reset_btn_Click()
TxtRojo = 0
TxtVerde = 0
TxtAzul = 0
End Sub

Private Sub TxtAzul_Change()

HScroll3.Value = TxtAzul.Text
End Sub

Private Sub TxtRojo_Change()
HScroll1.Value = TxtRojo.Text
End Sub

Private Sub TxtVerde_Change()
HScroll2.Value = TxtVerde.Text
End Sub

Ejercicio 6

Private Sub Form_Load()

Dim password As String

Do While password <> "hola"

password = InputBox("Introduce tu contraseña", "Inicio de sesion")

Loop

Label1.Caption = "Bienvenido"

End Sub

Ejercicio # 7

Dim opera As Byte


Dim num1, num2 As Double

Private Sub cdmPorcentaje_Click()
num1 = Val(txtVisor.Text)
opera = 6
txtVisor.Text = " "
End Sub

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 cmdCuadrado_Click()
num1 = Val(txtVisor.Text)
opera = 5
txtVisor.Text = " "
End Sub

Private Sub cmdCuatro_Click()
txtVisor.Text = txtVisor.Text + Str(4)
End Sub

Private Sub cmdDivision_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
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 = Sqr(num1)
End If

txtVisor.Text = Resp
If opera = 6 Then
Resp = (num1 * num2) / 100
End If
txtVisor.Text = Resp
End Sub

Private Sub cmdLimpiar_Click()
txtVisor.Text = " "
num1 = 0
num2 = 0
Resp = 0
End Sub

Private Sub cmdMultiplicacion_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 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 cmdSqr_Click()
num1 = Val(txtVisor.Text)
opera = 5
txtVisor.Text = " "
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 = 2
End Sub

Ejercicio # 8

Private Sub Form_Load()

List1.AddItem "Beethoven"

List1.AddItem "Che Guevara"
List1.AddItem "Adolfo Hitler"
List1.AddItem "Mahatma Ganhi"
List1.AddItem "Pelé"
List1.AddItem "Matt Shadows"
List1.AddItem "Madonna"
List1.AddItem "James Hetfield"
List1.AddItem "Taylor"

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).Compostorot alemán de música académica, vivió en la transición de Clasicismo al Romanticismo. Uno de los más grandes y admirados de todos los tiempos. Se le considera como el principal precursor romántico. Entre sus obras destaca 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 Novela Sinfonía, cuya música del cuerto movimiento a 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 geurrillero 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 ejèrcito boliviano con la colaboracion de la CIA en La Higuera (Bolivia) el 9 de octubre de 1967. Revolucionario argentino-cubano, medico de profesion. Se dirigio a Cuba a luchar contra lo que èl consideraba la tirania batstiana. Tras si desaparicion fisica su figura ha recorrido el mundo entero convirtiendose en un icono representado por la famosa foto de Alberto Korda. Aun despues 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 ")
lblName.Caption = "Adolfo Hitler"
lblBio.Caption = "Adolfo Hitler (Braunau am Inn, Austria, 20 de abril de 1889 - Berlin, 30 de abril de 1945). Político y dictador alemán de origen austriaco, que estableció un régimen nacionalsocialista en el que recibió el título de Reichkanzler y Führer. Como jefe del Partido Nacional Socialista Alemán de los Trabajadores, dirigió el gobiernodel país de 1933 a 1945,período en el que ocupo secesivamente 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 a salir de la crisis económicaposterior 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 Karamchad Ghandi (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 de Bombay. Se interesó por la situación de los 150000 compatriotas que residian en Sudáfrica, luchando contra las leyes que discriminaban a los indios en Sudáfrica mediante la resistencia pasiva y la independencia 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, 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")
lblName.Caption = "Pele"
lblBio.Caption = "Edson Arantes do Nascimiento (Tres Caraçoes, Brasil, 23 de octubre de 1940), futbolista brasileño, más conocido como Pelé, es ex-jugador de fútbol. Apodado también <>, es considerado como uno de los mejores jugadores de la historia de este deporte, alcanzando el galardón al jugador del siglo de la FIFA. Desrrolló lo mejor de su carrera en el Santos, club donde debutó el 7 de septiembre de 1956, sin haber cumplido los 16 años y anotando un gol. En ese equipo permaneció prácticamente toda su carrera, ganando dos Copas Libertadores, dos Copas Intercontinentales, una Recopa Sudamericanana, una Recopa Intercontinental, 15 títulos de la Liga y 5 Copas Brasil, hasta 1975, cuando ya en el declive de su carrera decidió probar suerte en la North America Soccer League estadounidense. Allí se destacó como el mejor jugador del torneo y ganó un título de la Liga (1977)."

Case 5

Image1.Picture = LoadPicture("Matt.jpg")
lblName.Caption = "Matt Shadows"
lblBio.Caption = "Nació en California el 31 de julio de 1981, actualmente vive en Orange Country con su esposa Valary DiBenedetto. Es el vocalista principal de la banda metalcore americana Avenged Sevenfold. Algunas de sus ingluencias musicales son: Guns N' Roses, Iron Maiden, Metallica, Megadeth y Pantera. Shadows empezó su carrera como miembro de una banda punk. Ha tenido cirugía de menor importancia para reparar su tensión vocal. Apoya a las tropas militares que sirven en los Estados Unidos ya que amistades cercanas pertenecen al servicio militar. En 2009, participó con las estrellas como Slash."

Case 6

Image1.Picture = LoadPicture("Madonna.jpg")
lblName.Caption = "Madonna"
lblBio.Caption = "Madonna Louise Veronica Ciccone nació en Bay City en 1977. Es conocida como la reina del Pop, debido a que es una de las mejores cantautoras, actriz y empresaria estadounidense. Inició su carrera como bailarina en Broadway; luego en 1983, lanzó su primer album siendo un exito y luego en 1996 debutando en la película Evita Perón. Es un personaje que ha sobresalido en las artes y que ha logrado la fama. Es reconocida como la artista femenina más exitosa del tiempo. Rompió un record Guinness por la venta de 500 millones de discos."

Case 7

Image1.Picture = LoadPicture("Hetfield.jpg")
lblName.Caption = "James Hetfield"
lblBio.Caption = "Janes Alan Hetfield nació en 1963 en Downey, California. El formó parte de una familia religiosa que no aprobava el uso de midicamentos; a la edad de 16 años sufrió la muerte de su madre debido a una enfermedad, lo cual causo un desacuerdo con sus familiares y sus creencias, lo cual lo influenció en su música. Desde niño inició a relacionarse con la mísucia al aprender piano, luego bateria y por último la guitarra. A los 18 años formó su primera banda llamada Obsession. Hetfield a sido quien compone las melodias y armonias de las canciones como la tambien las letras y la producción en estudio. Es parte del grupo Metallica."

Case 8

Image1.Picture = LoadPicture("Taylor.jpg")
lblName.Caption = "Taylor Swift"
lblBio.Caption = "Nació en 1989 en Pennsylvania. A la edad de 10 años empezó a escribir canciones y a cantar en festivales de la ciudad. También se destacó en la escritura al escribir una novela. Se graduó de la escuela Herdersonville. Inició su carrera artistica en el 2006, con el sencillo Tim McGraw con la ayuda de la compañia descográfica Big Machine Records. Es cantante de música Country y ha vendido 17 millones de discos. Es una cantante joven y popular en la sociedad de hoy."

End Select
End Sub