Ejercicios de Visual Basic 6

Realizar un programa para obtener la raiz cuadrada

1. Insertamos los objetos con sus respectivos nombres

OBJETO		NOMBRE	CAPTION
Form		frmPrincipal	CRONOMETRO
Label		lblHoraInicio	HORA DE INICIO
Label		lblHoraParada	HORA DE PARADA
Label		lblTiempoTrascurrido	TIEMPO TRANSCURRIDO
TextBox	txtHoraInicio
TextBox	txtHoraParada
TextBox	txtTiempoTrascurrido
CommandButton	btnParada		PARADA
CommandButton	btnInicio		INICIO
CommandButton	btnSalir		SALIR

EN EL PROGRAMA DEBE VISUALIZARSE ASI:

2. Colocamos el siguiente codigo 

Option Explicit

Dim HoraInicio As Variant

Dim HoraParada As Variant

Dim Tiempotranscurrido As Variant

Private Sub btnInicio_Click()

HoraInicio = Now

txtHoraInicio.Text = Format(HoraInicio, "hh:mm:ss")

txtHoraParada.Text = ""

txtTiempoTranscurrido.Text = ""

btnParada.Enabled = True

btnInicio.Enabled = False

End Sub

Private Sub btnParada_Click()

HoraParada = Now

Tiempotranscurrido = HoraParada - HoraInicio

txtHoraParada.Text = Format(HoraInicio, "hh:mm:ss")

txtTiempoTranscurrido.Text = Format(Tiempotranscurrido, "hh:mm:ss")

btnParada.Enabled = True

btnInicio.Enabled = False

End Sub

Private Sub btnSalir_Click()

End

End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio