بسكال الجزء الثاني

Document Sample
بسكال الجزء الثاني Powered By Docstoc
					                   ‫جعيٌ بشٍجة ‪ Pascal‬اىذسس اىثاّٜ - االى٘اُ , االحذاثٞات , اىْ٘افز ٗ اىص٘ت‬




                                                                                             ‫االلوان :‬

                                                                        ‫ٝ‬
                         ‫ىحغٞٞش ىُ٘ اىْص اىزٛ ُطبع عيٚ اىشاشٔ َٝنْْا اسحخذاً االٍش ‪. TextColor‬‬

                                                                                               ‫مثال :‬


‫;‪program Colors‬‬

‫‪uses‬‬
‫;‪crt‬‬

‫‪begin‬‬
‫;)‪TextColor(Red‬‬
‫;)'‪Writeln('Hello‬‬
‫;)‪TextColor(White‬‬
‫;)'‪Writeln('world‬‬
‫.‪end‬‬




  ‫االٍش ‪ٝ TextBackground‬قً٘ بحغٞٞش ىُ٘ خيفٞة اىْص . ارا مْث جشٝذ جغٞٞش ىُ٘ خيفٞة اىشاشٔ إىٚ ىُ٘‬
                                                                                           ‫ٞ‬
                                                            ‫ٍعِّ ٝجب اُ جسحخذً االٍش ‪. ClrScr‬‬
‫;‪program Colors‬‬

‫‪uses‬‬
‫;‪crt‬‬

‫‪begin‬‬
‫;)‪TextBackground(Red‬‬
‫;)'‪Writeln('Hello‬‬
‫;)‪TextColor(White‬‬
‫;‪ClrScr‬‬
‫.‪end‬‬



                                                                                             ‫إحداثيات الشاشه :‬

 ‫َٝنْل اُ جضع اىسٌٖ فٜ اٛ ٍناُ جشٝذٓ فٜ اىشاشٔ بئسحخذاً االٍش ‪ . GoToXY‬فٜ اىذٗس , اىشاشٔ بعشض 80 حشف‬
      ‫ٗ اسجفاعٖا 25 حشف . ٝحغٞش اىط٘ه ٗ اىعشض فٜ اىَْصات االخشٙ , قذ جحزمش اىشسً٘ اىبٞاّٞٔ فٜ اىشٝاضٞات . احذاثٞات‬
                              ‫ش‬
  ‫اىشاشٔ مزىل جعَو بْفس اىطشٝقٔ . فٜ اىَثاه اىزٛ س٘ف ّعشضٔ س٘ف ّعشف مٞف ّح ّك اىَؤشش إىٚ اىعَ٘د اىعاشش‬
                                                                                                 ‫فٜ اىصف اىخاٍس‬


‫;‪program Coordinates‬‬

‫‪uses‬‬
‫;‪crt‬‬

‫‪begin‬‬
‫;)5,01(‪GoToXY‬‬
‫;)'‪Writeln('Hello‬‬
‫.‪end‬‬


                                                                                                       ‫النوافذ :‬

‫اىْ٘افز سحسَح ىل بحعشٝفٖا عيٚ اىشاشٔ ىنٜ جححو اىَْطقٔ اىحٜ جطيبٖا . ارا قَث بئّشاء اىْافزٓ ٗ‬
 ‫قَث بحْظٞف اىشاشٔ س٘ف ٝحٌ جْظٞف ٍا عيٚ اىشاشٔ فقط . االٍش ‪ٝ Window‬أخز 4 باساٍحشات ٗ ٌٕ‬
                                                         ‫إحذاثٞات (اعيٚ , ٝساس , َِٝٞ , اسفو) .‬

‫;‪program Coordinates‬‬

‫‪uses‬‬
‫;‪crt‬‬

‫‪begin‬‬
‫;)5,01,1,1(‪Window‬‬
‫;)‪TextBackground(Blue‬‬
‫;)‪ClrScr(Blue‬‬
‫.‪end‬‬


                                                                                                       ‫الصوت :‬

                                                                                     ‫ٝ‬
‫االٍش ‪ُ Sound‬صذس ص٘ت باىحنشاس اىزٛ جطيبٔ ٍْٔ اىزٛ جطيبٔ ٍْٔ . االٍش ‪ٝ Delay‬أخز اى٘قث باىث٘اّٜ اىحٜ‬
                                       ‫ٞ‬
 ‫جخبشٓ بٖا . ٝسحخذً ٕزا االٍش بِٞ االٍشِٝ ‪ NoSound ٗ Sound‬ى ُصذس اىص٘ت االخٞش ٍِ ٍقذاس ٍعِٞ ٍِ‬
                                                                                            ‫اى٘قث‬
program Sounds;

uses
crt;

begin
Sound(1000);
Delay(1000);
NoSound;
end.



                  www.monimay@maktoob.com
                      monimay20@yahoo.com
                    monimay123@hotmail.com
                                0912404872

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:10
posted:9/13/2011
language:Arabic
pages:3