Ejemplo Grafico - Visual Basic

Código (versionesVB menos recientes)

Código (versiones VB más recientes)

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

REM Curso Visual Basic aprenderaprogramar.com Option Explicit On Public Class Form1     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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    Me.Text = "Cálculo de necesidades combustible"    Label1.Text = "Por favor introduzca estos datos"    Label2.Text = "Número de turismos"    Label3.Text = "Número de todoterrenos"    Label4.Text = "Capacidad de turismos (litros)"    Label5.Text = "Capacidad de todoterrenos (litros)"    Button1.Text = "Aceptar"     End Sub     REM Cálculo y muestra resultados     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Label6.ForeColor = Color.Black         Label6.Font = New Font("Arial", 10, FontStyle.Bold)         Turismos = Val(TextBox1.Text)         Todoterrenos = Val(TextBox2.Text)         Capturismos = Val(TextBox3.Text)         Captodot = Val(TextBox4.Text)         Necesidadescom = Turismos * Capturismos + Todoterrenos * Captodot         Label6.Text = "Las necesidades totales de combustible son de " & Necesidadescom & " litros"     End Sub End Class