Ejemplos de codificación de programas en visual basic

1: crear una caja de texto, una matriz diez botes de comandos para los numero, otra matriz de cuatro botones de comando para los operadores (+,-,/,*), un comando para nueva operación, un comando para el resultado (=) 

Ejemplo

Private Sub Igual_Click() 
Select Case signo 'la variable signo te dice si sumas(0) si restas(1)...... 
Case 0 
Text1.Text = suma(anterior, Val(Text1.Text)) 'llamada a la función suma 
Case 1 
Text1.Text = resta(anterior, Val(Text1.Text)) 

Case 2 
Text1.Text = multiplicar(anterior, Val(Text1.Text)) 
Case 3 
Text1.Text = Dividir(anterior, Val(Text1.Text)) 
End Select 
End Sub 

Private Sub Nueva_Click() 
Text1.Text = "" 
End Sub 

Private Sub Operador_Click(Index As Integer) 
signo = Index 'si index es 0 sumas, si es 1 restas...... 
anterior = Val(Text1.Text) 
Text1.Text = "" 

End Sub 

Private Sub Numero_Click(Index As Integer) 
Text1.Text = Text1.Text + Numero(Index).Caption 
End Sub 

Private Function suma(Numero As Integer, Operador As Integer) As Integer 
suma = Numero + Operador 
End Function 

Private Function resta(Numero As Integer, Operador As Integer) As Integer 
resta = Numero - Operador 
End Function 

Private Function multiplicar(Numero As Integer, Operador As Integer) As Integer 
multiplicar = Numero * Operador 
End Function 

Private Function Dividir(Numero As Integer, Operador As Integer) As Integer 
Dividir = Numero / Operador 
End Function 

Private Sub Salir_Click() 
Unload Me 
End Sub

Conversor de temperatura

Private Sub Command1_Click()
Text2.Text = 32 + 9 / 5 * (Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

Navegador de internet

Código:

En el Button1:

Private Sub [...] WebBrowser1.GoBack() 'Al pulsar el botón, página atrás. End Sub

En el Button2:

Private Sub [...] WebBrowser1.GoForward() 'Al pulsar el botón, página adelante. End Sub

En el Button3:

Private Sub [...] WebBrowser1.Stop() 'Al pulsar el botón, deja de cargar la página. End Sub

En el Button4:

Private Sub [...] WebBrowser1.Refresh() 'Al pulsar el botón, se vuelve a cargar la página. End Sub

En el Button5:

Private Sub [...] WebBrowser1.Navigate(TextBox1.Text) 'Al pulsar el botón, se carga la página que pone en el TextBox1 End Sub.

Calcular área de un triángulo

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object,

    ByVal e As System.EventArgs) Handles Button1.Click

        Dim b, h As Double

        Dim area As Double

        b = TextBox1.Text

        h = TextBox2.Text

        area = b * h / 2

        TextBox3.Text = Trim(area)

    End Sub

End Class

Multiprograma

Código (A):

En los botones del Formulario principal:

·      Private Sub [...] Formx.Show() 'Donde Formx es el (Name) del formulario. Esto abre el otro formulario. End Sub

Código (B):

Antes de nada, hay que cambiar una cosa de las propiedades del proyecto:

Una vez cambiado eso, en el código del botón que cambia de formulario:

·      Private Sub [...] Formx.Show() 'Donde Formx es el (Name) del formulario. Esto abre el otro formulario. Me.Close() 'Esto cierra este formulario. Lo hace tan rápido que parece que un formulario se transforma en el otro. End Sub

Tarea      
Declare las variables de Visual Basic de los siguientes programas
1) calcule el promerio de 3 notas sumativas
2) divida 2 numeros enteros
3) calcula la T° en °C
4) calcule el seguro social

1)
Dim A  As Float
Dim B As Float
Dim C As Float

2)
Dim Y As Int
Dim Z As Int

3)
Dim K, Y As Int

4)
Dim RP As Float
Dim CH As Int

Nombre: Lizbeth Giraldo

calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, nota3, promedio As Single

REM contenido del formulario

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MyBase.Load

Me.text= “ cálculo promedio de 3 notas sumativas”

ButtonCalcular.Text= “calcular el promedio”

Label1.Text= “introduzca la primera nota”

Label2.Text= “introduzca la segunda nota”

Label3.Text= “introduzca la tercera nota”

End Sub

REM cálculo y muestra resultados

Private Sub Button1_Click(ByVal sender As System.Object, Byval e As System.EventArgs) Handles

ButtonCalcular.Click

Nota1= Val(TextBox1.Text)

Nota2=Val(TextBox2.Text)

Nota3=Val(textBox3.Text)

Promedio=(Nota1 + Nota2 + Nota3) / 3

Label Resultados.Font= New Font(“Arial”,10, FontStyle.Bold)

LabelResultados.TextAlign= ContentAlignment.MiddleCenter

LabelReaultados.Text = “El promedio es de “&promedio&”

End Sub

 Option Explicit On

Public Class Form1

REM Declaración de variables

Const Pi As Single = 3.141592654

Dim R, H, V As Single

REM Contenido del formulario

Privbate Sub Form1_Load(ByVal sneder As System.Object, yVal e As System.EventArgs) Handles

MyBase.Load

Me.Text = “Cálculo volumen cilindro”

ButtonCalcular.Text = “Calcular volumen”

Label1.Text = “Introduzca aquí el diámetro, en metros”

Label2.Text = “Introduzca aquí la altura, en metros”

End Sub

Rem Cálculo y muestra resultados

Private Sub Button1_Click(ByVal sneder As System.Object, ByVal e As System.EventArgs) Handles

ButtonCalcular.Click

R= Val(TextBox1.Text)/2

H= Val(TextBox2.Text)

V= Pi*(R^2)*H

LabelResultados.Font = New Font(“Arial”,10,FontStyle.Bold)

LabelResultados.TextAlign = ContentAlignment.MidlleCenter

LabelResultados.Text= “El volumen del cilindro es de “& V &” metros cúbicos

End Sub

End Class

Nombre: Lizbeth Giraldo

1.      ¿cómo se da la asignación de valores de visual basic?

2.      Estructura de programación en Visual basic

3.      ¿Cómo se realiza los ingresos de datos a través de controles de visual basic?

4.      ¿Cuál es la sintaxis de las siguientes estructuras de decisión? decisión simple, decisión múltiple

5.      ¿Cuáles son los operadores básicos de Visual basic?

1.      Para asignar un valor a una variable utilizamos el operador = siguiendo la siguiente sintaxis:

<variable> = <valor>

2.      Un programa de Visual Basic se crea a partir de bloques de creación estándar.  Una solución consta de uno o varios proyectos.  Un proyecto a su vez puede contener uno o más ensamblados.  Cada ensamblado se compila a partir de uno o varios archivos de código fuente.  El archivo de código fuente proporciona la definición e implementación de clases, estructuras, módulos e interfaces, que en última instancia contienen todo el código. 

3.      Primer paso: Predefinir los requisitos (campos)

La aplicación corresponde al registro y actualización de una tabla que contiene información sobre las personas que ingresan y salen de una edificación.

Segundo paso: Diseño del formulario principal

Diseñe el siguiente formulario desde la consola de Microsoft® Excel Visual Basic para Aplicaciones, basado en los campos mencionados en el paso anterior.

Tercer paso: Programación preliminar del formulario

Antes de pasar a la programación de los botones del formulario, debemos programar el ComboBox1 (control de listado), para que muestre las opciones: C.C., C.E. y T.I. (Cédula de Ciudadanía, Cédula de Extranjería y Tarjeta de Identidad). Haga doble click en el formulario y en la ventana de código seleccione el procedimiento ACTIVATE.

Cuarto paso: Activar el formulario desde la hoja de cálculo

Desde la hoja de Microsoft  Excel donde se encuentra la tabla creada en el paso 1, agregué un botón justo al lado de la tabla (Control Active X) llamado FORMULARIO, como se observa en la siguiente ilustración.

4.   Alternativa simple (if-then/si-entonces)

La estructura alternativa simple si--entonces ejecuta una determinada acción cuando se cumple una determinada condición. La selección si-entonces evalúa la condición y

- si la condición es verdadera, entonces ejecuta la acción S1

- si la condición es falsa, entonces no hacer nada

Alternativa doble (si-entonces-sino/if-then-else)

La estructura anterior es muy limitada y normalmente se necesitará una estructura que permita elegir entre dos opciones o alternativas posibles en función del cumplimiento o no de una determinada condición.

Si la condición C es verdadera, se ejecuta la acción S1, y si es falsa, se ejecuta la acción S2.

5.   Visual Basic proporciona los tipos de operadores siguientes:

·                     Operadores aritméticos, realizan los cálculos familiares en valores numéricos, incluido el desplazamiento de sus modelos de bits.

·                     Operadores de comparación, comparan dos expresiones y devuelven un valor Boolean que representa el resultado de la comparación.

·                     Operadores de concatenación, combinan varias cadenas en una sola.

·                     Operadores lógicos y bit a bit en Visual Basic, combinan valores Boolean o numéricos y devuelven un resultado del mismo tipo de datos que los valores.

taller 1

declare en Visual Basic las siguientes variables

Dim  porcen As Float

Dim cant As double

Dim proyecto As char

Dim resp As Single

Dim Boton As Interger

Dim Totaldescuento As interger

Dim importe As float

Dim suma As single

Dim resta As float

Dim resul As char

Dim parent As single

Dim verdadero As bool

Dim fila As single

Dim falso As bool

Dim nombre As Char

Dim cedula As interger

Dim apellido As Char

Dim Datos As single

Dim Ecua As inerger

Dim provincia As Char

Dim mult As Double

Dim numeri As float

Alan Cooper                                                                

Alan Cooper  nacido en 1952 es conocido por su papel en la humanización de la tecnología a través de su trabajo innovador en el diseño de software. Amplia mente reconocido como el "Padre de Visual Basic",  Cooper es el autor de los libros, About Face 3. Como fundador de Cooper, una consultora líder en diseño de interacción, se creó el meta-dirigida ® metodología de diseño y pionero en el uso de personajes como práctica de diseño de interacción herramientas para crear productos de alta tecnología que las necesidades del usuario de la dirección.

En 1988, Alan Cooper creó un lenguaje de programación visual (el nombre clave de "Ruby") que permitía a los usuarios de Windows para crear "Finder", como las conchas. Él lo llamó "un juego de construcción de shell".  Después de demostrar a Ruby a Bill Gates, Microsoft lo compró. En ese momento, Gates comentó que la innovación podría tener un "profundo efecto"  en su línea de productos. Microsoft decidió no lanzar el producto como un intérprete de comandos para los usuarios, sino para transformarlo en una herramienta de desarrollo profesional al casarse a sus QuickBASIC lenguaje de programación. Llamaron a los productos de Visual Basic . Este software innovador resultó ser la llave que abrió de Windows para amplio desarrollo de aplicaciones de negocio.

Dinámica de Cooper instalación de control de instalar, que se hizo famoso como el " VBX "de interfaz, es un componente importante de" Ruby ". Esta innovación permite que cualquier desarrollador 3 ª parte para escribir un widget (control) como un archivo DLL, lo pusiera en el directorio de Visual Basic y Visual Basic que se encuentran, se comunican con él, y lo presentará al usuario como una parte integral del programa. El widget que aparece en la paleta de herramientas y menús adecuados, y los usuarios puedan incorporar en sus aplicaciones de Visual Basic. La invención de la "VBX" interfaz creado un mercado totalmente nueva para los vendedores de estos "controles instalable de forma dinámica." Como resultado del trabajo de Cooper, muchas compañías de software nuevo y existente fueron capaces de aprovechar el mercado de software en pleno auge de Windows en la década de 1990.

El primer libro escrito acerca de Visual Basic, Visual Basic, el Grupo de Waite How-To por Mitchell Waite, está dedicada a Alan Cooper. En su dedicatoria, el autor llama Cooper el "Padre de Visual Basic." Este apodo a menudo Cooper fue uno de línea de curriculum vitae.

En 1994, Bill Gates presentó Cooper con el primer premio Pioneer de Windows por sus contribuciones a la industria del software. Durante la presentación, Gates tomó nota en particular de la labor innovadora de Cooper la creación de la interfaz VBX. En 1998, el SVForum honor Cooper con el Premio Visionario.

ventana de propiedades 

Esta venta tienes la propiedades o caracterizticas de un control u objeto, las cuales se pueden ordernar por Alfabética y Por categorías

interfaz de visual basic

visual basic      

 Visual Basic 1.0: visual Basic para Microsoft se libero en mayo de 1991. Para MS-DOS fue liberada en septiembre de 1992. este lenguaje no era compatible con Visual Basic para Windows, ya que constituía en realidad la siguiente versión de los compiladores BASIC vigentes para DOS, Usaba una interfaz de texto, con caracteres ASCII extendidos que daban la apariencia de una interfaz gráfica.
       Visual Basic 2.0: Fue liberado en noviembre de 1992. Venía en versiones Standard y Professional. El entorno de programación era más fácil de usar que el anterior, y su velocidad de proceso fue mejorada.       Visual Basic 3.0: salió al mercado en 1993, en versiones Standard y Profesional. Incluía la versión 1.1 de Microsoft Jet Database Engine, que permitía acceso a bases de datos Access.       Visual Basic 4.0: surgida en agosto de 1995, fue la primera versión que generaba aplicaciones tanto de 16 como de 32 bits para Windows. Había incompatibilidades entre las distintas realeases de esta versión que causaban fallas de instalación y problemas de operación.       Visual Basic 5.0: Microsoft lo lanzo en agosto de 1995.  versión que generaba programas de 32 bits exclusivamente. se tenía la posibilidad de crear controles personalizados; también permitía compilar a código ejecutable nativo de Windows, logrando con ello incrementar la velocidad de ejecución de los programas generados, más notablemente en los de cálculo. 2.  El cuadro de herramientas puede ser diferente, dado que pueden haber más o menos mas controles en la barra y por lo tanto puede ser mucho más grande o con mas columnas de controles o de diferentes tipos de controles.  Presenta todos los controles necesarios para diseñar una aplicación, como cuadros de texto, etiquetas, cuadros de listas, botones de comandos.
    3.  Microsoft Visual Basic 1.0 desarrollada para el sistema operativo MS-DOS, incluía un diseñador de formularios en el que se podían arrastrar y soltar distintos controles. La última versión que sólo generaba aplicaciones de 16 bits fue la 3.0. Durante la transición de los sistemas Windows 3.11 a Windows 95, en 1995, hizo su aparición la versión 4.0 de Visual Basic. Sucesora 6.0 soportaban ciertas características propias de los lenguajes orientados a objetos. Visual Basic evolucionó para integrar la plataforma .NET; allí perdió su propia identidad como lenguaje único adquirible.
4. ventajas:
©       Posee una curva de aprendizaje muy rápida.
©       Integra el diseño e implementación de formularios de Windows.
©       Permite usar con facilidad la plataforma de los sistemas Windows, dado que tiene acceso prácticamente total a la API de Windows, incluidas librerías actuales.
Desventajas:
©       Soporte pobre para programación orientada a objetos
©       Incapacidad para crear aplicaciones multihilo, sin tener que recurrir a llamadas de la API de Windows.
©       Dependencia de complejas y frágiles entradas de registro COM5.
       Los compiladores de Visual Basic generan código que requiere una o más librerías de enlace dinámico para que funcione       Las bibliotecas DLL proveen funciones básica implementadas en el lenguaje, conteniendo rutinas de código ejecutable que son cargadas bajo demanda en tiempo de ejecución +
       Dentro del mismo entorno de desarrollo integrado de visual Basic se pueden ejecutar el programa que este desarrollándose, es decir en modo interprete.

6. LABEL: lbl
 COMMAND BUTTOM: cmd
 TEMPORIZADOR: tmr
 CHECK BOX: chk
 LINE: lin
 OPTION BUTTOM: opt
 FORM: form
 DATA: dat

1. 7. String – Datos que pueden tener texto o cualquier caracter.

1. Integer – Datos que pueden tener cualquier número entero, o sea, no tiene punto decimal. Puede tener valores desde –32,768 hasta 32,767.

1. Long integer – Puede tener cualquier número entero, desde –2,147,483,648 hasta 2,147,483,647.

1. Single-precision (floating point) – Número con un máximo de seis (6) lugares decimales.

1. Double-precision (floating point) – Número con un máximo de catorce (14) lugares decimales.

1. Variant – Puede tener cualquier tipo de datos, pues deja que Visual Basic encuentre la mejor forma de guardar datos. Pos esa razón, toma más memoria y hace los programas más lentos que si se usan los otros tipos de datos.

1. Currency – Otro tipo de “floating point”. Puede tener valores desde –922 trillones hasta 922 trillones.

1. Bolean – Tiene solo los valores True (cierto) o False (falso).

1. Byte – Tiene números enteros desde 0 a 255.

Objetos y eventos

Se designa como objeto cualquier elemento, por ejemplo, un formulario, una imagen, un control, tal como una caja de texto. Un evento es la ocurrencia de un suceso, comúnmente la acción que realiza el usuario sobre el objeto, que como resultado puede, por ejemplo, provocar un cambio en alguna propiedad de un objeto

Algunos eventos comunes definidos en Visual Basic son:

·         Click: ocurre cuando se presiona y suelta un botón del mouse sobre un objeto.

·         DblClick: ocurre cuando se presiona y suelta dos veces un botón del mouse sobre un objeto.

·         DragDrop: ocurre al arrastrar y soltar un determinado objeto con el mouse.

·         DragOver: ocurre si una operación de arrastrar y soltar está en curso.

·         GotFocus: ocurre cuando un objeto recibe el control o foco, ya sea mediante una acción del usuario como hacer click en un objeto ventana, o cambiando el foco de objeto desde el programa, mediante el método SetFocus.

·         LostFocus: contrario al anterior, este evento ocurre cuando el objeto pierde el enfoque, sea mediante acción del usuario o efectuado desde la aplicación.

·         KeyDown: ocurre cuando el usuario mantiene presionada una tecla.

·         KeyUp: ocurre cuando el usuario deja de presionar una tecla. Este evento sucede precisamente al terminar el evento KeyDown.

·         KeyPress: ocurre como cuando se presiona y suelta una tecla.

·         MouseDown: ocurre cuando el usuario presiona un botón del mouse.

·         MouseUp: se produce cuando el usuario suelta el botón del mouse.

·         MouseMove: este evento ocurre mientras el usuario mueve o desplaza el puntero del mouse sobre un objeto.

Ventajas

·         Posee una curva de aprendizaje muy rápida.

·         Integra el diseño e implementación de formularios de Windows.

·         Permite usar con facilidad la plataforma de los sistemas Windows, dado que tiene acceso prácticamente total a la API de Windows, incluidas librerías actuales.

·         Es uno de los lenguajes de uso más extendido, por lo que resulta fácil encontrar información, documentación y fuentes para los proyectos.

·         Fácilmente extensible mediante librerías DLL y componentes ActiveX de otros lenguajes.

·         Posibilita añadir soporte para ejecución de scripts, VBScript o JScript, en las aplicaciones mediante Microsoft Script Control.

·         Tiene acceso a la API multimedia de DirectX (versiones 7 y 8). También está disponible, de forma no oficial, un componente para trabajar con OpenGL 1.1.⁷

·         Existe una versión, VBA, integrada en las aplicaciones de Microsoft Office, tanto Windows como Mac, que permite programar macros para extender y automatizar funcionalidades en documentos, hojas de cálculo y bases de datos (Access).

·         Si bien permite desarrollar grandes y complejas aplicaciones, también provee un entorno adecuado para realizar pequeños prototipos rápidos.

Desventajas

·         Problema de versionado asociado con varias librerías runtime DLL, conocido como DLL Hell

·         Soporte pobre para programación orientada a objetos⁹

·         Incapacidad para crear aplicaciones multihilo, sin tener que recurrir a llamadas de la API de Windows.

·         Dependencia de complejas y frágiles entradas de registro COM¹⁰

·         La capacidad de utilizar controles en un sólo formulario es muy limitada en comparación a otras herramientas. DLL Hell DB, Libro Programando en Visual Basic,2002