Ciclones y condiciones
For, Next: permite crear un ciclo
Sintaxis
For = 1 To 10
Print num; ´´*´´;i,´´=´´;i*num
CONVERSIONES
QUE ES VISUAL BASIC?
Muchas funciones y aplicaciones como la calculadora de windows esta hechas en windos Visual Basic. estas aplicaciones nos permiten trabajar en cosas personales.
QUE ES UN PROGRAMA SIMPLE?
Es un conjunto de instrucciones que generalmente devuelve un valor al usuario. ya sea numerico o una cadena de caracteres. esta dato es resultado de la accion del usuario sobre el programa ya que el usuario fue quien solicito el dato.
QUE ES UN OBJETO?
Es algo que puede ser manipulado y se puede utilizar en las aplicaciones nesesarias, ejemplo, botones, etiquetas, cuadro de texto. estos elementos van reaccionando a propiedades, metodos y eventos.
CUALES SON SUS PROPIEDADES:
Son las caracteristicas que tiene un objeto pueden determinar la apariencia y comportamiento, puede tener muchos.
CUALES SON SUS METODOS:
son las acciones que puede hacer un objeto.
CUALES SON SUS EVENTOS:
son las acciones a las que responde un objeto, es decir, lo que ocurre sobre ellos.
PROGRAMACION ESTRUCTURADA:
Las lineas de este programa aplicadaa una programacion solo puede ejecutarse con la linea anterior esto se le llama flujo del programa.
PROGRAMACION POR EVENTOS:
la creacion de un programa tiene un punto de enfoque, resolver un problema en la programacion por eventos. se ejecuta por siferentes porciones de codigo, no es nesesario que exiusta un flujo lineal.
Private Sub Km2_btn_Click()
km2_txt.Text = Mi_txt.Text / 0.62137
End Sub
Private Sub Lbs_btn_Click()
Lbs_txt.Text = Kg_txt.Text * 2.2
End Sub
Private Sub M_btn_Click()
M_txt.Text = Km_txt.Text * 1000
End Sub
Private Sub M2_btn_Click()
M2_txt.Text = Yrds_txt.Text / 0.9144
End Sub
Private Sub M2_txt_Change()
End Sub
Private Sub Mi_btn_Click()
Mi_txt.Text = km2_txt.Text * 0.62137
End Sub
Private Sub Pulg_btn_Click()
Pulg_txt.Text = Cm_txt.Text * 0.3937
End Sub
Private Sub Pulg_txt_Change()
End Sub
Private Sub Yrds_btn_Click()
Yrds_txt.Text = M2_txt.Text * 0.9144
End Sub
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 limp_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
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
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 cmdCoseno_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
Resp = num1 / num2
End If
If opera = 5 Then
Resp = num1 * num2 * 3.1416 / 180
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 cmdSuma_Click()
num1 = Val(txtVisor.Text)
opera = 1
txtVisor.Text = " "
End Sub
Private Sub cmdTangente_Click()
num1 = Val(txtVisor.Text)
opera = 6
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 Form_Load()
List1.AddItem "Beethoven"
List1.AddItem "Che Guevara"
List1.AddItem "Adolfo Hitler"
List1.AddItem "Mahatma Gandhi"
List1.AddItem "Pele"
List1.AddItem "Cristiano Ronaldo"
List1.AddItem "Tito el Bambino"
List1.AddItem "Daddy Yankee"
List1.AddItem "Angelina Jolie Voight"
End Sub
Private Sub lblBio_Click()
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture("beethoven.jpg")
Labe.Caption = "Beethoven"
Labe.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")
Labe.Caption = "Che Guevara"
Labe.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")
Labe.Caption = "Adolfo Hitler"
Labe.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")
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 en Bombay. Se intereso de los 150000 compatriotas que discriminaban a los indios en sudafrica mediante la resistencia pasiva y la desobedencia civil. Una vez en su pais, desde 1918 figuro abiertamente al frente del movimiento nacionalista indio. Instauro la lucha armada y predicaba la no violencia como medio para resistir al dominio britanico. Precpnizaba la total fidelidad a los dictados de la conciencia, llegando incluso a la desobedencia civil si fuese necesario."
Case 4
Image1.Picture = LoadPicture("Pele.jpg")
lblName.Caption = "Pele"
lblBio.Caption = "Edson Arantes do Nacimento (Tres Coracoes, Brasil, 23 de octubre de 1940), futbolista brasileño, mas conocido como Pele, es ex-jugador de futbol. Apodado Rey, 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, donde debuto el 7 de septiembre de 1956, sin haber cumplido los 16 años y anotando un gol. Con ese equipo permanecio practicamente toda su carrera, ganando dos Copas Libertadores, dos Copas Internacionales, 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 la North American Soccer League estadounidenmse. Alli se destaco como el mejor jugador del torneo y gano un titulo de liga (1977)."
Case 5
Image1.Picture = LoadPicture("cristiano.jpg")
lblName.Caption = "Cristiano Ronaldo"
lblBio.Caption = "Cristiano Ronaldo dos Santos Aveiro (Funchal, Madeira, Portugal, 5 de febrero de 1985), futbolista portugues, mejor conocido como Cristiano Ronaldo, es un futbolista portugués. Se desempeña como extremo y actualmente milita en el Real Madrid de la Primera División de España. Es considerado uno de los mejores futbolistas del mundo y uno de los deportistas más mediáticos de la actualidad. Ha sido distinguido con el premio al Mejor jugador de la Premier League en 2007 y 2008, así como Deportista portugués del Año en esos mismos años. Su notable desempeño en la temporada 2007-08 le hizo acreedor de la Bota de Oro, el Balón de Oro, y el FIFA World Player en 2008."
Case 6
Image1.Picture = LoadPicture("Pele.jpg")
lblName.Caption = "Tito El Bambino"
lblBio.Caption = "Efraín David Fines Nevárez (Puerto Rico, 5 de octubre de 1981), más conocido como Tito el Bambino, es un productor, compositor y cantante de reggaeton puertorriqueño, antiguo integrante del dúo Héctor y Tito.Después de 5 discos y más de 250 mil de unidades vendidas con el dúo Héctor y Tito, Tito El Bambino estrenó su producción como solista a finales de marzo de 2006 titulado: Top Of The Line. demás de ser cantante y también se desempeña en el ámbito de la moda con su propia línea de ropa llamada Bambino. "
Case 7
Image1.Picture = LoadPicture("Pele.jpg")
lblName.Caption = "Daddy Yankee"
lblBio.Caption = "Luis Ayala Rodríguez (Río Piedras, Puerto Rico, 3 de febrero de 1977), conocido artísticamente como Daddy Yankee, cantautor de reggaetón, actor, productor cinematográfico, locutor radial y empresario puertorriqueño. Uno de sus mayores logros es haber popularizado el reggaeton en América Latina, España y diversos países de habla no-hispana. Su disco Barrio Fino lo proyectó a nivel internacional y le permitió ganar diversos premios como un premio Billboard de la Música Latina en el año 2005 y un premio Grammy Latino en 2006."
Case 8
Image1.Picture = LoadPicture("angelina_jolie.jpg")
lblName.Caption = "Angelina Jolie"
lblBio.Caption = "Angelina Jolie Voight (Los Ángeles, California, Estados Unidos; 4 de junio de 1975) es una actriz de cine y televisión, modelo, filántropa, socialité y embajadora de buena voluntad de ACNUR estadounidense. A lo largo de su carrera, Jolie ha recibido múltiples reconocimientos por sus logros actorales, entre ellos un premio Óscar y tres Globos de Oro."
End Select
End Sub
Preguntas sobre Visual Basic:
¿Explique los botones de la barra de herramientas de Visual Basic?
Mediante este control podremos realizar tanto la entrada como la salida de datos en nuestras aplicaciones.
Para que sirve alñ ventana de posicion de formulario?
Muestra la ubicación que tendrá el formulario en la pantalla, cuando ejecute la aplicación. Esta ubicación puede cambiarse si se hace clic con el botón izquierdo del mouse.
¿Para que sirve la ventana de proyecto?
Muestra los elementos involucrados en el proyecto, como formularios, módulos, controles oxc, etc. Cada elemento puede seleccionarse en forma independiente para su edición.
¿Para que sirve el cuadro de herramientas?
Presenta todos los controles necesarios para diseñar una aplicación, como cuadros de texto, etiquetas, cuadros de listas, botones de comandos, etc.
¿Para que sirve la ventana de formulario?
Es el área donde se diseña la interfaz gráfica, es decir, es donde se inserta electo gráficos, como botones, imágenes, casilla de verificación, cuadros de listas, etc.
¿Para que sirve la barra de herramientas estandar?
Contienen los botones que se utilizan con mayor frecuencia cuando se trabaja con un proyecto. Simplifica la elección de opciones de los menús Archivo, Edición, Ver y Ejecutar; además, en el área derecha presenta la ubicación (coordenadas) y el tamaño del objeto seleccionado.
¿Para que sirve la barra de menus?
Agrupa los menús despegables que contienes todas las operaciones que pueden llevarse a cabo con Visual Basic 6.0.
¿Para que sirve la barra de titulo en Visual Basic?
Muestra el nombre del proyecto y del formulario q se está diseñando actualmente.
¿Cuales son lo objetivos de Visual Basic?
Los Objetos Actives son una nueva tecnología de acceso a datos mediante la acción de arrastrar y colocar sobre formularios o informes.
¿Cuales son las características de Visual Basic?
Diseñador de entorno de datos: Es posible generar, de manera automática, conectividad entre controles y datos mediante la acción de arrastrar y colocar sobre formularios o informes.
Asistente para barras de herramientas es factible incluir barras de herramientas es factible incluir barra de herramientas personalizada, donde el usuario selecciona los botones que desea visualizar durante la ejecución.
¿Qué es Visual Basic?
Es un lenguaje de programación que se ha diseñado para facilitar el desarrollo de aplicaciones en un entorno grafico (GUI-GRAPHICAL USER INTERFACE) Como Windows 98, Windows NT o superior.
Porqué Visual Basic (VB) es muy utilizado en programación?
Visual Basic ya no es más "un lenguaje para principiantes" sino que es una perfecta alternativa para los programadores de cualquier nivel que deseen desarrollar aplicaciones compatibles con Windows.
¿Cómo evitar los caracteres "raros" al añadir un cambio de línea en un TextBox Multiline?
Después de llenar las casillas con los datos (Autor, copyright, descripción, etc) las quiero mostrar utilizando un TextBox con la opción de Multiline y un Scroll Bar (por si acaso).
¿Como crear controles en tiempo de ejecucion?
Para crear controles en tiempo de ejecución, con el VB6 hay otras posibilidades, debes tener esos controles en un array, como mínimo deberás tener uno, a partir de ahí, simplemente usando LOAD nombreControl(numeroDeElemento), tendrás nuevos controles.
¿Cules son las ventajas de visual basic?
Posee una curva de aprendizaje muy rápida.
Integra el diseño e implementación de formularios de Windows.
Permite usar con suma facilidad la plataforma de los sistemas Windows, dado que tiene acceso prácticamente total a la API de Windows, incluidas librerías actuales.
El código en Visual Basic es fácilmente migrable a otros lenguajes.
Es un lenguaje muy extendido, por lo que resulta fácil encontrar información, documentación y fuentes para los proyectos.
¿Cuales son las desventajas de visual basic?
Sin soporte oficial de Microsoft desde el 4 de abril de 2008 (aunque existe mucha documentación disponible en el sitio de MSDN incluidas descargas de Service Packs, paquetes de dependencias mínimas y similares en el sitio web de Microsoft).
