15-сурет
2. «Кездейсоқ таңдау» батырмасын тышқанмен шерткенде үш сөзден тұратын кездейсоқ сөйлем құрау.
16-сурет
3. Бағдарламадан шығу үшін тышқанмен тақырып жолындағы жабу батырмасын шерту қажет.
Бағдарламаны іске асыру жоспарының сипаттамасы
1. Жаңа жоба ашу.
2. Пішінге мына компоненттерді: тізімі бар үш ComboBox өрісін, Button батырмасын орналастыру.
3. Мына кестедегі әрекеттерді орындау:
7 - кесте
Белгі-ленген нысан
|
Object Inspector терезесінің астары
|
Қасиеттің аты/ Оқиғаның аты
|
Атқарылатын әрекет
|
Form1
|
Properties
|
Caption
|
Пішінге «Сөйлем құраушы» атын орнату
|
Events
|
OnCreate
|
ComboBox1.ItemIndex :=0;
ComboBox2.ItemIndex :=0; ComboBox3.ItemIndex :=0;
|
ComboBoxl
(Standard астары)
|
Properties
|
Style
|
Ашылатын тізімнен cSDropDownList мәнін таңдаңыз
|
Items
|
Құрушы батырманы шертіңіз. Сонда String List Editor (Жолдар тізімінің редакторы) терезесі ашылады. Әр жолға бір-бірден тізім пункттерін енгізіп, оның соңынан Enter-ді басып отырыңыз. Тізім дайын болған соң ОК батырмасын шертіңіз.
|
ComboBox2
(Standard астары)
|
Properties
|
Style
|
Ашылатын тізімнен cSDropDownList мәнін таңдаңыз
|
Items
|
Құрушы батырманы шертіңіз. Сонда String List Editor (Жолдар тізімінің редакторы) терезесі ашылады. Әр жолға бір-бірден тізім пункттерін енгізіп, оның соңынан Enter-ді басып отырыңыз. Тізім дайын болған соң ОК батырмасын шертіңіз.
|
ComboBox3
(Standard астары)
|
Properties
|
Style
|
Ашылатын тізімнен cSDropDownList мәнін таңдаңыз
|
Items
|
Құрушы батырманы шертіңіз. Сонда String List Editor (Жолдар тізімінің редакторы) терезесі ашылады. Әр жолға бір-бірден тізім пункттерін енгізіп, оның соңынан Enter-ді басып отырыңыз. Тізім дайын болған соң ОК батырмасын шертіңіз.
|
Buttonl
(Standard астары)
|
Properties
|
Caption
|
Батырмаға «Кездейсоқ таңдау» атын орнату
|
Events
|
OnClick
|
ComboBox1.ItemIndex := Random(ComboBox1.ItemIndex); ComboBox2.ItemIndex := Random(ComboBox2.ItemIndex); ComboBox3.ItemIndex := Random(ComboBox3.ItemIndex);
|
4. Жобаны сақтаңыз, оны іске қосып орындалуын тексеріп көріңіз.
Достарыңызбен бөлісу: |
