Visual Basic - Programa!

Life is soft - evento anual de software empresarial
 
Vista:

Programa!

Publicado por Kaelthras (2 intervenciones) el 19/03/2009 16:17:27
Buenass necesito una ayuda urgente con un programa de visual basic que no se ni por donde empezar... os comento

Crea una formulario que permita introducir, en un cuadro de texto, un numero cualquier ae informe, en un control de tipo etiqueta, si dicho numero es par o impar. El formulario no debe contener ningun boton de comando y el resultado debe obtenerse directamente al introducir el numero en el cuadro de texto

Por favor me pueden decir que hacer o darmelo ya resuelto? lo necesito urgente para un examen!!
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:Programa!

Publicado por Kaelthras (2 intervenciones) el 19/03/2009 17:39:53
Ya hice el programa para 2º bachillerato, gracias de todas formas.
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

RE:Programa!

Publicado por Jonatan (15 intervenciones) el 19/03/2009 22:32:11
mmmm bueno en el evento KeyPress, de ese text q pongas.... como?

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim resultado As Double
If Text1.Text = "" Then Exit Sub
If IsNumeric(Text1.Text) = False Then Exit Sub
resultado = Text1.Text / 2
If Int(resultado) * 2 = Text1.Text Then
MsgBox "par"
Else
MsgBox "impar"
End If
End If
End Sub

'entonces una vez q ingreses el numero, preciona enter y te va a decir q numero es...
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

RE:Programa!

Publicado por Gabriel Fernandez (3 intervenciones) el 19/03/2009 23:15:08
Buena Respuesta pero se lo hisiste demaciado complicado me parece
Si bien entendi vos tenes un text box y un Label
en el text ingresas un numero y el caption del label dice "par" o "impar"

Solucion Sin controles de Letra y 0 (cero)
Private Sub Text1_Change()
On Error Resume Next
If Text1.Text Mod 2 = 1 Then
Label1.Caption = "Impar"
Else
Label1.Caption = "Par"
End If
End Sub
Bien Sensillo

Solucion Con Controles De Letra y 0 (cero)
Private Sub Text1_Change()
If Text1.Text = "" Then: Text1.Text = "0"
If Not IsNumeric(Text1.Text) Then
MsgBox "Solo Numeros Permitidos"
ElseIf Text1.Text = "0" Then
Label1.Caption = "Nulo"
ElseIf Text1.Text Mod 2 = 1 Then
Label1.Caption = "Impar"
Else
Label1.Caption = "Par"
End If
End Sub

Suerte en el examen!
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

RE:Programa!

Publicado por P3L30N2009 (699 intervenciones) el 20/03/2009 11:36:18
Qué manera de complicaros la vida!

Con una sola línea de código:

Private Sub Text1_Change()
Label1 = IIf(Text1 Mod 2 = 0, "par", "impar")
End Sub
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