[vb6] comunicazione con COM1 tramite rs232

[nik600]

ciao

utilizzando il controllo MScomm ho scritto questo semplice porgrammino che "dovrebbe" permettermi di inviare degli sms tramite un modem GSM che è collegato alla seriale

Private Sub Command1_Click()

MSComm1.Output = "AT+CMGF=1"
MSComm1.Output = "AT+CMGS=”338miocell”"
MSComm1.Output = "nikkkk the queeeeeek"
MSComm1.Output = "Ctrl^Z"


End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True

End Sub

se mi collego con hyper terminal alla com 1 e digito i comandi sopra mandati in output tutto funziona, se lo lancio il programma il mex non arriva, è possibile che l'errore sia nel Ctrl^z ? cioè quando ho finito di digitare in hyper terminal premendo contemporaneamente il tasto control e il tasto z il mex viene inviato...ma per mandare queste info sulla porta cosa devo fare? vedo mandare un codice ascii? e a cosa corrisponde ctrl^z ?

grazie nik

[nik600]

ci sono riuscito....

posto il codice nel caso in cui venga utile a qualcuno

Private Sub Form_Load()
Dim numero As String
Dim txt As String

stringa = Command()

numero = Left(stringa, 10)
txt = Right(stringa, Len(stringa) - 10)

MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True

Call invia(numero, txt)

MSComm1.PortOpen = False

End

End Sub


Private Function invia(numero As String, testo As String)

MSComm1.Output = "AT+CMGF=1" & Chr$(13)
MSComm1.Output = "AT+CMGS=" & Chr$(34) & numero & Chr$(34) & Chr$(13)
MSComm1.Output = testo
MSComm1.Output = Chr$(26)

End Function

26 è il codice ascii di ctrl + z
13 è il codice ascii di INVIO

[nik600]

scusate ma... x l'input?

collegandomi con hyperterminal al modem quando do dei comandi tipo

AT o ATD il modem risponde con "OK" o con "ERROR" e tali risposte le visualizzo su hyperterminal, ho provato a fare un semplice

MSComm1.Output = "prova"
msgbox.input

ma la cosa non funziona... sapreste dirmi come posso fare?

cioè leggo sempre una stringa vuota

[nik600]

?? up ??