C¬ së d÷ liÖu
CÁC KỸ THUẬT XỬ LÝ
Ngôn ngữ lập trình Microsoft Visual Basic, với tính phổ biến và dễ sử dụng của nó, được sử dụng làm ngôn ngữ lập trình ứng dụng của luận văn.
Ngôn ngữ Visual Basic với điều khiển truyền thông MSComm có sẵn của mình là một công cụ rất tốt cho người lập trình để thực hiện truyền thông qua cổng nối tiếp.
Như đã trình bày ở chương 4, việc lập trình phải được thực hiện sao cho có thể đạt các yêu cầu và các mục tiêu đề ra. Các phần dưới đưa ra trong chương này sẽ lần lượt cho thấy phương pháp và kỹ thuật xử lý nhằm đạt được các yêu cầu đó cả về mặt ghép nối cũng như tính năng toàn bộ của hệ thống.
Tuy nhiên, do tính khá phức tạp và đồ sộ của một chương trình ứng dụng, khó có thể giới thiệu toàn bộ tất cả các thủ thuật cũng như thuật toán đã sử dụng trong chương trình, vì vậy chương 5 này dành để giới thiệu các nét đáng lưu ý nhất trong quá trình lập trình điều khiển cũng như thiết lập hoàn thiện phần mềm của luận văn.
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.