Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

crear funcion

09/03/2006 - 15:43 por jorge | Informe spam
Ayuda Hacer una pregunta
Estoy desarrollando un proyecto que permita determinar el mayor de tres
numeros ingresados por teclado, lo estoy desarrollando en visual basic de
visual studio 2005, el problema es que el ejercicio es de visual basic 6.0,
me piden crear una funcion

de nombre: ValidaEntradaN
de Tipo: Funcion
de Alcance: Publico

El codigo de la funcion es el siguiente:

Public Function Valida EntradaN(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Function

Tambien tengo problemas al codificar en este textbox

Private Sub TextBoxNumero1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxNumero1.KeyPress
i = ValidaEntradaN(KeyAscii)
End Sub

Que tengo que agregar para que visual studio 2005 me acepte estos codigos,
seria de gran ayuda sus consejos y correcciones, gracias.
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Sonego
12/03/2006 - 16:35 | Informe spam
no entiendo bien la pregunta pero puede ser que vos quieras que la funcion
te devuelva el valor no te faltara esto

Public Function ValidaEntradaN(KeyAscii As Integer) as integer
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
ValidaEntradaN = KeyAscii
End If
End Function

"jorge" escribió en el mensaje
news:
Estoy desarrollando un proyecto que permita determinar el mayor de tres
numeros ingresados por teclado, lo estoy desarrollando en visual basic de
visual studio 2005, el problema es que el ejercicio es de visual basic
6.0,
me piden crear una funcion

de nombre: ValidaEntradaN
de Tipo: Funcion
de Alcance: Publico

El codigo de la funcion es el siguiente:

Public Function Valida EntradaN(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Function

Tambien tengo problemas al codificar en este textbox

Private Sub TextBoxNumero1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxNumero1.KeyPress
i = ValidaEntradaN(KeyAscii)
End Sub

Que tengo que agregar para que visual studio 2005 me acepte estos codigos,
seria de gran ayuda sus consejos y correcciones, gracias.

Preguntas similares

 

Busqueda sugerida :