Date);
2. Формаға Edit мәтіндік өріс компонентін қойып, 10 секунд уақыт аралығында қолданушының қанша символ тергенін анықтайтын қосымша жасаңдар.
Шешуі: Таймердің Interval қасиетінің мәнін 10000- ға тең етіп қоямыз да, төмендегідей қосымша интерфейсін жасаймыз.
Старт батырмасының OnClick және Timer-дің OnTimer оқиға өңдеушілеріне төмендегідей код жазамыз.
procedure TForm1. BitBtn1Click(Sender: TObject);
begin
Timer1. Enabled:true;
Edit1. Enabled:true;
Label3. Caption:;
end;
procedure TForm1. Timer1Timer(Sender: TObject);
var k:integer;
begin
k:length(edit1. Text);
Timer1. Enabled:false;
Edit1. Enabled:false;
Label3. Caption:10 сек-та inttostr(k) символ тердіңіз
end;
Дайын қосымшаны орындату нәтижесі төмендегідей болады.
3. Timer компонентін қолданып, Бағдаршам жобасын жасаңдар. Программа коды Timer-ге жазылады. Баста батырмасын шерткенде бағдаршам түстері кезекпен кезек жанады, тоқта батырмасын шерткенде тоқтайды.
Жаңа тақырыпты бекіту:
Бағалау:
Қойылған сұрақтарға дұрыс жауап берген оқушыларға бағалар қою.
Үйге тапсырма беру:
ПЦК отырысында қаралды
Хаттама
«»201ж.
ПЦК төрағасы
Страницы: << < 1 | 2 | 3