Visual Basic - duda con procedimiento

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

duda con procedimiento

Publicado por raymond (107 intervenciones) el 15/06/2003 23:36:27
como puedo hacer para meter dos datos en un procedimiento y que me cambien los originales por ejemplo=

Option Explicit
Dim numero1 As String
Dim numero2 As String
Dim nume1 As Integer
Dim nume2 As Integer
Dim deno1 As Integer
Dim deno2 As Integer
Dim valor1 As String
Dim valor2 As String

Private Sub simplifica(ByRef nume As Integer, ByRef deno As Integer)
While (nume Mod 2 = 0) Or (nume Mod 5 = 0)
If nume Mod 2 = 0 Then
nume = nume / 2
deno = deno / 2
Else: nume = nume / 5
deno = deno / 5
End If
Wend
End Sub
Private Sub Command1_Click()
Dim i As Integer
nume1 = 0
nume2 = 0
valor1 = ""
valor2 = ""
Randomize (10000)
numero1 = ((6 * Rnd) + 1)
Randomize (10000)
numero2 = ((6 * Rnd) + 1)
For i = 1 To 4
If i <> 2 Then
nume1 = (nume1 * 10)
nume1 = nume1 + (Mid(numero1, i, 1))
nume2 = (nume2 * 10)
nume2 = nume2 + (Mid(numero2, i, 1))
End If
Next
deno1 = 100
deno2 = 100
simplifica(nume1,deno1)
simplifica(nume2,deno2)
MsgBox (nume1 & " / " & deno1 & " " & nume2 & " / " & deno2)
End Sub

ocupo que numero1,numero2,deno1 y deno2 cambien al realizar el precedimiento....

que estoy haciendo mal??? no entiendo......!!!

ayuda urgente.... gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:duda con procedimiento

Publicado por Cecilia Colalongo (3116 intervenciones) el 16/06/2003 02:00:44
Lo probé y cambié estas líneas:

simplifica(nume1, deno1)
simplifica(nume2, deno2)

por estas:

simplifica nume1, deno1
simplifica nume2, deno2

Y me funciona bien.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:duda con procedimiento

Publicado por maCo (123 intervenciones) el 16/06/2003 02:50:52
ya te respondio Cecilia.
solo queria decir que eso es una tonteria para mi de parte de vb.
si quieres usar los parentesis usa Call antes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar