NOTA: Se deben tener en cuenta los nombres de los objetos utilizados, ejemplo btnCalcular es el correspondiente botón calcular. Es necesario que los nombres dados por el lenguaje a los mismos hay que cambiarlos por los del presente código.
Las líneas que inician con las palabras Public y Private, no hay que escribirlas, estas son suministradas por el lenguaje de programación cuando en tiempo de diseño le damos doble clic al elemento correspondiente para programarlo. Similarmente pasa con los End Sub y End Class.
Pi es una variable (espacio en memoria con ese nombre) que utilizamos para guardar el valor 3.14159 por lo tanto hay que declararlo en la línea que aparece como Dim Pi As Double
Los objetos cuyos nombres inician con rad, ejemplo radMilimetros son del tipo RadioButton y se utilizan para que el usuario del programa escoja las unidades en las que va a trabajar. Al dar sobre ellos doble click se puede programar el evento CheckerChanged.
A los objetos en los cuales vamos a mostrar resultados y unidades (del radio, del área y de la longitud) su porpiedad Visible se configuró en False para que inicialmente no se vean.
La imagen se muestra en un objeto tipo PictureBox, al cual mediante la propiedad Image se le puede "cargar" una gráfica para mostrarla. La gráfica se puede hacer por ejemplo en el Paint y editarla hasta que se vea bien en el formulario.
 |
| Pantallazo del programa en ejecución |
Cualquier inquietud me comentan.
----------------------------------------------------------------------------------------------------------------
Public Class frmGeometria
Dim Pi As Double
Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
Pi = 3.14159
lblValorArea.Text = Pi * Val(txtRadio.Text) * Val(txtRadio.Text)
lblValorLongitud.Text = 2 * Pi * Val(txtRadio.Text)
lblUnidadesArea.Visible = True
lblUnidadesLongitud.Visible = True
lblUnidadesRadio.Visible = True
lblValorArea.Visible = True
lblValorLongitud.Visible = True
End Sub
Private Sub radMilimetros_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radMilimetros.CheckedChanged
lblUnidadesArea.Text = "mm2"
lblUnidadesLongitud.Text = "mm"
lblUnidadesRadio.Text = "mm"
End Sub
Private Sub radCentimetros_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radCentimetros.CheckedChanged
lblUnidadesArea.Text = "cm2"
lblUnidadesLongitud.Text = "cm"
lblUnidadesRadio.Text = "cm"
End Sub
Private Sub radMetros_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radMetros.CheckedChanged
lblUnidadesArea.Text = "m2"
lblUnidadesLongitud.Text = "m"
lblUnidadesRadio.Text = "m"
End Sub
Private Sub radPies_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radPies.CheckedChanged
lblUnidadesArea.Text = "ft2"
lblUnidadesLongitud.Text = "ft"
lblUnidadesRadio.Text = "ft"
End Sub
Private Sub radPulgadas_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radPulgadas.CheckedChanged
lblUnidadesArea.Text = "plg2"
lblUnidadesLongitud.Text = "plg"
lblUnidadesRadio.Text = "plg"
End Sub
Private Sub radKilometros_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radKilometros.CheckedChanged
lblUnidadesArea.Text = "Km2"
lblUnidadesLongitud.Text = "Km"
lblUnidadesRadio.Text = "Km"
End Sub
Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorrar.Click
txtRadio.Text = ""
lblUnidadesArea.Visible = False
lblUnidadesLongitud.Visible = False
lblUnidadesRadio.Visible = False
lblValorArea.Visible = False
lblValorLongitud.Visible = False
End Sub
End Class
No hay comentarios:
Publicar un comentario