Cơ sở dữ liệu
5.1 KẾT NỐI VỚI MÔĐEM
Khi kết nối với môđem, cần phải xử lý các thông tin sau:
Môđem được nối với cổng COM nào. Thông tin này phải được nhập vào chương trình.
Các tham số truyền nối tiếp: tốc độ, kiểu chẵn lẻ, số bít dữ liệu, số bít dừng cần được đặt.
Kiểm tra xem mơđem có hoạt động hay khơng.
Các thao tác trên có thể được thực hiện bằng việc sử dụng điều khiển truyền thơng MSComm trong Visual Basic. Đoạn chương trình 5-1 dưới đây minh hoạ cách thao tác kết nối với mođem sử dụng tập truyền thông MSComm được đặt tên là Comm1 trong chương trình:
Chƣơng trình 5-1
Private Sub Start_Click()
Hệ thống nhắn tin nội bộ trên cơ sở ghép nối môđem GSM ứng dụng SMS
Comm1.CommPort = TxtCOM.Text
Comm1.Settings=”9600,N,8,1” „ đặt tham số cho cổng COM If Comm1.PortOpen = False Then
Comm1.PortOpen = True Comm1.DTREnable = True Comm1.RTSEnable = True Comm1.RThreshold = 1 Comm1.InputLen = 1 bOK = False bError = False
Comm1.Output = "AT" & vbCrLf „Gửi lệnh ra thăm dò
Wait „Đợi trả lời
If Not bOK Then „Nếu khơng thấy trả lời “OK” thì thơng báo
„Mơđem không trả lời MsgBox "Modem không trả lời"
Comm1.PortOpen = False Exit Sub
End If Else
MsgBox "Cổng đang mở!", vbCritical + vbOKOnly,&_ "Không mở được. Hãy thử lại lần nữa!"
End If End Sub
Lệnh “Comm1.InputLen” đặt số lượng ký tự mà chương trình sẽ đọc ra từ bộ đệm nhận trong mỗi lần đọc, trong chương trình này, số ký tự được đọc trong mỗi lần đọc là 1 ký tự. Điều này rất quan trọng cho việc sử lý chuỗi ký mà mođem gửi tới máy tính nhằm phát hiện xem mơđem gửi thơng tin gì để xử lý phù hợp.
Trong đoạn chương trình kể trên, chúng ta cũng sử dụng giá trị của các biến bOK, bError để kiểm tra xem việc kết nối có thành cơng hay khơng, giá trị của các biến này phụ thuộc vào các tín hiệu trả lời từ mođem. Chúng ta sẽ đề cập đến kỹ thuật phát hiện và xử lý các đáp ứng từ môđem gửi tới máy tính trong phần tiếp theo.