تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد امر بدل من امر Else IF يقوم بنفس الاوامر ؟ ضروري .
#1
السلام لكم اخوتي الاعزاء
عندي مشكلة في استخدام Else IF مع My.setting
فهل يوجد في البرمجه امر اخر يساوي Else IF
لأن هذا الكود لا يقوم بعمله
علماً باني بغير تاريخ اليوم = يعني المشكلة مش في اليوم
الكود بيعمل اول امرين فقط اما ثالث ورابع امر مش بيرضي يعملهم

PHP كود :
 If Now.ToString("dd") = "01" Then
If My.Settings.NameService1 "" False Then

                If MsgBox
(NameServiceTextBox1.Text " : سوف يتم بيع المنتج "MsgBoxStyle.YesNo"بيع المنتج رقم 1") = MsgBoxResult.Yes Then

                    My
.Settings.NumberMService1 NumberMServiceTextBox1.Text NumberSelTextbox1.Text
                    NumberMServiceTextBox1
.Text My.Settings.NumberMService1


' الأمر الأول
                    If My.Settings.Day1Erad1 = "" = True Then
                        My.Settings.Day1Erad1 = ""
                        My.Settings.ClockSel1D1 = TextBox1.Text
                        My.Settings.DataSel1D1 = TextBox2.Text
                        My.Settings.NumberSel1D1 = NumberSelTextbox1.Text
                        My.Settings.MoneySel1D1 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                        My.Settings.Day1Erad1 = " عدد " & My.Settings.NumberSel1D1 & "  -  " & " الساعة " & My.Settings.ClockSel1D1 & "  -  " & " بتاريخ " & My.Settings.DataSel1D1 & "  -  " & " حساب " & My.Settings.MoneySel1D1 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                        My.Settings.Save()
                        Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4


 ' 
الأمر الثاني
                    ElseIf My
.Settings.Day1Erad1 "" False Then
                        My
.Settings.ClockSel1D2 TextBox1.Text
                        My
.Settings.DataSel1D2 TextBox2.Text
                        My
.Settings.NumberSel1D2 NumberSelTextbox1.Text
                        My
.Settings.MoneySel1D2 My.Settings.MoneySelService1 NumberSelTextbox1.Text
                        My
.Settings.Day1Erad2 " عدد " My.Settings.NumberSel1D2 "  -  " " الساعة " My.Settings.ClockSel1D2 "  -  " " بتاريخ " My.Settings.DataSel1D2 "  -  " " حساب " My.Settings.MoneySel1D2 "  -  " My.Settings.NameService1 " : اسم المنتج المباع "
 
                       My.Settings.Save()
 
                       My.Settings.NumberMService1 NumberMServiceTextBox1.Text NumberSelTextbox1.Text
                        NumberMServiceTextBox1
.Text My.Settings.NumberMService1
                        Erad1Day1
.RichTextBox1.Text My.Settings.Day1Erad1 vbNewLine My.Settings.Day1Erad2 vbNewLine My.Settings.Day1Erad3 vbNewLine My.Settings.Day1Erad4

 
' الأمر الثالث
                    ElseIf My.Settings.Day1Erad1 = "" = False Then
                        If My.Settings.Day1Erad2 = "" = False Then
                            My.Settings.ClockSel1D3 = TextBox1.Text
                            My.Settings.DataSel1D3 = TextBox2.Text
                            My.Settings.NumberSel1D3 = NumberSelTextbox1.Text
                            My.Settings.MoneySel1D3 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                            My.Settings.Day1Erad3 = " عدد " & My.Settings.NumberSel1D3 & "  -  " & " الساعة " & My.Settings.ClockSel1D3 & "  -  " & " بتاريخ " & My.Settings.DataSel1D3 & "  -  " & " حساب " & My.Settings.MoneySel1D3 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                            My.Settings.Save()
                            My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                            NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                            Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4

 ' 
الأمر الرابع
                        ElseIf My
.Settings.Day1Erad1 "" False Then
                            If My
.Settings.Day1Erad2 "" False Then
                                If My
.Settings.Day1Erad3 "" False Then
                                    My
.Settings.ClockSel1D4 TextBox1.Text
                                    My
.Settings.DataSel1D4 TextBox2.Text
                                    My
.Settings.NumberSel1D4 NumberSelTextbox1.Text
                                    My
.Settings.MoneySel1D4 My.Settings.MoneySelService1 NumberSelTextbox1.Text
                                    My
.Settings.Day1Erad4 " عدد " My.Settings.NumberSel1D4 "  -  " " الساعة " My.Settings.ClockSel1D4 "  -  " " بتاريخ " My.Settings.DataSel1D4 "  -  " " حساب " My.Settings.MoneySel1D4 "  -  " My.Settings.NameService1 " : اسم المنتج المباع "
 
                                   My.Settings.Save()
 
                                   My.Settings.NumberMService1 NumberMServiceTextBox1.Text NumberSelTextbox1.Text
                                    NumberMServiceTextBox1
.Text My.Settings.NumberMService1
                                    Erad1Day1
.RichTextBox1.Text My.Settings.Day1Erad1 vbNewLine My.Settings.Day1Erad2 vbNewLine My.Settings.Day1Erad3 vbNewLine My.Settings.Day1Erad4
                                End 
If
 
                           End If
 
                       End If
 
                   End If
 
               End If
 
           End If
 
       End If 

في المرفقات المشروع بالكامل


الملفات المرفقة
.rar   CountingForShops.rar (الحجم : 121.59 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة:
#2
المثال معطوب

رجاء عند ضغط الامثله اغلق القاعده والملفات المرفقه

او اغلق المثال ثم قم بالضغط

كود :
 If Now.ToString("dd") = "01" Then
            If My.Settings.NameService1 = "" = False Then

                If MsgBox(NameServiceTextBox1.Text & " : سوف يتم بيع المنتج ", MsgBoxStyle.YesNo, "بيع المنتج رقم 1") = MsgBoxResult.Yes Then

                    My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                    NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                    Select Case False

                        ' الأمر الثاني
                        Case My.Settings.Day1Erad1 = ""
                            My.Settings.ClockSel1D2 = TextBox1.Text
                            My.Settings.DataSel1D2 = TextBox2.Text
                            My.Settings.NumberSel1D2 = NumberSelTextbox1.Text
                            My.Settings.MoneySel1D2 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                            My.Settings.Day1Erad2 = " عدد " & My.Settings.NumberSel1D2 & "  -  " & " الساعة " & My.Settings.ClockSel1D2 & "  -  " & " بتاريخ " & My.Settings.DataSel1D2 & "  -  " & " حساب " & My.Settings.MoneySel1D2 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                            My.Settings.Save()
                            My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                            NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                            Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4

                            ' الأمر الثالث
                        Case My.Settings.Day1Erad1 = ""
                            If My.Settings.Day1Erad2 = "" = False Then
                                My.Settings.ClockSel1D3 = TextBox1.Text
                                My.Settings.DataSel1D3 = TextBox2.Text
                                My.Settings.NumberSel1D3 = NumberSelTextbox1.Text
                                My.Settings.MoneySel1D3 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                                My.Settings.Day1Erad3 = " عدد " & My.Settings.NumberSel1D3 & "  -  " & " الساعة " & My.Settings.ClockSel1D3 & "  -  " & " بتاريخ " & My.Settings.DataSel1D3 & "  -  " & " حساب " & My.Settings.MoneySel1D3 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                                My.Settings.Save()
                                My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                                NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                                Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4
                            End If

                            ' الأمر الرابع
                        Case My.Settings.Day1Erad1 = ""
                            If My.Settings.Day1Erad2 = "" = False Then
                                If My.Settings.Day1Erad3 = "" = False Then
                                    My.Settings.ClockSel1D4 = TextBox1.Text
                                    My.Settings.DataSel1D4 = TextBox2.Text
                                    My.Settings.NumberSel1D4 = NumberSelTextbox1.Text
                                    My.Settings.MoneySel1D4 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                                    My.Settings.Day1Erad4 = " عدد " & My.Settings.NumberSel1D4 & "  -  " & " الساعة " & My.Settings.ClockSel1D4 & "  -  " & " بتاريخ " & My.Settings.DataSel1D4 & "  -  " & " حساب " & My.Settings.MoneySel1D4 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                                    My.Settings.Save()
                                    My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
                                    NumberMServiceTextBox1.Text = My.Settings.NumberMService1
                                    Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4
                                End If
                            End If

                        Case Else
                            ' الأمر الأول

                            'My.Settings.Day1Erad1 = ""
                            My.Settings.ClockSel1D1 = TextBox1.Text
                            My.Settings.DataSel1D1 = TextBox2.Text
                            My.Settings.NumberSel1D1 = NumberSelTextbox1.Text
                            My.Settings.MoneySel1D1 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
                            My.Settings.Day1Erad1 = " عدد " & My.Settings.NumberSel1D1 & "  -  " & " الساعة " & My.Settings.ClockSel1D1 & "  -  " & " بتاريخ " & My.Settings.DataSel1D1 & "  -  " & " حساب " & My.Settings.MoneySel1D1 & "  -  " & My.Settings.NameService1 & " : اسم المنتج المباع "
                            My.Settings.Save()
                            Erad1Day1.RichTextBox1.Text = My.Settings.Day1Erad1 & vbNewLine & My.Settings.Day1Erad2 & vbNewLine & My.Settings.Day1Erad3 & vbNewLine & My.Settings.Day1Erad4

                    End Select

                End If

            End If
        End If     
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
تم الشكر بواسطة: عبد العزيز البسكري , DanyGhost2010
#3
الملف المرفق شغال تمام علي VS 2010
الرد
تم الشكر بواسطة:
#4
(03-01-18, 03:27 PM)DanyGhost2010 كتب : الملف المرفق شغال تمام علي VS 2010

المشكله في الضغطه اضغطه وارفعه تاني وقبل ما ترفع الملف جرب تفك الضغط عنه

دي صوره من جهازي

   
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
تم الشكر بواسطة:
#5
(03-01-18, 06:58 PM)zinom كتب :
(03-01-18, 03:27 PM)DanyGhost2010 كتب : الملف المرفق شغال تمام علي VS 2010

المشكله في الضغطه اضغطه وارفعه تاني وقبل ما ترفع الملف جرب تفك الضغط عنه

دي صوره من جهازي

مشكرو اخي zinom علي اهتمامك بالرد
المشكلة في برنامج الونرار الي انت مسطبه
حمل برنامج WinRar v550نزله وسطبه وفك الضغط هتلقيه بيتفك معاك عادي

==============================================
http://www.mediafire.com/file/opbb2fw5e9...0%20Ar.exe
==============================================
الرد
تم الشكر بواسطة: zinom
#6
(04-01-18, 01:59 PM)DanyGhost2010 كتب :
(03-01-18, 06:58 PM)zinom كتب :
(03-01-18, 03:27 PM)DanyGhost2010 كتب : الملف المرفق شغال تمام علي VS 2010

المشكله في الضغطه اضغطه وارفعه تاني وقبل ما ترفع الملف جرب تفك الضغط عنه

دي صوره من جهازي

مشكرو اخي zinom علي اهتمامك بالرد
المشكلة في برنامج الونرار الي انت مسطبه
حمل برنامج WinRar v550نزله وسطبه وفك الضغط هتلقيه بيتفك معاك عادي

==============================================
http://www.mediafire.com/file/opbb2fw5e9...0%20Ar.exe
==============================================
كلام حضرتك فعلا  سليم
رغم ان ملفات كثيره خاصه بالاخوه كانت تنفك بطريقة عاديه
شكرا جزيلا علي الوين رار (واكيد المعلومه)

-----------------------



باقي تجربة الملف
واعطينا النتيجه



إن شاء الله بالتوفيق


الملفات المرفقة
.rar    تعديلCountingForShops_2.rar (الحجم : 130.54 ك ب / التحميلات : 27)
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد
تم الشكر بواسطة: DanyGhost2010


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 8 306 , 12:44 AM
آخر رد: rochdi191
  [VB.NET] اريد عمل مولد سيريال اوتوماتيك ميدو الفنان 5 375 30-09-20, 09:24 PM
آخر رد: ميدو الفنان
  اريد شرح مبسط عمور2016 2 283 28-09-20, 10:40 AM
آخر رد: amer2000
  [سؤال] لدي ملف hosts اريد استبداله jam3h 2 125 25-09-20, 09:24 AM
آخر رد: jam3h
  [VB.NET] هل يوجد مشغل بديل لي vlc يقوم بتشغيل روابط بث مباشرة ميدو الفنان 1 136 16-09-20, 11:49 PM
آخر رد: ميدو الفنان
  اريد كتابة ارقام فقط في الخلية -ما العمل ؟ khaled Mohammed 5 290 11-09-20, 02:34 PM
آخر رد: عبد الهادي بهاب
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 257 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
  [سؤال] اريد شويه أكواد عن قواعد بيانات الاكسس منه 2 270 27-08-20, 10:51 AM
آخر رد: منه
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 445 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  لو سمحتم اريد تعديل على هذا المشروع خالد كامل1 3 418 20-08-20, 06:09 PM
آخر رد: خالد كامل1

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم