Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 21 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

21
Memo1.Lines.Add(FormatFloat('#####.##### Ƚɪɚɦɦ =',x)+
FormatFloat('#####.#####'y) +
ListBox1.Items [ListBox1.ItemIndex]);
Edit1.Clear;
Edit1.SetFocus;
end;
4. Ɉɫɭɳɟɫɬɜɢɬɟ ɩɪɨɝɨɧ ɩɪɨɝɪɚɦɦɵ ɢ ɜɵɩɨɥɧɢɬɟ ɧɟɫɤɨɥɶɤɨ ɤɨɧ-
ɬɪɨɥɶɧɵɯ ɪɚɫɱɟɬɨɜ:
1234 ɝ = 3,085 Ɏɭɧɬ
1234 ɝ = 0,07534 ɉɭɞ
1234 ɝ = 43,52734 ɍɧɰɢɹ
1234 ɝ = 696,43739 Ⱦɪɚɯɦ
1234 ɝ = 19043,20988 Ƚɪɚɧ
123,4 ɝ = ?
12,34 ɝ = ?
1,234 ɝ = ?
0,1234 ɝ = ?
0, 01234 ɝ = ?
1.3. ɋɜɨɣɫɬɜɨ Anchors
1. ȼ ɪɚɛɨɬɚɸɳɟɦ ɩɪɢɥɨɠɟɧɢɢ ɦɚɤɫɢɦɢɡɢɪɭɣɬɟ ɨɤɧɨ. Ɉɛɪɚɬɢɬɟ ɜɧɢ-
ɦɚɧɢɟ ɧɚ ɦɟɫɬɨɩɨɥɨɠɟɧɢɟ ɤɧɨɩɤɢ <Close> ɨɬɧɨɫɢɬɟɥɶɧɨ ɥɟɜɨɝɨ ɤɪɚɹ ɮɨɪ-
ɦɵ.
2. Ɂɚɤɪɨɣɬɟ ɩɪɢɥɨɠɟɧɢɟ. ɋɞɟɥɚɟɦ ɬɚɤ, ɱɬɨɛɵ ɤɧɨɩɤɚ <Close> ɜɫɟɝɞɚ
ɨɫɬɚɜɚɥɚɫɶ ɜ ɩɪɚɜɨɦ ɧɢɠɧɟɦ ɭɝɥɭ. ȼɨɫɩɨɥɶɡɭɟɦɫɹ ɫɜɨɣɫɬɜɨɦ Anchors. ɉɨ
ɭɦɨɥɱɚɧɢɸ ɷɬɨ ɫɜɨɣɫɬɜɨ ɢɦɟɟɬ ɡɧɚɱɟɧɢɟ [akTop, akLeft]. ɉɪɢɫɜɨɢɦ ɷɬɨɦɭ
ɫɜɨɣɫɬɜɭ ɡɧɚɱɟɧɢɟ [akRight, akBottom]. Ⱦɥɹ ɷɬɨɝɨ ɜ ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ
ɫɜɨɣɫɬɜɚ Anchors ɡɚɞɚɞɢɦ: akTop – False; akLeft – False; akRight – True;
akBottom – True.
3. Ɉɫɭɳɟɫɬɜɢɬɟ ɩɪɨɝɨɧ ɩɪɨɝɪɚɦɦɵ ɢ ɩɪɨɜɟɪɶɬɟ, ɜɟɪɧɨ ɥɢ ɜɵ ɢɫɩɨɥɶ-
ɡɨɜɚɥɢ ɫɜɨɣɫɬɜɨ Anchors.
4. Ⱦɥɹ ɬɨɝɨ ɱɬɨɛɵ ɪɚɡɦɟɪ ɧɢɠɧɟɣ ɩɚɧɟɥɢ ɢɡɦɟɧɹɥɫɹ ɩɪɨɩɨɪɰɢɨɧɚɥɶɧɨ
ɪɚɡɦɟɪɭ ɨɤɧɚ, ɩɪɢɫɜɨɣɬɟ ɫɜɨɣɫɬɜɭ Anchors ɡɧɚɱɟɧɢɟ [akTop, akLeft,
akRight, akBottom]. Ɂɚɩɭɫɬɢɬɟ ɩɪɨɝɪɚɦɦɭ ɢ ɜɵ ɭɜɢɞɢɬɟ, ɱɬɨ ɩɪɢ ɢɡɦɟɧɟ-
ɧɢɢ ɪɚɡɦɟɪɨɜ ɨɤɧɚ Panel1 ɬɨɠɟ ɦɟɧɹɟɬ ɫɜɨɢ ɪɚɡɦɟɪɵ.
1.4. Ʉɨɦɩɨɧɟɧɬ TGroupBox
1. ɍɫɬɚɧɨɜɢɬɟ ɧɚ Panel1 ɤɨɦɩɨɧɟɧɬ TGroupBox ɢ ɡɚɞɚɣɬɟ ɫɜɨɣɫɬɜɨ
Caption ɪɚɜɧɵɦ «
ɇɚɫɬɪɨɣɤɚ ɪɟɞɚɤɬɨɪɚ». ɋ ɩɨɦɨɳɶɸ ɷɬɨɝɨ ɤɨɦɩɨɧɟɧɬɚ
ɜɵɞɟɥɹɟɬɫɹ ɝɪɭɩɩɚ ɭɩɪɚɜɥɹɸɳɢɯ ɷɥɟɦɟɧɬɨɜ, ɨɛɴɟɞɢɧɟɧɧɵɯ ɩɨ ɮɭɧɤɰɢɨ-
ɧɚɥɶɧɨɦɭ ɧɚɡɧɚɱɟɧɢɸ.
1.5. Ʉɨɦɩɨɧɟɧɬ TɋheckBox
1. ɋɨɫɬɨɹɧɢɟ ɷɬɨɝɨ ɤɨɦɩɨɧɟɧɬɚ ɫɨɞɟɪɠɢɬ ɫɜɨɣɫɬɜɨ State:
cbUnchecked – ɧɟɬ; cbChecked – ɞɚ; cbGrayed – ɧɟ ɡɧɚɸ. ɗɬɨ ɫɜɨɣɫɬɜɨ
ɞɨɫɬɭɩɧɨ ɤɚɤ ɞɥɹ ɱɬɟɧɢɹ, ɬɚɤ ɢ ɞɥɹ ɡɚɩɢɫɢ. ɋɜɨɣɫɬɜɨ Checked ɫɨɞɟɪɠɢɬ
ɜɵɛɨɪ ɩɨɥɶɡɨɜɚɬɟɥɹ ɬɢɩɚ Ⱦɚ/ɇɟɬ. ɍɫɬɚɧɨɜɢɬɟ ɞɜɚ ɤɨɦɩɨɧɟɧɬɚ TɋheckBox
      Memo1.Lines.Add(FormatFloat('#####.##### Ƚɪɚɦɦ =',x)+
                      FormatFloat('#####.#####'y) +
                      ListBox1.Items [ListBox1.ItemIndex]);
      Edit1.Clear;
      Edit1.SetFocus;
    end;
     4. Ɉɫɭɳɟɫɬɜɢɬɟ ɩɪɨɝɨɧ ɩɪɨɝɪɚɦɦɵ ɢ ɜɵɩɨɥɧɢɬɟ ɧɟɫɤɨɥɶɤɨ ɤɨɧ-
ɬɪɨɥɶɧɵɯ ɪɚɫɱɟɬɨɜ:
            1234 ɝ = 3,085 Ɏɭɧɬ              123,4 ɝ = ?
            1234 ɝ = 0,07534 ɉɭɞ             12,34 ɝ = ?
            1234 ɝ = 43,52734 ɍɧɰɢɹ          1,234 ɝ = ?
            1234 ɝ = 696,43739 Ⱦɪɚɯɦ         0,1234 ɝ = ?
            1234 ɝ = 19043,20988 Ƚɪɚɧ        0, 01234 ɝ = ?

     1.3.   ɋɜɨɣɫɬɜɨ Anchors
    1. ȼ ɪɚɛɨɬɚɸɳɟɦ ɩɪɢɥɨɠɟɧɢɢ ɦɚɤɫɢɦɢɡɢɪɭɣɬɟ ɨɤɧɨ. Ɉɛɪɚɬɢɬɟ ɜɧɢ-
ɦɚɧɢɟ ɧɚ ɦɟɫɬɨɩɨɥɨɠɟɧɢɟ ɤɧɨɩɤɢ  ɨɬɧɨɫɢɬɟɥɶɧɨ ɥɟɜɨɝɨ ɤɪɚɹ ɮɨɪ-
ɦɵ.
    2. Ɂɚɤɪɨɣɬɟ ɩɪɢɥɨɠɟɧɢɟ. ɋɞɟɥɚɟɦ ɬɚɤ, ɱɬɨɛɵ ɤɧɨɩɤɚ  ɜɫɟɝɞɚ
ɨɫɬɚɜɚɥɚɫɶ ɜ ɩɪɚɜɨɦ ɧɢɠɧɟɦ ɭɝɥɭ. ȼɨɫɩɨɥɶɡɭɟɦɫɹ ɫɜɨɣɫɬɜɨɦ Anchors. ɉɨ
ɭɦɨɥɱɚɧɢɸ ɷɬɨ ɫɜɨɣɫɬɜɨ ɢɦɟɟɬ ɡɧɚɱɟɧɢɟ [akTop, akLeft]. ɉɪɢɫɜɨɢɦ ɷɬɨɦɭ
ɫɜɨɣɫɬɜɭ ɡɧɚɱɟɧɢɟ [akRight, akBottom]. Ⱦɥɹ ɷɬɨɝɨ ɜ ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ
ɫɜɨɣɫɬɜɚ Anchors ɡɚɞɚɞɢɦ: akTop – False; akLeft – False; akRight – True;
akBottom – True.
    3. Ɉɫɭɳɟɫɬɜɢɬɟ ɩɪɨɝɨɧ ɩɪɨɝɪɚɦɦɵ ɢ ɩɪɨɜɟɪɶɬɟ, ɜɟɪɧɨ ɥɢ ɜɵ ɢɫɩɨɥɶ-
ɡɨɜɚɥɢ ɫɜɨɣɫɬɜɨ Anchors.
    4. Ⱦɥɹ ɬɨɝɨ ɱɬɨɛɵ ɪɚɡɦɟɪ ɧɢɠɧɟɣ ɩɚɧɟɥɢ ɢɡɦɟɧɹɥɫɹ ɩɪɨɩɨɪɰɢɨɧɚɥɶɧɨ
ɪɚɡɦɟɪɭ ɨɤɧɚ, ɩɪɢɫɜɨɣɬɟ ɫɜɨɣɫɬɜɭ Anchors ɡɧɚɱɟɧɢɟ [akTop, akLeft,
akRight, akBottom]. Ɂɚɩɭɫɬɢɬɟ ɩɪɨɝɪɚɦɦɭ ɢ ɜɵ ɭɜɢɞɢɬɟ, ɱɬɨ ɩɪɢ ɢɡɦɟɧɟ-
ɧɢɢ ɪɚɡɦɟɪɨɜ ɨɤɧɚ Panel1 ɬɨɠɟ ɦɟɧɹɟɬ ɫɜɨɢ ɪɚɡɦɟɪɵ.
    1.4. Ʉɨɦɩɨɧɟɧɬ TGroupBox
    1. ɍɫɬɚɧɨɜɢɬɟ ɧɚ Panel1 ɤɨɦɩɨɧɟɧɬ TGroupBox ɢ ɡɚɞɚɣɬɟ ɫɜɨɣɫɬɜɨ
Caption ɪɚɜɧɵɦ «ɇɚɫɬɪɨɣɤɚ ɪɟɞɚɤɬɨɪɚ». ɋ ɩɨɦɨɳɶɸ ɷɬɨɝɨ ɤɨɦɩɨɧɟɧɬɚ
ɜɵɞɟɥɹɟɬɫɹ ɝɪɭɩɩɚ ɭɩɪɚɜɥɹɸɳɢɯ ɷɥɟɦɟɧɬɨɜ, ɨɛɴɟɞɢɧɟɧɧɵɯ ɩɨ ɮɭɧɤɰɢɨ-
ɧɚɥɶɧɨɦɭ ɧɚɡɧɚɱɟɧɢɸ.
    1.5. Ʉɨɦɩɨɧɟɧɬ TɋheckBox
    1. ɋɨɫɬɨɹɧɢɟ ɷɬɨɝɨ ɤɨɦɩɨɧɟɧɬɚ ɫɨɞɟɪɠɢɬ ɫɜɨɣɫɬɜɨ State:
cbUnchecked – ɧɟɬ; cbChecked – ɞɚ; cbGrayed – ɧɟ ɡɧɚɸ. ɗɬɨ ɫɜɨɣɫɬɜɨ
ɞɨɫɬɭɩɧɨ ɤɚɤ ɞɥɹ ɱɬɟɧɢɹ, ɬɚɤ ɢ ɞɥɹ ɡɚɩɢɫɢ. ɋɜɨɣɫɬɜɨ Checked ɫɨɞɟɪɠɢɬ
ɜɵɛɨɪ ɩɨɥɶɡɨɜɚɬɟɥɹ ɬɢɩɚ Ⱦɚ/ɇɟɬ. ɍɫɬɚɧɨɜɢɬɟ ɞɜɚ ɤɨɦɩɨɧɟɧɬɚ TɋheckBox

                                   21

Страницы