منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجوكم احد يساعدني : بحثت بشكل كبير ولم أجد اي معلومة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجوكم احد يساعدني : بحثت بشكل كبير ولم أجد اي معلومة (/showthread.php?tid=7382)

ارجوكم احد يساعدني : بحثت بشكل كبير ولم أجد اي معلومة - adsss - 15-12-12

سأشرح طلبي بشكل واضح :

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


للتوضيح



[ATTACH=CONFIG]1538[/ATTACH]

ارجوكم احد يساعدني : بحثت بشكل كبير ولم أجد اي معلومة - sooriaty03 - 16-12-12

السلام عليكم ورحمة الله وبركاته
أخي الكريم
الطريقة سهلة بإذن الله
المهم أن يكون لديك مودم في الجهاز وأن تعرف رقم المنفذ الخاص فيه قد يكون 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

بالتوفيق

ارجوكم احد يساعدني : بحثت بشكل كبير ولم أجد اي معلومة - adsss - 16-12-12

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

بالتوفيق






بارك الله فيك أخي الكريم لا أعرف كيف اعبر لك عن شكري , ولله ريحتني