Al otro lado de la pantalla
Os pongo un pequeño ejemplo del paso de parámetros por referencia.En este caso recibe esos parámetros.
No hace uso del formulario y puedes verlo en la consola de depuración.
'Programa que calcula el cociente y el resto de la división haciendo que estos resultados
'sean devueltos al modulo que lo llama
Public Sub Form_Open()
Dim dividendo, divisor, cociente, resto As Integer
Print "Escribe los valores del dividendo y divisor"
Input dividendo
Input divisor
division(dividendo, divisor, ByRef cociente, ByRef resto)
Print
Print "Cociente: " & cociente
Print "Resto: " & resto
End
'Cabecera: division(Entrada divi,Entrada d,Salida c,Salida r)
'Precondición: dividendo >= divisor y ambos son mayores que 0
'Postcondición: devuelve a través de los parametros de salida c y r, el cociente y el resto.
Public Sub division(divi As Integer, d As Integer, ByRef c As Integer, ByRef r As Integer) As Integer
c = divi Div d
r = divi Mod d
End
'sean devueltos al modulo que lo llama
Public Sub Form_Open()
Dim dividendo, divisor, cociente, resto As Integer
Print "Escribe los valores del dividendo y divisor"
Input dividendo
Input divisor
division(dividendo, divisor, ByRef cociente, ByRef resto)
Print "Cociente: " & cociente
Print "Resto: " & resto
End
'Cabecera: division(Entrada divi,Entrada d,Salida c,Salida r)
'Precondición: dividendo >= divisor y ambos son mayores que 0
'Postcondición: devuelve a través de los parametros de salida c y r, el cociente y el resto.
Public Sub division(divi As Integer, d As Integer, ByRef c As Integer, ByRef r As Integer) As Integer
c = divi Div d
r = divi Mod d
End
(Estaba estudiando el tema..
)
Saludos.
