Ejemplo de codificación. Parte 2.

Práctica

                    Declaración de variable, procesos, datos de entrada y salida en los siguientes ejemplos.

Ejemplo 1

D

Dim b, h As Double

Dim area As Integer 

P

b= TextBox1Text

h=TextBox2.Text

area = b*h/2

TextBox3.Tet=

Trim (area)

Ejemplo 2

D

Dim DiasDeAlquiler As Integer

Dim KilometrosRecorridos, Resultado As Integer

P

DiasDeAlquiler= Val(Text1)

Kilometros= Val(Text2)

Resultado= (DiasDeAlquiler*AlquilerDelAuto)+(kilometrosRecorrido*Kilometros)

E

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

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

S

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

C

ConstAlquilerDelAuto= 700

ConstKilometrosRecorrido=750

Ejemplo 3:

D

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

Dim Canal As Float

Dim Q As Single

C

Const Pi As Single= 3.14

P

D= Val(Text1)

H=Val(Text2)

R=D/2

V=Pi*(R^2)*H

Vlitros= V*1000

tminutos=Vlitros/Q

E

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

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

S

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