تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب عملية حسابية
#1
السلام عليكم...أول مشاركة ليا

أنا عندي بروجكت فيه تيكست 1 بيطلع فيه مجمل عدد الساعات لمكان معين لحد هنا تمام, 
بس عاوز بعدين طريقة لما ادوس علي Button يحسبلي التكلفة بحيث:

 أول وتاني ساعة ب5 جنيه بعدين تالت ساعةب4 ورابع ساعة ب3 وخامس ساعة ب2 جنيه وسادس ساعةب1 جنيه وبعدين لو اكتر من 6 ساعات يبقي مجاني يعني حد أقصي 20 جنيه

بمعني 

ساعة = 5
ساعتين = 10
3 ساعات = 14
4 ساعات = 17
5ساعات = 19
6 ساعات = 20
أكبر من 6 = 20

وشكرا  Smile
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
اليك الاجابة اخي
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim x As Integer = Val(TextBox1.Text)
       Select Case x
           Case 1
               Label1.Text = 5
           Case 2
               Label1.Text = 10
           Case 3
               Label1.Text = 14
           Case 4
               Label1.Text = 17
           Case 5
               Label1.Text = 19
           Case Is <= 6
               Label1.Text = 20
       End Select
   End Sub
End Class
الرد
تم الشكر بواسطة: motazsaad94@gmail.com
#3
(03-12-18, 10:50 PM)عبدالرحمن رمضان كتب : وعليكم السلام ورحمة الله وبركاته
اليك الاجابة اخي
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim x As Integer = Val(TextBox1.Text)
       Select Case x
           Case 1
               Label1.Text = 5
           Case 2
               Label1.Text = 10
           Case 3
               Label1.Text = 14
           Case 4
               Label1.Text = 17
           Case 5
               Label1.Text = 19
           Case Is <= 6
               Label1.Text = 20
       End Select
   End Sub
End Class

شكراً أخي تم الحل Smile 

هل تعرف طريقة سهلة لتكرار أو نسخ هذا الكود 100 مرة مع تغيير Label1 إلى 2 و 3 ........ 100 , أم ليس هناك سوى الطريقة اليدوية أو الاستبدال بالوورد ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 38 14-12-18, 07:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 4 115 14-12-18, 07:14 PM
آخر رد: محمد اسماعيل
  [VB.NET] بعد عملية التطوير من فيرجن قديم الى جديد 0theghost0 1 52 10-12-18, 02:47 PM
آخر رد: elgokr
  [VB.NET] كيف يتم التأثير على المخزون عند عملية البيع 739906433 1 63 03-12-18, 05:05 PM
آخر رد: حريف برمجة
  [VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول السعيدي 14 413 01-12-18, 11:31 PM
آخر رد: السعيدي
  [سؤال] كود لعملية حسابية اسامه الهرماوي 1 61 23-11-18, 05:23 PM
آخر رد: حريف برمجة
  سؤال عملية حسابية محمد خيري 5 111 15-11-18, 04:26 PM
آخر رد: محمد خيري
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 2 84 07-11-18, 08:00 PM
آخر رد: dasktop
  تحديد الصف بعد عملية التحديث محمد اسماعيل 3 137 31-10-18, 11:41 PM
آخر رد: elgokr
  [VB.NET] خطا اثناء عملية الحذف محمد اسماعيل 6 148 31-10-18, 10:02 PM
آخر رد: elgokr

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


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