تقييم الموضوع :
  • 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 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيف افتح فورم من فورم اخر بنفس id salah525 2 341 14-10-23, 10:22 PM
آخر رد: aljzazy
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 348 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 280 01-09-23, 05:56 AM
آخر رد: Ameenh
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61

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


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