تقييم الموضوع :
  • 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 تقبل تحياتي
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترتيب الارقام تصاعدياً او تنازلياً في Combobox hannileo 5 117 31-10-17, 04:40 PM
آخر رد: hannileo
  معالج MDB Code Wizard v1.0.1 لتحويل قاعدة بيانات إلى Module Mohamad Anan 1 97 19-10-17, 10:37 PM
آخر رد: Amir_alzubidy
  [سؤال] طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل sher 7 207 18-10-17, 04:02 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 3 199 01-10-17, 02:37 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عن ربط قاعدة البيانات اكسس amer2000 4 314 14-05-17, 01:08 PM
آخر رد: Amir_alzubidy
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 237 13-04-17, 09:57 AM
آخر رد: haniblack
  كيف اربط قاعدة البيانات ل سكول سرفير ahmed_egypt 8 869 05-04-17, 04:39 PM
آخر رد: ahmed_egypt
  هل ممكن ان يتم استبدال قيمة من قاعدة بيانات باسم ثابت في datareport ابن دوعن 3 469 02-01-17, 04:40 PM
آخر رد: sendbad100
  [سؤال] اصلاح قاعدة البيانات من نوع اكسس amer2000 4 719 15-12-16, 12:49 PM
آخر رد: Amir_alzubidy
  [سؤال] سؤال حول البحث. المتكرر في قاعدة البيانات وفرزها في التكستات عمور2016 10 1,015 10-12-16, 03:02 PM
آخر رد: عبد العزيز البسكري

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


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