صفحه اول
به وبلاگ آموزش برنامه نویسی خوش آمدید ، برای شما لحظات خوشی را در این وبلاگ آرزو می کنم . این وبلاگ با هدف آموزش برنامه نویسی با تمام زیان ها ایجاد شده است به همین خاطر مطالب این پایگاه گلچینی از بهترین آموزش ها در اینترنت می باشد . من "رضا عبدالملکی " دانشجوی دوره کاردانی رشته کامپیوتر از شهرستان دورود در استان لرستان هستم و منتظر نظرات ، پیشنهادات و انتقادات شما می باشم . موفق و پیروز باشید .
ممكن است مطالب اين سري آموزشي براي شما در قسمتهاي قبل تكراري باشد اما اين سري آموزشي بسيار كاملتر از قسمتهاي قبلي است .
قسمت سوم:
قسمت سوم:
قبل از شروع مطلب اين نكته را متذكر مي شوم كه اين سري مقالات براي افرادي كه آشنايي اوليه با برنامه نويسي و ترجيحاً برنامه نويسي تحت ويندوز دارند مفيد تر مي بلشد چون آموزش جزئيات بيشتر در حوصله اين سري مقالات نمي گنجد.
براي نوشتن كدهاي آزمايشي اين بخش كارهاي زير را انجام بدهيد:
دلفي را اجرا كنيد.
اگر پروژه جديدي به طور خودكار باز نشد، File|New Project را از منوي دلفي انتخاب كنيد.
Project|Options|Linker را انتخاب كنيد، كادر مكالمه Generate Consol Application را انتخاب كنيد، و سپس OK را به وسيله ماوس انتخاب كنيد. اين كار براي دلفي مشخص مي كند برنامه اي كه ايجاد مي كنيد، يك برنامه پنجره دار نيست، بلكه برنامه اي از نوع «پنجرهDos » است.
View|Project Source را انتخاب كنيد، متن اصلي پروژه در پنجره ويراستار قابل رويت خواهد بود. اگر چه اين متن عموماً ويرايش نمي شود، اما در اين حالت بايد اين متن را با متن خودتان جايگزين كنيد. اين يك روش آسان براي ايجاد يك برنامه است
زمانيكه برنامه را اجرا مي كنيد، حاصل آن در پنجره خودش ظاهر مي شود. براي بستن پنجره خروجي، Alt+F4 را فشار دهيد، يا x را از گوشه بالايي پنجره خروجي انتخاب كنيد.
نكته اي كه در اينجا وجود دارد. زماني كه متن قديمي را با متن برنامه خود جايگزين مي كنيد، پروژه را ابتدا با نام جديدي ذخيره كنيد، و يا خط Program پروژه را تغيير ندهيد.
كنترل جريان برنامه:
دلفي دو ساختار براي كنترل جريان برنامه دارد كه به تفصيل به آنها مي پردازيم.
دستور If...Then...Else
اين دستور از اساسي ترين دستورات شرطي مي با شد كه اين امكان را به برنامه نويس مي دهد كه پرسشي را مطرح كرده و بر اساس پاسخ آن كار يا عمل درخواستي را انجام دهد. مثالي در اين رابطه:
program IfDemo;
uses Forms;
var UserInput : Integer;
begin
Write('How old are you ? ');
ReadLn(UserInput);
If (UseerInput < 1) or (UserInput > 130) Then
WriteLn('You are not telling the truth.')
Else
WriteLn('Being ', UserInput, 'yers old is great!');
WriteLn('Press Enter to Exit program');
ReadLn {To keep the window from closing until you press Enter}
end {InDemo}
در برنامه فوق عبارت بين If...Then در صورتي كه عدد ورودي توسط كاربر كوچكتر از 1 يا بزركتر از 130 باشد برابرTrue شده در نتيجه كد نوشته شده بين Then...Else اجرا مي شود. در غير اين صورت عبارت بعد از Else اجرا مي شود.
درصورتي كه بخواهيم بيش از يك دستور را بين Then...Else و يا بعد ازElse قرار دهيم بايد از يك بلاك استفاده كنيم
بلاك:
مجموعه اي از دستورات كه بين Begin...End واقع مي شوند.
دستور Case...of
همانند دستور If...Then مي باشد ولي با اين تفاوت كه بجاي دو حالت True و False چند حالت را بررسي مي كند. براي تشريح اي ساختار به مثال زير توجه كنيد.
program CaseDemo;
Uses Forms;
var UserIn : Char;
begin
Write('Type in character followed dy the Enter key: ');
ReadLn(UserIn);
Case UserIn of
'a' :WriteLn('That is a Small a');
'z','Z':WriteLn('That is a small or capital z')
else
WriteLn('That is a character other than an a, z, or Z.')
end;
WriteLn('Press Enter to exit program');
ReadLn {To keep the window from closing until you press Enter}
end {CaseDemo}
در مثال فوق در صورتي كه مقدار بين Case...of برابر با هر يك از ثابتهاي قبل از علامت (:) باشد، دستور يا بلاك دستورات بعد از علامت (:) اجرا مي شود. همچنين، توجه به اين امر كه يك دستور end در پايان به عنوان پايان بخش دستور Case قرار مي گيرد نيز بسيار مهم است. در ضمن قسمت else نيز در اين ساختار اختياري بوده و مي تواند حذف شود.
منبع : prdev.com
ارسال در تاريخ سه شنبه 24 آذر 1388 توسط
رضا عبدالملكي