شرح برنامج أستخدام المتغيرات مع العناصر مع الحلقات

[mahmoud2hack]

السلام عليكم ورحمة الله وبركاته
برنامج بسيط لشرح الحلقات مع المتغيرات بطريقة مفصلة وسهلة , تتيح للمبتدأ تعلمهم الاثنين معا . الطبع بعد موضوعي الاول
الذي طرحت به سؤال , الحمد لله قد علمت الاجابة وسأطبقها في هذا الشرح ::::

نبدأ بأذن الله :

هذا شكل البرنامج النهائي بأذن الله :

كود :

http://www12.0zz0.com/2013/04/24/21/264120506.png

نقوم بفتح فورم جديد . ونضع عليه أثنان EDIT و MEMO و ثلاث أزرار BUTTON

ليكون شكل البرنامج كالسابق , ثم نضغط علي الفورم مرتان للدخول الي صفحة كتابة الكود , ونكتب :

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.AutoSize := true ;
form1.AutoScroll := false ;
form1.BorderWidth := 20 ;
form1.Caption := 'Loops';
form1.ShowHint := true ;
form1.Hint := 'MarzOoOK';
form1.Color := clGray ;
edit1.Text := '3';
edit2.Text := 'Write Your Words That Will Repeat';
memo1.Text := '';
memo1.Enabled := false ;
button1.Caption := 'START';
button2.Caption := 'FiLL';
button3.Caption := 'EXIT';
end; 


بالطبع تلك هي خصائص الفورم والعناصر الموجودة عليه ... أي حجم الفورم والمساحة التلقائية وعنواين العناصر وأظهار التلميحات وهكذا , مجرد خصائص


ثم . نضغط علي الزر الاول دبل كليك للدخول الي صفحة كتابة الكود الخاصة بالزر الاول , وليكون الحدث هو حدث ( CLICK ) . ونكتب :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
    x : integer ;
    i , v : string ;
begin

i := edit1.Text ;
v := edit2.Text ;

FOR x := 1 TO strtoint(i) DO
begin
    memo1.Lines.Add(v);
end;
end; 


صرحنــا عن ثلاث متحولات ( x و i و v ) :
المتحول X من النوع integer (رقمي صحيح) , لانه سيكون بمثابة عداد الحلقة .
المتحول v و i من النوع string ( نصي ) . لماذا نصي ؟؟ لاننا سنقوم بأستقبال النصوص التي سيقوم المستخدم بأدخالها في عناصر الــ EDIT , ثم أسنادها الي تلك المتحولات , أي لابد أن تكون نوع تلك المتغيرات نصيـــة , لانها ستقوم بأستقبال متغيرات نصية !! اتمني أن تكون الفكرة وصلت ...

قمنا بأسناد قيم :
Edit1.text الي المتغير i
و
edit2.text الي المتغير v

الان :نقوم بكتابة الحلقة ( سنستخدم حلقة من النوع FOR وبالطبع يمكننا أستخدام أي نوع أخر ) .
نسند المتغير X ليكون عداد الحلقة , ثم نضع الشرط وهو : ( طالما المتغير X يساوي رقم 1 الي رقم المتغير i )
نلاحظ أننا أستخدمنا دالة strtoint لقراءة القيمة المدخلة في EDIT كقيمة رقمية وليست نصية .

أذن الحلقة هي : طالما المتغير X يساوي رقم 1 الي الرقم ( الذي سيقوم المستخدم بأدخاله في العنصر EDIT1 لتحديد عدد التكرارات كما يريد ) , قم بأضافة الجملة المسندة الي المتغير V ( الخاص بالعنصر EDIT2 ) الذي سيقوم المستخدم أيضا بأختياره .............
وبارك الله فيكم وبكم