MSComm1.Settings = cmbbaudrate.Text 'chon cau hinh ket noi RS232(mac dinh 9600,N,8,1)
MSComm1.CommPort = Switch(cmbcom.Text = "COM3", 3, cmbcom.Text = "COM4", 4, cmbcom.Text = "COM5", 5, cmbcom.Text = "COM6", 6)
MSComm1.InBufferSize = 1024 'dat va xa ve kich thuoc theo byte cua bo dem thu(mac dinh 1024)
MSComm1.InputLen = 0 'so ki tu doc boi Input(bang 0 la doc toan bo bo dem)
MSComm1.RThreshold = 1 'onCom nhan 1 ki tu
MSComm1.SThreshold = 0 'so byte trong bo dem khi xay ra su kien(bang 1 la onCom, bo dem = rong)
MSComm1.OutBufferSize = 1024 'dat va tra ve kich thuoc theo byte cua bo dem xuat
MSComm1.InputMode = comInputModeText 'kieu du lieu (omInputModeText kieu van ban, omInputModeBinary kieu nhi phan)
MSComm1.PortOpen = True 'mo dong cong(True/False)
bạn tham khảo code của mình xem
kết nối ok, code này truyền giới hạn trong 8 bit (0 đến 255). nếu cần gửi mã cao hơn 8 bit thì pm minh gửi tiếp
MSComm1.CommPort = Switch(cmbcom.Text = "COM3", 3, cmbcom.Text = "COM4", 4, cmbcom.Text = "COM5", 5, cmbcom.Text = "COM6", 6)
MSComm1.InBufferSize = 1024 'dat va xa ve kich thuoc theo byte cua bo dem thu(mac dinh 1024)
MSComm1.InputLen = 0 'so ki tu doc boi Input(bang 0 la doc toan bo bo dem)
MSComm1.RThreshold = 1 'onCom nhan 1 ki tu
MSComm1.SThreshold = 0 'so byte trong bo dem khi xay ra su kien(bang 1 la onCom, bo dem = rong)
MSComm1.OutBufferSize = 1024 'dat va tra ve kich thuoc theo byte cua bo dem xuat
MSComm1.InputMode = comInputModeText 'kieu du lieu (omInputModeText kieu van ban, omInputModeBinary kieu nhi phan)
MSComm1.PortOpen = True 'mo dong cong(True/False)
bạn tham khảo code của mình xem
kết nối ok, code này truyền giới hạn trong 8 bit (0 đến 255). nếu cần gửi mã cao hơn 8 bit thì pm minh gửi tiếp
Comment