Ejemplo #1

D

Dim b,h, As Double

Dim area As Integer

Area = b * h / 2

TextBox3.Text = Trim(Area)

P

b= TextBox1.Text

h= TextBox2.Text

Ejemplo #2

C

ConstAlquilerDelAuto = 700

ConstKilometrosRecorrido = 750

D

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos,Resultado As Integer

S

Label1.text=”introduzca el día de alquiler”

Label2.text=”introduzca los kilómetros recorrido”

P

DiasDeAlquiler = Val(Text1)

Kilometros = Val(Text2)

Resultado= (DiasDealquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros)

S

LabelResultado.text =” Los kilómetros recorrido es de” & resultado”

Ejemplo #3

C

Const Pi As Single =3.14

D

Dim D,R,H,V,Vlitros,tminutos As Single

Dim Canal As Double

Dim Q As single

E

Label1 = “Introduzca aquí el diámetro del depósito, en metros”

Label2 =”Introduzca aquí la altura del depósito, en metros”

P

D = Val(Text1)

H = Val(Text2)

R = D / 2

V = Pi * (R ^ 2) * H

Vlitros = V * 1000

Tminutos = Vlitros / Q

S

Label3 = & “El tiempo que transcurrirá hasta el” & _” llenado del depósito es de “ &tminutos& “ minutos”

Ejemplos de codificados en Visual Basic

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form 1

REM Declaracion de variables

Dim nota1, nota2, nota3, promedio As Single

REM Contenido del formulario

Private Sub Form1_Load(ByVal sendeer 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”

Lbel1.Text = “introduzca la primera nota"

Lbel2.Text = “introduzca la segunda nota"

Lbel3.Text = “introduzca la tercera nota"

End sub

REM Calculo 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(TextBox 3.Text)

Promedio = (Nota1 + Nota2 + Nota3) / 3

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

LabelResultados.TextAlign = ContentAlignment.MiddleCenter

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

End Sub

   1.     Marque con letra roja la declaración de variables

   2.    De color morado la entrada de dato

   3.    De celeste los procesos o cálculos

   4.    La salida de datos de color naranja 

        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

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

        MyBase.Load

        Me.Text = “Cálculo volume cilindro”

        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 sender 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)

         LabelResultaods.TextAlign = ContentAlignment.MiddleCenter

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

         End Sub

         End  Class

1.        Los datos de entrada (celeste)

2.       Declaración de variable (verde caña)

3.       Los procesos (amarillo)

4.       Los datos de salida (rosado)

5.       Declaración de constante (roja)

Visual Basic

1.     Como se coloca el nombre de los objetos en V.B

2.     Forma para seleccionar los controles en V.B

3.     Como se da la asignación de valores en V.B

4.     Describa la estructura de decisión en V.B

DESARROLLO

1.     

a)    Las 3 primeras letras que la compone se escriben con letras minúsculas.

b)   El resto del nombre se relaciona con la función y se escribe con letra mayúscula.

Ejemplo:  isbFUNT

              _______________

              MIN MAYUS

2.     Dando click sobre el control o presionando la tecla ctrl. Los 3 controles que se selecciona son los siguientes: el control de comando, la etiqueta gris y la etiqueta roja

3.      

Control	Valor
CheckBox	Value
ComboBox	Text
CommandButton	Value
CommonDialog	Action
Data	Caption
DataCombo	Text
DataGrid	Text
DataList	Text
DirListBox	Path
DriveListBox	Drive
FileListBox	FileName
FlexGrid	Text
Frame	Caption
HScrollBar	Value
Image	Picture
Label	Caption
Line	Visible
ListBox	Text
OptionButton	Value
PictureBox	Picture
Shape	Shape
TextBox	Text
Timer	Enabled
VScrollBar	Value

4.      

- La estructura de control IF permite decidir entre dos opciones resultantes de la evaluación de una sentencia.

- La estructura IF-ELSE permite establecer una bifurcación o alternativa dentro de una secuencia de ordenes. Es decir, en ocasiones es posible que deseemos que el programa ejecute una instrucción o instrucciones, pero solo si se cumple determinada circunstancia, y, en caso contrario, o bien no hacer nada, o bien ejecutar otras instrucciones diferentes. 

- Select Case en Visual Basic equivale a la instrucción switch de otros lenguajes.

La expresión a evaluar puede ser un valor numérico o una cadena de texto. Sólo se puede evaluar una expresión y no múltiples expresiones. La evaluación de expresiones puede ser:

a)   De coincidencia: por ejemplo, Case 12 indicaría que si la expresión evaluada vale 12 se ejecutarán las instrucciones anexas.

b)   De intervalo: usando la palabra clave To. Por ejemplo, Case 12 To 14 indicaría que si la expresión evaluada tiene un valor comprendido entre 12 y 14 (incluidos los extremos de los intervalos), se ejecutarán las instrucciones anexas.

c)   De comparación: usando la palabra clave Is. Por ejemplo, Case Is <= 14 indicaría que si la expresión evaluada tiene un valor menor o igual a 14 se ejecutarán las instrucciones anexas.

Declaración de Visual Basic

N.V                                 TD

Dim Suma              AS float

Dim Cantidad        AS integer

Dim Sum_Ban      AS Double

Dim Nom              AS char

Dim Dire               AS char

Dim Redisuo         AS float

Dim Prog              AS bool

Dim Redés            AS char

Dim eda                AS bool

Dim resta              AS single

Dim div                AS single

Dim Multi            AS float

Dim mat               AS single

Dim Lib               AS Char

Dim Tipos           AS Single

Dim Dat              AS Float

Dim AB              AS Bool

Dim US              AS Double

Dim Saldo          AS Float

Dim Sueldo        AS Single

Dim Tecla          AS char 

Dim Esc            AS sinlge

Dim cod            AS float

Dim cont.          AS bool

Dim T_fila        AS double

Dim T_columna AS float

Dim Si               AS bool