المشاركات : 24
المواضيع 6
الإنتساب : Sep 2013
السمعة :
0
الشكر: 10
تم شكره 3 مرات في 2 مشاركات
استعملت mscomm32 للاتصال ب 3g usb modem نجحت معي اوامر ارسال الرساله النصيه مع نوعيم مختليفن من الاجهزه ولكن كود الاتصال برقم نجح في جهاز واحد ولكن المشكله عندي هي استعمال اكواد ussd وكيفيه استقبال رد الشبكه مثل #100# حاول ان اضع الكود في ترميز pdu gsm 7bit
ونجح معي الارسال ولكن في الاستقبال كيف اجعل التطبيق يحول الترميز ويفكه
المشاركات : 3
المواضيع 1
الإنتساب : Nov 2014
السمعة :
1
الشكر: 0
تم شكره 2 مرات في 1 مشاركات
13-11-14, 01:47 PM
(آخر تعديل لهذه المشاركة : 22-11-14, 07:08 PM {2} بواسطة Seif17.)
أصف Serialport و Textbox لعرض النتائج
صع في خصائص الـــ serialport
Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles Serialport1.DataReceived
ReceivedText(Serialport1.ReadExisting())
End Sub
Private Sub ReceivedText(ByVal [text] As String) 'input from ReadExisting
If Me.TextBox1.InvokeRequired Then
Dim x As New SetTextCallback(AddressOf ReceivedText)
Me.Invoke(x, New Object() {(text)})
Else
Me.TextBox1.Text &= [text] 'append text
End If
End Sub
ثم أضف button وصع الآكشن كالتالي :
On Error Resume Next
With Serialport1
.PortName = Comstar.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Handshake = IO.Ports.Handshake.None
.RtsEnable = True
.ReceivedBytesThreshold = 100
.NewLine = vbCr
.ReadTimeout = 100000
.Open()
Console.WriteLine("Open the serial port.")
End With
' Send USSD Command
Serialport1.Write("ATDT," & Chr(34) & "*100#" & Chr(34) & ",15" + Chr(13))
Console.WriteLine("Read the OK response data in the serial port.")
Serialport1.Encoding.GetDecoder()
If Serialport1.ReadExisting = "OK" Then
Serialport1.NewLine = "1"
End If
' Response should be OK
Dim strResponse2 As String
strResponse2 = Serialport1.ReadExisting.Length
' Wait for response
ستعرض الشبكة لك خيارات يمكنك الرد بالتالي :
' Send réponse 2
Serialport1.newline = "ATDT" & Chr(34) & "*100#" & Chr(34) & ",15" + Chr(13)
Console.WriteLine("Read the OK response data in the serial port.")
Serialport1.Encoding.GetDecoder()
If Serialport1.ReadExisting = "OK" Then
Serialport1.NewLine = "1"
End If
' Response should be OK
Dim strResponse2 As String
strResponse2 = Serialport1.ReadExisting.Length
' Wait for response
ملاحظة : Comstar.Text هي Combox ويجب أن تضع كود الخاص بإضافة كل البورت المفتوح لها
المشاركات : 3
المواضيع 0
الإنتساب : Jan 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
محتاج مساعدتكم بموضووووووع جداااااا مهم ارجو الرد رجاءا من يمتلك معلومه لا يبخل بها
اريد تطبيقات على التحكم بالمنفذ التسلسلي rs232 ارسال البيانات واستقبالها بالفجوال بيسك 6
شاكرا مروركم على المشاركة واشكركم على المساعدة مقدما