Mình góp ý cho bạn 1 chút nhé
Thứ 1:Bạn muốn truyền 1 chuỗi ký tự xuống thì bạn phải coi lại dòng lệnh này "MSComm1.InputMode = comInputModeText " (Change "Text"="Binary"), và bạn nên coi lại dòng này nữa MSComm1.RThreshold = 1,nếu bạn muốn nhận 2 ký tự bạn để cái này bằng 1 thì........
Thứ 2: bạn chỉ cần dùng hàm
If Len(Y)=2 then
Text1.Text=Y ("Y =mscomm1.input bạn nhé,đừng thêm dòng này vào")
Thứ 3:mình nghĩ bạn chỉ cần tách ký tự khi VD bạn có 2 số là tốc độ,2 số là nhiệt độ thì bạn mới cần tách thôi.Nếu bạn muốn truyền số 30 lên thì MSComm1.RThrehold=2 bạn nhé
Note:mình góp ý chút bạn nên làm lần lượt,trước tiên bạn nên làm cái nhiệt độ truyền lên xuống dc rồi mới giải quyết cái LCD chứ bạn làm vậy k ai đã thông dc nguyệt đạo cho bạn đâu .Chúc Vui
|