منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحة الله وبركاته 

ابحث عن كود وارجو المساعدة 

اقوم بتصميم برنامج حسابي يقوم بحسب نسب معينه والكود الذي احتاجه هو كود فاصل 

للتوضيح 


if textbox.text >10000 then 
label1.caption = 50% 
elseif textbox.text >10000 ; 15000 then 
label1.caption = 55%
elseif textbox.text >15000 ; 20000 then 
label1.caption = 60%
endif



الكود اللي بالاحمر دا هو اللي فيه الخطا في عايز يظبط عايز اقول ان من مبلغ 10000 الي مبلغ 15000 النسبه كذا 
ومن 15000 الي 20000 تكون النسبه كذا 
بس هذا هو طلبي وارجو المساعده

(07-12-15, 12:32 AM)madih كتب : [ -> ]السلام عليكم ورحة الله وبركاته 

ابحث عن كود وارجو المساعدة 

اقوم بتصميم برنامج حسابي يقوم بحسب نسب معينه والكود الذي احتاجه هو كود فاصل 

للتوضيح 


if textbox.text >10000 then 
label1.caption = 50% 
elseif textbox.text >10000 ; 15000 then 
label1.caption = 55%
elseif textbox.text >15000 ; 20000 then 
label1.caption = 60%
endif



الكود اللي بالاحمر دا هو اللي فيه الخطا في عايز يظبط عايز اقول ان من مبلغ 10000 الي مبلغ 15000 النسبه كذا 
ومن 15000 الي 20000 تكون النسبه كذا 
بس هذا هو طلبي وارجو المساعده

ممكن توضيح اكثر بخصوص الطلب والنسبه

(07-12-15, 12:48 AM)الاصيله كتب : [ -> ]

(07-12-15, 12:32 AM)madih كتب : [ -> ]السلام عليكم ورحة الله وبركاته 

ابحث عن كود وارجو المساعدة 

اقوم بتصميم برنامج حسابي يقوم بحسب نسب معينه والكود الذي احتاجه هو كود فاصل 

للتوضيح 


if textbox.text >10000 then 
label1.caption = 50% 
elseif textbox.text >10000 ; 15000 then 
label1.caption = 55%
elseif textbox.text >15000 ; 20000 then 
label1.caption = 60%
endif



الكود اللي بالاحمر دا هو اللي فيه الخطا في عايز يظبط عايز اقول ان من مبلغ 10000 الي مبلغ 15000 النسبه كذا 
ومن 15000 الي 20000 تكون النسبه كذا 
بس هذا هو طلبي وارجو المساعده

ممكن توضيح اكثر بخصوص الطلب والنسبه

مشكوره اختي الكريمه علي اهتمامك بالرد 

البرنامج اللي اقوم بيه يقوم بحساب فروقات المبالغ بمعني انه في حال المبلغ اقل من 10000 يخضع العميل الي هامش ربح 50%  وفي حال كان المبلغ من 10000 الي 15000 يخضع العميل الي هامش ربح 55% وهكذا

علما بان النسبه الناتجة من ذلك سيتم اخضاعها لمعادلة اخري

---

(07-12-15, 01:03 AM)administrator كتب : [ -> ]

PHP كود :

Select Case textbox1.Text
  Case Is >= 10
   Label1.caption= 50%
  Case 11 To 19
Label1.caption= 55%
  Case 20 To 29
Label1.caption= 60%
Case Is <= 30
Label1.caption= 100%
End select 


شاكر لك اخي الكريم علي اهتمامك بالرد وجاري التجربه واعطائكم النتائج

---

(07-12-15, 01:12 AM)madih كتب : [ -> ]

(07-12-15, 12:48 AM)الاصيله كتب : [ -> ]

(07-12-15, 12:32 AM)madih كتب : [ -> ]السلام عليكم ورحة الله وبركاته 

ابحث عن كود وارجو المساعدة 

اقوم بتصميم برنامج حسابي يقوم بحسب نسب معينه والكود الذي احتاجه هو كود فاصل 

للتوضيح 


if textbox.text >10000 then 
label1.caption = 50% 
elseif textbox.text >10000 ; 15000 then 
label1.caption = 55%
elseif textbox.text >15000 ; 20000 then 
label1.caption = 60%
endif



الكود اللي بالاحمر دا هو اللي فيه الخطا في عايز يظبط عايز اقول ان من مبلغ 10000 الي مبلغ 15000 النسبه كذا 
ومن 15000 الي 20000 تكون النسبه كذا 
بس هذا هو طلبي وارجو المساعده

ممكن توضيح اكثر بخصوص الطلب والنسبه

مشكوره اختي الكريمه علي اهتمامك بالرد 

البرنامج اللي اقوم بيه يقوم بحساب فروقات المبالغ بمعني انه في حال المبلغ اقل من 10000 يخضع العميل الي هامش ربح 50%  وفي حال كان المبلغ من 10000 الي 15000 يخضع العميل الي هامش ربح 55% وهكذا

علما بان النسبه الناتجة من ذلك سيتم اخضاعها لمعادلة اخري

---

(07-12-15, 01:03 AM)administrator كتب : [ -> ]

PHP كود :

Select Case textbox1.Text
  Case Is >= 10
   Label1.caption= 50%
  Case 11 To 19
Label1.caption= 55%
  Case 20 To 29
Label1.caption= 60%
Case Is <= 30
Label1.caption= 100%
End select 


شاكر لك اخي الكريم علي اهتمامك بالرد وجاري التجربه واعطائكم النتائج

للاسف الكود لم يعمل

لماذا لم يعمل
ما الخطاء الذي يظهر لك

أهلا أخي الكريم , على حسب مافهمت من ردودك , هذا تعديل كودك :

(07-12-15, 08:54 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , على حسب مافهمت من ردودك , هذا تعديل كودك :

PHP كود :

If Val(Trim$(Text1.Text)) < 10000 Then
   Label1.Caption = "50%"
ElseIf Val(Trim$(Text1.Text)) >= 10000 And Val(Trim$(Text1.Text)) <= 15000 Then
   Label1.Caption = "55%"
ElseIf Val(Trim$(Text1.Text)) >= 15001 And Val(Trim$(Text1.Text)) <= 20000 Then
   Label1.Caption = "60%"
End If 


مشكور جدا اخي الكريم علي اهتمامك بالرد والكود اللي ارسلته انت ظبط تمام معي 
جزاك الله كل خير

If Text1.Text > 10000 Then
Label1.Caption = 50
ElseIf Text1.Text > 10000 & 15000 Then
Label1.Caption = 55
ElseIf Text1.Text > 15000 & 20000 Then
Label1.Caption = 60
   End If

---

السلام عليكم الكود الذي وضعته انت ليس فيه خطأ سوى كلمة textbox والتصحيح هو text1.text تقبل تحياتي