|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 10 آبان 1387 - 3:30 بعدازظهر
پست ها: 6,
بازدید ها: 21
|
|
|
چگونه میتوان یک تابع if را درون یک تابع if دیگر قرار داد؟
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: جمعه 21 اسفند 1388 - 9:38 صبح
پست ها: 1,555,
بازدید ها: 2,735
|
|
pedram-19 (پنج شنبه 25 مهر 1387 - 10:18 صبح)
چگونه میتوان یک تابع if را درون یک تابع if دیگر قرار داد؟
if تابع نیست ، دستوری برای بررسی شرط و تصمیم گیری هست
PFN Code
if (شرط)
if (شرط)
end if
end if
|
|
|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 10 آبان 1387 - 3:30 بعدازظهر
پست ها: 6,
بازدید ها: 21
|
|
|
من میخواهم که در شرط یک if دیگه قرار بدم
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: جمعه 21 اسفند 1388 - 9:38 صبح
پست ها: 1,555,
بازدید ها: 2,735
|
|
pedram-19 (جمعه 26 مهر 1387 - 9:22 صبح)
من میخواهم که در شرط یک if دیگه قرار بدم
اگر منظورتان این هست که در یک if چند شرط رو بررسی کنید ، باید از عملگر های منطقی کمک بگیرید
|
|
|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 10 آبان 1387 - 3:30 بعدازظهر
پست ها: 6,
بازدید ها: 21
|
|
مربوط به بالا:
سوال:
فروشنده ای با صاحب فروشگاهی قرارداد بست تا اجناس وی را بفروشد و درصدی از فروش اجناس را به عنوان حق الزحمه دریافت کند. درصد حق الزحمه به میزان فروش و جنس کالا بستگی دارد کالا های فروشگاه درجه یک ، درجه دو و درجه سه هستند حق الزحمه به شرح زیر تعیین می گردد:
الف-اگر کالا درجه1 باشد به ازای فروش کمتر از 5000 تومان، 10درصد و بیش از 5000 تومان 15درصد حق الزحمه
ب-اگر کالا درجه2 باشد به ازای فروش کمتر از 5000 تومان، 4درصد و بیش از 5000 تومان 10درصد حق الزحمه
ج-اگر کالا درجه3 باشد به ازای هر میزان فروش 7درصد حق الزحمه
در این برنامه برای تعیین درجه کالا از عنصر option button استفاده شود
جواب من error میده
PFN Code
Private Sub Command1_Click()
a = Val(Text1.Text)
Text2.Text = Str(b)
If Option1.Value = True Then
[If a <= 5000 Then b = 0.1 * a Else b = 0.15 * a]
ElseIf Option2.Value = True Then
[If a <= 5000 Then b = 0.04 * a Else b = 0.1 * a]
Else
b = 0.07 * a
End If
End Sub
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: جمعه 21 اسفند 1388 - 9:38 صبح
پست ها: 1,555,
بازدید ها: 2,735
|
|
PFN Code
Private Sub Command1_Click()
a = Val(Text1.Text)
If Option1.Value = True Then
If a <= 5000 Then
b = 0.1 * a
Else
b = 0.15 * a
end if
ElseIf Option2.Value = True Then
If a <= 5000 Then
b = 0.04 * a
Else
b = 0.1 * a
end if
Else
b = 0.07 * a
End If
Text2.Text = Str(b)
End Sub
|
|
|
|