Thông báo

Collapse
No announcement yet.

giúp mình về visual basic 6.0

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • #16
    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

    Comment

    Về tác giả

    Collapse

    trungBK Tìm hiểu thêm về trungBK

    Bài viết mới nhất

    Collapse

    Đang tải...
    X