Programing

การเขียนโปรแกรม วิชวลเบสิค เพื่อควบคุมเครื่องโทรศัพท์มือถือ

ปัจจุบันโทรศัพท์มือถือได้กลายเป็นส่วนหนึ่งของชีวิตประจำวันไปแล้ว จนทุกคนสามารถจะติดต่อสื่อสารได้ง่ายดายสะดวกทุกเวลา-สถานที่

แต่ในบางครั้งเราก็อาจมีความจำเป็นที่ไม่ต้องการที่จะรับสาย หรือไม่สะดวกในการรับสายบ้าง เช่น ขณะกำลังสนทนาธุระที่สำคัญ

ขณะทำธุรกิจส่วนตัว หรือ กำลังอาบน้ำ และการปิดเครื่องโทรศัพท์มือถือชั่วคราวหรือไม่รับสายนั้น อาจทำให้ผู้ที่ติดต่อมานั้นหงุดหงิดขึ้นมาได้

วิธีแก้ไขกรณีเช่นนี้ก็อาจฝากเครื่องกับผู้อื่นรับสายแทน ถ้าเป็นเครื่องโทรศัพท์บ้านก็มีเครื่องตอบรับโทรศัพท์ทำงานแทนได้

แต่ถ้าเป็นเครื่องโทรศัพท์มือถือเราจะทำอย่างไร จึงเกิดแนวคิดว่า ก็ฝากให้เครื่องคอมพิวเตอร์รับสายแทนเราซิ

เพราะคอมพิวเตอร์สมัยนี้ทำงานในระบบมัลติมีเดียอยู่แล้ว ยิ่งสะดวก ในการโปรแกรมให้ คอมพิวเตอร์รับสาย พูด "ฮัลโล สวัสดีครับ

นี่คือเครื่องตอบรับอัตโนมัติ ขณะนี้ผมลังติด... กรุณาโทรมาอีกครั้งเวลา ....ขอบคุณ สวัสดีครับ" แล้วก็วางสาย อย่างนี้เป็นต้น

สำหรับท่านที่จะทำโครงงานนี้จำเป็นต้องมีความรู้ 3 อย่างคือ

1 สามารถประกอบตามวงจร อิเลคทรอนิคส์ ได้บ้าง

2 สามารถเขียนโปรแกรม VISUAL BASIC ได้บ้าง

3 รู้คำสั่งควบคุมพื้นฐานของโทรศัพท์มือถือ ( AT COMMANDS )

ขั้นแรกสร้าง ตัว INTERFACE สำหรับ ต่อคอมพิวเตอร์เข้ากับเครื่องโทรศัพท์มือถือตามวงจร นี้ มีตัวเสียบเข้าคอมพิวเตอร์อยู่ 3 จุด คือ DB9

เสียบเข้ากับ COM PORT1 และมีแจ็คเสียบอีก 2 ตัวเข้ารูเสียบลำโพงของคอม. เพื่อให้เสียงตอบรับจากคอม.เข้าสู่เครื่องโทรศัพท์มือถือ

ให้ผู้ที่โทรเข้ามาได้ยินเสียง จึงต้องปรับแต่งเสียงของคอม.ให้พอเหมาะด้วย แจ็คอีกตัวจะเสียบเข้ารูไมโครโฟนของคอม.

เผื่อไว้สำหรับคราวหน้าจะเขียนโปรแกรมเพิ่มในการให้ผู้ที่โทรเข้ามาสามารถบันทึกฝากข้อความเก็บไว้ในคอม.ได้ด้วย สำหรับโปรแกรมและวงจร

INTERFACE นี้ได้ทดลองแล้วกับเครื่องโทรศัพท์ยี่ห้อ ERICSSON รุ่น T10-18 ทำงานได้เป็นอย่างดี และยังสามารถใช้ได้กับโปรแกรมแก้ IMEI

ATR5.3 ได้อีกด้วย โดยจั้มจุด J1

ขั้นตอนที่ 2 ตัวอย่างโปรแกรมง่าย ๆ

ดาวน์โหลด โค๊ด Project1.zip

            หน้าตาของ Form

Option Explicit

' ใช้ฟังชั่นนี้สำหรับ เล่นไฟล์เสียง

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Public Ring As Boolean  ' จะเป็นสถานะจริงถ้ามีกริ่งเรียกเข้า

Public Speak As Variant ' ตัวแปรสำหรับเก็บไฟล์เสียงขณะเล่น

' เมื่อเปิดโปรแกรมเริ่มจัดเตรียม COM PORT 1 สำหรับติดต่อกับเครื่องโทรศัพท์มือถือ

Private Sub Form_Load()

MSComm1.Settings = "9600,N,8,1"  ' ตั้งรูปแบบของการรับส่งข้อมูล

MSComm1.CommPort = 1                   ' จะใช้ COM PORT 1 ถ้าจะใช้ COM PORT 2 ก็เปลี่ยนตรงนี้

MSComm1.InputLen = 0                       ' รับข้อมูลทั้งหมดถ้ามีการส่งข้อมูลมา

MSComm1.PortOpen = True              ' เปิด PORT ให้เริ่มทำงาน

MSComm1.RThreshold = 1                 ' เริ่มดักสัญญาณข้อมูล

End Sub

' โปรแกรมตรวจดักถ้ามีข้อมูลส่งเข้ามา

Private Sub MSComm1_OnComm()

Dim StrData As String

StrData = MSComm1.Input

    If Mid$(StrData, 3, 4) = "RING" Then Ring = True ' ถ้าเป็นสัญญาณกริ่ง ให้ตัวแปร Ring เป็นจริง = True

End Sub

' โปรแกรมหลักคลิกเพื่อรอรับสายอัตโนมัติ

Private Sub Command1_Click()

Cls

Print "  ----------------- กำลังรอรับสาย-----------------" ' พิมพ์ข้อความนี้บน Form

   Do While DoEvents  ' คอยเฝ้าวนอยู่ตลอดเวลา

        If Ring = True Then    ' ถ้ามีกริ่งเรียกเข้าให้ทำต่อไปนี้

            MSComm1.Output = "ATA" + vbCrLf  ' ยกหู รับสาย

            Speak = mciExecute("play c:\Answer.wav")   ' แล้วเริ่มเล่นไฟล์เสียง ที่ถูกบันทึกแล้วที่ C:\

            Call Delay(14)     ' ไปโปรแกรมย่อยเพื่อรอ 14 วินาที ตามความยาวของไฟล์เสียง

            MSComm1.Output = "ATH" + vbCrLf  ' วางสาย

            Ring = False  ' ทำให้สถานะ Ring เป็นเท็จ

        End If

   Loop  ' กลับไปเฝ้าถ้ามีกริ่งเรียกเข้าต่อไป

End Sub

' โปรแกรมย่อย หยุดรอตามกำหนด

Private Sub Delay(Dlong As Single)

Dim Oldtime As Single

Oldtime = Timer + Dlong

Do

    ' รออยู่เฉย ๆ จนถึงครบเวลา

Loop Until Timer > Oldtime

End Sub

' โปรแกรมคลิกเพื่อเลิกการทำงาน

Private Sub Command2_Click()

End

End Sub

ขั้นตอนที่ 3 ทำความเข้าใจ AT COMMANDS

AT COMMANDS คือชุดคำสั่งที่ใช้ในการติดต่อกับเครื่องโทรศัพท์ระบบ GSM หรือ MODEM ด้วยรูปแบบส่งข้อมูลลำดับ Serial

มักจะใช้ความเร็วและรูปแบบต่างกันแล้วแต่ยี่ห้อ แต่ส่วนมากมักจะเป็น ความเร็ว 9600 b/s ไม่มีพาริตี้ 8 บิต 1 บิตหยุด

การติดโดยส่งรหัสตัวอักษรที่ขึ้นต้นด้วย AT+คำสั่ง ตามด้วย รหัส Cr + Lf (Return)+(LineFeed) สำหรับรหัส Cr Lf มีอยู่ใน VISUAL BASIC

อยู่แล้วคือ vbCrLf ยกตัวอย่างเช่นถ้าส่งอักษรตามนี้ไปยังเครื่องโทรศัพท์มือถือ "ATD018872153;"+vbCrLf ก็จะหมายถึงให้เครื่องโทรออกหมายเลข

018872153 ครับ ถ้ามีอักษร "---RING" ส่งมาจากเครื่องโทรศัพท์มือถือก็หมายถึงมีกริ่งหรือมีคนโทรเข้ามา ถ้าส่ง "ATA"+vbCrLf

ขณะที่มีสัญญาณกริ่งเข้ามา ก็หมายถึงสั่งให้เครื่องมือถือรับสาย และ "ATH"+vbCrLf หมายถึงวางสายครับ

ดูรายละเอียดคำสั่งต่าง ๆ เพื่อจะได้มีแนวความคิดในการเขียนโปรแกรมได้มากขึ้น

ต่อไปนี้เป็นคำสั่งโดยย่อ ๆ แบ่งตามโหมดหมู่

GSM AT Commands

Functional Groups

1. Call Control

ATA   Answer Command
ATD   Dial Command
ATH   Hang Up Call
ATL   Monitor Speaker Loudness
ATM   Monitor Speaker Mode
ATO   Go On-Line
ATP   Set Pulse Dial as Default
ATT   Set Tone Dial as Default
AT+CSTA    Select Type of Address
AT+CRC   Cellular Result Codes

2. Data Card Control Commands

ATI   Identification
ATS   Select an S-register
ATZ   Recall Stored Profile
AT&F   Restore Factory Settings
AT&V   View Active Configuration
AT&W   Store Parameters in Given Profile
AT&Y   Select Set as s Powerup Option
AT+CLCK   Facility Lock Command
AT+COLP   Connected Line Identification Presentation
AT+GCAP   Request Complete Capabilities List
AT+GMI   Request Manufacturer Identification
AT+GMM   Request Model Identification
AT+GMR   Request Revision Identification
AT+GSN   Request Product Serial Number Identification

3. Phone Control Commands

AT+CBC   Battery Charge
AT+CGMI   Request Manufacturer Identification
AT+CGMM   Request Model Identification
AT+CGMR   Request Revision Identification
AT+CGSN   Request Product Serial Number Identification
AT+CMEE   Report Mobile Equipment Error
AT+CPAS   Phone Activity Status
AT+CPBF   Find Phone Book Entries

AT+CPBR   Read Phone Book Entry
AT+CPBS   Select Phone Book Memory Storage
AT+CPBW   Write Phone Book Entry
AT+CSCS   Select TE Character Set
AT+CSQ   Signal Quality

4. Computer Data Card Interface Commands

ATE   Command Echo
ATQ   Result Code Suppression
ATV   Define Response Format
ATX   Response Range Selection
AT&C   Define DCD Usage
AT&D   Define DTR Usage
AT&K   Select Flow Control
AT&Q   Define Communications Mode Option
AT&S   Define DSR Option
AT+ICF   DTE-DCE Character Framing
AT+IFC   DTE-DCE Local Flow Control
AT+IPR   Fixed DTE Rate

5. Reporting Options Commands
AT+CLIP   Calling Line Identification Presentation
AT+CR   Service Reporting Control
AT+DR   Data Compression Reporting
AT+ILRR   DTE-DCE Local Rate Reporting

6. Network Communication Parameter Commands

ATB   Communications Standard Option
AT+CBST   Select Bearer Service Type
AT+CEER   Extended Error Report
AT+CRLP   Radio Link Protocol
AT+DS   Data Compression

7. Miscellaneous Commands

A/   Re-Execute Command Line
AT?   Command Help
AT*C   Start SMS Interpreter
AT*T   Enter SMS Block Mode Protocol
AT*V   Activate V.25bis Mode
AT*NOKIATEST   Test Command
AT+CESP   Enter SMS Block Mode Protocol

8. SMS Commands SMS Text Mode

AT+CSMS   Select Message Service
AT+CPMS   Preferred Message Storage
AT+CMGF   Message Format
AT+CSCA   Service Centre Address
AT+CSMP   Set Text Mode Parameters
AT+CSDH   Show Text Mode Parameters
AT+CSCB   Select Cell Broadcast Message Types
AT+CSAS   Save Settings
AT+CRES   Restore Settings
AT+CNMI   New Message Indications to TE
AT+CMGL   List Messages
AT+CMGR   Read Message
AT+CMGS   Send Message
AT+CMSS   Send Message from Storage
AT+CMGW   Write Message to Memory
AT+CMGD   Delete Message

SMS PDU Mode

AT+CMGL   List Messages
AT+CMGR   Read Message
AT+CMGS   Send Message
AT+CMGW   Write Message to Memory

สำหรับไฟล์ Answer.wav เป็นไฟล์เสียงพูดตอบรับ ผมใช้โปรแกรมที่อยู่บน WINDOWS คือ Sound Recorder

บันทึกเสียงแล้ว Save ไว้ที่ C:\ ขั้นตอนนี้ต้องทำก่อนรันโปรแกรม Project1 นะครับ และเครื่องโทรศัพท์ใช้ ยี่ห้อ

ERICSSON รุ่น T10-T18 ครับ สำหรับยี่ห้ออื่นคงต้องศึกษาคำสั่ง AT Commaned และข้อแตกต่างของเครื่องรุ่นนั้น ๆ ก่อน

หวังว่าท่านที่อ่านโครงงานนี้คงจะนำแนวคิดนี้ไปพัฒนาให้เป็นประโยชน์มากขึ้นนะครับ สวัสดี

ตั้งชื่อโครงงานที่สำเร็จนี้ว่า Alert Rider เวอร์ชั่น 1.0