Mensajes

HOLA!!!

Esto es la funcion inversa a un mid :S

Aca mi codigo:
Con primera letra POS 0:

Código (vb) [Seleccionar] Expandir

Public Function DeleteString7913(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String
    DeleteString7913 = LeftB$(sString, PosComienzo + PosComienzo) & RightB$(sString, LenB(sString) - (PosComienzo + PosComienzo + Longitud + Longitud))
End Function


GRACIAS POR LEER!!!

[1 cada uno se enfrenta como puede]

HOLA!!!

Pues, la verdad es que si duraste un año y ha pasado otro deberías estar recuperado , pero también te digo que al dolor de ser abandonado 1 cada uno se enfrenta como puede aunque me imagino que te encontrarás mucho mejor que al principio...

Una cosa , cuando dices qeu la recuerdas , te refieres a que volverías con ella si pudieras o simplemente a que la tienes en mente pero sin pensar en ella como una posible pareja .???......

Hay algo en lo que pienso distinto a ti :para mi es mucho más difícil olvidar que recordar , porque los recuerdos del tiempo que has pasado con esa persona pesan mucho ;sobre todo al principio y el 2 cerebro no te lo pone fácil, ya que sólo recuerda lo bueno , haciendo que en un primer momento lo único que desees sea volver a la situación anterior ( al precio que sea),

Luego te darás cuenta de que aunque volvieses eso no tendría una segunda parte porque una relación se basa en la confianza y en esa persona que te abandonó una vez , 3 no podrás volver a confíar NUNCA ......

1. Exacto cada uno como puede, eso mismo cancela la teoria ya que si cada uno lo hace como puede unos podran olvidar en 3 dias o menos y otros no olvidaran nunca, no tiene nada que ver con el tiempo transcurrido en la relacion sino con la persona que "olvida".

2. ERROR el cerebro no siempre recuerda las cosas buenas y momentos felices, el cerebro si sabe que va a cometer un error hace que recuerdes el mal momento, Cito:
"De pequeño me queme con el horno, luego nunca mas lo toque por que recorde que quemaba"

3. Otra vez depende de la persona cada uno puede o no confiar o desconfiar de la persona que se le antoje, que VOS pierdas la confianza a la primera no es causal para generalizar a todos. Cada uno tiene sus pensamientos PROPIOS cosa que parece que no entendes.

GRACIAS POR LEER!!!

[la razon y los sentimientos no van de la mano, no podes ser 100% racional y tener sentimientos]

HOLA!!!

Constance, lamentablemente la razon y los sentimientos no van de la mano, no podes ser 100% racional y tener sentimientos (una maquina es racional al 100%, y esta no tiene sentimientos) los sentimientos son EL CAOS mismo son infinitas variables sin sentido, sin un inicio o un final concreto, por lo que una persona racional se da cuenta de esto y se "Desnubla" la vista y la mente.

Lamentablemente todos tenemos sentimientos, que yo mas que sentimientos los llamaria errores de programacion en nuestro SO (Si, somos maquinas Quimico-Organico-Electro-Mecanicas) Por suerte somos capaces de tomar nuestros sentimientos y hacer lo que querramos con ellos (si no podes hacer lo que quieras con tus sentimientos es por que no queres hacer nada con ellos) lo que nos diferencia de los animales es la razon y la capacidad de transmitir informacion generacion a generacion.

Me estoy yendo del tema...

Lo que decia, si sos muy racional, podes controlar tus sentimientos y superar todo mucho mas rapido.

La sociedad y las relaciones no son un cuento de hadas, ni un drama, son simplemente intentos (algunos fallidos) de relacionarse.

No tengo ganas de escribir mas por que me voy a ir de tema.

GRACIAS POR LEER!!!

HOLA!!!

Mmm no se si te referis al buffer que uso yo, que por cierto es la variable memoria.

El buffer mio se aumenta la primera vez de 0 a 64kb y luego va multiplicandose por 2 cada vez que se supera, lo cual si es una cadena larga mejora el rendimiento ya que se cambia el buffer menos veces.

GRACIAS POR LEER!!!

HOLA!!!

Mi teoría es la siguiente: A pesar de que 8 mil personas te diga en este tema que no y solo una te diga que si esta de acuerdo tu te agarraras a esa única respuesta para convencerte a ti misma de que tu "teoría" es cierta.

Es solo mi teoría y el resto que has leído son nuestra opiniones a las que pareces no dar valor porque no opinamos lo que a ti te gustaría.

WOOOOOOO!!!

HEADSHOT!

Estoy de acuerdo con la cita mencionada arriba.

Mi teoria el tiempo para que una persona deje de "recordar" es inversamente proporcional a su nivel de racionalidad y capacidad para ver las cosas desde otro punto de vista.

En otras palabras una persona que se guia ciegamente por sus sentimientos no olvidara nunca, mientras que una persona 100% racional la olvidara casi al instante.

P.D: Nunca me he puesto siquiera de novio por 1 segundo, es mi vision "Piratezca" del tema.

P.D.2: Un problema generalizado en "la mayoria no todas" de las mujeres (algunos hombres tambien) Es que se dejan ilusionar y hacen espectativa de vida a futuro. un ejemplo la chica esta con un chico que ella piensa que va a ser el padre de sus hijas... a los 3 meses cortan y para la chica no perdio una relacion de 3 meses perdio eso y todo su futuro de fantasia.

GRACIAS POR LEER!!!

[alguien haga un test :O]

HOLA!!!

Sinceramente no se si sera tan rapida como la de Psyke1 pero me agrado y arme una, alguien haga un test :O

Código (vb) [Seleccionar] Expandir

'cConcatenar7913.cls
Private Memoria As String
Private Capacidad As Long
Private TAM As Long

Private Sub Class_Initialize()
        Capacidad = 65536
        Memoria = Space$(65536)
        TAM = 0
End Sub

Public Sub Agregar(ByRef STR As String)
    Dim actTAM As Long
        actTAM = LenB(STR) / 2
        Do While actTAM > Capacidad - TAM
            Memoria = Memoria & Space$(Capacidad)
            Capacidad = Capacidad * 2
        Loop
        MidB$(Memoria, TAM + TAM + 2) = STR
        TAM = TAM + actTAM
End Sub

Public Property Get CerrarSTR() As String
        CerrarSTR = LeftB$(Memoria, TAM + TAM)
        Call Class_Initialize
        Debug.Print "Se ha borrado el string viejo y creado uno en blanco"
End Property

Public Property Get TamañoACT() As Long
        TamanoACT = TAM
End Property

GRACIAS POR LEER!!!

HOLA!!!

Gracias ya solucione gracias a 79137913 con un scroll, ya que antes no habia podido yo, pero ahora quedo todo perfect y no me importa mas la resolucion , gracias a todos por sus comentarios, aprendi mas de 4 cosas jeje, saludos!

No era muy dificil, agrego una scrollbar vertical con el nobre NoMoveVScroll

En su evento change

Le ponen:

Código (vb) [Seleccionar] Expandir


'en los tag de los controles le ponen el top inicial.
For each control in me
    if mid(control.name,1,6) <> "NoMove" then Control.top = val(control.tag) - NoMoveVScroll.value
next


No es solo ese el code pero con eso les tiene que andar.
GRACIAS POR LEER!!!

HOLA!!!

Resultados con prueba de 250000 caracteres:

Código [Seleccionar] Expandir

-----PALABRAS PRONUNCIABLES-----
7913 = 2328msec
Psy1 = 3828msec

Y el mio tiene mas combinaciones 

GRACIAS POR LEER!!!

[.Net]

HOLA!!!

Esto va en .Net

Reportado

GRACIAS POR LEER!!!

HOLA!!!

Ya me acorde, el virus infecta a todos los ejecutables del disco duro, por eso figuran con "VIRUT" tenes que desinfectarlos :S.

GRACIAS POR LEER!!!