Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Как продвинуть сайт на первые места?

Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

Необходимо пошагово выполнить инструкцию к лабораторной работе, заполнить таблицы.

Лабораторная работа №13-14

Создание графических приложений

Цель работы:

1) получить навыки работы с системой Delphi;

2) ознакомиться с некоторыми визуальными компонентами системы Delphi, предназначенными для программирования пользовательского интерфейса;

3) ознакомление с новыми компонентами: Image, Shape

Продолжительность работы - 4 часа.

Необходимо пошагово выполнить инструкцию к лабораторной работе, заполнить таблицы.

Задания:

Написать программу, имитирующую движение абсолютно упругого тела по бильярдной доске без луз в условиях отсутствия трения. Скорость движения должна редактироваться интерактивно в интервале от 1 до 100 (см. рис. 1).

Рис. 1. Внешний вид графического приложения

Инструкция:

1. В окне Object Inspector задайте следующие свойства основной формы Form1:

1. Последовательно расположите на форме Form1 перечисленные ниже объекты (см. рис. 1) и установите для них указанные в таблице значения свойств.

a. Панель Panel1 класса TPanel со свойствами:

b. Панель Panel2 класса TPanel со свойствами:

c. Панель Panel3 класса TPanel со свойствами:

d. На панели Panel2 кнопка Button1 класса TButton со свойствами:

e. На панели Panel2 кнопка Button2 класса TButton со свойствами:

f. На панели Panel3 графический образ Image1 класса TImage (компонент «Image (ExtCtrls)» на закладке Additional панели инструментов Delphi) со свойствами:

g. На панели Panel3 графический примитив Shape1 (компонент «Shape (ExtCtrls)» на закладке Additional панели инструментов Delphi) класса TShape со свойствами:

h. На панели Panel1 строку редактирования Edit1 класса TEdit со свойствами:

i. На панели Panel1 счетчик UpDown1 класса TUpDown со свойствами:

j. На панели Panel1 метка Label1 класса TLabel со свойствами:

В разделе описания переменных модуля Unit1 добавьте описание целочисленных переменных DirectX, DirectY, а так же в теле модуля присвойте им начальное значение равное 1:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, ComCtrls, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

UpDown1: TUpDown;

Panel1: TPanel;

Image1: TImage;

Shape1: TShape;

Button1: TButton;

Button2: TButton;

Panel2: TPanel;

Panel3: TPanel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

DirectX, DirectY: Integer;

implementation

{$R *.dfm}

begin

DirectX: =1; DirectY: =1

end.

1. Вызовите форму редактирования параметров вспомогательного потока событий. Для этого выберите в меню Delphi пункт File\New\Ather…\ThreatObject. В появившемся диалоговом окне в поле Class Name наберите имя потока Mover. Нажмите кнопку . В результате Delphi создаст модуль Unit2, содержащий шаблон описания дополнительного потока событий.
2. Заполните шаблон в соответствии с текстом приведенным ниже.

unit Unit2;

interface

uses

Classes, SysUtils;

type

Mover = class(TThread)

private

{ Private declarations }

protected

procedure Execute; override;

procedure Runner;

end;

implementation

Uses Unit1;

procedure Mover.Execute;

begin

{ Place thread code here }

Repeat