Question for the VB Programmers: Serial Port Communication with MSComm...

Paunchy

Member
Sep 19, 2001
126
0
0
Just a quick (hopefully easily resolved) question. I'm trying to write a program to send a file across a serial port, and I'm kind of stuck. I've managed to get text to go from my application to hyperterminal, but I'm not quite sure how to recieve text in my application, or more importantly, how to send and recieve files. Basically, I'd like to type something into hyperterminal and have it appear in a textbox in my application. I've used both the polling and the OnComm event and I can't seem to get either to work.

If anyone could point me in the right direction, I'd really appreciate it. I've pasted the beginnings of the program code below. (P.S. I've SCOURED the internet and a few other programming forums, so if you have any ideas, post a code fragment to get me going.) Thanks.
---------------------------------------------

Private Sub Form_Load()
cmbCommPort.AddItem (1)
cmbCommPort.AddItem (2)

cmbPortSpeed.AddItem (2400)
cmbPortSpeed.AddItem (4800)
cmbPortSpeed.AddItem (9600)
cmbPortSpeed.AddItem (19200)
cmbPortSpeed.AddItem (38400)
cmbPortSpeed.AddItem (57600)
cmbPortSpeed.AddItem (115200)

End Sub

Private Sub cmdExecute_Click()

Dim fileName As String
Dim commPort As Integer
Dim portSpeed As String
Dim inputBuff As String

fileName = txtFilename.Text
commPort = Val(cmbCommPort.Text)
portSpeed = cmbPortSpeed.Text

MSComm1.commPort = commPort
MSComm1.Settings = portSpeed + ",n,8,1"

'Enable Port
MSComm1.PortOpen = True

'Configure Port as InPut or Output
If optSend.Value = True Then
MSComm1.Output = "CPA00000000" + Chr(13)
MSComm1.Output = txtFilename.Text + Chr(13)
End If

' How exactly is the input portion to be used? Can you send items from
' hyperterminal and capture them to a text box? And how would you go
' about sending/receiving a file?

If optRecieve.Value = True Then
inputBuff = MSComm1.Input
txtFilename.Text = inputBuff
End If

MSComm1.PortOpen = False

End Sub


Private Sub cmdExit_Click()
End
End Sub
 
sale-70-410-exam    | Exam-200-125-pdf    | we-sale-70-410-exam    | hot-sale-70-410-exam    | Latest-exam-700-603-Dumps    | Dumps-98-363-exams-date    | Certs-200-125-date    | Dumps-300-075-exams-date    | hot-sale-book-C8010-726-book    | Hot-Sale-200-310-Exam    | Exam-Description-200-310-dumps?    | hot-sale-book-200-125-book    | Latest-Updated-300-209-Exam    | Dumps-210-260-exams-date    | Download-200-125-Exam-PDF    | Exam-Description-300-101-dumps    | Certs-300-101-date    | Hot-Sale-300-075-Exam    | Latest-exam-200-125-Dumps    | Exam-Description-200-125-dumps    | Latest-Updated-300-075-Exam    | hot-sale-book-210-260-book    | Dumps-200-901-exams-date    | Certs-200-901-date    | Latest-exam-1Z0-062-Dumps    | Hot-Sale-1Z0-062-Exam    | Certs-CSSLP-date    | 100%-Pass-70-383-Exams    | Latest-JN0-360-real-exam-questions    | 100%-Pass-4A0-100-Real-Exam-Questions    | Dumps-300-135-exams-date    | Passed-200-105-Tech-Exams    | Latest-Updated-200-310-Exam    | Download-300-070-Exam-PDF    | Hot-Sale-JN0-360-Exam    | 100%-Pass-JN0-360-Exams    | 100%-Pass-JN0-360-Real-Exam-Questions    | Dumps-JN0-360-exams-date    | Exam-Description-1Z0-876-dumps    | Latest-exam-1Z0-876-Dumps    | Dumps-HPE0-Y53-exams-date    | 2017-Latest-HPE0-Y53-Exam    | 100%-Pass-HPE0-Y53-Real-Exam-Questions    | Pass-4A0-100-Exam    | Latest-4A0-100-Questions    | Dumps-98-365-exams-date    | 2017-Latest-98-365-Exam    | 100%-Pass-VCS-254-Exams    | 2017-Latest-VCS-273-Exam    | Dumps-200-355-exams-date    | 2017-Latest-300-320-Exam    | Pass-300-101-Exam    | 100%-Pass-300-115-Exams    |
http://www.portvapes.co.uk/    | http://www.portvapes.co.uk/    |