P
potetojb
Guest
أريد إرسال وفي لسوني اريكسون T610 الخامس باء 6 من المسلسل أو استخدام كابل بيانات..
ش لا يمكن أن تساعدني..إعطاء فكرة أو شيء
ش لا يمكن أن تساعدني..إعطاء فكرة أو شيء
Navigation
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
More options
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A
adelmon
Guest
عليك أن تكون قادرا على القراءة والكتابة لتنسجم (RS232) للكمبيوتر من VB6.
هناك الكثير من مكونات ورموز عينة في جميع أنحاء الشبكة.
بعد أن كنت قادرا على استخدام المنفذ التسلسلي من VB6 كل ما عليك فعله هو ارسال سلسلة الأوامر إلى المودم مع حرف إرجاع في نهاية المطاف.
كما سبيل المثال ؛
وفي <cr>
هناك الكثير من مكونات ورموز عينة في جميع أنحاء الشبكة.
بعد أن كنت قادرا على استخدام المنفذ التسلسلي من VB6 كل ما عليك فعله هو ارسال سلسلة الأوامر إلى المودم مع حرف إرجاع في نهاية المطاف.
كما سبيل المثال ؛
وفي <cr>
P
potetojb
Guest
أشكر
adelmon
ش ط ذات الصلة على الانترنت لدراسة حول هذا الموضوع.
ط البحث عنه في ياهو ولكن غير قادر على العثور..
adelmon
ش ط ذات الصلة على الانترنت لدراسة حول هذا الموضوع.
ط البحث عنه في ياهو ولكن غير قادر على العثور..
G
Guest
Guest
[No message]
A
adelmon
Guest
وقد اطلع على الرابط أدناه.
أنها يمكن أن تكون نقطة البداية بالنسبة لك.
http://www.lvr.com/serport.htm
أنها يمكن أن تكون نقطة البداية بالنسبة لك.
http://www.lvr.com/serport.htm
P
potetojb
Guest
أشكر
adelmon..
الآن وأنا أحاول أن ترسل في الأوامر باستخدام رموز..ان برنامجي.
ولكن لدي مشكلة أنني لا أعرف لماذا جي اس غير قادر على عرض في النص..ط شيء لدينا بعض المشاكل.
هذا البرنامج لا أميل قليلا الخطأ ليس فقط عرض الإخراج
ش لا يمكن التحقق من البرنامج بالنسبة لي.
ط الجديد حقا في vb6
خاصة الفرعية Command1_Click ()
خافت باسم سلسلة الرسائل القصيرة
خافت العازلة $
MSComm1.CommPort = 1
MSComm1.Settings = "9600 ، ن ، 8،1"
MSComm1.InputLen = 0
MSComm1.Handshaking = comNone
MSComm1.PortOpen = صحيح
'صدى قبالة
MSComm1.Output = "ATE0" لجنة حقوق الانسان & $ (13)
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، "موافق")
العازلة $ = ""
'تقرير المعدات المنقولة خطأ (تمكين)
MSComm1.Output = "في CMEE = 1 " لجنة حقوق الانسان & $ (13)
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، "موافق")
العازلة $ = ""
'وحصل على قراءة الرسالة
MSComm1.Output = "في CMGR = 1 " لجنة حقوق الانسان & $ (13)
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، " CMGR : 1 ، ، 159")
العازلة $ = ""
الرسائل القصيرة = MSComm1.Input
Text1.Text = الرسائل القصيرة
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، "موافق")
MSComm1.PortOpen = الكاذبةنهاية الفرعيةإذا كنت تستخدم المحطة الطرفية لإخراج مثل هذا
'إذا كان استخدام المحطة الطرفية لإخراج الأمر مثل أدناه
'وفي CMGR = 1
' CMGR : 1 ، ، 159
'07910621000010F5240B910621671663F1000060104222334423A0C2E030088232834E19C8049A06
'9BC2AAF3B87482905569D5E8CC06750A625A0F0AB7C32037B90E62D7D761103B3C4F83C46190B8EE'9 E87D7207A1A5E9683CEE97619E41E8741F2F43A4D0785C5F3FA18949E97C96190FBBC0E83DCE230
'485C77CFCB20F739CC9E97C9A0B0FB3C07A5C5F575BB0C729FCB6A50985E6783D2F3B03B0D72A75D
'E8301A1446875D
أشكر
adelmon..
الآن وأنا أحاول أن ترسل في الأوامر باستخدام رموز..ان برنامجي.
ولكن لدي مشكلة أنني لا أعرف لماذا جي اس غير قادر على عرض في النص..ط شيء لدينا بعض المشاكل.
هذا البرنامج لا أميل قليلا الخطأ ليس فقط عرض الإخراج
ش لا يمكن التحقق من البرنامج بالنسبة لي.
ط الجديد حقا في vb6
خاصة الفرعية Command1_Click ()
خافت باسم سلسلة الرسائل القصيرة
خافت العازلة $
MSComm1.CommPort = 1
MSComm1.Settings = "9600 ، ن ، 8،1"
MSComm1.InputLen = 0
MSComm1.Handshaking = comNone
MSComm1.PortOpen = صحيح
'صدى قبالة
MSComm1.Output = "ATE0" لجنة حقوق الانسان & $ (13)
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، "موافق")
العازلة $ = ""
'تقرير المعدات المنقولة خطأ (تمكين)
MSComm1.Output = "في CMEE = 1 " لجنة حقوق الانسان & $ (13)
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، "موافق")
العازلة $ = ""
'وحصل على قراءة الرسالة
MSComm1.Output = "في CMGR = 1 " لجنة حقوق الانسان & $ (13)
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، " CMGR : 1 ، ، 159")
العازلة $ = ""
الرسائل القصيرة = MSComm1.Input
Text1.Text = الرسائل القصيرة
يفعل
DoEvents
العازلة الفاصلة $ = $ & MSComm1.Input
حلقة حتى InStr (العازلة $ ، "موافق")
MSComm1.PortOpen = الكاذبةنهاية الفرعيةإذا كنت تستخدم المحطة الطرفية لإخراج مثل هذا
'إذا كان استخدام المحطة الطرفية لإخراج الأمر مثل أدناه
'وفي CMGR = 1
' CMGR : 1 ، ، 159
'07910621000010F5240B910621671663F1000060104222334423A0C2E030088232834E19C8049A06
'9BC2AAF3B87482905569D5E8CC06750A625A0F0AB7C32037B90E62D7D761103B3C4F83C46190B8EE'9 E87D7207A1A5E9683CEE97619E41E8741F2F43A4D0785C5F3FA18949E97C96190FBBC0E83DCE230
'485C77CFCB20F739CC9E97C9A0B0FB3C07A5C5F575BB0C729FCB6A50985E6783D2F3B03B0D72A75D
'E8301A1446875D
أشكر