نحوه ی ارتباط با ماژول بیسیم SIM20

[ravegoat]

براي برنامه نويسي ماژول SIM20 از VB.NET استفاده مي كنيم. ابتدا يك كاپوننت SerialPort را بر روي فرم اصلي برنامه قرار مي دهيم و مقدار BaudRate آن را از طريق پنجره ي Propeties برابر 115200 تعيين مي كنيم.
كد زير در صورت قطع بودن اتصال SerialPort1، نام پورت اتصال را از راه TextBox1 دريافت كرده و اتصال را آغاز مي كند. در صورت وصل بودن ارتباط، كد اتصال را قطع مي كند:

    
Try 
  
If SerialPort1.IsOpen = False Then
  
 SerialPort1.PortName = TextBox1.Text 
  
SerialPort1.Open()
  
 Else 
  
SerialPort1.Close()
  
 End If 
  
Catch ex As Exception 
  
 MsgBox(ex.Message, 48)
  
End Try 

AT Command براي ارسال داده (حداكثر 60 بايت):

AT+SRDSEND=<DID>,”YOUR DATA HERE”

تابع ارسال فرمان:

    Sub CommandSender(ByVal DestID As Byte, ByVal command As String) 
          Try 
              'Chr(13) = Enter Key ; Chr(34) = " 
              SerialPort1.WriteLine("AT+SRDSEND=" + CStr(DestID) + "," + _ 
          Chr(34) + command + Chr(34) + Chr(13)) 
          Catch ex As Exception 
              MsgBox(ex.Message, 48) 
          End Try 
  End Sub
    
  

تابع پيكره بندي:

    Sub ModConfig(ByVal SID As Byte, ByVal CID As Byte, ByVal CHA As Byte _ 
      , ByVal DATAR As Byte, ByVal DID As Byte) 
          SerialPort1.WriteLine("AT+SRDSID=" + CStr(SID) + Chr(13)) 
          SerialPort1.WriteLine("AT+SRDCID=" + CStr(CID) + Chr(13)) 
          SerialPort1.WriteLine("AT+SRDCHA=" + CStr(CHA) + Chr(13)) 
          SerialPort1.WriteLine("AT+SRDDATAR=" + CStr(DATAR) + Chr(13)) 
          SerialPort1.WriteLine("AT+SRDDID=" + CStr(DID) + Chr(13)) 
  End Sub

  
  

تابع تغيير CID به صورت Remote:

    Sub RCIDConf (ByVal DID As Byte, ByVal CID As Byte) 
   SerialPort1.WriteLine("AT+SRDDID=" + CStr(DID) + Chr(13)) 
   SerialPort1.WriteLine("AT+SRDCONREMOTE=1" +Chr(13)) 
   SerialPort1.WriteLine("AT+SRDCID=" + CStr(CID) + Chr(13)) 
   SerialPort1.WriteLine("AT+SRDCONREMOTE=0" +Chr(13)) 
  End Sub
  
  

ست كامل فرمان هاي ماژول پيوست شده است.