تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجوكم احد يساعدني : بحثت بشكل كبير ولم أجد اي معلومة
#1
سأشرح طلبي بشكل واضح :

[COLOR="#FF0000"][SIZE=5]أريد كود بحيث يتم طلب الرقم الموجود بـ textbox1 عبر المودم
أي كأني استعمل الهاتف فقط ....
ومع هذا بحثت مطولاً ولم أجد أي شيئ
[/SIZE][/COLOR]


للتوضيح



[ATTACH=CONFIG]1538[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
أخي الكريم
الطريقة سهلة بإذن الله
المهم أن يكون لديك مودم في الجهاز وأن تعرف رقم المنفذ الخاص فيه قد يكون COM1 إلى COM12
أما إذا لم تكن تعرف رقم المنفذ فقم بتجربة المنافذ إلى أن تتوصل إلى المنفذ الصحيح
أخيرا قم بإضافة أداة SerialPort إلى الفورم
ثم ضع هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.Write("ATDT" & TextBox1.Text & Chr(13))
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SerialPort1.PortName = "COM1"    'اسم المنفذ قم بتغييره إلى الرقم الصحيح إذا لم يعمل
        SerialPort1.Open()
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
أخي الكريم
الطريقة سهلة بإذن الله
المهم أن يكون لديك مودم في الجهاز وأن تعرف رقم المنفذ الخاص فيه قد يكون COM1 إلى COM12
أما إذا لم تكن تعرف رقم المنفذ فقم بتجربة المنافذ إلى أن تتوصل إلى المنفذ الصحيح
أخيرا قم بإضافة أداة SerialPort إلى الفورم
ثم ضع هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.Write("ATDT" & TextBox1.Text & Chr(13))
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SerialPort1.PortName = "COM1"    'اسم المنفذ قم بتغييره إلى الرقم الصحيح إذا لم يعمل
        SerialPort1.Open()
    End Sub

بالتوفيق






بارك الله فيك أخي الكريم لا أعرف كيف اعبر لك عن شكري , ولله ريحتني
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,717 24-01-24, 10:31 PM
آخر رد: annagui
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
Rainbow [كود] معرفه حجم كل المجلدات في القرص C بشكل واضح محمد مسافر 7 409 10-09-23, 01:56 AM
آخر رد: أبو خالد الشكري
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel
  شركة somee.com متوقف هل احد لديه معلومة nabil.1710 5 656 21-04-23, 06:40 AM
آخر رد: foo
Rainbow [كود] قراءه العدد بشكل صحيح من قاعده البيانات اكسس محمد مسافر 13 1,166 27-03-23, 10:48 PM
آخر رد: sanyor77
  [vb6.0] مساعدة في تثبت الفيجول بيسك بشكل صحيح ودمجه مع الكريستل ريبورت نورالدين محمد الغذيفي 0 382 14-03-23, 07:29 PM
آخر رد: نورالدين محمد الغذيفي
  [سؤال] الخصم من راتب الموظف بشكل تلقائي نهاية كل شهر ... Aisha fa 1 522 09-11-22, 10:30 PM
آخر رد: Amir_Alzubidy
  اى معلومة تخص الربط مع هيئة الزكاه والدخل talaattito 1 896 26-10-22, 02:30 AM
آخر رد: AmrSobhy
Wink التعديل على كود استدعاء بيانات الصنف بشكل متسلسل momani33 3 740 12-09-22, 09:00 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم