• Jueves 14 de Noviembre de 2024, 23:33

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - epetao

Páginas: [1]
1
Visual Basic 6.0 e inferiores / funciones en visual basic
« en: Sábado 4 de Enero de 2003, 01:20 »
Uuuuuuf! que volao que ando. Muchas Gracias, pude al fín conseguir el efecto deseado, es decir me da la raíz cuadrada... yo el muy jil!! no me dí cuenta qque le había puesto text11.text en vez de text1.text. Gracias nuevamente.:D:D

2
Visual Basic 6.0 e inferiores / Re: funciones en visual basic
« en: Viernes 3 de Enero de 2003, 19:42 »
Feliz Año amigo: tuve un problemilla.  Primeramente puse la función dentro del form_load() y me aparece un mensaje como qque me falta el end sub, siendo que está.
Luego lo pongo fuera de todo y al ejecutarlo, me aparece una ventana con lo sgte:
runtime error '424'
object required
todo el código que tengo es el sgte:


Function dblSqrt(dblParameter As Double) As Double
  If dblParameter < 0 Then
    dblSqrt = -1
  Else
 
    dblSqrt = Sqr(dblParameter)
  End If
 End Function

Private Sub Command1_Click()
 Text1.Text = dblSqrt(CDbl(text11.Text))
End Sub

si hay alguna forma de mandarte las imagenes capturadas de los dos intentos te los mando y ahí ves que es lo que pasó. ok?

3
Visual Basic 6.0 e inferiores / Re: funciones en visual basic
« en: Viernes 3 de Enero de 2003, 00:41 »
Funciones en Visual Basic
Feliz Año Nuevo a todos: está es mi primera vez en este foro y comenzaré con una pregunta:
Estoy aprendiendo Visual Basic desde un Libro. El libro pone una función que calcula la raíz cuadrada, pero no sé a que control asignarsela. Para probarla puse en un formulario lo sgte:
- un command button
- un text box
- un label box
Entonces en el label box pongo lo sgte.: Calcular raíz cuadrada
- El text box lo dejo para que el usuario escriba su numero
- El command button es para que cuando el usuario haga clic en él se cambie el número del text box a su raíz cuadrada.
La codificación que entrega el libro es la siguiente:
"
Function dblSqrt(dblParameter As Double) As Double
If dblParameter < 0 Then
dblSqrt = -1
Else
dblSqrt = Sqr(dblParameter)
End If
End Function
"
Sin embargo, no sé realmente donde poner este codigo, ni como relacionar los controles para que esto funcione. Lo único que se me ocurre es llamar la función desde el command button pero así parece que no se hace porque tengo qque relacionar la función con el número que escriban en el text box. Si alguien en este foro me pudiera ayudar se lo agradecería muchísimo. Tal vez es muy básico lo que pregunto, pero siempre se empieza por lo básico...jejeje

Páginas: [1]