منو
 کاربر Online
729 کاربر online
 : کامپیوتر
برای پاسخ دادن به این ارسال باید از صفحه قبلی اقدام کنید.   کاربر offline دبیر گروه کامپیوتر 3 ستاره ها ارسال ها: 1679   در :  سه شنبه 25 اسفند 1388 [23:28 ]
  کنترل برنامه ( ساختارهای تصمیم گیری)
 

با سلام خدمت دانش آموزان و کاربران محترم

نکته : با توجه به گذشت چند ماه از سال تحصیلی انجمن کامپیوتر بر آن شد تا آموزش کتابهای درسی را هماهنگ با سرفصل های در حال تدریس آغاز کند. نکته :کلیه دانش آموزان و کاربران گرامی می توانند جهت حل مشکلات و پاسخ به سوالات خود از طریق ارسال پست با انجمن در ارتباط باشند.


موضوع : کنترل برنامه ( ساختارهای تصمیم گیری)

عملگرهای منطقی ویژوال بیسیک عبارتند از:
And، هر دو گذاره باید درست باشد
Or، حداقل یکی از دو گذاره باید درست باشد
Xor، فقط یکی از دو گذاره باید درست باشد نه هر دو
Not، نقیض


ترتیب عملگرهای محاسباتی، رابطه ای و منطقی در ویژوال بیسیک عبارتند از:
()
^
،*،/،، Mod
+ ، - عملگرهای شرطی
عملگرهای منطقی Not
And
Or
Xor




ساختارهای تصمیم:

ساختارهای تصمیم، مجموعه ای از دستور العمل ها هستندکه امکان تصمیم گیری را برای اجرا یا عدم اجرای بعضی از بخشهای برنامه فراهم می کنند. ساختارهای تصمیم که در ویژوال بیسیک وجود دارند عبارتند از: if ، Select Case که با چند مثال آنان را توضیح می دهیم.

دستور if

این دستور، شرطی را تست می کند و بر اساس نتیجه شرط (درستی یا نا درستی) بخشی از برنامه را اجرا می کند.
کاربردهای این دستور به صورت زیر است:

مجموعه دستورات 2 Else مجموعه دستورات 1 then شرط if


If شرط Then مجموعه دستورات (1) else مجموعه دستورات(2)


If شرط Then

دستور اول

دستور دوم
.
.

.

else

دستور اول

دستور دوم

.

.

.

End if




مثال 1 : برنامه ای که دو عدد صحیح را از ورودی دریافت کرده کوچکترین عدد را در خروجی چاپ کند.
مراحل طراحی و اجرای برنامه:

1- پروژه جدیدی ایجاد کنید.

2- دو عنصر Label ، سه عنصر Text Box ، و یک عنصر CommandButtom ، به فرم اضافه کنید.

3- خاصیت Caption و Name عنصر CommandButtom را به Min تغییر دهید.

4- در ناحیه خالی فرم 2 بار کلیک کنید. دستورات رویداد Form_Load را به صورت زیر تایپ کنید.

Label1.Autosize = True

Label2.Autosize = True

Label1.Caption = “ Enter Number One ”

Label1. Caption = “ Enter Number Two ”

Text1.text=””

Text2.text=””

Text3.TabStop= False


5- در بخش Object ، دکمه Min را دو بار کلیک کنید و دستوراتی به شرح زیر در رویداد آن تایپ کنید.

Text3.text=” Min is :”

If Val(text1.text) < Val(text2.text) Then text3.text = text1.text Else text3.text = text2.text


6 – پروژه را با کلید F5 اجرا کنید، دو عدد را وارد کرده و دکمه Min را کلیک کنید تا عدد کوچکتر در Text 3 نمایان شود.



__دانش آموزان و کاربران محترم
لطفا به سوال زیر همانند مثال بالا پاسخ دهید و نتیجه را از طریق پست برای در انجمن برای دیگران نشان دهید.__



سوال :
برنامه ای که حقوق کارمندان را از ورودی خوانده و بعد از محاسبات حقوق کامل کارمند را نمایش دهد. فرمول های محاسبات حقوق کارمند:
حقوق ناخالص * 7% = بیمه

اگر حقوق < = 40000 مالیات صفر است

اگر حقوق > = 40000 مالیات (40000 - حقوق) * 10% است

حقوق خالص = حقوق ناخالص - بیمه - مالیات


  امتیاز: 0.00