Quote:
Originariamente inviato da cavay
[b]L'applicazione compone il num ma...nn riesco a parlare o cmq emettere un suono
|
se vuoi solo emettere un tono, credo basti aggiungere questo al tuo codice:
Do
DoEvents
' Se ci sono dati nel buffer allora leggiamoli.
If MSCommControl.InBufferCount Then
RispostaDalModem$ = RispostaDalModem$ + Form.MSComm1.Input
' Controlla se la risposta č "OK".
If InStr(RispostaDalModem$, "OK") Then
MSCommControl.Output = "ATDT" & 1 'genera il tono del numero 1
' Avvisa di alzare la cornetta
MsgBox "Alzare la cornetta prego", vbInformation
Exit Do
End If
End If
Loop