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