עולם הדלפי

שיעור 5:  כפתורי רדיו

 בגרסא הזו של EuroCC, נחליף את הכפתורים (Buttons) בכפתורי רדיו (RadioButtons) כמו כן נכיר סב - רוטינות, אשר מייסדות את הכוח של כל שפת תכנות אמיתית.

הכנות 

1. אם עוד לא עשית זאת, הורדeuroen02.zip  ל- \Delphi_tutorial תוכל למצוא קובץ זה בדף ההורדות של Delphi tutorial.

אל תעשה לוunzip  עכשיו. זכור שכל פרויקט שוכן בספריה משלו. כמו-כן הסכמנו לשמור את כל קבצי ה-zip  ב- \Delphi_tutorial.

2. צור ספריה חדשה: .\Delphi_tutorial\EuroEn02

3. העתק euroen.zip  ל- Delphi_tutorial\EuroEN02\ ובצעunzip  לקובץ בספריה זו. בדוק שיש לך את כל הקבצים euroen02.dpr, euroform.dfm  ו- euroform.pas.

  דף ההורדות

[לראש העמוד]

מה יהיו התוצאות ?

 כמו בשיעור הקודם, בוא נציץ בתוצר של גרסא 2 של EuroCC.

1. אתחל את דלפי ופתח את הפרויקט .euroen.dpr

2. קמפל את האפליקציה. דלפי תתחיל את האפליקציה ב"סביבת" הדבגר.

3. שחק עם התכנית. השווה זאת עם הגרסא הקודמת, EuroEN01: שים לב שה- Label למטבע הפותח נעלמה (CurrLabel). התווית (Label) עם כותרת "equal" הוחלפה בכפתור. הכפתורים להמרות (EuroButtons ו- BEFButtons) הוחלפו בקבוצה של כפתורי רדיו, RadioGroup)) כמו כן יש שינוי נוסף שאינך יכול לראות בהרצת התכנית, אלא רק בזמן "תכנון". מס' התוויות (Labels) לתוצאות ושמות המטבעות קטן בחצי. כעת כל תווית (Label) מראה את הסכום וגם את המטבע: שילבנו את שתי המחרוזות למחרוזת אחת חדשה.

שים לב שבגרסא הזו הסכומים מיושרים בצורה טובה, שלא כמו בגרסא הקודמת. השגנו זאת ע"י החלפת הגופן (font) של התווית (label) בגופן מסוג "fixed width" ("סידור הרוחב") וע"י יישור לימין של התוויות.  

4. עצור את האפליקציה.

בתפריט ה- File לחץ Close All.  

5. מחק את כל הקבצים מ-\Delphi_tutorial\EuroEN02 – קבצי ה- zip  המקוריים נמצאים עדיין ב- \Delphi_tutorial, אני מקווה…

6.  התחל אפליקציה חדשה בדלפי.

7. שמור מיד את הקבצים (ראה שעור 2) בתיבת השמירה Save unit1 as, בחר בספריה \Delphi_tutorial\EuroEN02  והקלד euroform כשם הקובץ. בתיבת השמירה הבאה Save Project1 As, הקלד  eoroen02  כשם קובץ הפרויקט.

אנליזה מהירה

  1 Euro שווה 40.3399 BEF (פרנק בלגי). דרך אגב: ערך ההמרה עבור פרנק לוקסמבורגי זהה.

NLG 1 שווה Euro  2.20371  (גילדן הולנדי).

לחיצה על כפתור ה- "equals" צריכה להמיר את המספר  מה-edit-box  לערך ב- Euro (השיטה של החישוב תלויה בכפתור הרדיו הנלחץ) . לאחר מכן הערך מומר מ-  Euro למטבע אחר והתוצאות מופיעות בתוויות (labels). התווית שתואמת את המטבע המתחיל חייבת להיהפך לבלתי נראית.

התכנית גם מבצעת המרה כאשר כפתור רדיו (radio button) לחוץ. באותה מידה תתבצע המרה ע"י הקלדת ערך ולחיצת  ENTER.

התכנית צריכה להתחיל בהמרה של100 Euro למטבעות אחרים.

רכיבים לאפליקציה זו, עבור שלושת סוגי המטבעות: קופסת עריכה (edit-box) אחת עבור הקלט של הסכום, כפתור (button) אחד, שלוש תוויות (labels) עבור כל התוצאות (סכומי התוצאות ושמות המטבעות).

[לראש העמוד]

הוספת רכיבים וקביעת מאפיינים

1.      שים את הרכיבים ב- Form (טופס) (תוכל למצוא את כל הרכיבים בעמוד standard בפלטת הרכיבים). ה- Form צריך להראות בערך כך:

2.      ב-Object Inspector  שנה את מאפייני הרכיבים כך:

Edit1

·         Name : InputEdit

·         Text: 100

Button1

·         Name : ConvertButton

·         Caption : equals

RadioGroup1

·         Name : CurrRadioG

·         Caption : completely delete the actual caption

·         ItemIndex : 0

Label1

·         Name : EuroLabel

Label2

·         Name : BEFLabel

Label3

·         Name : NLGLabel

3.      בחר ב- RadioGroup. ב- Object Inspector, לחץ Property Items. כעת לחץ על הכפתור עם שלוש הנקודות שהופיע:

4.      ה-String List editor  נפתחה. הקלד שלוש שורות כמופיע למטה. לאחר מכן לחץ OK.

5.      לאחר גרירה ושינוי הגודל של הרכיבים, ה-form  צריך להראות כך:

6.      ב-form  בחר שלוש תוויות (labels). ניתן לבצע זאת ע"י לחיצה על SHIFT ולחיצה על כל תווית (או ע"י לחיצה על SHIFT  ושימוש בעכבר בכדי ליצור מלבן בחירה מסביב לשלושת הרכיבים).

כעת אתה יכול לקבוע את המאפיינים של כל התוויות (labels) בבת אחת כדלהלן:

• Alignment: taRightJustify
• AutoSave: False
• Width: 130
• Font: לחץ על המאפיין, כעת לחץ על הכפתור עם השלוש נקודות.

בתיבת הדאלוג של הגופן (פונט), בחר בגופן  (כיוון שבו לכל התווים רוחב אחיד), גודל 9, צבע Navy.

גרסא מפושטת של הקוד

1.      בחר ConvertButton. ב- Object Inspector, לחץ על החוצץ Events לאחר מכן, לחץ לחיצה כפולה (עם העכבר) על השדה הלבן ליד OnClick.דלפי נותנת למבצע המאורע את השם: .ConventButtonClick

ב-Editor  (עורך), דלפי יצרה תבנית עבור מבצע המאורע הנ"ל. הוסף קצת קוד למבצע המאורע כדלהלן:

 procedure TForm1.ConvertButtonClick(Sender: 
TObject); begin CurrConvert; end;

2.      בחר ב- RadioGroup. צור מבצע מאורע עבור מאורע ה- OnClick  ב- ObjectInspector והשלם זאת ב- code editor:

 procedure TForm1.ConvertRadioGClick(Sender: 
TObject); begin CurrConvert; end;

CurrConvert זה השם עבור הפרוצדורה שתבצע את החישוב ושתראה את התוצאות. בלי שגרה זו "CurrConvert", נצטרך לחזור על כל הקוד בשני מבצעי המאורעות מאוחר יותר, נצטרך לחזור על הבלוק הזה של הקוד במבצע המאורע השלישי והרביעי: אחד עבור לחיצה על כפתור ה-ENTER אחרי הכנסת הסכום, ואחד עבור ההמרה ה"אוטומטית" הראשונה שצריכה להתבצע מיד לאחר התחלת התכנית.

3.      קודם כל צריך להצהיר על כך שנשתמש בשגרה ששמה CurrConvert. הצהרה זו חייבת להופיע בחלק הראשון של הקוד, בחלק ה- interface. ב-editor, שים את הסמן בסוף השורה שאומרת {Privet declaration}  לחץ ENTER להתחלת שורה חדשה. הכנסת את הקוד הצבוע אדום.

 private { Private declarations 
} procedure CurrConvert;

4.      הקוד עבור שגרה זו צריך להיות ממוקם בחלק המימוש - implementation. שים את הסמן אחרי הנקודה פסיק שמסיימת את מבצע המאורע האחרון, אחרי ה- end;

השאר שורה ריקה והקלד זאת:

 procedureTForm1.CurrConvert; 
var Amount, Euro: real; S1: string; begin Amount := StrToFloat(InputEdit.Text); 
Euro := Amount; S1 := FormatFloat('0.00', Euro); EuroLabel.Caption := S1 + ' Euro'; 
end;

כמובן, זהו רק חלק קטן מהקוד הדרוש לנו. אנחנו לא מסתכלים על כפתורי הרדיו ואנחנו לא מבצעים שום המרות. אבל בחינת התכנית שלך בביטים (ביסים?) קטנים תגרום להקלה באיתור שגיאות.

5.      קמפל את התכנית. לחץ על ConventionButton. הכנס ערך ל- Edit-b0x  לחץ על כפתורי הרדיו .

6.      עצור את התכנית.  

[לראש העמוד]

להתראות בשיעור 6!

מה זו מחרוזת?  

מחרוזת זו סדרה של תווים, אתה יכול להציג מחרוזת ע"י השמה שלה בכותרת (caption) של רכיב (טופס (form), תווית (label), כפתור (Button)) או בטקסט של רכיב (לדוגמא, Edit).

בקוד המקור, ייוצג תוכן של מחרוזת בין מרחאות (לא כפולות).

במחרוזות ניתן לטפל בדרכים מרבות, לדוגמא: לחבר שתי מחרוזות בכדי ליצור מחרוזת חדשה:

S2: = 'ABC' + 'DEF'