01-01-18, 10:14 PM
(آخر تعديل لهذه المشاركة : 01-01-18, 10:44 PM {2} بواسطة DanyGhost2010.)
السلام لكم اخوتي الاعزاء
أنا بستخدم برنامج فجول استوديو 2010
بعد ما اكتب الكود واقوم بتجربته البرنامج ... بتطلع الاوامر صحيحة و الكود بيعمل الشغل المراد منه ... لو كتبت اي كود جديد يروح البرنامج ميقومش بعمله ... مع ان الاكواد سليمه وتم تجربتها !!!
لقد قمت بارفاق البرنامج الي انا بعدل عليه
المفروض اسم وسعر وتاريخ ووقت بيع الشيء يظهر في فورم داخل ريتش بوكس
كل ما تضغط علي زر بيع يقوم باضافة البيانات السابقة في سطر داخل ريتش بوكس
لو ضغط تاني يروح يكتب البيانات السابقة في سطر جديد ولا يمسح السطر القديم وهكذا
بيعمل البرنامج اول امر بس وثاني وثالث ورابع امر مش بيرضوا يتنفذو
أنا بستخدم برنامج فجول استوديو 2010
بعد ما اكتب الكود واقوم بتجربته البرنامج ... بتطلع الاوامر صحيحة و الكود بيعمل الشغل المراد منه ... لو كتبت اي كود جديد يروح البرنامج ميقومش بعمله ... مع ان الاكواد سليمه وتم تجربتها !!!
لقد قمت بارفاق البرنامج الي انا بعدل عليه
المفروض اسم وسعر وتاريخ ووقت بيع الشيء يظهر في فورم داخل ريتش بوكس
كل ما تضغط علي زر بيع يقوم باضافة البيانات السابقة في سطر داخل ريتش بوكس
لو ضغط تاني يروح يكتب البيانات السابقة في سطر جديد ولا يمسح السطر القديم وهكذا
بيعمل البرنامج اول امر بس وثاني وثالث ورابع امر مش بيرضوا يتنفذو
كود :
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.ClockSel1D1 = TextBox1.Text
My.Settings.DataSel1D1 = TextBox2.Text
My.Settings.NumberSel1D1 = NumberSelTextbox1.Text
My.Settings.MoneySel1D1 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
My.Settings.Save()
My.Settings.Day1Erad1 = " عدد " & My.Settings.NumberSel1D1 & " - " & " الساعة " & My.Settings.ClockSel1D1 & " - " & " بتاريخ " & My.Settings.DataSel1D1 & " - " & " حساب " & My.Settings.MoneySel1D1 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
ElseIf My.Settings.NameService1 = "" = False Then
If 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.Save()
My.Settings.Day1Erad2 = " عدد " & My.Settings.NumberSel1D2 & " - " & " الساعة " & My.Settings.ClockSel1D2 & " - " & " بتاريخ " & My.Settings.DataSel1D2 & " - " & " حساب " & My.Settings.MoneySel1D2 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
ElseIf My.Settings.NameService1 = "" = False Then
If 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.Save()
My.Settings.Day1Erad3 = " عدد " & My.Settings.NumberSel1D3 & " - " & " الساعة " & My.Settings.ClockSel1D3 & " - " & " بتاريخ " & My.Settings.DataSel1D3 & " - " & " حساب " & My.Settings.MoneySel1D3 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
ElseIf My.Settings.NameService1 = "" = False Then
If My.Settings.Day1Erad1 = "" = False Then
If My.Settings.Day1Erad2 = "" = False Then
If My.Settings.DataSel1D3 = "" = 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.Save()
My.Settings.Day1Erad4 = " عدد " & My.Settings.NumberSel1D4 & " - " & " الساعة " & My.Settings.ClockSel1D4 & " - " & " بتاريخ " & My.Settings.DataSel1D4 & " - " & " حساب " & My.Settings.MoneySel1D4 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If