Mensajes

HOLA!!!

Gracias Black, Buena idea, modificado.

Si, Sixtoes tu codigo estaba mal y era muy rebuscado.

GRACIAS POR LEER!!!

[elGuille es muy bueno]

HOLA!!!

Te Recuerdo que no somos una escuelita, por favor hace un buen tutorial (a mi parecer elGuille es muy bueno y no es nada dificil ni mal explicado).

Aca tenes una solucion basica:

Código (vb) [Seleccionar] Expandir

Dim Matriz(100) As Long

Private Sub Form_Load()
Dim Min As Long
Dim Max As Long
   Call LlenarArrayAleatoriamente(1000) 'Lleno la matriz
   For x = 0 To UBound(Matriz) 'Busco el mayor
       If Matriz(x) > Max Then Max = Matriz(x)
   Next
   Min = Max 'Inicializo Min = Max
   For x = 0 To UBound(Matriz) 'Busco el minimo
       If Matriz(x) < Min Then If Matriz(x) <> 0 Then Min = Matriz(x)
   Next
   MsgBox "Minimo: " & Min & " Maximo: " & Max, , "Ejemplo para SixToes por 79137913" 'Muestro el resultado
   End 'cierro
End Sub


Private Sub LlenarArrayAleatoriamente(MaxInt As Long)
On Error GoTo Err:
   For x = 0 To UBound(Matriz)
        Randomize Timer 'Hago que sea aleatorio
       Matriz(x) = Int(Rnd() * MaxInt) 'Lleno la matriz
   Next
Err:
End Sub


GRACIAS POR LEER!!!

HOLA!!!

Por lo que veo estas usando comboBoxes te recomiendo ahcer una matriz de controles para poder hacer dinamico esto que decis...

No entendi mucho de lo que necesitas, intenta redactarlo de forma diferente y te ayudamos . (bah yo  por lo menos XD)

[Rustic Mode= Activated]

Código [Seleccionar] Expandir


Hacer
Abrir archivo de texto desde codigo claro xD
Leer linea de archivo de texto
Dividir entre " " y poner los datos en textbox o donde ibas a poner
Hasta que no haya mas datos, es decir, hasta que sea el Fin del archivo


[/Rustic Mode]

Jajaja.

GRACIAS POR LEER!!!

HOLA!!!

Si, ese circuito lo habia visto, supongo que dentro son puros AND y nada mas pero la verdad ni idea... no habra alguna manera simple que no implique usar integrados, soy medio bruto para soldarlos XD.

P.D: Saben de alguna herramienta online para hacer circuitos impresos?

GRACIAS POR LEER!!!

HOLA!!!

Bueno, yo opte por lo facil la vez que lo quise hacer...

Podes guardar en in txt un comando ping y lo lees.

O conectate con un socket y ahí revisas el remote host ip.

GRACIAS POR LEER!!!

HOLA!!!

Label1 es una variable? Pfff

Todo mal, no es necesario saber si la longitud del directorio es 80 o 1 lo que importa es que es mayor a 0 nada mas. Aprende a debuggear con F8 y lee bien lo que escribo.

GRACIAS POR LEER!!!

HOLA!!!

Código (vb) [Seleccionar] Expandir


Private Function Existe(Archivo As String) As Integer
   Existe = Len(Dir$(Archivo))
   If Existe Then
'--------^ ACA ESTA EL ERROR PONE "IF EXISTE > 0 THEN"
       Label1 = Archivo & " Si existe"
   Else
       Label1 = Archivo & " No existe"
   End If
'ACA AGREGA ESTO:
IF EXISTE > 0 THEN EXISTE = 1
End Function


Yo lo haria asi:

Código (vb) [Seleccionar] Expandir

Private Function Existe(Archivo As String) As Boolean
If Len(Dir(Archivo)) > 0 Then Existe = True
End Function

Igual Dir es muy Lento, hay un Reto donde se encuentra la manera mas rapida para encontrar la ruta del archivo.

GRACIAS POR LEER!!!

HOLA!!!

Para eso se colocan las etiquetas [SOFT] [SRC] [SOURCE].

GRACIAS POR LEER!!!

HOLA!!!

Muchachos!!! XD

Usemos mas Google...

Miren lo que me encontre por ahi:

http://z-o-o-m.eu/

GRACIAS POR LEER!!!

[Esta el codigo de fuente entero para descargar]

HOLA!!!

Ejem Ejem...
@LunaHAck:  Sabes leer, revisaste el link de raul?

Esta el codigo de fuente entero para descargar, y cuando decis que "TENGO QUE ENTREGAR EL CODIGO FUENTE" nos estas diciendo que es una tarea, lo cual no nos pone muy dispuestos a ayudar que digamos.

GRACIAS POR LEER!!!