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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=41965)

مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - mohamedallams - 20-07-22

السلام عليكم شباب
اولا اود التعبير عن غضبي من السادة الاعضاء مع كامل احترامي لهم
ولاكن كل سؤال اطرحه لا يتم الاجابه عنه وشكرا
ثانيا مشكلتي علي امل ان تجيبو هذه المره
يتم الاتصال بالبرنامج عن طريق السريال بورت ( فكره البرنامج انه يقوم بارسال اوامر بالسيرال ليستقبلها الاردوينو )
طبعا لو انا حاطط اكثر من سريال لازم ابحث عنه ف جات الفكره انه يتم وضع كومبو بوكس يظهر فيه الكوم المتاح
لاكن يجب البحث اولا ليظهر الكوم
المشكله انه عند البحث ونسيان اختيار الكوم تظهر مشكله ان الكومبو فاضي ف ما يرضي يعمل اتصال
حاولت وضع شرط انه لو الكومبو فاضي يظهر رساله ولاكن فشلت
الكون الذي حاولت استخدمه

كود :
Dim X = CMbPORTSCAN
           If X.Empty Then
               SerialPort1.Close()
           End If


RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - سعود - 20-07-22

و عليكم السلام
ما اظن احد يعرف ويتجاهل الموضوع.
بالنسبة اغلب مواضيع الاتصال بالاجهزة الخارجية لا افقه فيها شيئا.
بحثت بقوقل ووجدت الكود بالرابط هذا  لكنه لا يعمل معي و لا ادري ما السبب.
وكلنا ننتظر من يقدم المعلومة.
(20-07-22, 06:09 PM)mohamedallams كتب : السلام عليكم شباب
اولا اود التعبير عن غضبي من السادة الاعضاء مع كامل احترامي لهم
ولاكن كل سؤال اطرحه لا يتم الاجابه عنه وشكرا
ثانيا مشكلتي علي امل ان تجيبو هذه المره
يتم الاتصال بالبرنامج عن طريق السريال بورت ( فكره البرنامج انه يقوم بارسال اوامر بالسيرال ليستقبلها الاردوينو )
طبعا لو انا حاطط اكثر من سريال لازم ابحث عنه ف جات الفكره انه يتم وضع كومبو بوكس يظهر فيه الكوم المتاح
لاكن يجب البحث اولا ليظهر الكوم
المشكله انه عند البحث ونسيان اختيار الكوم تظهر مشكله ان الكومبو فاضي ف ما يرضي يعمل اتصال
حاولت وضع شرط انه لو الكومبو فاضي يظهر رساله ولاكن فشلت
الكون الذي حاولت استخدمه

كود :
Dim X = CMbPORTSCAN
           If X.Empty Then
               SerialPort1.Close()
           End If


RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - أبو خالد الشكري - 20-07-22

بعد إذن الأستاذ سعود
أحب أن أشارككما في الموضوع
أنا أعتقد بأن الكود خاطئ
والصواب هو الكود التالي ، والله أعلم
كود :
   Dim X = CMbPORTSCAN

       If X.Items.Count = 0 Then
           SerialPort1.Close()
       End If
[size]
.[/size]

RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - mohamedallams - 20-07-22

(20-07-22, 08:25 PM)أبو خالد الشكري كتب : بعد إذن الأستاذ سعود
أحب أن أشارككما في الموضوع
أنا أعتقد بأن الكود خاطئ
والصواب هو الكود التالي ، والله أعلم

كود :
   Dim X = CMbPORTSCAN

       If X.Items.Count = 0 Then
           SerialPort1.Close()
       End If

.الف شكر للاستاذ سعود ولك استاذي الفاضل حاولت البحث جيدا ووصلت للحل 
الكود الصحيح وهو التالي 
كود :
If combo1.Empty = true then
Msgbox("")
End If
الكود الذي وضعته استاذي خالد يعني لو كان عدد الايتم صفر يقوم بأغلاق البورت لاكن سؤالي كان ان لم يقم باختيار الكوم يعني انه يوجد عدد من الايتم انما اذا كان الاختيار فارغ فلم يعمل الكود الذي ترحطه يا استاذ خالد
ووضعت اعلاه الكود الذي ساعدتني باتمام المشكله التي واجهتني واشكرك واشكر استاذ سعود

RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - أبو خالد الشكري - 21-07-22

أعتقد أنت تشتغل على Visual Basic 6

إذا كان جوابك نعم فقم بتجربة هذا الكود

كود :
If Combo1.Text = Empty Then
           MsgBox ("Port Closed")
               End If


RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - mohamedallams - 30-07-22

( اعمل علي فيجوال 2008 )
الكود الذي استخدمته هو
كود :
If combobox1.Text = String.Empty Then
               MsgBox(" فارغ")
           Else
امر اخر"
           End If


RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - asmarsou - 30-07-22

(30-07-22, 04:44 PM)mohamedallams كتب : ( اعمل علي فيجوال 2008 )
الكود الذي استخدمته هو
كود :
If combobox1.Text = String.Empty Then
               MsgBox(" فارغ")
           Else
امر اخر"
           End If

القي نظرة في هذا الموضوع
https://forum.arduino.cc/t/sending-data-to-serial-port-through-vb/39125/65

RE: مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت - asmarsou - 30-07-22

(30-07-22, 09:02 PM)asmarsou كتب :
(30-07-22, 04:44 PM)mohamedallams كتب : ( اعمل علي فيجوال 2008 )
الكود الذي استخدمته هو
كود :
If combobox1.Text = String.Empty Then
               MsgBox(" فارغ")
           Else
امر اخر"
           End If

القي نظرة في هذا الموضوع
https://forum.arduino.cc/t/sending-data-to-serial-port-through-vb/39125/65

اليك بهذا الكود
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Static skip As Boolean = False
        If ComboBox1.SelectedIndex < 0 Then
            If Not skip Then MessageBox.Show("رجاءا اختر منفذ")
            skip = False
            Exit Sub
        End If
        MessageBox.Show("تم اختيار المنقذ : " & ComboBox1.SelectedItem.ToString)
        skip = True
        'تنفيذ امر اخر

        ComboBox1.SelectedIndex = -1 ' لالعاء التحديد من جديد...يمكن حذف هذا السطر ان لم يكن منه بد
    End Sub