Basic - Visual Basic

   
Vista:

Visual Basic

Publicado por Cristian Catinot (1 intervención) el 13/10/2010 22:13:09
Estimados: Tengo que entregar un trabajo practico, En basic 6.0, tema conversor de unidades, y tengo el problema de que cuando ingreso una letra o palabra me tira un debug, pero no se como hacer para solucionarlo y es urgente. Soy principiante y agradecería su ayuda. Gracias


Private Sub cmdconvertir_Click()
If Option1.Value = True Then
lblresultado = "Milimetros"
Else
If Option2.Value = True Then
lblresultado = "Centimetros"
Else
If Option3.Value = True Then
lblresultado = "Decimetros"
Else
If Option4.Value = True Then
lblresultado = "Kilometros"
End If
End If
End If
End If
If txt1 <> "" Then
If txt1 >= 0 And txt1 <= 9999 Then
If Option1.Value = True Then
txtconvercion = txt1 * 1000
Else
If Option2.Value = True Then
txtconvercion = txt1 * 100
Else
If Option3.Value = True Then
txtconvercion = txt1 * 10
Else
Option4.Value = True
txtconvercion = txt1 / 1000


End If
End If
End If
Else
txt1 = MsgBox("Por favor ingrese un número entre 0 y 9999", vbCritical)
End If
Else
txt1 = MsgBox("Por Favor Ingrese un Número para poder Calcular", vbExclamation)
txt1.SetFocus
End If
End Sub
Private Sub cmdnuevo_Click()
txt1 = ""
txtconvercion = ""
lblresultado = "RESULTADO"
txt1.SetFocus
End Sub
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Este es el programa, hay que ingresar en una casilla(textbox) cantidad en metros y en otra obtener centímetros, decímetros, milímetros o kilómetros. El problema que cuando ingreso una letra en cantidad de metros, al presionar calcular me arroja un error.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Visual Basic

Publicado por yilbert (1 intervención) el 16/02/2011 14:09:12
Hola, Necesito saber las generacione de basic, asi como sus autore, ect.
porfabor ayunenme en eso solo consigo la historia
gracias..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar