[dubai.eig]

السلام عليكم ورحمة الله

عندي كود وحاب اتاكد من كتابته

عندي ارقام تبدا من 
7000.0
لغاية
7300.0

اريد اميز بين رقمين كمثال

كود :

if sa2bandmode >= 7000 AndAlso sa2bandmode < 7070 Then    MsgBox("1")

if sa2bandmode >= 70000 AndAlso sa2bandmode < 70700 Then    MsgBox("2")

if sa2bandmode >= 7070 AndAlso sa2bandmode < 7300 Then    MsgBox("3")

if sa2bandmode >= 70700 AndAlso sa2bandmode < 73000 Then    MsgBox("4")

هل الطريقه صحيح

يعني اذا صادفك رقم  7030  يطلع لك مسج بوكس  MsgBox("1")

وهكذا

والمشكله الثانيه الي صادفتني

في بعض الاجهزه يقراء الرقم  كذا 7070  وبعذ الاجهزه يقراء الرقم كذا  70700

وانجبرت  اكرر الكود مع اختلاف الارقام 


وهل هذه الطريقه صحيحه

كود :

 If Settings.m80cw = "Y" OrElse sa2bandmode >= 7070 AndAlso sa2bandmode < 7300 AndAlso sa2bandmode >= 70700 AndAlso sa2bandmode < 73000 Then

وهنا الاستعلام كامل

كود :

 Dim cmd3 As New SQLiteCommand(String.Format("SELECT * FROM DB{0} WHERE country = @country", Stadd), conn1)
                   cmd3.Parameters.AddWithValue("CALLop", sa3callswork)
                   cmd3.Parameters.AddWithValue("country", country.Text)
                   Dim rowCount3 As Integer = Convert.ToInt32(cmd3.ExecuteScalar())
                   If rowCount3 <> 0 Then

                   Else
                       If sa2bandmode >= 36200 AndAlso sa2bandmode < 39000 Then DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)

                       If sa2bandmode >= 3620 AndAlso sa2bandmode < 3900 Then DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)

                   End If
               End If

افيدوني بارك الله فيكم

[ابراهيم ايبو]

السلام عليكم اخي الكريم Dubai.eig
اولا للتذكير ان عبارة AndAlso تقوم بالتحقق من الشرط وعن اول قيمة False تتوقف عن التحقق وتحسب الحساب المنطقي
وهنا اريد ان أسألك هل تريد للشرط ان يكون مثلا( اكبر من واصغر من ) استخدم and ......??


اما جملة if  ان اردت كتابتها على سطر واجد فضع ( بعد كلمة then ثم msgbox على النحو التالي
بالمجمل هذا مافهمته منك تقبل تحياتي

كود :

If Val(TextBox1.Text) >= 7000 AndAlso Val(TextBox1.Text) <= 7070 Then : MsgBox("1")
       ElseIf Val(TextBox1.Text) >= 70000 AndAlso Val(TextBox1.Text) <= 70700 Then : MsgBox("2")
       ElseIf Val(TextBox1.Text) >= 7070 AndAlso Val(TextBox1.Text) <= 7300 Then : MsgBox("3")
       ElseIf Val(TextBox1.Text) >= 70700 AndAlso Val(TextBox1.Text) <= 73000 Then : MsgBox("4")
       End If

[dubai.eig]

(14-02-19, 02:10 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم Dubai.eig
اولا للتذكير ان عبارة AndAlso تقوم بالتحقق من الشرط وعن اول قيمة False تتوقف عن التحقق وتحسب الحساب المنطقي
وهنا اريد ان أسألك هل تريد للشرط ان يكون مثلا( اكبر من واصغر من ) استخدم and ......??


اما جملة if  ان اردت كتابتها على سطر واجد فضع ( بعد كلمة then ثم msgbox على النحو التالي
بالمجمل هذا مافهمته منك تقبل تحياتي

كود :

If Val(TextBox1.Text) >= 7000 AndAlso Val(TextBox1.Text) <= 7070 Then : MsgBox("1")
       ElseIf Val(TextBox1.Text) >= 70000 AndAlso Val(TextBox1.Text) <= 70700 Then : MsgBox("2")
       ElseIf Val(TextBox1.Text) >= 7070 AndAlso Val(TextBox1.Text) <= 7300 Then : MsgBox("3")
       ElseIf Val(TextBox1.Text) >= 70700 AndAlso Val(TextBox1.Text) <= 73000 Then : MsgBox("4")
       End If

بارك الله فيك

بخصوص السؤال انا اريد اقول  

اذا كان الرقم ما بين 1 الى 10  يعمل المسج بوكس

مثلا اذا كان الرقم 6 يطلع المسج بوكس

واذا كان 9 نفس الشي

بس اذا كان الرقم 11 ما يطلع المسج بوكس

يعني بين رقمين 

[princelovelorn]

وعليكم السلام ورحمة الله وبركاته

بعد إذن أخي  الفاضل ابراهيم ايبو

ممكن تجرب الطريقة التالية

كود :

Select Case sa2bandmode)
           Case (36200) To (39000)
               DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)

           Case (3620) To (3900)
               DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)
       End Select

تمنياتي لك بالتوفيق والنجاح

[ابراهيم ايبو]

السلام عليكم أخي الكريم Dubai.eig

اسعدت صباحا ان  and تقوم بربط شرطين سويا وان لم يتحقق اجد الشرطين تعود ب False

اي ان الرقم اذا كان اكبر او يساوي 7000 سيتم التحقق منه فإن كان اكبر تصبح المقارنة True

ثم يتحقق من الشرط الثاني فأن كان اصغر او يساوي 7060   فالنتيجة هي ايضا true

 وبالمقارنة يجب ان تكون نتيجة الشرطين هي True حتى يتم تنفيد الكود 

كود :

If num1 >= 7000 And num1 <= 7060 Then : MsgBox("1")
       End If

[dubai.eig]

(14-02-19, 03:54 AM)princelovelorn كتب :

وعليكم السلام ورحمة الله وبركاته

بعد إذن أخي  الفاضل ابراهيم ايبو

ممكن تجرب الطريقة التالية

كود :

Select Case sa2bandmode)
           Case (36200) To (39000)
               DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)

           Case (3620) To (3900)
               DataGridView1.Rows.Add(a1, a2, a3, a4, timk, country.Text, MO4, My.Resources.NewCountry)
       End Select

تمنياتي لك بالتوفيق والنجاح

شكرا استاذي الكريم الكود الي كتبته جميل نفع معاي
شكرا

---

(14-02-19, 10:33 AM)ابراهيم ايبو كتب :

السلام عليكم أخي الكريم Dubai.eig

اسعدت صباحا ان  and تقوم بربط شرطين سويا وان لم يتحقق اجد الشرطين تعود ب False

اي ان الرقم اذا كان اكبر او يساوي 7000 سيتم التحقق منه فإن كان اكبر تصبح المقارنة True

ثم يتحقق من الشرط الثاني فأن كان اصغر او يساوي 7060   فالنتيجة هي ايضا true

 وبالمقارنة يجب ان تكون نتيجة الشرطين هي True حتى يتم تنفيد الكود 

كود :

If num1 >= 7000 And num1 <= 7060 Then : MsgBox("1")
       End If

بارك الله فيك استاذي

فعلا الامور تغيرة عندي

شكرا

انا متلخبط بين

and
andalso

و
or
OrElse

مثلا

كود :

     If BKLogRigC = "Y" AndAlso RadioTypeC = "FT-2000D" OrElse RadioTypeC = "FT-2000" OrElse RadioTypeC = "FTDX-1200" OrElse RadioTypeC = "FTDX-3000" OrElse RadioTypeC = "FTDX-5000" OrElse RadioTypeC = "FTDX-5000MP" OrElse RadioTypeC = "FDDX-9000" OrElse RadioTypeC = "FT-450D" OrElse RadioTypeC = "FT-891" OrElse RadioTypeC = "FT-991" OrElse RadioTypeC = "FT-950" Then

او 

كود :

     If BKLogRigC = "Y" And RadioTypeC = "FT-2000D" And RadioTypeC = "FT-2000" And RadioTypeC = "FTDX-1200" And RadioTypeC = "FTDX-3000" And RadioTypeC = "FTDX-5000" And RadioTypeC = "FTDX-5000MP" And RadioTypeC = "FDDX-9000" And RadioTypeC = "FT-450D" And RadioTypeC = "FT-891" And RadioTypeC = "FT-991" And RadioTypeC = "FT-950" Then

اي الصحيح

انا من فترة قريت ان 

AndAlso

اسرع في النتائج من  

And

ما اعرف صحيح او لا

[ابراهيم ايبو]

السلام عليكم 

كلامك صحيح اخي لانه اذا كان لديك مثلا 10 شروط فإن and ستقوم بالتحقق من الشروط العشرة

   حتى تقوم بالمقارنة اذا هي صارمة وتريد التأكد من الشروط العشرة

اما AndAlso فهي تتحقق من الشروط وعند اول شرط False تتوقف عن التحقق ولاتكمل التحقق من البقية 

 وتعطي نتيجة المقارنة لذلك هي اسرع

تابع هذا الرايط واستفد من هذه الدورة فهي ممتازة

https://www.youtube.com/watch?v=6sxAFilB...jXLJ31eT4n

[princelovelorn]

(14-02-19, 12:11 PM)dubai.eig كتب : شكرا استاذي الكريم الكود الي كتبته جميل نفع معاي
شكرا

الحمد لله والشكر لله أخي الفاضل dubai.eig

أنا مجرد طالب علم ولست بأستاذ

وجزاه الله  خيراً أستاذي وأخي ابراهيم ايبو

على ما يقدمه من مساعدة لنا 

تمنياتي لك بالتوفيق والنجاح

[ابراهيم ايبو]

(14-02-19, 05:54 PM)princelovelorn كتب :

(14-02-19, 12:11 PM)dubai.eig كتب : شكرا استاذي الكريم الكود الي كتبته جميل نفع معاي
شكرا

الحمد لله والشكر لله أخي الفاضل dubai.eig

أنا مجرد طالب علم ولست بأستاذ

وجزاه الله  خيراً أستاذي وأخي ابراهيم ايبو

على ما يقدمه من مساعدة لنا 

تمنياتي لك بالتوفيق والنجاح

السلام عليكم باطلاب العلم وانا واحد منكم

يشهد الله بأني طالب علم مثلكم ومازلت في اولى خطواتي

أعزكم الله ورفع في قدر كل واحد منكم 

لاأحد يتهرب من ان يصبح استاذا ولكن رحم الله امرءا عرف حده فوقف عنده

صدقا انا لست باستاذ ولكني طالب مجد ان شاء الله 

واتمنى ان اكون عند حسن ظن كل فرد من اسرة فيجوال بيسك لكل العرب

وجزاكم الله خير جزاء