Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Microsoft comm controls
I am trying to open com1 in vb and get data from a tag reader as the tags are
read. I have started with this Private Sub Worksheet_Activate() ' Open the serial port MSComm1.CommPort = 1 MSComm1.Settings = "115200,N,8,1" MSComm1.PortOpen = True but it is giving me an error straight up. Do I need to download anything for the MSComm1 commands to work. I realise I would need to put in loops etc for it to continually monitor the port but I can't even get it to open the port yet. Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Microsoft comm controls
I don't know much about MSComm but looks like that should open your com-1,
silly question but do you actually have Com-1 available, try some others. Someone from this ng sent me this to test a long time ago: with MSComm1 and a couple of commandbuttons on the sheet - Private Sub CommandButton1_Click() ' Sets/returns the baud rate, parity, data bit, and stop bit parameters. MSComm1.CommPort = 4 ' start with comm port MSComm1.Settings = "57600,N,8,1" ' 57600 baud, no parity, 8 data, and 1 stop bit. MSComm1.InputMode = comInputModeBinary ' BINARY MODE MSComm1.DTREnable = True MSComm1.RTSEnable = True MSComm1.EOFEnable = False ' No end of file character MSComm1.Handshaking = comNone MSComm1.InputLen = 0 ' read FIFO until empty MSComm1.RThreshold = 1 ' # of chars to receive before generates the OnComm event MSComm1.InBufferSize = 8192 ' 1024 is default On Error GoTo Errorhandler MSComm1.PortOpen = True On Error GoTo 0 MsgBox "MSComm1.PortOpen " & MSComm1.PortOpen Exit Sub Errorhandler: MsgBox "Bad settings", vbOKOnly, "Comm Port Error" End Sub Private Sub CommandButton2_Click() If MSComm1.PortOpen Then MSComm1.PortOpen = False End If MsgBox "MSComm1.PortOpen " & MSComm1.PortOpen End Sub The original code included MSComm1.CommPort = 6 which failed for me because I didn't have 6, but 4 was good for me Regards, Peter T "NDBC" wrote in message ... I am trying to open com1 in vb and get data from a tag reader as the tags are read. I have started with this Private Sub Worksheet_Activate() ' Open the serial port MSComm1.CommPort = 1 MSComm1.Settings = "115200,N,8,1" MSComm1.PortOpen = True but it is giving me an error straight up. Do I need to download anything for the MSComm1 commands to work. I realise I would need to put in loops etc for it to continually monitor the port but I can't even get it to open the port yet. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Reading Comm Port in Excel | Excel Programming | |||
If And/Or statement for comm calc criteria | Excel Discussion (Misc queries) | |||
Comm Add-ins | Excel Programming | |||
Comm 1 | Excel Programming | |||
Connecting to comm 1 | Excel Programming |