¿Que es un programa?
Es un conjunto de instrucciones que devuelven un valor al usuario, ya sea numerico o una cadena de caracteres. Es resultado de la accion del usuario sobre el programa ya que el usuario fue el que solicito el dato.
¿Que es Visual Basic?
Este programa puede ser manipulado y se puede utilizar en las aplicaciones necesarias. Ejemplo: botones, etiquetas, cuadros de texto. Este programa contiene propiedades, metodos y eventos.
- Propiedad: son las caracteristicas que tiene un objeto. Determinan apariencia y comportamiento
- Metodo: es la accion 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 de una forma lineal ya que cada linea no se puede ejecutar sin la linea anterior. A esto se le llama flujo de programa.
¿Como se programa?
Para crear un programa es necesario para tener un diagrama de flujo.
1. Crear el entorno grafico (interfaz)
2. Establecer las propiedades del objeto
Codigos de la actividad de conversiones
Private Sub D_btn_Click()
D_txt.Text = H_txt.Text / 24
End Sub
Private Sub T_btn_Click()
T_txt.Text = E_txt.Text / 100
End Sub
Private Sub H_btn_Click()
H_txt.Text = D_txt.Text * 24
End Sub
Private Sub K_btn_Click()
K_txt.Text = M_txt.Text / 1000
End Sub
Private Sub M_btn_Click()
M_txt.Text = K_txt.Text * 1000
End Sub
Private Sub E_btn_Click()
E_txt.Text = T_txt.Text * 100
End Sub
Una secuencia de instrucciones del programa que se ejecutan en forma repetitiva hasta cumplir una condición particular.
For, Next: permite crear un ciclo
Sintaxis For i = 1 To 10
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 * numNext i
End Sub
Ejercicio 3
Private Sub divi_txt_Click()
res_txt.Text = Val(num1_txt.Text) / Val(num2_txt.Text)
End Sub
Private Sub multi_txt_Click()
res_txt.Text = Val(num1_txt.Text) * Val(num2_txt.Text)
End Sub
Private Sub resta_txt_Click()
res_txt.Text = Val(num1_txt.Text) - Val(num2_txt.Text)
End Sub
Private Sub suma_txt_Click()
res_txt.Text = Val(num1_txt.Text) + Val(num2_txt.Text)End Sub
Ejercicio 4
Dim A, B, CX1, X1, X2 As Single
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 salir_btn_Click()
End
End Sub
Ejercicio 5
Private Sub azul_HS_Change()
Dim rojo, verde, azul As Integerrojo = 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 = 10000
x = 0
Label1.Left = 0
Do While x < Form1.Width
Label1.Left = x
x = x + 1
Loop
End Sub
1. ¿Que pasaría si se olvido colocar el codigo x = x + 1?
La etiqueta no se mueve porque el codigo x = x + 1 hace que la etiqueta se mueva un espacio y si la quitamos la etiqueta ya no se mueve.
2. Escribe el codigo utilizando el ciclo For.
3. Modifique el codigo para que la etiqueta se desplace en forma vertical.
Ejercicio 8 (Calculadora)
Código:
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 cmdDivi_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
txtVisor.Text = Resp
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 entre 0"
Exit Sub
End If
Resp = num1 / num2
End If
txtVisor.Text = Resp
If opera = 5 Then
Resp = num1 * num2 / 100
End If
txtVisor.Text = Resp
If opera = 6 Then
Resp = num1 * num1
End If
txtVisor.Text = Resp
End Sub
Private Sub cmdMulti_Click()
num1 = Val(txtVisor.Text)
opera = 1
txtVisor.Text = " "
End Sub
Private Sub cmdN_Click()
num1 = Val(txtVisor.Text)
opera = 6
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 cmdPorcen_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 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
Private Sub limpiar_btn_Click()
txtVisor.Text = ""
num1 = 0
num2 = 0
Resp = 0
End Sub
Private Sub salir_btn_Click()
End
End Sub
Ejercicio 9 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 "Rafael Nadal"
List1.AddItem "Lionel Messi"
List1.AddItem "Polina Semionova"
List1.AddItem "Katy Perry"
List1.AddItem "Sean Faris"
List1.AddItem "Alex Pettyfer"
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 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 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 dirijio a Cuba a luchar contra lo que él consideraba la tiranía Batistiana. Tras su 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). Politico y dictador aleman de origen austriaco, que establecio un regimen nacionalsocialista en el que recibio el titulo de Reichskanzler y Fuhrer. Como jefe del Partido Nacional Socialista Aleman de los Trabajadores, dirijio el gobierno del pais de 1933 a 1945, periodo 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 6 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")
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 ejercio como abogado de Bombay. Se intereso por la situacion de 150 mil 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 = "Pele"
lblBio.Caption = "Edson Arantes do Nascimento (Tres Coracoes, Brasil, 23 de octubre de 1940), 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, una Recopa Sudamericana, una Recopa Intercontinental, 15 titulos de Liga y 5 Copas Brasil, hasta 1975, cuando ya en el declive de su carrera decidio probar suerte en el North America Soccer League estadounidense. Alli se destaco como el mejor jugador del torneo y gano un titulo de Liga (1977)."
Case 5
Image1.Picture = LoadPicture("nadal.jpg")
lblName.Caption = "Rafel Nadal"
lblBio.Caption = "Rafael <> Nadal Parera (Manacor, Islas Baleares, 3 de junio de 1986) es un tenista profesional español, actual número 1 del ranking de la ATP. Es el tenista masculino más joven de la historia en conseguir el Golden Slam en la Carrera (que incluye los cuatro Grand Slam y la medalla de oro de los Juegos Olímpicos, aunque no obtenidos en el mismo año), a los 24 años, 3 meses y 10 días. Este logro sólo es compartido por André Agassi, que lo consiguió a los 29 años. Del mismo modo, también es el primer tenista masculino de la historia que consigue ganar en un mismo año (2010) tres Grand Slam en tres superficies distintas.En 2010 se convierte en el único tenista en la historia en ganar el Clay Slam o Slam de Tierra Batida, el cual consiste en ganar en el mismo año los tres Masters 1000 sobre tierra batida: Montecarlo, Roma y Madrid; y el Grand Slam de Roland Garros, que también se disputa en tierra batida."
Case 6
Image1.Picture = LoadPicture("messi.jpg")
lblName.Caption = "Lionel Messi"
lblBio.Caption = "Lionel Andrés Messi, conocido también como Leo Messi (nacido en Rosario, Argentina, 24 de junio de 1987), es un futbolista argentino, nacionalizado español, que actualmente juega en la Primera División de España con el Fútbol Club Barcelona, además de en la selección de su país. En la actualidad, se le considera el mejor jugador del mundo, razón por la cual ha recibido el Balón de Oro y el premio al Mejor Jugador del Mundo de la FIFA, a sus 21 y 22 años, respectivamente. Su habilidad y estilo de juego lo han comparado a la leyenda del fútbol Diego Armando Maradona, que declaró al mismo Messi como su «sucesor». De igual forma, muchos medios le sitúan ya entre los seis mejores de la historia junto con Pelé, Diego Maradona, Johan Cruyff, Alfredo di Stéfano y Zinedine Zidane. Es además uno de los tres goleadores históricos del FC Barcelona."
Case 7
Image1.Picture = LoadPicture("polina.jpg")
lblName.Caption = "Polina Semionova"
lblBio.Caption = "Polina Aleksándrovna Semiónova (Moscú, 1984) es una bailarina rusa de ballet clásico. Es «Primera bailarina» del Staatsoper Unter den Linden de Berlín. Está considerada como una Prima Ballerina, y es una de las más jóvenes en alcanzar ese tipo de reconocimiento. Cuando estudiaba en el Bolshoi Ballet School de Moscú, conseguió varios premios en las principales competiciones de ballet, entre ellos la medalla de oro en la «Moscow International Ballet Competition» de 2001, el Primer Premio en la «Vaganova-Prix Ballet Competition» en San Petersburgo de 2002 y el Premio Junior en la «International Ballet Competition» de Nagoya, en Japón, en 2002."
Case 8
Image1.Picture = LoadPicture("katy.jpg")
lblName.Caption = "Katy Perry"
lblBio.Caption = "En 2001, lanza su primer álbum de estudio que se autotituló Katy Hudson, de género evangelista. El álbum no tuvo tanto éxito después del cierre de la discográfica Red Hill Records en ese año. Luego en 2004, firmo con Island Def Jam Records, la cantante se reunió con Glen Ballard y junto a ella, escribió un nuevo álbum como solista, titulado (A) Katy Perry, pero fue cancelado. Un año después, firmo un contrato con Columbia Records, y empezó a grabar el álbum The Matrix, con el equipo de producción musical <> que también había trabajado con Britney Spears, Avril Lavigne y Korn. A pesar de llegar a lanzar el vídeo musical para la canción <>, el álbum no fue publicado. Pero, con la discográfica Let's Hear It Records, finalmente fue publicada en el 2009. Al siguiente año, hizo una colaboración con la banda de género metal alternativo P.O.D., en el sencillo, <>."
Case 9
Image1.Picture = LoadPicture("sean.jpg")
lblName.Caption = "Sean Faris"
lblBio.Caption = "Sean Haroy Faris, nacido en Houston, Texas, Estados Unidos. Sus padres se llaman Stephen Faris Warren Miller y Katherine Ann Irene. Tiene un hermano y una medio hermana. 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 10
Image1.Picture = LoadPicture("alex.jpg")
lblName.Caption = "Alex Pettyfer"
lblBio.Caption = "Alexander Richard Pettyfer (nacido el 10 de abril de 1990) es un actor y modelo Inglés. Es hijo de un actor y una ex modelo, apareció en el cine como Alex Rider, el personaje principal en la versión cinematográfica de Stormbreaker. La película fue estrenada en todo el mundo en 2006. Fue visto como modelo en la primavera / verano 2008 en la campaña publicitaria de Burberry, después de haber firmado como Selección el modelo de gestión. Su película más reciente papel fue en la película Tormented, estrenada el 22 de Mayo en el Reino Unido y en la que interpretaba a Bradley. Actualmente, acaba de rodar Beastly que se estrenará el 30 de Julio en USA. Por el momento está rodando I Am Number Four, que verá la luz en 2011."
End Select
End Sub
