تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لعباقرة البرمجة ... مشكلة في اوامر البرمجة .
#1
السلام لكم اخوتي الاعزاء
أنا بستخدم برنامج فجول استوديو 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


الملفات المرفقة
.rar   CountingForShops.rar (الحجم : 121.59 ك ب / التحميلات : 39)
الرد
تم الشكر بواسطة:
#2
قم بحذف الملف التنفيذي للبرنامج من مساره، (الملف EXE)
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته



http://vb4arb.com/vb/showthread.php?tid=22013
الرد
تم الشكر بواسطة:



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


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