+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب كود فروق الارقام في قاعدة if (/showthread.php?tid=14045)
طلب كود فروق الارقام في قاعدة if - madih - 07-12-15
السلام عليكم ورحة الله وبركاته
ابحث عن كود وارجو المساعدة
اقوم بتصميم برنامج حسابي يقوم بحسب نسب معينه والكود الذي احتاجه هو كود فاصل
للتوضيح
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 تكون النسبه كذا
بس هذا هو طلبي وارجو المساعده
RE: طلب كود فروق الارقام في قاعدة if - الاصيله - 07-12-15
(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 تكون النسبه كذا
بس هذا هو طلبي وارجو المساعده
RE: طلب كود فروق الارقام في قاعدة if - administrator - 07-12-15
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
RE: طلب كود فروق الارقام في قاعدة if - madih - 07-12-15
(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
للاسف الكود لم يعمل
RE: طلب كود فروق الارقام في قاعدة if - administrator - 07-12-15
لماذا لم يعمل
ما الخطاء الذي يظهر لك
RE: طلب كود فروق الارقام في قاعدة if - Ahmed_Mansoor - 07-12-15
أهلا أخي الكريم , على حسب مافهمت من ردودك , هذا تعديل كودك :
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
RE: طلب كود فروق الارقام في قاعدة if - madih - 07-12-15
(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
مشكور جدا اخي الكريم علي اهتمامك بالرد والكود اللي ارسلته انت ظبط تمام معي
جزاك الله كل خير
RE: طلب كود فروق الارقام في قاعدة if - الاصيله - 07-12-15
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 تقبل تحياتي