Mensajes

Quizá un 7805 o 7809 sea más conveniente, esos parecen led de alta luminocidad y con 3v te podrías quedar corto, ya que son más de uno.

La instrucción Mod devuelve el resto de una división, por eso la uso para obtener lo que falta del archivo.

Saludos.

Ah me olvidé de ese detalle en el code que puse antes . La forma de solucionar eso sería asi:

Código [Seleccionar] Expandir


Tam = 1024
Trozos = FileLen(Arch) / Tam
Falta = FileLen(Arch) Mod Falta

If Falta > 0 Then Trozos = Trozos + 1


Saludos.

Utiliza las funciones InStr, Mid y Val para obtener los parámetros. Por ej:

Código [Seleccionar] Expandir


Sub ParseParam(ParamSpec As String)
       Dim iFirstPos%, iLastPos%
       Dim iPort%, sIp$, sPass$

  iFirstPos = InStr(1, ParamSpec, "-port", vbTextCompare)

  If iFirstPos Then
    '5 = Len("-port")
    '
    iPort = Val(Mid$(ParamSpec, iFirstPos + 5))
  End If

  iFirstPos = InStr(1, ParamSpec, "-ip", vbTextCompare)

  If iFirstPos Then
    iLastPos = InStr(iFirstPos + 4, ParamSpec, " ")

    If iLastPos Then
      '3 = Len("-ip")
      '
      sIp = Mid$(ParamSpec, iFirstPos + 3, iLastPos - iFirstPos - 3)
    Else
      'Por si es el último parámetro que se especifica.
      '
      sIp = Mid$(ParamSpec, iFirstPos + 3)
    End If
  End If

  iFirstPos = InStr(1, ParamSpec, "-password", vbTextCompare)

  If iFirstPos Then
    iLastPos = InStr(iFirstPos + 10, ParamSpec, " ")

    If iLastPos Then
      '9 = Len("-password")
      '
      sPass$ = Mid$(ParamSpec, iFirstPos + 9, iLastPos - iFirstPos - 9)
    Else
      'Por si es el último parámetro que se especifica.
      '
      sPass$ = Mid$(ParamSpec, iFirstPos + 9)
    End If
  End If
End Sub


Y la próxima vez que postees algo ponele un título adecuado.

Saludos.

Intenta hacer una pausa entre cada llamada a Send. Por ejemplo con el siguiente código (incorporalo al procedimiento).

Código [Seleccionar] Expandir


      Dim snTime!

  snTime = Timer

  Do While (Time - snTime) < .25
   'Espera 0.25 segundos.
  Loop

  Call Winsock_server.SendData("archi" & vbParseData & Buffer)


Saludos.

Pero eso es para hacer mas claro el codigo, cuando una linea es mas larga de lo normal, pues metes el '_' para tenerlo en varias lineas.

si es para hacerlo claro, pero con "& vbCrLf & _ " baja una linea tambien

un saludo.

No habla del código sino del TextBox.

Saludos.

Establece la propiedad Multiline del TextBox a True, y lee un tutorial de VB .

Saludos.

Código [Seleccionar] Expandir

App.TaskVisible = False

Qué error te da?

[Como transmitir webcam desde un server a su cliente]

Mira el siguiente post:

Como transmitir webcam desde un server a su cliente

Saludos.