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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

24
ɩɨɧɟɧɬɚ TScrollBar
OnActivate ɜɨɡɧɢɤɚɟɬ ɞɥɹ ɮɨɪɦɵ ɜ ɦɨɦɟɧɬ ɚɤɬɢɜɢɡɚɰɢɢ ɨɤɧɚ (ɩɪɢ
ɩɨɥɭɱɟɧɢɢ ɟɸ ɮɨɤɭɫɚ ɜɜɨɞɚ)
2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ
Ɂɚɞɚɧɢɟ. ɋɨɡɞɚɣɬɟ ɩɪɢɥɨɠɟɧɢɟ ɞɥɹ ɩɟɪɟɫɱɟɬɚ ɢɡ ɨɞɧɨɣ ɫɢɫɬɟɦɵ ɢɡ-
ɦɟɪɟɧɢɹ ɜ ɞɪɭɝɭɸ. ȼɵɛɨɪ ɫɢɫɬɟɦɵ ɢɡɦɟɪɟɧɢɹ ɨɫɭɳɟɫɬɜɢɬɶ ɫ ɩɨɦɨɳɶɸ
ɤɨɦɩɨɧɟɧɬɚ TɋomboBox.
ȼɚɪɢɚɧɬɵ ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
1
1 ɦɦ. ɪɬ. ɫɬ. = 133 ɉɚ
1 ɞɢɧ/ɫɦ
2
= 0,1ɉɚ
1 ɮɢɡ. Ⱥɬɦ = 1,013 × 10
5
ɉɚ
1 ɤɝɫ × ɦ
2
= 9,81 ɉɚ
2
1 ɞɸɣɦ = 2,54 ɫɦ
1 ɹɪɞ = 0,9144 ɦ
1 ɜɟɪɫɬɚ = 500 ɫɚɠɟɧɶ
1 ɤɨɫɚɹ ɫɚɠɟɧɶ = 1,76 ɦ
3
1 ɛɭɲɟɥɶ = 36,37 ɞɦ
3
1 ɝɚɥɥɨɧ = 4,54 ɞɦ
3
1 ɩɢɧɬɚ = 0,5683 ɞɦ
3
4
1 ɤɚɥɨɪɢɹ = 4,19 Ⱦɠ
1 ɷɪɝ = 10
-7
Ⱦɠ
1 ɤɝɫ × ɦ = 9,81 Ⱦɠ
1 ɜɚɬɬ × ɱɚɫ = 3,6 × 10
3
Ⱦɠ
ɉɪɢ ɩɪɨɟɤɬɢɪɨɜɚɧɢɢ ɮɨɪɦɵ ɩɪɨɹɜɢɬɟ ɮɚɧɬɚɡɢɸ ɢ ɫɨɡɞɚɣɬɟ ɢɧɞɢɜɢ-
ɞɭɚɥɶɧɭɸ ɤɨɧɫɬɪɭɤɰɢɸ.
ɉɪɨɝɪɚɦɦɭ ɡɚɩɢɲɢɬɟ ɜ ɩɨɞɤɚɬɚɥɨɝ Lab_2_s ɜɚɲɟɝɨ ɤɚɬɚɥɨɝɚ.
3.2. Ɉɛɪɚɛɨɬɤɚ ɢɫɤɥɸɱɢɬɟɥɶɧɵɯ ɫɢɬɭɚɰɢɣ.
Ʉɨɦɩɢɥɹɰɢɹ ɢ ɨɬɥɚɞɤɚ ɩɪɨɝɪɚɦɦ
ɐɟɥɶ: ɧɚɭɱɢɬɶɫɹ ɢɫɩɨɥɶɡɨɜɚɬɶ ɜ ɩɪɨɝɪɚɦɦɚɯ ɨɩɟɪɚɬɨɪ Try…Except.
Ɉɡɧɚɤɨɦɢɬɶɫɹ ɫ ɨɫɧɨɜɧɵɦɢ ɫɜɨɣɫɬɜɚɦɢ ɤɨɦɩɨɧɟɧɬɚ TStringGrid. ɂɡɭɱɢɬɶ
ɜɨɡɦɨɠɧɨɫɬɢ, ɩɪɟɞɨɫɬɚɜɥɹɟɦɵɟ ɢɧɬɟɝɪɢɪɨɜɚɧɧɵɦ ɨɬɥɚɞɱɢɤɨɦ.
Ɋɟɡɭɥɶɬɚɬ ɨɛɭɱɟɧɢɹ: ɩɨɫɥɟ ɭɫɩɟɲɧɨɝɨ ɡɚɜɟɪɲɟɧɢɹ ɡɚɧɹɬɢɹ ɫɬɭɞɟɧɬ ɞɨɥ-
ɠɟɧ:
– ɭɦɟɬɶ ɢɫɩɨɥɶɡɨɜɚɬɶ ɨɩɟɪɚɬɨɪ Try…Except ɢ ɤɨɦɩɨɧɟɧɬ
TStringGrid ɜ ɩɪɨɝɪɚɦɦɚɯ;
– ɭɦɟɬɶ ɭɩɪɚɜɥɹɬɶ ɜɵɩɨɥɧɟɧɢɟɦ ɩɪɨɝɪɚɦɦɵ.
ɂɫɩɨɥɶɡɭɟɦɵɟ ɩɚɩɤɢ: Lab2, Lab3.
                ɩɨɧɟɧɬɚ TScrollBar
OnActivate      ɜɨɡɧɢɤɚɟɬ ɞɥɹ ɮɨɪɦɵ ɜ ɦɨɦɟɧɬ ɚɤɬɢɜɢɡɚɰɢɢ ɨɤɧɚ (ɩɪɢ
                ɩɨɥɭɱɟɧɢɢ ɟɸ ɮɨɤɭɫɚ ɜɜɨɞɚ)
2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ
     Ɂɚɞɚɧɢɟ. ɋɨɡɞɚɣɬɟ ɩɪɢɥɨɠɟɧɢɟ ɞɥɹ ɩɟɪɟɫɱɟɬɚ ɢɡ ɨɞɧɨɣ ɫɢɫɬɟɦɵ ɢɡ-
ɦɟɪɟɧɢɹ ɜ ɞɪɭɝɭɸ. ȼɵɛɨɪ ɫɢɫɬɟɦɵ ɢɡɦɟɪɟɧɢɹ ɨɫɭɳɟɫɬɜɢɬɶ ɫ ɩɨɦɨɳɶɸ
ɤɨɦɩɨɧɟɧɬɚ TɋomboBox.
             ȼɚɪɢɚɧɬɵ                 ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
                            1 ɦɦ. ɪɬ. ɫɬ. = 133 ɉɚ
                            1 ɞɢɧ/ɫɦ2 = 0,1ɉɚ
                 1
                            1 ɮɢɡ. Ⱥɬɦ = 1,013 × 105 ɉɚ
                            1 ɤɝɫ × ɦ2 = 9,81 ɉɚ
                            1 ɞɸɣɦ = 2,54 ɫɦ
                            1 ɹɪɞ = 0,9144 ɦ
                 2
                            1 ɜɟɪɫɬɚ = 500 ɫɚɠɟɧɶ
                            1 ɤɨɫɚɹ ɫɚɠɟɧɶ = 1,76 ɦ
                            1 ɛɭɲɟɥɶ = 36,37 ɞɦ3
                 3          1 ɝɚɥɥɨɧ = 4,54 ɞɦ3
                            1 ɩɢɧɬɚ = 0,5683 ɞɦ3
                            1 ɤɚɥɨɪɢɹ = 4,19 Ⱦɠ
                            1 ɷɪɝ = 10-7 Ⱦɠ
                 4
                            1 ɤɝɫ × ɦ = 9,81 Ⱦɠ
                            1 ɜɚɬɬ × ɱɚɫ = 3,6 × 103 Ⱦɠ
     ɉɪɢ ɩɪɨɟɤɬɢɪɨɜɚɧɢɢ ɮɨɪɦɵ ɩɪɨɹɜɢɬɟ ɮɚɧɬɚɡɢɸ ɢ ɫɨɡɞɚɣɬɟ ɢɧɞɢɜɢ-
ɞɭɚɥɶɧɭɸ ɤɨɧɫɬɪɭɤɰɢɸ.
     ɉɪɨɝɪɚɦɦɭ ɡɚɩɢɲɢɬɟ ɜ ɩɨɞɤɚɬɚɥɨɝ Lab_2_s ɜɚɲɟɝɨ ɤɚɬɚɥɨɝɚ.
             3.2. Ɉɛɪɚɛɨɬɤɚ ɢɫɤɥɸɱɢɬɟɥɶɧɵɯ ɫɢɬɭɚɰɢɣ.
                  Ʉɨɦɩɢɥɹɰɢɹ ɢ ɨɬɥɚɞɤɚ ɩɪɨɝɪɚɦɦ
     ɐɟɥɶ: ɧɚɭɱɢɬɶɫɹ ɢɫɩɨɥɶɡɨɜɚɬɶ ɜ ɩɪɨɝɪɚɦɦɚɯ ɨɩɟɪɚɬɨɪ Try…Except.
Ɉɡɧɚɤɨɦɢɬɶɫɹ ɫ ɨɫɧɨɜɧɵɦɢ ɫɜɨɣɫɬɜɚɦɢ ɤɨɦɩɨɧɟɧɬɚ TStringGrid. ɂɡɭɱɢɬɶ
ɜɨɡɦɨɠɧɨɫɬɢ, ɩɪɟɞɨɫɬɚɜɥɹɟɦɵɟ ɢɧɬɟɝɪɢɪɨɜɚɧɧɵɦ ɨɬɥɚɞɱɢɤɨɦ.
Ɋɟɡɭɥɶɬɚɬ ɨɛɭɱɟɧɢɹ: ɩɨɫɥɟ ɭɫɩɟɲɧɨɝɨ ɡɚɜɟɪɲɟɧɢɹ ɡɚɧɹɬɢɹ ɫɬɭɞɟɧɬ ɞɨɥ-
ɠɟɧ:
     – ɭɦɟɬɶ ɢɫɩɨɥɶɡɨɜɚɬɶ ɨɩɟɪɚɬɨɪ Try…Except ɢ ɤɨɦɩɨɧɟɧɬ
     TStringGrid ɜ ɩɪɨɝɪɚɦɦɚɯ;
     – ɭɦɟɬɶ ɭɩɪɚɜɥɹɬɶ ɜɵɩɨɥɧɟɧɢɟɦ ɩɪɨɝɪɚɦɦɵ.
     ɂɫɩɨɥɶɡɭɟɦɵɟ ɩɚɩɤɢ: Lab2, Lab3.




                                   24

Страницы