Mensajes

Dominicano creo que la mayoria de los que estamos aqui conocemos esa funcion, lo malo es que es horrible, y no se si la detecta el AV como virus, igualmente gracias por tu aporte!

EDIT: Perdon, no tiene el color blanco el foro para poner en el nick tuyo, x eso esta el negro.


Sancho.Mazorka   

Gracias al codigo de Celaya se puede hacer un buen compresor    Voy a probar hacer algo, si logro hacer algo les comento

EDIT: Entiendo su funcionalidad, pero...  alguien me explica como funciona realmente ? Gracias

EDIT2: Listo, lo entedi y paso a explicarlos para quien no lo entendio:

Costa de 2 bucles:
1_  1 a el maximo de caracteres en Text1
2_  desde donde este el bucle 1, hasta el final.

El primer bucle se encarga de repetirse una cantidad de veces, dependiendo de la cantidad de caracteres que haya en Text1, el segundo bucle se encarga de verificar los 3 siguientes caracteres empezando del valor del bucle 1, y si va encontrando   va marcando con color.

Suponganse que tenemos 9 caracteres, haria esto:
Bucle 1 variable I: 1    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 2    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 3    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 4    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 5    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 6    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 7    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 8    Bucle 2 variable J: 1-3; 4-6; 7-9
Bucle 1 variable I: 9    Bucle 2 variable J: 1-3; 4-6; 7-9

Espero que se haya entendido! 


Sancho.Mazorka   

Lo que tu intentas hacer es de VB.NET, en VB6 no esta permitido, la unica manera es, si no pensas modificar el valor, hacer una constante, si vas a modificar el valor en el Form_Load ir poniendo el valor de cada variable.


Sancho.Mazorka   

Entonces el que se encarga de hacer lo que pregunte es el ByRef ? Creo que esa era mi respuesta, ahora voy a probar, muchas gracias Hans, sos el unico que se molesto!


Sancho.Mazorka   

Gracias Hans por lo del Each, pero con el Static yo me referia a como funciona el Winsock por ejemplo.

Código [Seleccionar] Expandir

Ej:
Private Sub Winsock1_DataArrival(BytesTotal as integer)
Dim Datos As String
Winsock1.GetData Datos
End Sub

Yo quiero saber como hacer lo que hace el Winsock, que vos le das el nombre de la variable y te almacena ahi los datos de entrada, y ahi no es como vos me dijiste, a esos 2 metodos ya los conocia yo.
No se como hacer para que pongo

Código [Seleccionar] Expandir

Call funcion1(Datos) y me guarde en Datos el valor  (Datos es una parametro)


Sancho.Mazorka   

Hola forer@s, vengo a hacerles 2 preguntas que seguro les pareceran muy tontas y mas con la experiencia que tengo   
1_ Cuando es posiblre usar la funcion Each, si no me equivoco es cuando tenes como una variable con matriz.
2_ La funcion Static para definir una variable, para que sirve ?  Es para hacer una funcion y que la variable que vos definis obtenga el resultado ?

Código [Seleccionar] Expandir

Ej:
Private Sub Form_Load()
   Dim Valor_Aqui As String
   Call Colocar(Valor_Aqui)
End Sub

Private Sub Colocar(Variable as String)
   Static Variable
   Variable = 2
End sub

Si mi teoria esta bien, cuando a Variable le asignamos 2, en realidad le estamos dando valor a Valor_Aqui 

Si no es como digo, por favor aclarenme para que es Static     Y si tienen ganas, me dicen como serial la forma correcta de hacer mi ejemplo, para que 2 se guarde en Valor_Aqui ?

Muchas Gracias


Sancho.Mazorka   

Proba usar las opciones de DOS llamadas rasphone pone eso en DOS y te tira unas ayudas, lo que podes hacer es un

Código [Seleccionar] Expandir

shell rasphone(PARAMETROS)
Si no entendiste bien, avisame (cualquier cosa pone en la consola rasphone /help)


Sancho.Mazorka   

Proba poniendo localhost o 127.0.0.1 o http://127.0.0.1
Si encontras ayuda, posteala, a mi tambien me gustaria aprender


Sancho.Mazorka   

Yo no tengo ni idea de como es el Bifrost o el Poison pero esto te sirve ?

Código [Seleccionar] Expandir

MsgBox TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)

No entiendo muy bien que queres hacer, pero talvez que con algun IF o un Select Case, puedas sacar lo que necesitas con esa linea de code que te di, lo que hace esa linea es, hacer un MsgBox con el nombre del Item que clickeas.


Sancho.Mazorka   

Mira te lo dejo mas facil:

Código [Seleccionar] Expandir

If Winsock1.State = 7 then MsgBox "El programa esta conectado"

Te dejo las constantes de numeros del Winsock.State:
Socket cerrado = 0
Socket abierto = 1
Socket escuchando = 2
Conexion pendiente = 3
Resolviendo host = 4
Host resuelto = 5
Socket conectandose = 6
Socket conectado = 7
Socket cerrandose = 8
Socket error = 9


Sancho.Mazorka