Piccolo problema IN VB6... help!!!! PLEASE

lunedì 06 marzo 2006 - 19.08

possola11 Profilo | Newbie

AIUTOOOO!!!!


HELP PLEASE !!

Sto facendo o almeno :) provando a fare un programma in VB 6. . . . k mi permetta di ricevere dati da 1 cellulare via cavo.. grazie al PROTOCOLLO AT...

Purtroppo m da 1 macello di problemi potete darmi 1 mano ???

VI SCRIVO il codice k ho formulato ma ank se errori di sintassi fonadmentalmente nn ne da... purtroppo nn mi fa le query del codice.. cioe nn m stampa a video in 1 text 1 semplice scritta OK ,..... HELP!!




Private sub FormLoad()

'Ricezione dati
' Per aprire la porta seriale
MSComm1.CommPort = 6
MSComm1.Settings = "115200,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "At" & vbCrLf

End sub



Private Sub MSComm1_OnComm()

Dim Rx$
Rx$ = MSComm1.Input ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
txtDisplay.Text = txtDisplay.Text & Rx$

End If
MSComm1.PortOpen = False
End Sub



VI PREGO DATEMI 1 MANO M SERVE X LA TESINA DELL ESAME HELP.................


GRAZIE MILLE


ALESSANDRO OSSOLA...

Ciciu Profilo | Senior Member

Ciao Alessandro...

Hai provato a collegarTi al cellulare utilizzando, per esempio, Hyperterminal, impostando gli stessi parametri di collegamento e digitando a manina "AT" ?
Ho avuto modo di "giocare" con un modem GSM, ma la velocità di comunicazione non era tanto alta, anzi... io proverei 9600 al posto di quel 115000....

Cmq, c'e' anche un interessante articoletto, che Ti illustra a quale evento sta rispondendo OnComm (Te lo consiglio...) :

http://support.microsoft.com/default.aspx?scid=kb;en-us;194922

Ma sonoragionevolmente convinto che sia solo un problema di velocità...

Fammi sapere
Ciao - Fabio

PS - Capisco che Tu, magari, sei giovane, ed io posso sembrarTi vecchio e rincoglionito, ma sappi che stai scrivendo su un forum... non stai mandando via SMS !!!!!!!!! ("che" si scrive "che", non "k"... "non" si scrive "non", non "nn"...)
Fabio G

possola11 Profilo | Newbie

innanzitutto grazie per la risposta...

hyperterminal non crea nessun problema e la risposta al mio "AT" inviato al telefono e un simpatico "OK". questo testo e copiato pari pari dal hyperterminal..:
-------------------
at
OK
at+cgmi
Nokia
OK
at+cgmm
Nokia N70
OK
--------------------
quindi funge... il mio problema e che purtroppo mi tocca farlo in visual basic oggi finalmente ha dato "segni di vita" permettendomi di chiamare da visual basic un numero grazie al comando ATD(e il numero di telefono)

ma il mio problema e che non ottengo nessuna risposta dal telefono al pc... questo e il codice che ho scritto in VISUAL BASIC:


Private Sub cmd_ok_Click()
MSComm1.PortOpen = True ' Apriamo la porta.
MSComm1.Output = txt_1.Text & Chr(13)


MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText

txt_2.Text = MSComm1.Input
MSComm1.PortOpen = False ' CHIUDIAMO la porta.
End Sub

Private Sub cmd_pulisci_Click()
txt_1.Text = ""
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 6 ' Selezioniamo la COM1
MSComm1.Settings = "9600,n,8,1" ' Le impostazioni della seriale

End Sub

Private Sub MSComm1_OnComm()

MSComm1.PortOpen = False ' CHIUDIAMO la porta.
End Sub


Forse il problema è che non c'è risposta dal telefono o non riesce a leggerla cosa ho sbagliato/dimenticato di aggiungere??
Magari qualcosa che ha a che fare con il commevent? ? o magari il buffer? il mio problema e solo di far visualizzare la risposta per provare che si puo comunicare con il modem anche di 1 telefono grazie al protocollo AT usando visual basic.. grazie mille... per l 'aiuto!!!!

Ciciu Profilo | Senior Member

>Private Sub MSComm1_OnComm()
>
>MSComm1.PortOpen = False ' CHIUDIAMO la porta.
>End Sub
>

Scusa, ma... Questo passaggio mi sfugge : perché chiudi la porta proprio mentre l'evento OnComm Ti sta dicendo che ci sono dei dati ? Hai provato a leggerli PRIMA di chiuderla ?

Ciao - Fabio
Fabio G
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5