ТК-17(10мат )
Тапсырма. Электронды са?ат жазуын ал ішіне а?ымда?ы уа?ыт пен мерзімді шы?аратын ?осымша жазы?ыздар.
Тапсырманы орындау технологиясы.
Тапсырманы орындау ?шін мына т?мендегі ?рекеттерді орында?ыздар:
- пішінге Timer1, Техt1, Label1 ж?не Command1 объектілерін (1.8.-сурет) орналастыры?ыздар;
1.8.-сурет. Пішінге Timer1, Техt1, Label1 ж?не Command1
объектілерін орналастыру.
- Form1 объектісіні? Name ?асиетіне frmTimer м?нін менешікте?іздер;
- Form1 объектісіні? Caption ?асиетіне Электронды? са?ат жазуын меншікте?іздер;
- Label1 объектісіні? Alignment ?асиетіне 2-Center м?нін меншікте?іздер;
- Command1 объектісіні? Name ?асиетіне cmdExit м?нін меншікте?іздер;
- Command1 объектісіні? Caption ?асиетіне Шы?ару жазуын меншікте?іздер;
- Timer1 объектісіні? Interval ?асиетіне 1000 м?нін меншікте?іздер;
- Timer1 объектісін екі рет шертіп код терезесіне т?мендегі процедураны жазы?ыздар:
Private Sub Timer1 Timer()
Label1. Caption=Time$
‘Time$ - б?л Сізді? компьютері?ізді? а?ымда?ы ж?йелік уа?ыты.
Text1.Text = Date
End Sub
- ?осымшаны іске ?осып, шы??ан н?тижені (1.9.-суреттен) к?рсеті?іздер.
1.9.-сурет. ?осымшаны іске ?ос?анда шы??ан н?тиже.