Introducir solo números ami calculadora en vb

Quisiera saber si me pueden ayudar en esto estoy haciendo una calculadora en visual basic 6.0 y no encuentro la forma de introducir los números que tengo en la calculadora por medio del teclado dela compu, osea intrucir solo nmeros desde ya

1 Respuesta

Respuesta
1
Lo puede hacer de la siguiente manera, utilizando el evento KeyPress del Texbox de la calculadora, esto hace que solo acepte los dígitos, el signo negativo y el punto decimal.
Private Sub Txnumero_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 To 57              ' Permite los dígitos
        Case 45 To 46              ' Permite - y .
        Case 8                          ' Permite el carácter de retroceso
        Case Else
            KeyAscii = 0
            Beep
   End Select
End Sub 
Para que lo anterior funcione la propiedad KeyPreview del formulario debe ser True.
Suerte !
Hola kapo gracias por tu ayuda pero necesito algo más especifico mira acá te mando mi código si lo quieres revisar haber donde esta mis errores y me podes ayudar te lo voy a agradecer por que estoy hace como 2 semanas tratando de terminar este trabajo... ahí te va desde ya gracias
Es algo sencillo solo tiene funciones básicas !
Dim num1 As Double
Dim resul As Double
Dim oper As String
Private Function comprobar() As Boolean
If Len(cajadetexto.Text) < 12 Then
comprobar = True
Else
comprobar = False
End If
End Function
Private Function Verificar() As Boolean
End Function
Private Sub borrar_Click()
num1 = 0
resul = "0"
cajadetexto.Text = resul
oper = ""
End Sub
Private Sub cajadetexto_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48
Call cmd0_Click
Case 49
Call cmd1_Click
Case 45
Call resta_Click
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Private Sub cmd0_Click()
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "0"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd1_Click()
' si en la caja de texto tengo un cero borro el cero para que entre el valor del boton'
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "1"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd2_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "2"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd3_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "3"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd4_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "4"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd5_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "5"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd6_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "6"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd7_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "7"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd8_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "8"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub cmd9_Click()
If cajadetexto.Text = "0" Then
cajadetexto.Text = ""
End If
If comprobar Then
cajadetexto.Text = cajadetexto.Text & "9"
Else
cajadetexto.Text = cajadetexto.Text
End If
End Sub
Private Sub signo_Click()
If cajadetexto.Text = "-" Then
cajadetexto.Text = cajadetexto.Text
Else
cajadetexto.Text = "-" & cajadetexto.Text
End If
End Sub
Private Sub div_Click()
If cajadetexto.Text = "" Then
cajadetexto.Text = "0"
End If
If (num1 <> 0) Then
resul = num1 / cajadetexto.Text
cajadetexto.Text = resul
End If
num1 = cajadetexto.Text
cajadetexto.Text = "0"
oper = "/"
End Sub
Private Sub igual_Click()
If oper = "+" Then
resul = num1 + cajadetexto.Text
num1 = 0
oper = ""
End If
If oper = "-" Then
resul = num1 - cajadetexto.Text
num1 = 0
oper = ""
End If
If oper = "*" Then
resul = num1 * cajadetexto.Text
num1 = 0
oper = ""
End If
If oper = "/" Then
resul = num1 / cajadetexto.Text
num1 = 0
oper = ""
End If
cajadetexto.Text = resul
End Sub
Private Sub mult_Click()
If cajadetexto.Text = "" Then
cajadetexto.Text = "0"
End If
If (num1 <> 0) Then
resul = num1 * cajadetexto.Text
cajadetexto.Text = resul
End If
num1 = cajadetexto.Text
cajadetexto.Text = "0"
oper = "*"
End Sub
Private Sub punto_Click()
cajadetexto.Text = cajadetexto.Text & ","
End Sub
Private Sub resta_Click()
If cajadetexto.Text = "" Then
cajadetexto.Text = "0"
End If
If (num1 <> 0) Then
resul = num1 - cajadetexto.Text
cajadetetxto.Text = resul
End If
num1 = cajadetexto.Text
cajadetexto.Text = "0"
oper = "-"
End Sub
Private Sub sumar_Click()
If cajadetexto.Text = "" Then
cajadetexto.Text = "0"
End If
If (num1 <> 0) Then
resul = num1 + cajadetexto.Text
cajadetexto.Text = resul
End If
num1 = cajadetexto.Text
cajadetexto.Text = "0"
oper = "+"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Calculadora en VB

Estoy haciendo un programa en Visual Basic 6 sobre una calculadora y no consigo que cuando los números son decimales y hago una operación al dar igual me apaezcan los decimales; por ej: 12,5+3=15,5 pues yo solo obtengo 15. ¿Qué código tendría que...
1 respuesta

Sumar números(string) de 50,100 o más dígitos

Estuve probando lo que me dijiste pero no me funciono... Pero bueno... Tengo esto espero que me ayudes Lo que estoy tratando de hacer es sumar números de 50, 100 o más dígitos sumando a la antigua con reservas y todo... Como en la básica ... XD...
1 respuesta

Poner sonido en microsoft visual studio 2005

Estoy haciendo una comparacion en un IF y cuando la comparacion sea verdadera que mande un sonido de ganador y si no pues otro, este es el codigo que puse Dim Num As Integer Num = Int(2 - 1) * Rnd() + 0 TextBox1.Text = Num Dim Num1 As Integer Num1 =...
1 respuesta

Mascara de entrada en Textbox

¿Es posible crear una máscara de entrada en un textbox? Por ejomplo, un textbox de fecha, que tenga que tomar el formato dd-mm-aa.
1 respuesta

Validaciones

Necesito validar algunos text en visual basic 6. Uno es para permitir solo letras, y no caracteres inválidos o números, acentos, paréntesis etc... Y el otro es lo contrario, es decir que acepte solo números, pero que no deje ingresar otro tipo de...
5 respuestas

Unificar código en un Modulo para VBA Excel

Tengo este código en 4 textBox 'Solo numeros, guion y cantidad caracteres. Puede separarse uno del otro Private Sub txtcli6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 '<--- El...
1 respuesta

Bloquear la aplicación después de un cierto tiempo

Soy nuevo en esta página y quería ver si alguien me podría ayudar, resulta que estoy realizando una aplicación en VB 6.0 y me gustaría que cuando el programa este cargado y pasa un cierto tiempo por ejemplo unos 10 min. Sin que el usuario este...
2 respuestas

Validar rut en campo de texto formulario ACCESS

Necesito validar el dígito identificador de un RUT, es decir que al introducir los datos en un campo de texto de un formulario con la mascara 00.000.000\-A;0;_ me de un mensaje de error cada vez que el identificador después del guion sea incorrecto.
1 respuesta

Cuadro de texto con 2 decimales (formato)

Tengo una consulta sobre poner formato con 2 decimales a un cuadro de texto, pero nada,, me explico,, tengo un formulario vb con excel,,, y un cuadro de texto llamado Pago y quisiera cuando ponga por ejemplo,, en el cuadro de texto 600...
2 respuestas

Conversión numero a letras

Quisiera consultarte si existe alguna función o rutina que, dado un número en una celda, me transforme ese valor a palabras (ej: 1500 -> mil quinientos) en Excel
1 respuesta