[DanyGhost2010]

السلام لكم اخوتي الاعزاء
عندي مشكلة في استخدام 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 


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