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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اتصال قاعدة بيانات sql server 2005 مصمم هاوي 6 205 31-03-18, 03:04 PM
آخر رد: مصمم هاوي
  [سؤال] استعادة قاعدة بيانات SQL ABO.BANCIANA 11 2,084 30-03-18, 12:12 AM
آخر رد: Talal2018
  [سؤال] كود الاستعلام في قاعدة بيانات اكسس بين تاريخين محمد حمد محمد ليبيا 1 150 16-01-18, 01:24 AM
آخر رد: Amir_alzubidy
  ترتيب الارقام تصاعدياً او تنازلياً في Combobox hannileo 5 282 31-10-17, 04:40 PM
آخر رد: hannileo
  معالج MDB Code Wizard v1.0.1 لتحويل قاعدة بيانات إلى Module Mohamad Anan 1 204 19-10-17, 10:37 PM
آخر رد: Amir_alzubidy
  [سؤال] طلب كود للبحث عن اسم في قاعدة البيانات كلها وكود نقل سجل sher 7 357 18-10-17, 04:02 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 3 427 01-10-17, 02:37 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عن ربط قاعدة البيانات اكسس amer2000 4 457 14-05-17, 01:08 PM
آخر رد: Amir_alzubidy
  ادوات التنقل في قاعدة اجدول البيانات بواسطة List view haniblack 4 366 13-04-17, 09:57 AM
آخر رد: haniblack
  كيف اربط قاعدة البيانات ل سكول سرفير ahmed_egypt 8 1,056 05-04-17, 04:39 PM
آخر رد: ahmed_egypt

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


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