Programa que calcula la aceleracion de un cuerpo utilizando la segunda ley de newton
Este progorma se guia por las formulas correspondientes esta hecho en .net
Public Class Form25
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fuerza#, masa#, aceleracion#
'validar los objetos de entrada
If Me.ofuerza.Text = "" Then
MsgBox("favor digite fuerza")
Me.ofuerza.Focus()
Else
If Me.omasa.Text = "" Then
MsgBox("favor digite masa")
Me.omasa.Focus()
'asignar los valores a las variables de entrada
fuerza = Me.ofuerza.Text
masa = Me.omasa.Text
'proceso
aceleracion = fuerza / masa
'asiganar la respuesta de salida
Me.Label5.Text = aceleracion
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Para salir se utiliza la funcion
If (MsgBox("Esta seguro que desea salir?", MsgBoxStyle.YesNo, "Advertencia")) = MsgBoxResult.Yes Then
MsgBox("Gracias")
Close()
End If
End Sub
End Class
Comentarios
Publicar un comentario