Sự kiện OnComm được phát sinh bất cứ khi nào giá trị của đặc tính CommEvent thay đổi. Khi lập trình, sử dụng như sau:
Private Sub comm1_OnComm()
OnComm là một phần gần như quan trọng nhất của MSComm đối với người lập trình truyền thơng qua cổng nối tiếp sử dụng Visual Basic. Các trình con Comm1_OnComm như ở trên hoạt động ngay khi phát sinh các thay đổi của đặc tính CommEvent. [1,5]
Chương trình dưới đây minh hoạ sự kiện OnComm dùng để kiểm tra một số giá trị của đặc tính CommEvent.
Private Sub comm1_OnComm()
Select Case Comm1.CommEvent
Case comCDTO „ CD Timeout
Case comEvCD „ Có thay đổi trên đường CD
Case comEvReceive „ Có nhiều hơn RThreshold ký
tự trong bộ đệm nhận
Case comEvSend „ Có nhiều hơn Sthreshold ký
tự trong bộ đệm truyền End Select
End Sub
Chương trình dưới đây là một chương trình đơn giản cho phép truyền/nhập đơn giản sử dụng cổng COM để truyền và nhận. Tuy nhiên, ở đầu cổng COM, ta
Hệ thống nhắn tin nội bộ trên cơ sở ghép nối môđem GSM ứng dụng SMS
cần phải đấu vòng đường truyền và đường nhận.
Private Sub Form_load() Comm1.CommPort=1
Comm1.Settings=”9600,N,8,1” Comm1.InputLen=0
Comm1.PortOpen=True End Sub
Private Sub Form_KeyPress (KeyAscii as Integer) Comm1.Output_KeyAscii
Text1.Text_KeyAscii End Sub
Private Sub comm1_OnComm()
If (Comm1.CommEvent = comEvReceive ) then Text2.text = Comm1.Input
End if End Sub
Kết quả chạy thử được trình bày trên hình dưới đây:
Thơng thường, khi lập trình ghép nối với môđem chẳng hạn, sau khi máy tính gửi một lệnh đến mơđem, nó phải đợi trả lời từ phía mơđem trước khi thực hiện bước tiếp theo, đoạn chương trình dưới đây minh hoạ kỹ thuật hỏi vòng chờ đáp ứng:
„ Gửi lệnh AT đến môđem Comm1.Output =”AT”
„ Đợi cho đến khi có ký tự gửi trả lại từ môđem Do
DoEvents
Hệ thống nhắn tin nội bộ trên cơ sở ghép nối môđem GSM ứng dụng SMS
MsgBox (Comm1.Input)
Trong đoạn chương trình trên, lưu ý cần thực hiện các bước xác lập và mở cổng COM trước đó.
Hệ thống nhắn tin nội bộ trên cơ sở ghép nối môđem GSM ứng dụng SMS
3.Chƣơng 3