نحوه شرط گذاشتن در عملیات ریاضی

[kajooshii]

سلام
بنده فرمی دارم مطابق شکل زیر، سوال بنده اینجاست که به چه صورت کاربر یک مبلغی را وارد کند و اگر هر کدام از شرط ها برقرار بود، محاسبه درصد بر آن اساس باشد؟
کمبوباکس ها: نشانه فعال بود شرط
رادیو باتون: نوع 1: تبدیل به 3 شرط می شود - نوع 2: مستقیم 1 درصد مبلغ را محاسبه میکند


140620

[isaac23]

با Select Case اینکارو بکن یا If

if chek1.value=true then
.
.
.
شرط

end if

if chek2.value=true then
.
.
.
شرط دوم
end if

ببخشید وی بی نصب نداشتم دقیق بنویسم

[isaac23]

با کمبو هم می تونی بگی

if combo1.enable=true
یا
if combo1.text<>"" then

[kajooshii]

سلام
بله برای بررسی کمبوباکس ها میدونم به چه صورت است فقط گذاشتن شرط محاسبه عداد ریاضی رو نمیدونم به چه صورت انجام بده
به عنوان مثال اینجا 3 شرط داریم.
*مبلغ ما 6.0000.000 است.
شرط اول اگر مبلغ خرید 3.000.000> بود 10 در صد کارمزد
شرط دوم اگر مبلغ خرید 3.000.000<= 6 درصد کارمزد
شرط سوم اگر مبلغ خرید 5.000.000 < 3 درصد کارمزد

* بنده دو شرط رو تونستم بنویسیم و مقایسه کنم! اما شرط سوم نمی تونم مقایسه کنم

[isaac23]

select Case Text1.text

case is <3000000
.... .
.
.
Case is>=3000000
.
.
.
.
case is>6000000
.
.
.
.

end select

فکر کنم اینجوری چیزی می خوای

اونجایی که نقطه گذاشتم دستوراتت رو بنویس و Text1 هم همون قیمت خرید هست .

[isaac23]

واسه بدست اوردن درصد هم که بلدی ؟

[kajooshii]

الان اگر Text = 7.000.000 باشد هم شرط دوم و هم شرط سوم برقرار است و این اشتباه است ! بنده این مشکل دارم

[isaac23]

ببین دوست عزیز فکر کنم تو کد نویست یه مشکلی داری نمونه کدهات رو بذار یه نگاه بشه بندازم ببینم به چه صورتی نوشتی

[Fery666]

دوست عزیز عکسی که شما گذاشتین از لحاظ شرطی مشکل داره .

در صورتی که مثلا مبلغ خرید 2،000،000 باشه هم شرط 1 و 2 درست هستش و توی کد نویسی کدی که آخر باشه اجرا میشه . یعنی شرط دوم .

حالا شما تصویر بزرگتری از اون قسمت بذارین تا بتونیم بیشتر بهتون کمک کنیم .

چیزی که از روی عکس میشه نوشت اینه :




If Op1.Value = True Then

If Ch1.Value = 1 Then
If Text1.Text < Text3.Text Then ' شرط 1
Label1.Caption = Val(Text1.Text * Text2.Text) / 100
End If
End If

If Ch2.Value = 1 Then
If Text1.Text <= Text5.Text Then ' شرط 2
Label1.Caption = (Val(Text1.Text) * Val(Text4.Text)) / 100
End If
End If

If Ch3.Value = 1 Then
If Text1.Text > Text7.Text Then ' شرط 3
Label1.Caption = (Val(Text1.Text) * Val(Text6.Text)) / 100
End If
End If




End If



من دیگه کامبو باکس ها رو توی کد نویسی نیاوردم ، مستقیم دستورات < = > رو نوشتم .

[vbhamed]

سلام
خب شما باید دو شرط رو همزمان بررسی کنید
if a>100 and a < 200 then
.
.
.
else if a>=200 and a<=300 then
.
.
.
.....................
.
.
.
end if