Hardware Upgrade Forum - View Single Post - Trasferire file da un pc all'altro mediante MSCOMM (VB)

cionci · 17-02-2003, 16:19

If MSComm1.InputCounter < num Then
Do
While MSComm1.InBufferCount >= num

Avevo sbagliato a scrivere MSComm1.InputCounter, la proprietà giusta è
MSComm1.InBufferCount...

Comunque qui come ti ho già detto non devi fare un'attesa del genere, perchè se ad esempio stacchi il cavo dati mentre il tuo proramma è in funzione sicuramente si pianterà tutto...

Comunque quella situazione gestiscila così :

Codice:

'Metti in cima la form questo:
Private Declare Sub Sleep Lib &quot;kernel32&quot; (ByVal dwMilliseconds As Long)

If MSComm1.InBufferCount &lt; num Then
   Sleep(200) 'sto fermo per 200 millisecondi
End If

If MSComm1.InBufferCount &lt; num Then
  'generi un errore ed esci dalla Sub

17-02-2003, 16:19	#56
cionci Senior Member Iscritto dal: Apr 2000 Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29 Messaggi: 53971	If MSComm1.InputCounter < num Then Do While MSComm1.InBufferCount >= num Avevo sbagliato a scrivere MSComm1.InputCounter, la proprietà giusta è MSComm1.InBufferCount... Comunque qui come ti ho già detto non devi fare un'attesa del genere, perchè se ad esempio stacchi il cavo dati mentre il tuo proramma è in funzione sicuramente si pianterà tutto... Comunque quella situazione gestiscila così : Codice: 'Metti in cima la form questo: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) If MSComm1.InBufferCount < num Then Sleep(200) 'sto fermo per 200 millisecondi End If If MSComm1.InBufferCount < num Then 'generi un errore ed esci dalla Sub