martes, 2 de agosto de 2016

Ejemplo de Codificación. Parte 1.


Práctica de Visual Basic

Option Explicit On

Public Class Form 1

REM Declaración de Variables

Const Pi As Single= 3.141592654

Dim R, H, V As Single

REM Contenido de Formulario

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

MyBase.Load

Me.Text= “Cálculo volume 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 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)

LabelResultados.TextAlign =  ContentAlignment.MiddleCenter

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

End Sub

End Class

Ejemplo B

Calcular el promedio de tres notas sumativas

Option Explicit on

Public Class Form 1

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

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

End Sub

 

 

No hay comentarios:

Publicar un comentario