Өлшемдер Ұпайлардың мазмұнды пайызы
жүктеу/скачать 37,48 Kb.
|
№29 — студенты
- Бұл бет үшін навигация:
- Білу+түсіну
- Бағалау
|
Бағалау критерийлері:
Нұсқаулық карта Сабаққа арналған бейнематериал: https://youtu.be/AiUleTifLJk https://youtu.be/GV4RLyqfB0I Бағдарламаны әзірлеу жоспарының сипаттамасы 1. Жаңа жобаны ашыңыз. 2. Компоненттердің даналарын пішінге салыңыз: Label, Timer. 3. Келесі әрекеттерді орындау: 3.1. Апта және ай күндерінің атауларына жауап беретін тұрақтыларды енгізіңіз. 3.2. Showtime процедурасын форма компоненттеріне тікелей қол жеткізу үшін қолмен жариялаңыз. 3.3. Showtime процедурасы ағымдағы уақытты көрсетеді. 3.4. FormTime процедурасы Paint оқиғасын өңдейді. 3.5. Timerltimer процедурасы таймер сигналын өңдейді. 3.6. FormCreate процедурасы OnCreate оқиғасын өңдейді. Бағдарламаның листингі: unit Unitl; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; TForm1 = class(TForm) Timer1: TTimer; Labell: TLabel; // время Label2: TLabel; // дата и день недели procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure ShowTime; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation const stDay : array[1..7] of string[11] = ('воскресенье','понедельник','вторник', 'среда','четверг','пятница','суббота'); stMonth : array [1..12] of string[8] = ('января','февраля','марта', 'апреля','мая','июня','июля', 'августа','сентября','октября', 'ноября','декабря'); {$R *.dfm} procedure TForm1.ShowTime; var Time : TDateTime; // текущее время begin Time := Now(); // получить системное время Label1.Caption := FormatDateTime('hh:mm:ss',Time); end; procedure TForm1.Timer1Timer(Sender: TObject); begin ShowTime; // отобразить время end; procedure TForm1.FormCreate(Sender: TObject); var Present: TDateTime; // текущая дата и время Year, Month, Day : Word; // год, месяц и число, как // отдельные числа begin Present:= Now; // получить текущую дату DecodeDate(Present, Year, Month, Day); Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' + stMonth[Month] + ' '+ IntToStr(Year)+ ' года, '+ stDay[DayOfWeek(Present)]; // настроить и запустить таймер Timer1.Interval := 1000; // период сигналов таймера 1 с Timer1.Enabled := True; // пуск таймера end; procedure TForm1.FormPaint(Sender: TObject); begin ShowTime; // отобразить часы end; end. № 1 тапсырма: сабаққа бейне және дәріс материалдарын үйреніңіз https://youtu.be/AiUleTifLJk №2 тапсырма: Delphi бағдарламалау тілін қолдана отырып сағат жасаңыз. Күнін көрсету 12.04.2022 жыл. Бағдарламаны әзірлеу жоспарының сипаттамасы 1. Жаңа жобаны ашыңыз. 2. Компоненттердің даналарын пішінге салыңыз: Label, Timer. 3. Келесі әрекеттерді орындау: 3.1. Апта және ай күндерінің атауларына жауап беретін тұрақтыларды енгізіңіз. 3.2. Showtime процедурасын форма компоненттеріне тікелей қол жеткізу үшін қолмен жариялаңыз. 3.3. Showtime процедурасы ағымдағы уақытты көрсетеді. 3.4. FormTime процедурасы Paint оқиғасын өңдейді. 3.5. Timerltimer процедурасы таймер сигналын өңдейді. 3.6. FormCreate процедурасы OnCreate оқиғасын өңдейді. Бағдарламаның листингі: unit Unitl; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; TForm1 = class(TForm) Timer1: TTimer; Labell: TLabel; // время Label2: TLabel; // дата и день недели procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure ShowTime; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation const stDay : array[1..7] of string[11] = ('воскресенье','понедельник','вторник', 'среда','четверг','пятница','суббота'); stMonth : array [1..12] of string[8] = ('января','февраля','марта', 'апреля','мая','июня','июля', 'августа','сентября','октября', 'ноября','декабря'); {$R *.dfm} procedure TForm1.ShowTime; var Time : TDateTime; // текущее время begin Time := Now(); // получить системное время Label1.Caption := FormatDateTime('hh:mm:ss',Time); end; procedure TForm1.Timer1Timer(Sender: TObject); begin ShowTime; // отобразить время end; procedure TForm1.FormCreate(Sender: TObject); var Present: TDateTime; // текущая дата и время Year, Month, Day : Word; // год, месяц и число, как // отдельные числа begin Present:= Now; // получить текущую дату DecodeDate(Present, Year, Month, Day); Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' + stMonth[Month] + ' '+ IntToStr(Year)+ ' года, '+ stDay[DayOfWeek(Present)]; // настроить и запустить таймер Timer1.Interval := 1000; // период сигналов таймера 1 с Timer1.Enabled := True; // пуск таймера end; procedure TForm1.FormPaint(Sender: TObject); begin ShowTime; // отобразить часы end; end. № 3 тапсырма: дайын сағат түрінде мәзір жасаңыз. №4 тапсырма: бақылау сұрақтары: 1. Label, Timer-бұл? 2. Бұл Форма? 3. Пішіннің атауын қалай өзгертуге болады? жүктеу/скачать 37,48 Kb. Достарыңызбен бөлісу:
|