Algien q me ayude
ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")
si le usuario marca q si quiero q en
genere (:) o (.)(en modo randomize)
osea no todas las x seran iguales
a veces valdra : otras (.)
y si el usuario dice q no x = ":"
.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"
esta funcion regresa (.) o (:) si les ayuda
a ayudarme
Function odc()
Randomize
ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then
odc = ":"
else
odc = "."
end if
end function
Cita de: KsV en 27 Enero 2015, 06:39 AM
Algien q me ayude
ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")
si le usuario marca q si quiero q en
genere (:) o (.)(en modo randomize)
osea no todas las x seran iguales
a veces valdra : otras (.)
y si el usuario dice q no x = ":"
.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"
esta funcion regresa (.) o (:) si les ayuda
a ayudarme
Function odc()
Randomize
ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then
odc = ":"
else
odc = "."
end if
end function
Creo que entendí mal, asi que te pregunto:
Quieres una función que en base a lo devuelto por un MsgBox (vbYes o vbNo) te genere un string, el cual variará entre ":" y "." si el MsgBox devuelve vbYes y ":" si devuelve vbNo.
Es asi? Si es asi:
Function Aleatoria() As String
Dim ret As Integer
ret = MsgBox("Dime si SI o NO", vbYesNo, "El titulo")
If ret = vbYes Then
Randomize
ret = Int(10 * Rnd) 'Random de 0 a 9
If (ret Mod 2) = 0 Then 'si el random generó un numero par
Aleatoria = ":"
Else 'si es impar
Aleatoria = "."
End If
Else
Aleatoria = ":"
End If
End Function
Sino, bueno, deberás explicarte mejor... :P
Saludos!
me explico al principio del code el programa pedira q si qiere aleatorio o no si marca q si x tomara un valor (:) o(.) cada x tomara un valor aleatorio (:) (.) y lo escribe en un txt
pej.
el usuario marca si
.writeline "1"&x&"2"&x&"45"&x&"67"....n"
cada x sera distinta : .
resultado
*.txt
1.2.45;67.74;96;246.35;....n
y si marca q no
1:2:45:67:74:96:246:35:...n
la funcion q propones abrira un mensaje por cada n X
RESUELTO
Soli era cuestion de sacar el msgbox de la fncion q proporcionaste y llamar a pa funcion