Курсовые работы по информатике
  • Регистрация
1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 (0 Голоса)
Кафедра КиВТ

Пояснительная записка к курсовой работе по дисциплине «Основы автоматизации проектирования средств вычислительной техники » на тему «Моделирование дискретных устройств».

 

Содержание

ВВЕДЕНИЕ. 3

1. ПОСТАНОВКА ЗАДАЧИ.. 4

2. ОБЩАЯ СТРУКТУРА СИСТЕМЫ.. 5

3. СПЕЦИФИКАЦИИ НА ПРОЦЕДУРЫ, ФУНКЦИИ И ОБЩИЕ СТРУКТУРЫ ДАННЫХ.. 6

3.1 Модули дискретных элементов. 6

3.2 Модуль модели ДУ.. 6

3.3 Модуль моделирования ДУ.. 7

3.4 Модуль построения временных диаграмм. 7

3.5 Модуль вывода состояния системы.. 8

3.6 Модуль анализа результатов моделирования. 8

4. ОПИСАНИЕ ИНТЕРФЕЙСА ПРИЛОЖЕНИЯ.. 9

4.1 Разработка интерфейса. 9

4.2 Инструкция пользователя. 11

5. ТЕСТИРОВАНИЕ ПРОГРАММЫ.. 13

ЗАКЛЮЧЕНИЕ. 19

БИБЛИОГРАФИЧЕСКИЙ СПИСОК.. 20

ПРИЛОЖЕНИЕ. 21


ВВЕДЕНИЕ

Проектирование систем – это комплекс работ по исследованиям, изысканиям, расчету и конструированию, целью которых является получение в приемлемой для человека форме всех необходимых данных для создания новых изделий или процессов, удовлетворяющих поставленным требованиям. Эти требования обычно изложены в техническом задании.

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

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

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

Тем не менее, в случае анализа большинства характеристик объекта, оно при выдаче результата имеет быстродействие на порядок выше, чем само разрабатываемое устройство.

В данном курсовом проекте группой разработчиков была создана программа, моделирующая дискретное устройство, созданное на следующей элементной базе: дешифраторы, мультиплексоры, RS и JK триггеры, логические элементы И, И-НЕ, ИЛИ, ИЛИ-НЕ, XOR, XOR-НЕ. Данный модуль предоставляет интерфейс для работы всей системы в целом.

1. ПОСТАНОВКА ЗАДАЧИ

Необходимо разработать систему моделирования дискретного устройства (ДУ), состоящего из следующих элементов:

·  дешифраторы;

·  мультиплексоры;

·  RS–триггера;

·  JK-триггера;

·  логические элементы;

Моделирование событийное, трехзначное.

Предусмотреть в программе наличие следующих модулей:

Ø создание модели ДУ (разработчик Щепин А. Ю.)

Ø создание моделей элементов ДУ и их моделирование:

-  дешифраторов и мультиплексоров (разработчик Лаврушина В. Б.);

-  логических элементов (разработчик – Буслов С. В.);

-  JK и RS - триггера (разработчик – Кулешов А. С.);

Ø интерфейс вывода временных диаграмм (разработчик – Гоменюк М. В.);

Ø анализ результатов моделирования (разработчик – Петров А. В.);

Ø интерфейс вывода состояния системы (разработчик – Олейников И. Б.);

Ø моделирование ДУ (разработчик – Анисимов М. С.);

Ø общий интерфейс (разработчик – главный программист Шахова Е. А.)

Модели представить на уровне языка спецификаций.

2.  ОБЩАЯ СТРУКТУРА СИСТЕМЫ

Общую структуру взаимосвязей между модулями в системе можно представить графически следующим образом (см. рис. 2.1)

 

Рис. 2.1 Структура системы моделирования

3.  СПЕЦИФИКАЦИИ НА ПРОЦЕДУРЫ, ФУНКЦИИ И ОБЩИЕ СТРУКТУРЫ ДАННЫХ

3.1 Модули дискретных элементов

p{logic|dcms|trigger}_info = ^t{logic|dcms|trigger}_info;

t{logic|dcms|trigger}_info = record

[...]

end;

Тип, описывающий конкретный дискретный элемент

procedure init_{logic|dcms|trigger};

Считывает файл описания элементов и регистрирует их в библиотеке элементов.

procedure emul_{logic|dcms|trigger}(element : pelement);

Эмулирует работу элемента.

3.2 Модуль модели ДУ

type

plib_elem = ^tlib_elem;

tlib_elem = record

[...]

end;

Тип, описывающий структуру библиотечного элемента.

procedure load_library;

Загружает библиотеку элементов.

procedure register_element_in_library(lib_element_name : string);

Регистрирует элемент с названием element_name в библиотеке элементов.

procedure register_element_pin_in_library(lib_element_name : string;

pin_name : string; out : boolean);

Регистрирует вывод pin_name элемента element_name в библиотеке элементов.

type

pelement = ^telement;

telement = record

[...]

end;

Тип, описывающий структуру элемента схемы.

function get_element_kind_name(element : pelement):string;

Возвращает название типа элемента element.

function get_element_pin_value(element : pelement;

pin_name : string):integer;

Возвращает значение на одном из входов/выходов pin_name элемента element (0, 1 или -1(==X)).

procedure set_element_pin_value(element : pelement; pin_name : string;

value : integer);

Устанавливает значение value (0, 1 или -1(==X)) на одном из выходов pin_name элемента element. Все элементы, входы которых находятся в одной цепи с выходом pin_name, помечаются для моделирования.

procedure simulate_all_marked_elements;

Вызывает процедуры моделирования для всех помеченных элементов.

pcircuits_db= ^tcircuits_db;

tcircuits_db= record

[...]

end;

Тип, описывающий цепь

3.3 Модуль моделирования ДУ

procedure init_simulate;

Инициализирует переменные модуля.

procedure add_pin_value_change_event(time : real; pin : ppin; value : integer);

Добавляет событие изменения значения ножки pin на значение value через time секунд.

procedure simulate_next_event;

Обрабатывает следующее событие.

3.4 Модуль построения временных диаграмм

procedure tdiagram_init

Инициализирует переменные модуля.

procedure add_circuit_name(name : string)

Добавляет цепь с именем name в массив цепей, подлежащих исследованию поведения сигналов в них;

procedure start_next_event(time : real)

Добавляет время наступления очередного события в массив времен событий текущей цепи;

procedure add_circuit_value(value : integer)

Добавляет новое значение сигнала, изменение которого и стало событием в цепи;

circuits_names :

массив строк, которые заключают в себе имена цепей.

events_times

массив времен наступлений изменения сигналов для каждой цепи, все элементы типа real;

values

массив элементов типа integer, хранящий значение новых сигналов в моменты наступления событий. Это 0, 1 либо –1 (соответствует х в трехуровневой модели сигналов);

3.5 Модуль вывода состояния системы

procedure add_state_info(s : string);

Добавить сообщение

procedure list_circuits;

Вывести состояние цепей

procedure list_events;

Вывести список событий

3.6 Модуль анализа результатов моделирования

procedure analize

Анализ результатов моделирования

4. ОПИСАНИЕ ИНТЕРФЕЙСА ПРИЛОЖЕНИЯ

В качестве среды программирования всей системы была выбрана Delphi 6. Delphi имеет полностью объектную ориентацию, есть возможность создавать свои повторно используемые объекты для того, чтобы уменьшить затраты на разработку.

Delphi предлагает открытую архитектуру, позволяющую добавлять компоненты, где бы они ни были изготовлены, и оперировать этими вновь введенными компонентами в визуальном построителе. Визуальный построитель интерфейсов (Visual User-interface builder) дает возможность быстро создавать приложения визуально, просто выбирая компоненты из соответствующей палитры и создавать привычный для пользователя интерфейс.

4.1 Разработка интерфейса

При разработке интерфейса некоторого программного продукта необходимо учитывать следующие факторы:

·  цель создания программного продукта;

·  его назначение;

·  выполняемые функции;

·  кто будет являться пользователем данной программы.

Рассмотрим каждый из этих пунктов.

Данная программы была сделана в рамках курсовой работы по дисциплине «Основы автоматизации проектирования средств вычислительной техники». В ней требовалось разработать систему моделирования ДУ. Таким образом, программа является экспериментальной разработкой, а ее целью является закрепление знаний и обретение практических навыков по данному курсу. Именно по этому было принято решение не реализовывать справочную систему по пользованию приложением.

Программа ориентирована на опытного пользователя, достаточно ориентирующегося в предметной области и имеющего некоторый опыт работы с приложениями, написанными под операционную систему Windows 95/98/2000/Millennium Edition. Исходя из целей создания программы, не учитываются потребности случайных и неопытных пользователей.

В качестве языка интерфейса был выбран английский язык для переносимости программы на любую версию операционной системы Windows в независимости от языка.

Исходя из всего вышеизложенного, пробуем, все-таки, определить, что для данной программы является входными и выходными данными, чтобы определить структуру интерфейса.

Входные данные:

·  файлы моделей дискретных устройств на языке спецификаций;

·  файлы моделей цепей на специализированном языке;

·  максимальное количество обрабатываемых событий.

Выходные данные:

·  диаграммы работы устройства;

·  протокол событий;

·  протокол анализа результатов моделирования;

·  сообщения об ошибках;

Экранная форма.

Исходя из всего вышеизложенного, была создана головная форма (см. Рисунок 4.1 ), содержащая следующие компоненты:

·  поле для ввода максимального количества обрабатываемых событий;

·  кнопка для загрузки из файла и моделирования работы схемы;

·  кнопка для моделирования текущей загруженной модели;

·  кнопка для вывода на экран диаграмм, протокола событий и анализа результатов, их названия достаточно точно отображают, какая именно форма будет выводиться на экран.

Рисунок 4.1 Основная экранная форма

4.2 Инструкция пользователя

Несколько полезных советов и указаний при пользовании программой:

·  для загрузки модели используйте кнопку «Load model & simulate», на экране появиться стандартная форма открытия файла, по умолчанию отображаются лишь файлы с расширением, соответствующим файлам моделей (см. рисунок 4.2);

·  при нажатии кнопки «Simulate» моделируется уже загруженная модель, если же еще не была загружена, то открывается файл model.dat ;

·  после моделирования автоматически выводятся на экран все формы: анализа результатов, временных диаграмм и протокола событий;

·  при нажатии кнопки «Show diagram» на экран выводится форма с временными диаграммами работы устройства, если та была до этого закрыта; если модель не загружена – не нажимать

·  при нажатии кнопки «Show Log» на экран выводится форма с протоколом событий, возникших при моделировании работы устройства, если та была до этого закрыта;

·  при нажатии кнопки «Show analiz» на экран выводится форма с протоколом анализа результатов моделирования работы устройства, если та была до этого закрыта;

Рисунок 4.2 Форма для выбора файла загружаемой модели

5.  ТЕСТИРОВАНИЕ ПРОГРАММЫ

Тест№1

При ошибочном файле описания схемы возникает следующее сообщение:

Тест №2

Загружаем файл:

element DD1 I-NE2

element DD2 I-NE2s

connect DD1.OUT DD1.IN1

connect DD1.OUT DD2.IN1

connect DD2.OUT DD1.IN2

connect DD2.OUT DD2.IN2

set DD1.IN1 1

set DD2.IN2 0

Соответствующая схема представлена на рисунке 5.1

 

Рисунок 5.1 Схема моделируемого устройства

Временные диаграммы представлены на рисунке 5.2 :

Рисунок 5.2 Форма с временными диаграммами работы устройства

Анализ результатов показал следующее:

DD2.IN2 DD1.IN2 DD2.OUT Periodic

DD2.IN1 DD1.IN1 DD1.OUT Periodic

Т. е. сигналы имеют периодический характер

Протокол событий (из-за периодичности сигналов приведены только первые 6)

Event N0, time=0

Events in queue:

At time 9,5 DD2.OUT:=1

At time 5,5 DD1.OUT:=1

Circuit values:

DD2.IN2 DD1.IN2 DD2.OUT 0

DD2.IN1 DD1.IN1 DD1.OUT 1

=============================================

Event N1, time=5,5

Events in queue:

At time 9,5 DD2.OUT:=1

Circuit values:

DD2.IN2 DD1.IN2 DD2.OUT 0

DD2.IN1 DD1.IN1 DD1.OUT 1

=============================================

Event N2, time=9,5

Events in queue:

At time 19 DD2.OUT:=0

At time 15 DD1.OUT:=0

Circuit values:

DD2.IN2 DD1.IN2 DD2.OUT 1

DD2.IN1 DD1.IN1 DD1.OUT 1

=============================================

Event N3, time=15

Events in queue:

At time 24,5 DD2.OUT:=1

At time 20,5 DD1.OUT:=1

At time 19 DD2.OUT:=0

Circuit values:

DD2.IN2 DD1.IN2 DD2.OUT 1

DD2.IN1 DD1.IN1 DD1.OUT 0

=============================================

Event N4, time=19

Events in queue:

At time 28,5 DD2.OUT:=1

At time 24,5 DD1.OUT:=1 DD2.OUT:=1

At time 20,5 DD1.OUT:=1

Circuit values:

DD2.IN2 DD1.IN2 DD2.OUT 0

DD2.IN1 DD1.IN1 DD1.OUT 0

=============================================

Event N5, time=20,5

Events in queue:

At time 30 DD2.OUT:=1

At time 28,5 DD2.OUT:=1

At time 26 DD1.OUT:=1

At time 24,5 DD1.OUT:=1 DD2.OUT:=1

Circuit values:

DD2.IN2 DD1.IN2 DD2.OUT 0

DD2.IN1 DD1.IN1 DD1.OUT 1

Из всего приведенного здесь следует вывод, что система моделирования работает корректно

Тест №3

Загружаем файл:

element DD2 JK1

element DD3 JK1

element DD4 JK1

element DD8 DC3

element DD9 MS3

connect DD1.OUT DD1.IN1

connect DD1.OUT DD1.IN2

connect DD1.OUT DD2.J

connect DD1.OUT DD2.C

connect DD1.OUT DD2.K

connect DD2.Q DD3.J

connect DD2.Q DD3.C

connect DD2.Q DD3.K

connect DD3.Q DD4.J

connect DD3.Q DD4.C

connect DD3.Q DD4.K

connect DD2.Q DD8.IN1

connect DD3.Q DD8.IN2

connect DD4.Q DD8.IN3

connect DD2.Q DD9.A1

connect DD3.Q DD9.A2

connect DD4.Q DD9.A3

connect DD9.IN1 DD8.OUT1

connect DD9.IN2 DD8.OUT2

connect DD9.IN3 DD8.OUT3

connect DD9.IN4 DD8.OUT4

connect DD9.IN5 DD8.OUT5

connect DD9.IN6 DD8.OUT6

connect DD9.IN7 DD8.OUT7

connect DD9.IN8 DD8.OUT8

set DD1.IN1 1

set DD2.Q 0

set DD3.Q 0

set DD4.Q 0

Временные диаграммы представлены на рисунке 5.3 :

Рисунок 5.3 Форма с временными диаграммами работы устройства

Анализ результатов показал следующее:

DD8.OUT1 DD9.IN1 Risk

DD8.OUT2 DD9.IN2 Risk

DD8.OUT3 DD9.IN3 Risk

DD8.OUT4 DD9.IN4 Risk

DD8.OUT5 DD9.IN5 Risk

DD8.OUT6 DD9.IN6 Risk

DD8.OUT7 DD9.IN7 Risk

DD8.OUT8 DD9.IN8 Risk

DD9.OUT Periodic

DD9.A3 DD8.IN3 DD4.Q Risk

DD4.NQ Risk

DD9.A2 DD8.IN2 DD4.K DD4.C DD4.J DD3.Q Risk

DD3.NQ Risk

DD9.A1 DD8.IN1 DD3.K DD3.C DD3.J DD2.Q Risk

DD2.NQ Risk

DD2.K DD2.C DD2.J DD1.IN2 DD1.IN1 DD1.OUT Periodic

Указывается возникновение рисков и указывается, какие сигналы являются периодическими.

Протокол событий (из-за большой длины протокола приведены только первые 3 события):

=============================================

Event N0, time=0

Events in queue:

At time 6 DD8.OUT8:=0 DD8.OUT7:=0 DD8.OUT6:=0 DD8.OUT5:=0 DD8.OUT4:=0 DD8.OUT3:=0 DD8.OUT2:=0 DD8.OUT1:=1

At time 5,5 DD1.OUT:=0

At time 2 DD9.OUT:=-1

At time 1 DD2.NQ:=0 DD2.Q:=1

Circuit values:

DD8.OUT1 DD9.IN1 -1

DD8.OUT2 DD9.IN2 -1

DD8.OUT3 DD9.IN3 -1

DD8.OUT4 DD9.IN4 -1

DD8.OUT5 DD9.IN5 -1

DD8.OUT6 DD9.IN6 -1

DD8.OUT7 DD9.IN7 -1

DD8.OUT8 DD9.IN8 -1

DD9.OUT -1

DD9.A3 DD8.IN3 DD4.Q 0

DD4.NQ -1

DD9.A2 DD8.IN2 DD4.K DD4.C DD4.J DD3.Q 0

DD3.NQ -1

DD9.A1 DD8.IN1 DD3.K DD3.C DD3.J DD2.Q 0

DD2.NQ -1

DD2.K DD2.C DD2.J DD1.IN2 DD1.IN1 DD1.OUT 1

=============================================

Event N1, time=1

Events in queue:

At time 7 DD8.OUT8:=0 DD8.OUT7:=0 DD8.OUT6:=0 DD8.OUT5:=0 DD8.OUT4:=0 DD8.OUT3:=0 DD8.OUT2:=1 DD8.OUT1:=0

At time 6 DD8.OUT8:=0 DD8.OUT7:=0 DD8.OUT6:=0 DD8.OUT5:=0 DD8.OUT4:=0 DD8.OUT3:=0 DD8.OUT2:=0 DD8.OUT1:=1

At time 5,5 DD1.OUT:=0

At time 3 DD9.OUT:=-1

At time 2 DD3.NQ:=0 DD3.Q:=1 DD9.OUT:=-1

Circuit values:

DD8.OUT1 DD9.IN1 -1

DD8.OUT2 DD9.IN2 -1

DD8.OUT3 DD9.IN3 -1

DD8.OUT4 DD9.IN4 -1

DD8.OUT5 DD9.IN5 -1

DD8.OUT6 DD9.IN6 -1

DD8.OUT7 DD9.IN7 -1

DD8.OUT8 DD9.IN8 -1

DD9.OUT -1

DD9.A3 DD8.IN3 DD4.Q 0

DD4.NQ -1

DD9.A2 DD8.IN2 DD4.K DD4.C DD4.J DD3.Q 0

DD3.NQ -1

DD9.A1 DD8.IN1 DD3.K DD3.C DD3.J DD2.Q 1

DD2.NQ 0

DD2.K DD2.C DD2.J DD1.IN2 DD1.IN1 DD1.OUT 1

=============================================

Event N2, time=2

Events in queue:

At time 8 DD8.OUT8:=0 DD8.OUT7:=0 DD8.OUT6:=0 DD8.OUT5:=0 DD8.OUT4:=1 DD8.OUT3:=0 DD8.OUT2:=0 DD8.OUT1:=0

At time 7 DD8.OUT8:=0 DD8.OUT7:=0 DD8.OUT6:=0 DD8.OUT5:=0 DD8.OUT4:=0 DD8.OUT3:=0 DD8.OUT2:=1 DD8.OUT1:=0

At time 6 DD8.OUT8:=0 DD8.OUT7:=0 DD8.OUT6:=0 DD8.OUT5:=0 DD8.OUT4:=0 DD8.OUT3:=0 DD8.OUT2:=0 DD8.OUT1:=1

At time 5,5 DD1.OUT:=0

At time 4 DD9.OUT:=-1

At time 3 DD4.NQ:=0 DD4.Q:=1 DD9.OUT:=-1

Circuit values:

DD8.OUT1 DD9.IN1 -1

DD8.OUT2 DD9.IN2 -1

DD8.OUT3 DD9.IN3 -1

DD8.OUT4 DD9.IN4 -1

DD8.OUT5 DD9.IN5 -1

DD8.OUT6 DD9.IN6 -1

DD8.OUT7 DD9.IN7 -1

DD8.OUT8 DD9.IN8 -1

DD9.OUT -1

DD9.A3 DD8.IN3 DD4.Q 0

DD4.NQ -1

DD9.A2 DD8.IN2 DD4.K DD4.C DD4.J DD3.Q 1

DD3.NQ 0

DD9.A1 DD8.IN1 DD3.K DD3.C DD3.J DD2.Q 1

DD2.NQ 0

DD2.K DD2.C DD2.J DD1.IN2 DD1.IN1 DD1.OUT 1

Из всего приведенного здесь следует вывод, что система моделирования работает корректно

ЗАКЛЮЧЕНИЕ

В ходе курсового проекта бригадой из девяти человек была разработана система автоматизированного проектирования. Разработка выполнялась в несколько этапов. На этапе предварительного анализа были сформулированы все требования, предъявляемые к компонентам и системе в целом. Затем установлен временной график выполнения работ и внедрения компонентов. На следующем этапе главным программистом были выданы спецификации на каждый модуль системы и согласованы структуры входных и выходных данных между разработчиками. После чего было начато непосредственно создание модулей. Созданный модуль может работать не только для элементной базы разработанной системы автоматизированного проектирования. Он не привязан к принципу работы элементов, осуществляет построение диаграмм, основываясь лишь на информации о переходах сигналов в некоторой цепи с одного уровня на другой. Единственным условием является троичная модель сигналов, усложнение которой потребует некоторой коррекции программы.

Предложенная система работает корректно на всем множестве тестовых примеров.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1.  Лишнер Р. Delphi. Справочник. – Пер. с англ. – СПб: Символ-Плюс, 2001. – 640 с.,ил.

2.  Автоматизация проектирования цифровых схем/С. И.Баранов, С. А.Майоров, Ю. П.Сахаров, В. А.Селютин. - Л.: Судостроение, 1979.- 264с.

ПРИЛОЖЕНИЕ

Текст программы

unit iface;

interface

uses

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

Dialogs, StdCtrls, Spin;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

OpenDialog1: TOpenDialog;

SpinEdit1: TSpinEdit;

Label1: TLabel;

Button3: TButton;

Button4: TButton;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

procedure debug_message(s : string);

procedure fatal_error(s : string);

implementation

uses elems, model, simul, tdiagram, model_load, analiz, state;

{$R *.dfm}

type

EFatalError = class(Exception);

procedure debug_message(s : string);

begin

{Form1.Memo1.Lines. Add(s);}

end;

procedure fatal_error(s : string);

begin

{ MessageDlg(s, mtError, [mbOk], 0);}

raise EFatalError. Create(s);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

try

Form2.Show;

Form3.Show;

Form4.Hide;

Form4.Memo1.Clear;

load_library;

tdiagram_init;

simul_init;

init_model;

simulation;

analize;

Form4.Show;

except

on E: Exception do MessageDlg(E. Message, mtError, [mbOk], E. HelpContext);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

model_file:=OpenDialog1.FileName;

Button1Click(Sender);

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

model_file:='model. dat';

max_event:=50;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

max_event:=SpinEdit1.Value;

end;

end.

 

Добавить комментарий


Защитный код
Обновить

По темам:

История Украины

Культурология

Высшая математика

Информатика

Охотоведение

Статистика

География

Военная наука

Английский язык

Генетика

Разное

Технологиеские темы

Украинский язык

Филология

Философия

Химия

Экология

Социология

Физическое воспитание

Растениевосдство

Педагогика

История

Психология

Религиоведение

Плодоводство

Экономические темы

Бухгалтерские темы

Маркетинг

Иностранные языки

Ветеринарная медицина

Технические темы

Землеустройство

Медицинские темы

Творчество

Лесное и парковое хозяйство