como llamar fucniones???

[Fhaker]

supuestamente una funcion es como un sub solo q me devuelve un valor no?...entonces...
supongamos esta situacion:

public function a() as integer
dim x as integer
x=1+1
end function

como hago para usar ese valor(el resultado q me devuelve) en otra parte del programa ...como en el command_botton¿?¿?¿?

[ranefi]

supuestamente una funcion es como un sub solo q me devuelve un valor no?...entonces...
supongamos esta situacion:

public function a() as integer
dim x as integer
x=1+1
end function

como hago para usar ese valor(el resultado q me devuelve) en otra parte del programa ...como en el command_botton¿?¿?¿?

Buena noche Fhaker. Aquí te dejo lo que necesitas.

Agregar 1 control CommandButton e insertar el siguiente código en un...

Formulario

Código:

Public Function A() As Integer
    Dim X As Integer
   
    X = 1 + 1
   
    A = X
End Function

Private Sub Command1_Click()
    Me.Caption = A
End Sub

Espero te quede claro. Nos vemos.

[Fhaker]

si q me keda claro!!.... gracias men!
otra duda...la funcion solo puede devolver un valor...o puede devolver mas???
en caso de q pueda devolver mas...como hago para llamar a todos los valores devuletos por una funcion...si la debo llamarla como "a" por ejemplo...

[tragantras]

Private Function MiFuncion(ByVal x As integer, y as integer, z as integer) As integer
x = x +2
y = y +3
z =  z +3
End Function

Private Sub Command1_Click
    Me.Caption = MiFuncion(4, 5, 6)
End Sub


La verdad esk no estoy seguro pq soy nuevo en esto, a ver si alguien k entienda te lo asegura :S

[zXxOsirisxXz]

A la verdad k no se si kieres cambiar el caption del form, o en un label, cualkiera de las 2 se hace de la siguiente manera en caso de k kisieras tener un valor random, pero k sepas la cantidad que kieres ponerle.

Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = 4
z = 6
y = 10
Randomize
numeros = Rand(1, 3)
If numeros = 1 Then Me.Caption = Val(x) * Val(y)
If numeros = 2 Then Me.Caption = Val(y) * Val(z)
If numeros = 3 Then Me.Caption = Val(z) * Val(x)
End Sub

Salu2

[tragantras]

que digo yo que si no declara la variable rand ( o como se llame) en un modulo bas no se vera en el resto del form no? :S

PD: mas k una aclaracion es una pregunta pq no tngo ni idea xD

PD2: Am m acabo de dar cuenta de lo de public function ^^ xD

[zXxOsirisxXz]

que digo yo que si no declara la variable rand ( o como se llame) en un modulo bas no se vera en el resto del form no? :S

PD: mas k una aclaracion es una pregunta pq no tngo ni idea xD

PD2: Am m acabo de dar cuenta de lo de public function ^^ xD

No entendi tu pregunta la verdad :\

Como k no se vera el resto del form :S, explicate

Gracias.

[tragantras]

ha ver si tu una variable la dimensionas (declaras) en un sub private ese valor que adquiera la variable no sera visto por los diferentes módulos, ejemplo

Código:

Private Sub Form_Load()
dim x as integer
x = 40
End Sub

Código:

Private Sub Command1_Click()
print x
End Sub

Error de compilizacion: Variable no definida.

Pero luego vi lo de Public Sub... pero parece ser k no :S