Mensajes

¿Como sabes que no era un helicoptero?

Los helicopteros no suben tanto en el cielo... ademas crean bastante ruido y sus luces no estan tan separadas... a demas que a una distancia considerable no se notan (Esto lo se por que se perdio dicho objeto detras del cerro y dicho cerro esta a una distancia de unos 4 kilometros de distancia de mi casa, por logica un helicopteros no produce a tanta distancia luces tan fuertes y si fuera el caso dichas luces no estarian tan separadas una de otra... sin mencionar que era de una color grisacio redondo) voy a subir el video en cuanto me cargue la bateria,,, pero no se ve nada la maldita cosa solo gravo la luna ¬¬" no tiene vista nocturna.

Aun asi solo cuento mi historia sin afan de hacer creer a otros aclaro esto OJO.

Dulces Lunas!¡.

.
* Antes si alguien intenta agredir de cualquier manera y lo leen No hagan un Flame... pasen a Ignorarlo, solo quiero contar algo que hace unos instantes me ha sucedido y que me ha dejado PERPLEJO.

Bueno la cosa es que hace unos minutos tube un encuentro de urgencia de miar (liberacion de vegiga)... no se preocupen mi vegita esta ya vacia... pero cuando salgo de mi cuarto el cual esta en el techo de la casa de mis padre (mi centro de mando jajaja  jajaja), miro unas luces algo extrañas, similares a un avion o reflejo de un alambre, pero o por Lucifer!¡. no era un avion estaban suspendidas y empesaron a bajar por hay en los volcanes entre el Popo y el iztaccihuatl (Quiero suponer mas no lo afirmo) la cosa es que me medio asuste la verdad, diferencie que no era un avion ni un elicoptero debido a que se veia que hiba a una velocidad demasiado LENTA hasta que la perdi de vista al igual que volvia subir y a perderse de vista, pero muy extraño se quedo sustependido dicho objeto entre las nubes...

Lo grabe en video pero no se ve nada (Camara Digital HD que no tiene vision Nocturna peor tantito).

Ya no creo que Jaime Mausan este Loco...

Nota: No voy a dormir hoy...

Dulces Lunas!¡.

* Se me ocurre usar Semaforos para que sepa si tu programa en C esta haciendo algo en el archivo o si el programa en VB6 le esta haciendo algo...
* Tambien se me ocurre usar SendMessage para que se avises enre procesos...
* PIPES...
* Sockets...
* habra mas soluciones... pero no se me ocurre ninguna mas.

Ducles Lunas!¡.

¿Punteros en C/C++?...

De alguna manera si... es muy parecido, pero muy limitado.

Dulces Lunas!¡.

@paju1986

Deberias armarte una web donde des un FAQ general y tengas todo esto organizado... No le he hechado un ojo al codigo pero seguro el programa hace lo que debe de hacer como lo planeaste y eso que mejor!¡.

Dulces Lunas!¡.

@RHL
Corta y precisa.

Sangrientas Lunas!¡.

estuve revisando la funcion creada por BlackZeroX y esta bien hecha, pero como que tiene muchas lineas, pensaba en algo mas simple pero ni modo ..

El codigo contempla TODOS los errores posibles... si no quieres tantas lineas pues solo quita lo que no quieras...

Dulces Lunas!¡.

jajajajajajaja ahh bueno gracias por la aclaración. por estos lares les conocemos de otra manera. No me imagino a nadie fumando uno de esos

Deja eso de lado... por donde los fumaran... Urano sigue siendo un planta? (No contesten!¡).

Dulces Lunas!¡

ammm lo tomo algo asi como reto por que ando algo aburrido:

Código (Vb) [Seleccionar] Expandir



Private Function spaceWidth(ByRef sStr As String, ByVal lLnWord As Long, ByVal lLenSpace As Long) As Long
' // La funcion retorna la cantidad de ESPACIOS entre palabras... retorna -1 cuando hay un error...
Dim sTmp    As String
Dim lSize   As Long
Dim i       As Long
Dim j       As Long
   
    spaceWidth = -1     '   **  Codigo de Error de retorno.
    If (lLnWord <= &H0) Then Exit Function
   
    '   **  Calculamos las separaciones requeridas.
    lSize = (Len(sStr) \ lLnWord)
    If (lSize <= &H1) Or (lLenSpace = &H0) Then '   //  Dimensiones (si hay >=2 grupos calculamos, de lo contrario cancelamos).
        Exit Function
    End If
    '   **  Cantidad de Dimenciones (Espacios entre "Palabras")...
    spaceWidth = (lSize - 1)
    ' **  Longitud del buffer requerido...
    lSize = ((lSize * lLnWord) + ((lSize - 1) * lLenSpace))
   
    '   ******************************
    '   **  Si es de longitudes errones este trozo corrije eso...
    '   **      sStr = "12345678904"
    '   **      spaceWidth sStr, 2, 2
    '   ******************************
    j = (Len(sStr) Mod lLnWord)
    If Not (j = &H0) Then
        spaceWidth = (spaceWidth + 1) ' **  Cantidad de Dimenciones (Espacios entre "Palabras")...
        lSize = lSize + j + lLenSpace ' **  Longitud del buffer requerido...
    End If
    '   **  Buffer
    sTmp = Space$(lSize)
    '   **  Empresamos a separar las "Palabras" en las longitudes dadas...
    j = 1
    For i = 1 To lSize Step (lLnWord + lLenSpace)
        Mid$(sTmp, i, lLnWord) = Mid$(sStr, j, lLnWord)
        j = j + lLnWord
    Next
    sStr = sTmp '   **  Seria mejor un metodo de intercambio de Punteros asi este proceso sera mas rapido...
End Function



ejemplo:

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
Dim sStr        As String
    sStr = "12345678904"
    MsgBox sStr
   
   
    spaceWidth sStr, 50, 10
    MsgBox sStr
   
    sStr = "12345678904"
    spaceWidth sStr, 0, 10 ' // Retorna la funcion -1 y es por que hay un error de parametros...
    MsgBox sStr
   
    sStr = "12345678904"
    spaceWidth sStr, 5, 10
    MsgBox sStr
   
    sStr = "12345678904"
    spaceWidth sStr, 2, 1
    MsgBox sStr
End Sub



Dulces Lunas!¡.

Para crear un juego realmente desente mejor usar Motores de Video Juegos...

Dulces Lunas!¡.