02-01-18, 02:51 PM
السلام لكم اخوتي الاعزاء
عندي مشكلة في استخدام Else IF مع My.setting
فهل يوجد في البرمجه امر اخر يساوي Else IF
لأن هذا الكود لا يقوم بعمله
علماً باني بغير تاريخ اليوم = يعني المشكلة مش في اليوم
الكود بيعمل اول امرين فقط اما ثالث ورابع امر مش بيرضي يعملهم
في المرفقات المشروع بالكامل
عندي مشكلة في استخدام 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
في المرفقات المشروع بالكامل