RS232 Command

花泽类少爷

有谁会写RS232的command?
譬如send data 和 receive data?

chan1314

什么语言？
用 MSComm

花泽类少爷

用visual basic 6.0

chan1314

press ctrl+t , 然后选 mscomm (microsoft com port bla bla )
然后

Dim MSComm1 As Object
Set MSComm1 = CreateObject("MSCommLib.MSComm")
MSComm1.Settings = "57600,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = "bla bla"