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

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

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

للتوضيح 


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 تكون النسبه كذا 
بس هذا هو طلبي وارجو المساعده
الرد }}}
تم الشكر بواسطة:
#2
(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 تكون النسبه كذا 
بس هذا هو طلبي وارجو المساعده
ممكن توضيح اكثر بخصوص الطلب والنسبه
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#3
PHP كود :
Select Case textbox1.Text
  Case Is 
>= 10
   Label1
.caption50%
 
 Case 11 To 19
Label1
.caption55%
 
 Case 20 To 29
Label1
.caption60%
Case 
Is <= 30
Label1
.caption100%
End select 
الرد }}}
تم الشكر بواسطة:
#4
(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
.caption50%
 
 Case 11 To 19
Label1
.caption55%
 
 Case 20 To 29
Label1
.caption60%
Case 
Is <= 30
Label1
.caption100%
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
.caption50%
 
 Case 11 To 19
Label1
.caption55%
 
 Case 20 To 29
Label1
.caption60%
Case 
Is <= 30
Label1
.caption100%
End select 
شاكر لك اخي الكريم علي اهتمامك بالرد وجاري التجربه واعطائكم النتائج

للاسف الكود لم يعمل
الرد }}}
تم الشكر بواسطة:
#5
لماذا لم يعمل
ما الخطاء الذي يظهر لك
الرد }}}
تم الشكر بواسطة:
#6
أهلا أخي الكريم , على حسب مافهمت من ردودك , هذا تعديل كودك :

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 
الرد }}}
تم الشكر بواسطة: madih , administrator , VB_Local
#7
(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 


مشكور جدا اخي الكريم علي اهتمامك بالرد والكود اللي ارسلته انت ظبط تمام معي 
جزاك الله كل خير
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , VB_Local
#8
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 تقبل تحياتي
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 0 445 21-01-24, 12:58 PM
آخر رد: haitham Muhammed
  بخصوص صيغة التاريخ عند الحفظ في قاعدة البيانات hannileo 0 554 03-07-22, 12:19 PM
آخر رد: hannileo
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 14 8,492 14-06-22, 04:01 PM
آخر رد: sher
  [vb6.0] مشكلة فى قاعدة بيانات اكسس mohhasddx1 1 1,003 04-08-21, 10:12 AM
آخر رد: awidan76
  [vb6.0] طلب : كود عرض نص معين من قاعدة البيانات وعرضه في label في داتا ريبورت hamada salah90 3 1,569 26-07-21, 06:43 PM
آخر رد: hamada salah90
  [vb6.0] أريد شرح مبسط وواضح للعلاقات بين جداول قاعدة البيانات وشرح الإستعلامات بهذه العلاقات hamada salah90 0 1,007 01-06-21, 02:12 AM
آخر رد: hamada salah90
  أطلب مساعدة من الأعضاء ذوي الخبرة : أريد طريقة حفظ ملف من نوع PDF في قاعدة بيانات SQL rami_cis 2 1,437 23-11-20, 01:03 AM
آخر رد: rami_cis
  أريد عرض اخر سجل في جدول من قاعدة بيانات أكسس hamada salah90 5 2,853 13-08-20, 02:06 AM
آخر رد: بلدي
  مشاركة قاعدة البيانات على الانترنت haniblack 6 4,970 21-01-20, 05:24 PM
آخر رد: abubasilIraq
  تحويل الارقام الى حروف بدون ذكر الريال وبدو فقط حامد محمد 4 1,910 20-12-19, 07:58 PM
آخر رد: Ahmed_Mansoor

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


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