+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه (/showthread.php?tid=28603)
استفسار :- هل صحيح كتابه الكود بهذه الطريقه - dubai.eig - 14-02-19
السلام عليكم ورحمة الله
عندي كود وحاب اتاكد من كتابته
عندي ارقام تبدا من
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افيدوني بارك الله فيكم
RE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - ابراهيم ايبو - 14-02-19
السلام عليكم اخي الكريم 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 IfRE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - dubai.eig - 14-02-19
(14-02-19, 02:10 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم Dubai.eig
اولا للتذكير ان عبارة AndAlso تقوم بالتحقق من الشرط وعن اول قيمة False تتوقف عن التحقق وتحسب الحساب المنطقي
وهنا اريد ان أسألك هل تريد للشرط ان يكون مثلا( اكبر من واصغر من ) استخدم and ......??
اما جملة if ان اردت كتابتها على سطر واجد فضع (
بالمجمل هذا مافهمته منك تقبل تحياتي
كود :
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 ما يطلع المسج بوكس
يعني بين رقمين
RE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - princelovelorn - 14-02-19
وعليكم السلام ورحمة الله وبركاته
بعد إذن أخي الفاضل ابراهيم ايبو
ممكن تجرب الطريقة التالية
كود :
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تمنياتي لك بالتوفيق والنجاح
RE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - ابراهيم ايبو - 14-02-19
السلام عليكم أخي الكريم Dubai.eig
اسعدت صباحا ان and تقوم بربط شرطين سويا وان لم يتحقق اجد الشرطين تعود ب False
اي ان الرقم اذا كان اكبر او يساوي 7000 سيتم التحقق منه فإن كان اكبر تصبح المقارنة True
ثم يتحقق من الشرط الثاني فأن كان اصغر او يساوي 7060 فالنتيجة هي ايضا true
وبالمقارنة يجب ان تكون نتيجة الشرطين هي True حتى يتم تنفيد الكود
كود :
If num1 >= 7000 And num1 <= 7060 Then : MsgBox("1")
End IfRE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - dubai.eig - 14-02-19
(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
ما اعرف صحيح او لا
RE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - ابراهيم ايبو - 14-02-19
السلام عليكم
كلامك صحيح اخي لانه اذا كان لديك مثلا 10 شروط فإن and ستقوم بالتحقق من الشروط العشرة
حتى تقوم بالمقارنة اذا هي صارمة وتريد التأكد من الشروط العشرة
اما AndAlso فهي تتحقق من الشروط وعند اول شرط False تتوقف عن التحقق ولاتكمل التحقق من البقية
وتعطي نتيجة المقارنة لذلك هي اسرع
تابع هذا الرايط واستفد من هذه الدورة فهي ممتازة
RE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - princelovelorn - 14-02-19
(14-02-19, 12:11 PM)dubai.eig كتب : شكرا استاذي الكريم الكود الي كتبته جميل نفع معاي
شكرا
الحمد لله والشكر لله أخي الفاضل dubai.eig
أنا مجرد طالب علم ولست بأستاذ
وجزاه الله خيراً أستاذي وأخي ابراهيم ايبو
على ما يقدمه من مساعدة لنا
تمنياتي لك بالتوفيق والنجاح
RE: استفسار :- هل صحيح كتابه الكود بهذه الطريقه - ابراهيم ايبو - 14-02-19
(14-02-19, 05:54 PM)princelovelorn كتب :(14-02-19, 12:11 PM)dubai.eig كتب : شكرا استاذي الكريم الكود الي كتبته جميل نفع معاي
شكرا
الحمد لله والشكر لله أخي الفاضل dubai.eig
أنا مجرد طالب علم ولست بأستاذ
وجزاه الله خيراً أستاذي وأخي ابراهيم ايبوعلى ما يقدمه من مساعدة لنا
تمنياتي لك بالتوفيق والنجاح
السلام عليكم باطلاب العلم وانا واحد منكم
يشهد الله بأني طالب علم مثلكم ومازلت في اولى خطواتي
أعزكم الله ورفع في قدر كل واحد منكم
لاأحد يتهرب من ان يصبح استاذا ولكن رحم الله امرءا عرف حده فوقف عنده
صدقا انا لست باستاذ ولكني طالب مجد ان شاء الله
واتمنى ان اكون عند حسن ظن كل فرد من اسرة فيجوال بيسك لكل العرب
وجزاكم الله خير جزاء