السلام عليكم
بعد جهد من البحث والسؤال وجدت هذا الكود ولكن تم التعديل عليه من قبلي يعني تعديلات بسيطة للجعله يعمل على المودم الموجود عندي
تم كتابة الكود في برنامج الفيجول بيسك دوت نت 2008 وتم التنفيذ بدون أخطاء ولكن لم تظهر نتيجة
Dim comSerial As New System.IO.Ports.SerialPort
Dim atcCommand As String
With comSerial
.PortName = "COM4"
.BaudRate = "9600"
.StopBits = IO.Ports.StopBits.One
.DataBits = 8
.Parity = IO.Ports.Parity.None
.ReadBufferSize = 10000
.ReadTimeout = 1000
.WriteBufferSize = 10000
.WriteTimeout = 10000
.RtsEnable = True
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.NewLine = vbCrLf
.Open()
.DiscardOutBuffer()
End With
'this is the set of AT commands to be written on serial port
comSerial.WriteLine("AT")
'set command message format to text mode(1)
comSerial.WriteLine("AT+CMGF=1" & vbCrLf)
'set service center address (which varies for service providers (idea, airtel))
comSerial.WriteLine("AT+CSCA=""+967715800000""" & vbCrLf)
' enter the mobile number whom you want to send the SMS
comSerial.WriteLine("AT+CMGS= + TextBox1.text + " & vbCrLf)
comSerial.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) 'SMS sending
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
مما قرأته انه للتعامل مع مودم ال GSM لا بد من أوامر AT command وهذا الذي حصلت عليه شروحات مباركة من هذا المنتدى لهذه الأومر ولكن لم أجد أي تطبيق عملي
مشرف المشروع قال انه في بعض الأدوات اللازمة للتعامل مع الرسائل القصيرة ومن هذه الأدوات mCoreLib تم تثبيت هذه الأداة على الجهاز ومرفق مع الأداة مثال مصمم بالفيجول دوت نت 2008 واشتغل البرنامج ولكن عند عمل اتصال مع المودم لا يقبل الاتصال ..
الذي أريده هل الكود المرفق صحيح أم يحتاج إلى تعديل ؟؟؟ وهل الأداة اللي تكلم عليها المشرف ضرورية وإذا كانت ضرورية هل هذه مناسبة ام أبحث عن بديل ؟؟؟
أفيدوني بارك الله في علمكم
