[mohamedallams]

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

كود :

Dim X = CMbPORTSCAN
           If X.Empty Then
               SerialPort1.Close()
           End If

[سعود]

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

---

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

كود :

Dim X = CMbPORTSCAN
           If X.Empty Then
               SerialPort1.Close()
           End If

[أبو خالد الشكري]

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

كود :

   Dim X = CMbPORTSCAN

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

[size]
.[/size]

[mohamedallams]

(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

---

الكود الذي وضعته استاذي خالد يعني لو كان عدد الايتم صفر يقوم بأغلاق البورت لاكن سؤالي كان ان لم يقم باختيار الكوم يعني انه يوجد عدد من الايتم انما اذا كان الاختيار فارغ فلم يعمل الكود الذي ترحطه يا استاذ خالد
ووضعت اعلاه الكود الذي ساعدتني باتمام المشكله التي واجهتني واشكرك واشكر استاذ سعود

[أبو خالد الشكري]

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

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

كود :

If Combo1.Text = Empty Then
           MsgBox ("Port Closed")
               End If

[mohamedallams]

( اعمل علي فيجوال 2008 )
الكود الذي استخدمته هو

كود :

If combobox1.Text = String.Empty Then
               MsgBox(" فارغ")
           Else
امر اخر"
           End If

[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-...b/39125/65

[asmarsou]

(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-...b/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