ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI II. PHẦN MỀM VISUAL BASIC VOICE MAIL SERVICE Phần mền được viết bằng ngôn ngữ Visual Basic 6.0 và quản lý CSDL bằng Microsoft Access 97. Chương trình sử dụng Active X Microsoft Comm Control 6.0 để giao tiếp mạch ngoài thông qua cổng COM nhằm trao đổi tín hiệu giữa máy tính và mạch giao tiếp cổng COM. Chương trình còn sử dụng Active X Microsoft MultiMedia Control 6.0 để quản lý các bản tin, như phát ra những câu thông báo hoặc ghi âm những tin nhắn từ khách hàng và phát những tin nhắn. Chương trình còn sử dụng Microsoft ActiveX Data Object 2.1 Library để tạo kết nối với CSDL Access Dulieu.MDB để quản lý các hộp tin cũng như ghi lại những bản tin hoạc phát lại những bản tin đã ghi. 1. Giao diện chương trình chính FrmMain.frm a. Giao diện Phần Mền: Hình II.1 : Giao diện chương trình chính. Lê Bá Thiện Lớp Tin 99 Trang 64 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI b. Phần Code FrmMain.frm: Option Explicit Dim item As ListItem Dim hLogFile As Integer Dim StartTime As Date Dim Read_BANTIN As String Dim dGiobd As String Dim c_Sql As String Dim TinSo As Integer Dim ResMail As ADODB.Recordset Dim ResRead As ADODB.Recordset Dim ResKT As ADODB.Recordset Dim i As Long Private Sub Form_Load() Dim CommPort As String, Handshaking As String, Settings As String On Error Resume Next PlayGA.DeviceType = "WaveAudio" PlayGA.RecordMode = mciRecordOverwrite PlayGA.Notify = False PlayGA.Wait = False PlayGA.Shareable = False PhoneLine.State_Xuly = "XULY" Set ResMail = New ADODB.Recordset Set ResRead = New ADODB.Recordset Set ResKT = New ADODB.Recordset Set cConnection = New ADODB.Connection cConnection.Provider = "Microsoft.Jet.OLEDB.4.0" cConnection.Open "c:\hopthu\Dulieu.mdb" c_Sql = "Select * from MAIL" ResMail.ActiveConnection = cConnection ResMail.LockType = adLockOptimistic ResMail.CursorType = adOpenKeyset ResMail.ActiveConnection = cConnection ResMail.Source = c_Sql ResRead.ActiveConnection = cConnection ResRead.LockType = adLockOptimistic ResRead.CursorType = adOpenKeyset Lê Bá Thiện Lớp Tin 99 Trang 65 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI ResRead.ActiveConnection = cConnection ResKT.ActiveConnection = cConnection ResKT.LockType = adLockOptimistic ResKT.CursorType = adOpenKeyset ResKT.ActiveConnection = cConnection PhoneLine.IsPlay = False 'Set cac che do PhoneLine.bIsCalling = False PhoneLine.cSM = "" PhoneLine.D_DTMF = "" PhoneLine.cFileWave = "" PhoneLine.State_Line = "IDLE" frmMain.Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 Settings = GetSetting(App.Title, "Properties", "Settings", "") ' frmTerminal.MSComm1.Settings]\ If Settings <> "" Then MSComm1.Settings = Settings If Err Then MsgBox Error$, 48 Exit Sub End If End If CommPort = GetSetting(App.Title, "Properties", "CommPort", "") ' frmTerminal.MSComm1.CommPort If CommPort <> "" Then MSComm1.CommPort = CommPort Handshaking = GetSetting(App.Title, "Properties", "Handshaking", "") 'frmTerminal.MSComm1.Handshaking If Handshaking <> "" Then MSComm1.Handshaking = Handshaking If Err Then MsgBox Error$, 48 Exit Sub End If End If Echo = GetSetting(App.Title, "Properties", "Echo", "") ' Echo Call Open_Com With ImageList1 .ImageHeight = 32 .ImageWidth = 32 .ListImages.Add Picture:=Icon Lê Bá Thiện Lớp Tin 99 Trang 66 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI End With With ImageList2 .ImageHeight = 16 .ImageWidth = 16 .ListImages.Add Picture:=Icon End With With ListView2 .HideSelection = False .Icons = ImageList1 .SmallIcons = ImageList2 End With With ListView1 .HideSelection = False .Icons = ImageList1 .SmallIcons = ImageList2 End With ResMail.Source = "SELECT * FROM MAIL WHERE NGAY >= CDATE('" + CStr(Date) + "')-3 ORDER BY ID DESC" ResMail.Open ResMail.MoveFirst Do While Not ResMail.EOF If ResMail!Status = "YES" Then Set item = ListView1.ListItems.Add(i, , CStr(ResMail!SM), 1, 1) Else Set item = ListView1.ListItems.Add(i, , CStr(ResMail!SM), 2, 1) End If item.SubItems(1) = Trim(ResMail!Mail_Box) item.SubItems(2) = Trim(ResMail!NGAY) item.SubItems(3) = Trim(CStr(ResMail!Gio_BD)) item.SubItems(4) = Trim(CStr(ResMail!Gio_KT)) ResMail.MoveNext i = i + 1 Loop ListView1.SetFocus ResMail.Close On Error GoTo 0 End Sub ' Thủ tục mở cổng Com, với tốc độ 2400, 8 bit data , Không kiểm tra chẳn lẻ, 1 bit stop Private Sub Open_Com() On Error Resume Next MSComm1.PortOpen = Not MSComm1.PortOpen sbrStatus.Panels(1).Text = "Status COM1: ON" Lê Bá Thiện Lớp Tin 99 Trang 67 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI sbrStatus.Panels(2).Text = "Setting : 2400,8,n,1" If Err Then MsgBox Error$, 48 End Sub ' Thủ tục Giới thiệu tác giả Private Sub mnuAbout_Click() Load frmAbout frmAbout.Show vbModal End Sub ' Thủ tục kết thúc chương trình Private Sub mnuExit_Click() End End Sub ' Gọi FInput để quản lý dữ liệu Private Sub mnuInput_Click() Load fInput fInput.Show vbModal End Sub ' Thủ tục OnComm để nhận tín hiệu từ mạch Giao tiếp cổng COM Private Static Sub MSComm1_OnComm() Dim EVMsg$ Dim ERMsg$ Select Case MSComm1.CommEvent Case comEvReceive Dim D_Signal As Integer D_Signal = Asc(MSComm1.Input) If PhoneLine.State_Line = "RECC" Then Exit Sub If PhoneLine.State_Line = "STIN" Then Exit Sub If D_Signal = 10 Then D_Signal = 0 D_Signal = Trim(CStr(D_Signal)) If PhoneLine.IsPlay = True Then PhoneLine.IsPlay = False PlayGA.Command = "Stop" PlayGA.Command = "Close" End If Select Case D_Signal Case "0" If PhoneLine.State_Xuly = "NGHE" Then Lê Bá Thiện Lớp Tin 99 Trang 68 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI Call StopWave ResRead.Delete ResRead.Update Read_BANTIN = "" Call PlayGA_Done(0) Endif Case "14" PhoneLine.bIsCalling = True Case "15" If PhoneLine.bIsCalling = True Then PhoneLine.cSM = PhoneLine.D_DTMF End If Case "20" PhoneLine.State_Line = "BUSY" Call Pro_Led PhoneLine.cSM = PhoneLine.D_DTMF PhoneLine.D_DTMF = "" PhoneLine.bIsCalling = False PhoneLine.cFileWave = "" Call PlayWave(PATH_TBAO + "tbao1.wav") Case "21" PlayGA.Command = "Stop" If PhoneLine.State_Line = "SAVE" Then PlayGA.Command = "Save" Call Save_Mail End If If PhoneLine.State_Line = "LIST" Then ResRead.Close End If PlayGA.Command = "Close" PhoneLine.State_Line = "IDLE" Call Pro_Led Case "11" If PhoneLine.State_Xuly = "NGHE" Then Call StopWave ResRead.MovePrevious Sleep (500) Read_BANTIN = "" Call PlayGA_Done(0) Else If Not PhoneLine.State_Line = "LIST" Then D_Signal = "*" PhoneLine.D_DTMF = PhoneLine.D_DTMF & D_Signal End If End If Case "12" Lê Bá Thiện Lớp Tin 99 Trang 69 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI If PhoneLine.State_Xuly = "NGHE" Then Call StopWave ResRead.MovePrevious Sleep (500) Read_BANTIN = "" Call PlayGA_Done(0) Else If Not (PhoneLine.State_Line = "LIST") Then D_Signal = "#" PhoneLine.D_DTMF = PhoneLine.D_DTMF & D_Signal Call Pro_Mail End If End If Case Else PhoneLine.D_DTMF = PhoneLine.D_DTMF & D_Signal End Select End Select End Sub ' Thủ tục ghi thông tin cuộc nhắn vào cơ sở dữ liệu Private Sub Save_Mail() ResMail.Open ResMail.AddNew ResMail!Mail_Box = Left(PhoneLine.cMailNo, 3) ResMail!Gio_BD = PhoneLine.cGio_Bd ResMail!File_Wave = PhoneLine.cFileWave ResMail!Status = PhoneLine.cStatus ResMail!SM = PhoneLine.cSM ResMail.Update Call Add_ListView ResMail.Close End Sub 'Thủ tục hiển thò một cuộc gọi trên ListView Private Sub Add_ListView() If ResMail!Status = "YES" Then Set item = ListView1.ListItems.Add(i, , CStr(ResMail!SM), 1, 1) Else Set item = ListView1.ListItems.Add(i, , CStr(ResMail!SM), 2, 1) End If item.SubItems(1) = Trim(ResMail!Mail_Box) item.SubItems(2) = Trim(ResMail!NGAY) item.SubItems(3) = Trim(CStr(ResMail!Gio_BD)) item.SubItems(4) = Trim(CStr(ResMail!Gio_KT)) ListView1.Refresh Lê Bá Thiện Lớp Tin 99 Trang 70 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI i = i + 1 End Sub ' Thủ tục xử lý khách hàng nhấn chức năng nhắn tin hoặc nghe tin Private Sub Pro_Mail() If InStr(1, PhoneLine.D_DTMF, "*", vbTextCompare) = 0 Then Exit Sub End If PhoneLine.D_DTMF = Mid(PhoneLine.D_DTMF, InStr(1, PhoneLine.D_DTMF, "*", vbTextCompare), Len(PhoneLine.D_DTMF) - InStr(1, PhoneLine.D_DTMF, "*", vbTextCompare) + 1) Label5.Caption = PhoneLine.D_DTMF If InStr(2, PhoneLine.D_DTMF, "*", vbTextCompare) < 1 Then If Len(PhoneLine.D_DTMF) > 4 Then PhoneLine.cMailNo = Mid(PhoneLine.D_DTMF, InStr(1, PhoneLine.D_DTMF, "*", vbTextCompare) + 1, InStr(2, PhoneLine.D_DTMF, "#", vbTextCompare) - 2) If Check_Mail_Pw(PhoneLine.cMailNo, "") Then PhoneLine.cGio_Bd = Time PhoneLine.cStatus = "NEW" PhoneLine.State_Line = "RECC" Call Pro_Led Call PlayWave(PATH_TBAO + "tbao2.wav") Else Call PlayWave(PATH_TBAO + "rec_kct.wav") End If End If Else If Len(PhoneLine.D_DTMF) > 5 Then PhoneLine.cMailNo = Mid(PhoneLine.D_DTMF, InStr(1, PhoneLine.D_DTMF, "*", vbTextCompare) + 1, InStr(3, PhoneLine.D_DTMF, "*", vbTextCompare) - 2) PhoneLine.cMailPw = Mid(PhoneLine.D_DTMF, InStr(3, PhoneLine.D_DTMF, "*", vbTextCompare) + 1, InStr(3, PhoneLine.D_DTMF, "#", vbTextCompare) - InStr(3, PhoneLine.D_DTMF, "*", vbTextCompare) - 1) If Check_Mail_Pw(PhoneLine.cMailNo, PhoneLine.cMailPw) Then PhoneLine.State_Line = "LIST" Call Pro_Led Call Out_Read_Mail Else Call PlayWave(PATH_TBAO + "list_kct.wav") End If End If End If PhoneLine.D_DTMF = "" Lê Bá Thiện Lớp Tin 99 Trang 71 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI End Sub ‘ Thủ tục hiển thò đèn trên giao diện khi khách hàng nghe tin hoặc nhắn tin Private Sub Pro_Led() Select Case PhoneLine.State_Line Case "IDLE" S_Led(2).BackColor = &H80000005 S_Led(3).BackColor = &H80000005 S_Led(4).BackColor = &H80000005 Case "BUSY" S_Led(2).BackColor = &HFF0000 S_Led(3).BackColor = &H80000005 S_Led(4).BackColor = &H80000005 Case "LIST" S_Led(2).BackColor = &HFF0000 S_Led(3).BackColor = &HFF0000 S_Led(4).BackColor = &H80000005 Case "RECC" S_Led(2).BackColor = &HFF0000 S_Led(3).BackColor = &H80000005 S_Led(4).BackColor = &HFF0000 End Select End Sub ‘Thủ rục chơi file wave có tên là cFile Private Sub PlayWave(ByVal cFile As String) PlayGA.Command = "Close" PlayGA.FileName = cFile PlayGA.Command = "Open" PlayGA.FileName = cFile PlayGA.Command = "Play" PhoneLine.IsPlay = True End Sub ‘ Thủ tục ghi âm thanh lời nhắn Private Sub RecordWave() Dim PathDir As String Dim PathDirT As String Dim cFileName As String PathDirT = DATA_PATH & "\T" & Trim(CStr(Month(Date))) & Trim(CStr(Year(Date))) & "\" dGiobd = Time cFileName = CreateFile() PathDir = GetPath(cFileName) CreateDir (PathDirT) Lê Bá Thiện Lớp Tin 99 Trang 72 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI CreateDir (PathDir) PhoneLine.cFileWave = cFileName PlayGA.Command = "Close" PlayGA.FileName = cFileName PlayGA.Command = "Open" PlayGA.Command = "Record" End Sub ‘ Thủ tục ngừng chơi file wave hoặc ghi âm thanh Private Sub StopWave() PlayGA.Command = "Save" PlayGA.Command = "Stop" PlayGA.Command = "Close" End Sub ‘Thủ tục tạo file tại thời điểm bắt đầu ghi. Private Function CreateFileWave() As String Dim PathDirM, PathDirT, PathDirN As String PathDirM = DATA_PATH & "\" & Trim(PhoneLine.cMailNo) PathDirT = PathDirM & "\T" & Trim(CStr(Month(Date))) & Trim(CStr(Year(Date))) PathDirN = PathDirT & "\" & Trim(CStr(Day(Date))) & Trim(CStr(Month(Date))) & Trim(CStr(Year(Date))) CreateDir (PathDirM) CreateDir (PathDirT) CreateDir (PathDirN) CreateFileWave = PathDirN & "\" & Trim(CStr(Hour(dGiobd))) & "h" & Trim(CStr(Minute(dGiobd))) & "p" & Trim(CStr(Second(dGiobd))) & ".wav" End Function ‘ Thủ tục tạo thư mục Private Sub CreateDir(ByVal sDir As String) If Not FileExists(sDir & "*.*") Then CreateFolder (sDir) End If End Sub ‘ Hàm lấy đường dẫn khi xác đònh được một file nào đó Private Function GetPath(ByVal sFile As String) As String Dim i As Integer i = InStrRev(sFile, "\") If i > 0 Then GetPath = Left$(sFile, i) End If Lê Bá Thiện Lớp Tin 99 Trang 73 [...]... rời rạc ‘ vd: 05 8822888” -> 0 5 8 8 2 2 8 8 8” Private Function SO_TEXT(ByVal cSDT As String) As String Dim cSDT_Text As String cSDT_Text = "" Do cSDT_Text = cSDT_Text + " " + Left(cSDT, 1) cSDT = Mid(cSDT, 2) Loop Until Len(cSDT) < 1 SO_TEXT = Trim(cSDT_Text) End Function 2 Form Quản lý hộp tin FINPUT.FRM a Giao diện Quản lý Hộp tin fInput.frm: Hình II.2 : Giao diện quản lý Hộp tin b Phần Code finput.frm... * “Bạn bấm *,# , 0 Đang ghi Tin nhắn Bấm 0 Nghe tin Trước Gác Máy? Xoá Tin Nghe tin Sau Chưa Nghe tin kế Gác Lưu Thông Tin Tin Nhắn vào CSDL Chưa Gác Máy? Gác Lê Bá Thiện Lớp Tin 99 Trang Kết Thúc 83 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI Diễn giải: • Khi Khách hàng muốn nhắn tin, khách hàng thực hiện các bước sau: - Khách hàng quay số điện thoại vào hộp thư thoại... tục Pro_Mail: Yes? D_DTMF có 2 "*"? No? Lưu Hộp tin vào cMailNo Lưu Password vào cMailPw Lưu Hộp tin vào cMailNo No? No? Có đúng hộp tin? Yes? Yes? Phát câu thông báo 2 "Bắt đầu ghi âm sau tiếng beep" Ghi âm Lê Bá Thiện Lớp Tin 99 Có đúng hộp tin, PW? Phát câu thông báo 3 "Ko đúng Hộp tin và PW" D_DTMF = "" Trang Kết Thúc Lấy CSDL các hộp tin lưu vào ResRead State_Xuly = "NGHE" Phát Từng tự bản tin... Boolean Dim bDung As Boolean bDung = False If Len(Trim(cMailBox)) > 0 Then ResKT.Source = "SELECT * FROM HOPTHU WHERE MAIL = '" + cMailBox + "'" End If If Len(Trim(cPw)) > 0 Then ResKT.Source = ResKT.Source + "AND PW = '" + cPw + "'" End If ResKT.Open If ResKT.RecordCount > 0 Then bDung = True End If ResKT.Close Lê Bá Thiện Lớp Tin 99 Trang 76 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM... HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_NOACTIVATE = &H 10 Public Const SWP_SHOWWINDOW = &H 40 Public Const DATA_PATH = "C:\HOPTHU\DATA" Global Const SND_ASYNC = &H1 Global Const SND_NODEFAULT = &H2 Global Const SND_MEMORY = &H4 Global Const SND_SYNC = &H0 Global Const SND_LOOP = &H8 Global Const SND_NOSTOP = &H 10 ‘Hàm nhận 1 file trả về kích thước của file đó Public Function FileLen(ByVal... phím 0 thì xoá tin nhắn đó - Event 'Khi có dữ liệu vào Sau khi nghe tin nhắn xong, khách hàng gác máy là kết thúc quá trình nghe tin nhắn d_signal = Trim(CStr(ASC(MSCOM1.input))) d_signal = "*"? Yes? Chạy Thủ tục "*" No? b Thuật toán Chương trình Voice Mail Service: Yes? Chạy Thủ tục "#" d_signal = "#"? No? d_signal = "14"? Yes? Chạy Thủ tục "14" Yes? Chạy Thủ tục "15" Yes? Chạy Thủ tục " 20" Yes?... Thủ tục "#" d_signal = "#"? No? d_signal = "14"? Yes? Chạy Thủ tục "14" Yes? Chạy Thủ tục "15" Yes? Chạy Thủ tục " 20" Yes? Chạy Thủ tục "21" Yes? Chạy Thủ tục "0" No? d_signal = "15"? No? d_signal = " 20" ? No? d_signal = "21"? No? d_signal = "0" ? No? D_DTMF = D_DTMF + D_signal Lê Bá Thiện Lớp Tin 99 Trang Kết Thúc 85 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI Thủ tục Khi... phía trước ResRead.MovePrevious D_DTMF = D_DTMF + "*" Phát Bản tin Kết Thúc Lê Bá Thiện Lớp Tin 99 Trang 86 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI Thủ tục Khi nhấn phím "0" : Bắt Đầu State_Xuly = "NGHE" No? Yes? Xoá bản tin hiện tại ResRead.Delete DTMF = D_DTMF + "0" Phát Bản tin Kết Thúc Thủ tục Khi nhận giá trò "14": Bắt Đầu bIsCalling = True BắtKếtu Đầ Thúc Thủ tục... phía trước Private Sub CmdPrev_Click() If ResBox.RecordCount = 0 Then Exit Sub End If ResBox.MovePrevious If ResBox.BOF Then ResBox.MoveFirst End If Call View_Refresh End Sub ‘ Thủ tục save mẫu tin mới hoặc chỉnh sửa Private Sub CmdSave_Click() If Len(TxtMail.Text) > 3 Or Len(TxtMail.Text) = 0 Or Len(TxtPW.Text) > 3 Or Len(TxtPW.Text) = 0 Then MsgBox "B¹n h·y xem l¹i D÷ liƯu nhËp vµo kh«ng ®óng! ",... End Type Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long Lê Bá Thiện Lớp Tin 99 Trang 81 ĐỒ ÁN TỐT NGHIỆP SỬ DỤNG GIAO TIẾP CỔNG COM VÀ SOUD CARD LÀM HỘP THƯ THOẠI dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type . = &H 800 000 05 S_Led(3).BackColor = &H 800 000 05 S_Led(4).BackColor = &H 800 000 05 Case "BUSY" S_Led(2).BackColor = &HFF 000 0 S_Led(3).BackColor = &H 800 000 05 S_Led(4).BackColor. THOẠI II. PHẦN MỀM VISUAL BASIC VOICE MAIL SERVICE Phần mền được viết bằng ngôn ngữ Visual Basic 6. 0 và quản lý CSDL bằng Microsoft Access 97. Chương trình sử dụng Active X Microsoft Comm Control 6. 0. S_Led(4).BackColor = &H 800 000 05 Case "LIST" S_Led(2).BackColor = &HFF 000 0 S_Led(3).BackColor = &HFF 000 0 S_Led(4).BackColor = &H 800 000 05 Case "RECC" S_Led(2).BackColor