Mensajes

HOLA!!!

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

Código (vb) [Seleccionar] Expandir

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!!!

[no me reten]

HOLA!!!

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

VERSION 2.0

Código (vb) [Seleccionar] Expandir

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!!!

[sensores anti robo de los locales de ropa]

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!!!

PD: la funcion agregar veneno se supone que agrega la cantidad de veneno que esta en la par no pero me agrega 20 y en el text pongo 1 asi es?

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!!!

me recuerda al sofft de MAD- offuscator MAD-joiner.

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!!!