HOLA!!!

Aca te dejo con tu base de codigo, indestado y un poco mejorado:

Private Sub Command1_Click()
    Dim cinconumeros(1 To 5) As Integer
    Dim temporal As Integer
    Dim I, J, X, Y As Integer
    J = 1
    progreso.Max = txtcantidad
    For contador = 1 To txtcantidad
        progreso.Value = contador
        Randomize Timer
 
        For I = 1 To 5
            If I = 1 Then
                cinconumeros(J) = Int((50 * Rnd) + 1)
                J = J + 1
            Else
retorno:
                temporal = Int((50 * Rnd) + 1)
                For X = 1 To 5
                    If temporal = cinconumeros(X) Then
                        GoTo retorno
                    End If
                Next X
                cinconumeros(J) = temporal
                J = J + 1
            End If
        Next I
        For Y = 0 To 4
            txt(Y).Text = txt(Y).Text + "," + Str(cinconumeros(Y + 1))
        Next
    Next
    MsgBox ("Los datos han sido generados")
End Sub
 
Private Sub Command2_Click()
Dim Z As Long
    Open txtruta For Append As #1
        For Y = 0 To 4
            Print #1, txt(Z)
        Next
    Close #1
    MsgBox ("Los datos se  han pasado al archivo")
End Sub
 

GRACIAS POR LEER!!!

HOLA!!!

E_C:
Si , cada vez que un macho y una hembra mayores de 50 ciclos de vida chocan hacen de 1 a 10 bebes.

GRACIAS POR LEER!!!

HOLA!!!

El tema no es ese, el tema es que te hacias el PRO diciendo que no liberabas el codigo y era una sentencia de menos de 10 caracteres.

GRACIAS POR LEER!!!

HOLA!!!

Me puse a ver que podia hacer y salio esto:
Uso GoTos no me reten
/Ofuscando codigo /

VERSION 2.0

Private Function IsDate_7913_v2(str As String) As Boolean
On Error GoTo Fin
Dim Partes(2) As Long
Dim Primer() As String
    Primer = Split(str, "/")
    If UBound(Primer) <> 2 Then GoTo Fin
    Partes(0) = Primer(0): Partes(1) = Primer(1): Partes(2) = Primer(2)
    If Partes(2) > 9999 Then GoTo Fin
    Select Case Partes(1) 'verificamos el mes
        Case 0
            GoTo Fin
        Case 1, 3, 5, 7, 8, 10, 12 'si es de 31 dias
            Select Case Partes(0) 'verificamos el dia
                Case Is > 31
                    GoTo Fin 'si es mayor que 31 es false
                Case Is < 1
                    GoTo Fin 'si es menor que 1 es false
                Case Else
                    IsDate_7913_v2 = True : GoTo Fin 'sino true
            End Select
        Case 4, 6, 9, 11 'si es de 30 dias
            Select Case Partes(0)
                Case Is > 30
                    GoTo Fin
                Case Is < 1
                    GoTo Fin
                Case Else
                    IsDate_7913_v2 = True : GoTo Fin 
            End Select
        Case 2 'si es febrero
            Select Case Partes(0)
                Case Is > 29 'si es mayor que 29
                    GoTo Fin
                Case Is < 1 ' si es menor a 1
                    GoTo Fin
                Case 29
                    If Partes(2) Mod 4 = 0 Then
                        If Partes(2) Mod 100 = 0 Then
                            If Partes(2) Mod 400 = 0 Then IsDate_7913_v2 = True 'si es biciesto multiplo de 100 y 400
                        Else
                            IsDate_7913_v2 = True : GoTo Fin  'si es biciesto
                        End If
                    End If
                Case Else
                    IsDate_7913_v2 = True : GoTo Fin 
            End Select
        End Select
Fin:
End Function
 

GRACIAS POR LEER!!!

HOLA!!!

Como de costumbre vengo a pedir su ayuda...

Ubican los sensores anti robo de los locales de ropa?

Bueno, en mi ciudad cuestan aproximadamente 4000U$S todo el equipo.

Y me pidieron que armara un sistema que sea como los clasicos y que ademas detectara Bolsas de aluminio (por que las usan para robar) Investigando llegue a la conclusion que la mejor manera es hacerlo por separado...

Por un lado un sistema Clasico...

Y por el otro un sistema que detecte las bolsas de ALUMINIO, pense al instante en un detector de metales, el problema es que saltaria por cualquier frecuencia metalica... Entonces mi problema es, Como hago que el detector de metales solo detecte solamente ALUMINIO?

Se que hay que hacer un filtro de frecuencia pero a que frecuencia, la frecuencia del aluminio variara segun la bobina emisora y receptora que coloque?

Aparte de todo esto que ya es un problema grande creo, el sensor debe ser capaz de detectar el aluminio de 0 a un metro de distancia minimo. (segun lo que lei los circuitos de internet alcanzan a 20 cm maximo).

GRACIAS POR LEER!!!

HOLA!!!

Es cierto andaba mal XD

Arreglado.

GRACIAS POR LEER!!!

HOLA!!!

Jajaja, 46 ciclos no es nada, fijate primero conviene poner pasto, esperar que crezca y poner bichitos, pero no pongas muchos (999 ¬¬) por que sino se comen todo rapido y mueren de hambre.

GRACIAS POR LEER!!!

HOLA!!!

Este juego lo arme en aprox 4hs, me encanto la idea, muy entretenido y depende de la estrategia que uses ganaras o perderas.

El juego consiste en lo siguiente:
(una imagen antes XD)


Tenes 3 acciones posibles:
Sembrar pasto, este sera el alimento de nuestros bichos.
Poner bebes, estos creceran y se haran machos o hembras, para luego Procrear.
Y diseminar veneno, para mantener la poblacion al margen.
(Mucha poblacion significa poca comida lo que haria que mueran todos de hambre)

Tenes que administrar bien la comida(Pasto) ya que estos bichitos estan muy hambrientos y comeran todo lo que se les cruze (sea Pasto, Veneno o Popo).

Los bichos mueren por 3 razones:
Comer veneno.
No comer.
De viejos.

Cuando mueren dejan un cuerpo este cuando pase el tiempo se convertira en pasto y les dara de comer a los bichos.

Cuando los bichos comen mucho hacen popo, el cual si pasa tiempo se hace pasto y da de comer PERO si lo comen antes les hara mal y quedaran con mucha hambre.

Si hay un cuerpo al lado de un popo ambos generaran veneno.

Si hay un macho y hembra con edad suficiente al lado daran entre 1 y 10 bebes cada vez que se toquen.

En fin ese es el juego...

¿A CUANTOS CICLOS LLEGARAS?

URL descarga:
http://www.mediafire.com/?bg113g8113ra1lc

GRACIAS POR LEER!!!

HOLA!!!


Lo que decis vos es :

Cactus Metamorph (Este Programa Es ARTE) y su evolucion Cactus Ofuscator (Mas ARTE aun)
Cactus Joiner

MadAntrax Es un Capo, no ensucien su nombre diciendo que sus programas son similares a esto.

GRACIAS POR LEER!!!

HOLA!!!

¬¬'' ESTO LO HACES CON "COPY" EN DOS.

FIASCO.

(SI, ESTOY GRITANDO)

GRACIAS POR LEER!!!