Es uno de los lenguages de informatica
Nos permite trabajar y realizar archivos especificos y su programacion es basada en objetos
Se hacen programas mas reales
Que es un programa:
Es un conjunto de instrucciones que generalmente devuelven un valor al usuario, ya sea numerico o cadena de caracteres. Este dato es el resultado del accion del usuario, sobre el programa, ya que el usuario fue el que solicito el dato.
Que es un objeto:Son cosas que se pueden manipular: botones, etiquetas, cuadros de texto y menu
Por esto se dice que es un programacion orientada a objetos.
Por esta razon cada objeto va a responder a propiedades, metodos y eventos.
Propiedades: Las propiedades determinan la apariencia y el comportamiento de los objetos
Metodos:Es lo que se puede hacer o se sabe hacer con el objeto
Son procedimientos provistos por el objeto
Evemtos: Es a lo que va a responder el objeto
Son las acciones que ocurren sobre los objetos
Programacion por eventos VS. programacion estructurada:La programacion estructurada , tambien llamada lineal, es cuando un programa comienza de la primer linea del codigo y sigue una secuencia determinada a travez de la aplicacion
La programacion por eventos es donde el programa no sigue un flujo predeterminado,sino que ejecuta diferentes porciones de codigo como una respuesta a eventos.
Pasos para programar visual-basic:
Suponiendo que el progrramador ya hizo su diagrama de flujo, los pasos son lops siguientes:
1. Crear el entorno grafico(interfaz grafico)
2. Establecer las propiedades de los controles (objetos)
3. Programar como responde estos controles a los eventos (escribir los codigos)
Nombrar los objetos:Cada objeto debe tener un nombre por medio del cual se hace referencia a dicho objeto
El rpograma da nombres a cada objeto automaticamente.
Los nombres que pone el programa mo somn adecuados, por que hace referencia al uso de control pero no al uso de dicho control
Cada programador, depende de saber lo que esta programando.
proyecto 1
Ciclos y Condiciones
For, Next: permite crear un ciclo
Sintaxis
For i= 1 to 20
Print num; “*”;i;”=”;i*num
Next i
For i= 1 to 20
Print num; “*”;i;”=”;i*num
Next i
Proyecto2
PROYECTO 3
PROYECTO 4
PROYECTO 4
PROYECTO CALCU
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 cmdDividir_Click()
num1 = Val(txtVisor.Text)
opera = 4
txtVisor.Text = ""
End Sub
Private Sub cmdDos_Click(Index As Integer)
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
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 cmdMultiplicar_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 cmdPorcentaje_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 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 Command1_Click()
End Sub
Private Sub Form_Load()
num1 = 0
num2 = 0
End Sub
PROYECTO PERSONAJES
List1.AddItem "Roger Federer"
List1.AddItem "Bob Marley"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture("beethoven.jpg")
lblName.Caption = "Beethoven"
lblBio.Caption = "Ludwing Van Beethoven (Bonn, 16 de diciembre de 1770 - Vienna, 26 de marzo de 1827).Compositor alemán de musica academica, vivio la transicion del Clasicismo al Romanticismo. Uno de los mas grandes y admirados de todos los tiempos. Se le considera como el principal precursor romantico. Entre sus obras destacan La Quinta Sinfonia, en mi bemol mayor, con la que rompe todas las pautas de la musica clasica; y 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")
lblName.Caption = "Che Guevara"
lblBio.Caption = "Ernesto Guevara de la Serna (1928 - 1967). Conocido como el Che Guevara, médico, político y guerrillero revolucionario. Nacio el 14 de junio de 1928 en Rosario (Argentina) y murio asesinado por el gobierno del presidente Barrientos tras ser capturado por el ejército 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 dirigio a Cuba a luchar contra lo que él consideraba la tiranía batistiana. Tras su desaparición fisica 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 lideres 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 camciller, 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ó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 político y pensador indio. Estudio Derecho en las universidades de Ahmedabad y Londresy 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 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")
lblName.Caption = "Pelé"
lblBio.Caption = "Edson Arantes do Nascimento (Três Coraç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. Desarrolló 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 Sudamericana,una Recopa Intercontinental, 15 títulos de Liga y 5 Copas Brasil, hasta 1975, cuando ya en el declive de su carrera decidió probar suerte en la North American Soccer League estadounidense. Allí se destacó como el mejor jugador del torneo y ganó un título de Liga (1977)."
Case 5
Image1.Picture = LoadPicture("bobesponja.jpg")
lblName.Caption = "Bob Esponja"
lblBio.Caption = "Bob Esponja es una serie de televisión estadounidense de dibujos animados. Actualmente es una de las Nicktoons más vistas de Nickelodeon. En el 2007, fue nombrada por TIME como uno de los más grandes programas de televisión de la historia. A pesar de que su canal original es Nickelodeon, Bob Esponja es ahora transmitido en todo el mundo. Fue creado por el artista, animador y biólogo marino, Stephen Hillenburg, y es producida por su compañía, United Plankton Pictures, Inc. En España se emite actualmente en diversos horarios en el canal Clan TVE."
Case 6
Image1.Picture = LoadPicture("batman.jpg")
lblName.Caption = "Batman"
lblBio.Caption = " Es un superhéroe creado por los estadounidenses Bob Kane y Bill Finger propiedad de DC Comics.Desde entonces, la identidad secreta de Batman ha sido siempre Bruce Wayne, un empresario multimillonario y filántropo. Después de ser testigo en su niñez de la muerte de sus padres, jura venganza y, tras someterse a un riguroso entrenamiento físico y mental, se dedica a combatir la delincuencia en Gotham City. A diferencia de otros superhéroes, no posee superpoderes sino que utiliza el intelecto junto a aplicaciones científicas y tecnológicas para crear armas y herramientas con las cuales atrapar a los criminales."
Case 7
Image1.Picture = LoadPicture("federer.jpg")
lblName.Caption = "Roger Federer"
lblBio.Caption = " (Binningen, Cantón de Basilea-Campiña, Suiza, 8 de agosto de 1981) es un tenista profesional suizo. Actualmente ocupa el número 3 del ranking de la ATP. Considerado como el mejor jugador de todos los tiempos. Es, junto a Rafael Nadal, el único de los jugadores en actividad que ha ganado los cuatro torneos del Grand Slam. Comenzó a practicar tenis a los tres años, a los ocho entró en el Tennisclub TC Old Boys, logrando, ya en su etapa junior, grandes resultados, al finalizar la temporada de 1998 en el primer lugar. Aunque en el circuito profesional no comenzó a destacar hasta la temporada de 2001, en apenas tres años, a partir del 2 de febrero de 2004, Federer se situó como número 1 del mundo en el ranking de la ATP, posición que mantuvo durante un tiempo récord de 237 semanas consecutivas hasta el 18 de agosto de 2008."
Case 8
Image1.Picture = LoadPicture("bobmarley.jpg")
lblName.Caption = "Bob Marley"
lblBio.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
CUESTIONARIO
Cuestionario de Visual Basic
Es uno de los lenguages de informática. Nos permite trabajar y realizar archivos especificos y su programacion es basada en objetos.
2. ¿Qué es un objeto?
Son botones, cuadros de texto, etiquetas y menú.
3. ¿Qué determina una propiedad?
Apariencia y comportamiento de los objetos.
4. ¿Para que nos sirve nombrar un objeto?
Para hacer una referencia por medio del nombre.
5. ¿De que depende un programador?
De saber lo que esta programando
6. ¿Para que se utiliza el TextBox?
Para insertar un cuadro de texto en donde podremos en un futuro ingresar datos para que sean operables.
7. ¿ Como se le asigna nombre a un botón?
En Caption
8. ¿Cómo podemos salir de la aplicación del programa sin utilizar la x?
Creando un botón con el código End.
9. ¿Para que se utiliza la aplicación CommandButton?
Nos sirve para crear botones para colocarlos en el formulario
10. ¿ En donde se encuentra la opción para cambiar el tipo de letra en un texto?
Nos vamos al cuadro de Propiedades y luego buscamos la opción Font
11. ¿ Para que nos sirve la opción ListBox?
Para hacer una lista de nombres u objetos para presentar información acerca de ellos.
12. ¿ Mencione tres herramientas que podemos encontrar en la barra de herramientas?
LostBox
TextBox
CommandButton
13. ¿ Para que se utiliza el PictureBox?
Para insertar una imagen
14. ¿Para que se utiliza la opción Font?
Para cambiar el tipo de letra deseado
15. ¿Qué es un programa?
Conjunto de instrucciones que generalmente devuelven un valor al usuario, ya sea numérico o cadena de caracteres.
16. ¿Qué es un método?
Es lo que se puede hacer o se sabe hacer con el objeto.
17. ¿Qué son los eventos?
Son las acciones que ocurren sobre los objetos.
18. ¿Qué es la programación estructurada?
También llamada lineal, es cuando un programa comienza de la primera línea del código y sigue una secuencia determinada a través de la aplicación.
19. ¿Qué es la programación por eventos?
Es donde el programa no sigue un flujo predeterminado, sino que ejecuta diferentes porciones de código como una respuesta a eventos.
20. ¿Para que sirve case?
Permite tomar una decisión en un grupo de opciones.
