Programas Codificados en Visual Basic

Algunos programas codificados en visual Basic son:

1.     Transformador de algoritmo, relativo a cálculo de necesidades de combustible, en un programa de Visual Basic.

Código:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Turismos%, Todoterrenos As Integer
Dim Capturismos!, Captodot As Single
Dim Necesidadescom As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo de necesidades combustible"
Label1(0) = "Por favor introduzca estos datos"
Label1(1) = "Número de turismos"
Label1(2) = "Número de todoterrenos"
Label1(3) = "Capacidad de turismos (litros)"
Label1(4) = "Capacidad de todoterrenos (litros)"
Command1.Caption = "Aceptar"
End Sub

Rem Cálculo y muestra resultados
Private Sub Command1_Click()
Label2.ForeColor = vbBlack
Label2.FontBold = True
Turismos = Val(Text1(0))
Todoterrenos = Val(Text1(1))
Capturismos = Val(Text1(2))
Captodot = Val(Text1(3))
Necesidadescom = Turismos * Capturismos + Todoterrenos * Captodot
Label2 = "Las necesidades totales de combustible son de " & Necesidadescom & " litros"
End Sub

2.   Transformar código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro dado su altura y diámetro.

Código:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Const Pi As Single = 3.141592654
Dim R!, H!, V As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo volumen cilindro"
ButtonCalcular.Caption = "Calcular Volumen"
Label1.Caption = "Introduzca aquí el diámetro, en metros"
Label2.Caption = "Introduzca aquí la altura, en metros"
End Sub

Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
R = Val(Text1) / 2
H = Val(Text2)
V = Pi * (R ^ 2) * H
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El volumen del cilindro es de " & V & " metros cúbicos"
End Sub

3.     Transformar en código el pseudocódigo que se indica a continuación, relativo a proporcionar el precio medio de un producto, calculado a partir del precio del mismo en tres establecimientos distintos.

Código:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Precio1!, Precio2!, Precio3!, Media As Single

Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo precio medio producto"
ButtonCalcular.Caption = "Calcular precio medio"
Label1.Caption = "Introduzca aquí el precio en establecimiento nº1, en euros"
Label2.Caption = "Introduzca aquí el precio en establecimiento nº2, en euros"
Label3.Caption = "Introduzca aquí el precio en establecimiento nº3, en euros"
End Sub

Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
Precio1 = Val(Text1)
Precio2 = Val(Text2)
Precio3 = Val(Text3)
Media = (Precio1 + Precio2 + Precio3) / 3
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El precio medio del producto es de " & Media & " euros"
End Sub

4.     Programa que pida un número entero distinto de cero y nos muestre en pantalla un mensaje indicándonos si el número es par o impar.

Código:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit

Dim Num As Integer
Dim Res As Integer

Private Sub Form_Load()
Form1.Caption = "Determina naturaleza par o impar"
ButtonHallar.Caption = "Determinar"
LabelPideNum = "Introduzca un nº entero"
End Sub
                                                                    
Private Sub ButtonHallar_Click()
Num = Val(TextNentero)
Res = Num Mod 2
LabelResultado.FontSize = 10
LabelResultado.FontBold = True
If Res = 0 Then
    LabelResultado = "El número es par"
Else
    LabelResultado = "El número es impar"
End If
End Sub

 

5.     Programa que muestra todos los enteros comprendidos entre un número definido por el usuario y 100.

Código:

Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit

Dim Num As Integer
Dim i As Integer

Private Sub Form_Load()
Form1.Caption = "Enteros"
Num = Val(InputBox("Introduzca un número entero comprendido entre 1 y 99", "¿Número?"))
LabelTabla.Alignment = 2
LabelTabla.FontBold = True
LabelTabla = "ENTEROS ENTRE " & Num & " y 100" & vbCrLf & vbCrLf
For i = Num To 100
    LabelTabla = LabelTabla & i & " "
Next i
End Sub