Mensajes

Utiliza a tu nuevo mejor amigo MSDN!!

El Space():
http://msdn2.microsoft.com/es-es/library/k6ethaxs(VS.80).aspx

Cuando dice:

Código [Seleccionar] Expandir


Archivo = Space(LOF(1))


Esta llenando la declaracion Archivo con espacios basado en la longitud del archivo.

Seek():
http://msdn2.microsoft.com/es-es/library/7af2feyt(VS.80).aspx

Código [Seleccionar] Expandir


Seek (1), LOF(1) + 1


Es para ponerse al final del archivo.

el LOF() significa Length of File :].
http://msdn2.microsoft.com/en-us/library/dtz29k5z(VS.71).aspx

Nota: Hace mucho que no programo en visual basic.

jaja buena suerte explicando los delegados y eventos jajajaja en el momento me confundieron demasiado!!

Pero la idea es buena, para enfocar mas personas en C# y que ya dejen Visual Basic ><

mmm si tienes modem no se supone que debes de redireccionar el puerto? porque si en localhost (127.0.0.1) te funciona perfectamente entonces debe de ser por tu modem.

Dato Curioso : El puerto 6112 es utilizado actualmente por battle.net, los servidores que son host de Starcraft, Warcraft, Diablo II, etc .

Este es un codigo cree para un chat bot, se utiliza:

AddChat Form.RitchTextBox, vbGreen, "Hola!! ", vbBlue, "Como estas!!?"

esto te daria de resultado:

Hola!! Como estas!!?

Código [Seleccionar] Expandir


Public Sub AddChat(rtbChat As Control, ParamArray saElements() As Variant)
    Dim i as integer

    For i = LBound(saElements) To UBound(saElements) Step 2
        With rtbChat
            .SelStart = Len(.Text)
            .SelLength = 0
            .SelColor = saElements(i)
            .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
            .SelStart = Len(.Text)
            Data = Data & saElements(i + 1)
        End With
    Next i
End Sub


Puedes usar For o While, y despues dentro de estos tienes que checar que el numero no tiene decimales.

Puedes declarar el resultado como variable y usar la funcion Instr() para encontrar el punto decimal.