تقييم الموضوع :
  • 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 , أم ليس هناك سوى الطريقة اليدوية أو الاستبدال بالوورد ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ أثناء عملية البحث في DATAGRIDVIEW ahmedfa71 5 71 14-05-19, 04:10 PM
آخر رد: elgokr
  حفظ الصورة بعد عملية السكنر محمد خيري 7 106 10-05-19, 11:14 PM
آخر رد: asemshahen5
  خطأ في عملية حفظ محتوى datagridview إلى جدول من قاعدة البيانات ahmedfa71 7 128 23-04-19, 02:17 AM
آخر رد: elgokr
  [سؤال] الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج georgos 8 194 23-02-19, 04:25 PM
آخر رد: elgokr
  [VB.NET] عملية البيع عبدالرحمن بشري عمر 4 200 20-02-19, 06:08 PM
آخر رد: elgokr
  [سؤال] رسالة خطأ بعد عملية الاضافة georgos 11 341 16-02-19, 03:36 PM
آخر رد: georgos
Question [سؤال] تعبئة TreeView مع جود اكثر من عملية بحث ادخل جدوالين alims 0 125 06-02-19, 11:58 PM
آخر رد: alims
  عملية تحويل رقم reverse fouadhdfouad 5 203 30-12-18, 05:50 PM
آخر رد: a.wagdi
  [VB.NET] اظهار عملية جمع حقلين في قاعدة البيانات فراس الغزي 3 270 30-12-18, 03:42 PM
آخر رد: alsouf
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 172 14-12-18, 07:32 PM
آخر رد: محمد اسماعيل

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


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