Разработка и исследование информационных моделей триггера

Размещено на Allbest.ru

Введение

информационная модель триггер

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

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

Цель работы - создать и исследовать информационную модель для более наглядного иллюстрирования процессов, происходящих во время работы оперативной памяти компьютера.

Задачами моего исследования являются:

изучить литературу по некоторым разделам алгебры логики;

изучить литературу по логическим элементам компьютера;

разработать компьютерную модель RS-триггера, D-триггера и регистра оперативной памяти в среде объектно-ориентированного языка Delphi;

провести компьютерный эксперимент, проанализировать результаты и выполнить при необходимости корректировку модели;

написать отчет.

Мой диплом состоит из двух частей: теоретической и практической. В теоретической части я подробно опишу логический принцип работы триггера и регистра оперативной памяти. В практической части будет разработана компьютерная модель этих устройств.

Глава 1

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

Часть 1

Алгебра логики и базовые логические элементы компьютера.

Алгебра логики

Алгебра логики - раздел математической логики, в котором изучаются логические операции над высказываниями. Чаще всего предполагается, что высказывания могут быть только истинными или ложными. Истинность и ложность высказываний проверяется тремя операциями (отрицание, конъюнкция, дизъюнкция) и двумя константами (логический ноль (0) и логическая единица (1)).

Отрицание - формула, позволяющая выполнить инверсию одного литерала.

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

Дизъюнкция - формула, позволяющая выполнить логическое сложение двух и более литералов. Алгебра логики - Википедия http://ru.wikipedia.org/wiki/%C0%EB%E3%E5%E1%F0%E0_%EB%EE%E3%E8%EA%E8. Ссылка действительна на 01.12.2012

Логический элемент «И»

Логический элемент «И» (коньюктор) - элемент, выполняющий логическое умножение. Логическое умножение в языке Turbo Pascal обозначается командой and. На схемах коньюкторы обозначаются прямоугольником с двумя входами и одним выходом. На прямоугольнике написано «И» или «&» (рис. 3). Логическое умножение выполняется по таблице, приведённой ниже (А*В=С).

А	В	С
0	0	0
0	1	0
1	0	0
1	1	1

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

Простейшей моделью логического элемента «И» является электрическая схема, состоящая из источника тока, лампочки и двух выключателей, соединённых последовательно (рис. 4). Лампочка загорится, если оба выключателя будут включены, что соответствует показаниям таблицы.

Логический элемент «ИЛИ»

Логический элемент «ИЛИ» (дизъюнктор) - элемент, вывполняющий логическое сложение. Логическое сложение в языке Turbo Pascal обозначается командой or. На схемах дизъюнкторы обозначаются прямоугольником с двумя входами и одним выходом. На прямоугольнике написано «ИЛИ» или «1» (рис. 4). Логическое сложение выполняется по таблице, приведённой ниже (А+В=С).



А	В	С
0	0	0
0	1	1
1	0	1
1	1	1

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

Простейшей моделью логического элемента «ИЛИ» является электрическая схема, состоящая из источника тока, лампочки и двух выключателей, соединённых параллельно (рис. 6). Лампочка загорится, если хотя бы один выключатель будет включен, что соответствует показаниям таблицы.

Логический элемент «НЕ»

Логический элемент «НЕ» (инвертор) - элемент, вывполняющий инверсию. Инверсия в языке Turbo Pascal обозначается командой not. На схемах инверторы обозначаются прямоугольником с с или на прямоугольнике написано «НЕ» (рис. 7). Логическое сложение выполняется по таблице, приведённой ниже (А?В).

А	В
0	1
1	0

Простейшей моделью логического элемента «НЕ» является электрическая схема, состоящая из источника тока, лампочки и одного выключателя, соединённых параллельно (рис. 8). Лампочка загорится, если выключатель не будет включен, что соответствует показаниям таблицы.

Часть 2

Вообще, триггер - это важный элемент оперативной памяти, отвечающий за хранения и чтения одного бита информации. Я рассмотрю два вида триггеров, это RS-триггер и D-триггер.

RS-триггер

RS-триггер состоит из двух дизъюнкторов и двух инверторов. Модель этого триггера показана на рисунке 1.

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

Чтобы записать 1 бит информации на триггер, на вход S (от англ. set - установка) должен поступить ток, напряжением 5 ватт. Затем этот сигнал 1 проходит через дизъюнктор, а затем через инвертор. Через точку соединения проводников сигнал посылается на другой дизъюнктор и инвертор. В результате на выход Q поступает сигнал 1. Таким образом, триггер будет хранить 1 бит информации

Чтобы стереть информацию с триггера, на вход R (от англ. reset - сброс) должен поступить ток. Сигнал 1 проходит через дизъюнктор и инвертор. Через точку соединения проводников сигнал посылается на другой дизъюнктор и инвертор. В результате на выход Q1 поступает сигнал 1, а на выход Q поступает сигнал 0. Таким образом, триггер сотрёт информацию, записанную в нём.

Если напряжение не подается на входы, то триггер будет находиться в состоянии хранения записанной в нём информации.

Если напряжение подается на оба входа, то триггер, скорее всего выйдет из строя, так как такая входная комбинация запрещена.

Таким образом, можно составить таблицу состояний входов и выходов RS-триггера.

Входы	Выход Q	Выход Q1
S	R
0	0	0	0
1	0	1	0
0	1	0	1
1	1	Комбинация запрещена	Комбинация запрещена

Можно сделать вывод, что RS-триггер не самая надёжная модель триггеров, так как существует вероятность его случайного повреждения. Повреждение одного триггера может привести к повреждению других триггеров, что может привести к выходу из строя оперативной памяти. Информатика и ИКТ. Профильный уровень : учебник для 10 класса / Н. Д. Угринович.-7-е изд.-М. : БИНОМ. Лаборатория знаний, 2011.

Существует триггер, который почти не отличается от RS-триггера, но является более надёжной моделью триггеров. Это D-триггер.

Часть 3

D-триггер

Строение D-триггера отличается от строения RS-триггера наличием дополнительных двух пар дизъюнктора и инвертора (рис. 2). Они нужны для того, чтобы триггер не вышел из строя.

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

Чтобы записать информацию на триггер, на вход S подаётся сигнал 1. Далее он проходит через дизъюнктор и инвертор, затем сигнал передаётся на основную часть триггера, проходя через дизъюнктор, а затем через инвертор. Через точку соединения проводников сигнал посылается на другой дизъюнктор и инвертор. В результате на выход Q поступает сигнал 1. Таким образом, триггер будет хранить 1 бит информации.

Чтобы стереть информацию с триггера, на вход R триггера подаётся сигнал 1. Он проходит через присадочную часть триггера, затем на основную часть триггера, проходя через дизъюнктор и инвертор. Через точку соединения проводников сигнал посылается на другой дизъюнктор и инвертор. В результате на выход Q1 поступает сигнал 1, а на выход Q поступает сигнал 0. Таким образом, триггер сотрёт информацию, записанную в нём.

Вход, на который не подаётся сигнал (между S и R входами) нужен для того, чтобы триггер не вышел из строя. Сигнал попавший в первый дополнительный дизъюнктор преобразуется и попадание сигнала 1 на оба входа в основной триггер одновременно становится невозможным.

Таким образом, можно составить таблицу состояний входов и выходов D-триггера. Триггер - Википедия http://ru.wikipedia.org/wiki/%D2%F0%E8%E3%E3%E5%F0. Ссылка действительна на 01.12.2012.

Входы	Выход Q	Выход Q1
S	R
1	0	1	0
0	1	0	1

Часть 4

Регистр оперативной памяти компьютера

Регистр - последовательностный операционный элемент, предназначенный для хранения и (или) преобразования многоразрядных двоичных чисел. Регистр состоит из набора триггеров, число которых равно макс. разрядности хранимых чисел.

Простейший регистр - регистр с параллельным вводом информации. Схему и графическое обозначение 4-разрядного регистра на D-триггерах на рис. 9. Параллельный двоичный 4-разрядный код поступает на информационные. входы D1,..., D4 всех триггеров и записывается в регистр по приходу синхроимпульса С. В промежутках между синхроимпульсами происходит подготовка новой входной информации, а её смена в регистре осуществляется по очередному синхроимпульсу. Такие регистры в основном используются в системах оперативной памяти. По приходу синхроимпульса С в первый триггер записывается код (О или 1), находящийся в этот момент на его D-входе. Каждый следующий триггер по этому же синхроимпульсу переключается в состояние, в котором в этот момент находился предыдущий триггер. Это происходит потому, что выходное состояние триггера изменяется с некоторой задержкой относительно фронта синхроимпульса, равной времени срабатывания триггера. Следовательно, при последовательном соединении триггеров каждый синхроимпульс сдвигает код числа в регистре на один разряд, и поэтому для записи n-разрядного кода требуется п синхроимпульсов. Например, в регистр вводится двоичный 4-разрядный код 1011. По 1-му синхроимпульсу в 1-й триггер записывается единица старшего разряда. По 2-му синхроимпульсу эта единица перепишется с выхода 1-го на выход 2-го триггера, а в 1-й триггер запишется нуль (следующий разряд кода). Таким же образом после прихода 4-го синхроимпульса в регистре окажется записанным число Q4-1. Q3-0, Q2-1. Q1-1. Дo прихода следующего импульса последовательно введённый 4-разрядный код будет храниться в регистре в виде параллельного кода, который можно считывать с выходов Q4,..., Q1. Логические схемы - Физическая энциклопедия. http://www.femto.com.ua/articles/part_1/1975.html. Ссылка действительна на 01.12.2012.

Таким образом, можно сделать вывод о том, что работа триггеров и регистра оперативной памяти компьютера построена с помощью алгебры логики и логических элементов, выполняющих различные операции: конъюнкцию (логический элемент «И» или логическое сложение), дизъюнкцию (логический элемент «ИЛИ» или логическое умножение) и инвертирование (логический элемент «НЕ»).



Чтобы лучше проиллюстрировать принцип работы триггера, я выбрал объектно-ориентированный язык программирования Delphi. Также, данный язык программирования удобен тем, что его изучают на профильных курсах ИВТ в 10 классе нашей гимназии. Среда ООП позволяет создавать и использовать удобный графический интерфейс для реализации интерактивного диалога пользователя с работающим приложением - моделью, а работающая модель помогает посредством визуализации процессов облегчить понимание принципов работы таких сложных устройств компьютера как триггер. С помощью Delphi я смог создать увеличенную информационную модель триггера и подробно описать принцип работы данного устройства в ходе программы, имитирующей работу триггера. Для того, чтобы создать модель триггера, я использовал следующие компоненты: Shape - фигура, с помощью которой я проиллюстрировал все элементы триггера, Edit - компонент для ввода и вывода целочисленных значений и Label - компонент для обозначения элементов триггера. Сначала, я создал форму, на которой я разместил фигуры так, что они соответствовали элементам RS-триггера (рис. 10). Чёрные прямоугольники и круги - это провода. Зелёные прямоугольники с белым кругом сбоку и надписью «ИЛИ» - это условное обозначение двух логических элементов: дизъюнктора и инвертора. Буквами обозначены два входа (Reset и Set) и два выхода (Q и -Q). текстовые поля у входов предназначены для ввода сигналов (0 или 1), а остальные - для отображения сигналов на элементах. Во время работы, программа будет окрашивать некоторые проводники в красный цвет, для обозначения пути сигнала. На рисунке 11 показана работа RS-триггера, когда на вход Reset подается логическая единица (сигнал 5В). На картинке видно, что сигнал подаётся на вход Reset, затем на верхний логический элемент. Элемент, работующий по законам логических операций, преобразует сигнал по формуле: не (значение R или значение -Q), соответственно он принимает значение 0. Затем, по проводу подаётся на нижний логический элемент. Элемент преобразует сигнал по формуле: не (значение S или значение Q), соответственно он принимает значение 1. Далее по проводу на выход -Q. Выход -Q принимает значение 1. Это значит, что на триггер записан 0, что совпадает с табличными данными, приведенными в первой главе.

Когда сигнал подается на вход Set RS-триггера (рис. 12), то сигнал следует на нижний логический элемент. Элемент преобразует сигнал по формуле: не (значение S или значение Q), соответственно он принимает значение 0. Далее на верхний логический элемент. Элемент преобразует сигнал по формуле: не (значение R или значение -Q), соответственно он принимает значение 1. Далее по проводу на выход Q. Выход Q принимает значение 1. Это значит, что на триггер записана 1, что совпадает с табличными данными, приведенными в первой главе.

Когда сигнал подается на оба входа, то триггер не может продолжать работу, так как, в результате работы программы невозможно определить однозначное состояния выходов Q и -Q. Триггер прекращает работу, поэтому никакие провода не окрашиваются в красный цвет, и логические элементы не принимают значения (рис. 13). Чтобы возобновить работу информационной модели, нужно просто перезапустить программу.

Когда сигнал на RS- триггер не подается, то он будет находится в устойчивом состоянии хранения записанной в него информации (1 или 0), что совпадает с табличными данными, приведенными в первой главе.

Конструкция D-триггера похожа на конструкцию RS-триггера. Отличие состоит в том, что у D-триггера входы Delay и C, имеется дополнительная пара логических элементов: дизъюнктор и инвертор. Соответственно, информационные модели триггеров похожи между собой. Также, как и в модели RS-триггера, в модели D-триггера я использовал те же фигуры, что и в модели RS-триггера (рис. 14). Возможность перехода RS-триггера в случайное состояние при выходе из запрещенного режима работы является крупным его недостатком. Поэтому в последовательностных логических схемах используются, как правило, сложные триггера, у которых нет запрещенных режимов работы. Принцип работы моих информационных моделей одинаковы. В модели D-триггера так же отметил путь, который проходит сигнал.

Когда сигнал не подаётся на вход синхронизации С, то триггер находится в режиме хранения информации.

Когда сигнал подаётся только на вход синхронизации С триггера, то сигнал поступает в логические элементы И и с инвертора на нижний логический элемент И, затем по схеме RS-триггера, как на вход R (рис. 15). Это значит, что в триггер записан 0.

Когда сигнал подаётся на оба входа D и C триггера, то сигнал поступает в логические элементы И, а далее по схеме RS- триггера, как на вход S (рис. 16). Это значит, что в триггер записана 1, что совпадает с табличными данными, приведенными в первой главе.

Вторым этапом разработки информационных моделей является разработка программного кода, поэтому в приложении находится полные программные коды RS-триггера и D-триггера.

Заключение

Во введении своей дипломной работы я поставил перед собой цель - создать и исследовать информационную модель для более наглядного иллюстрирования процессов, происходящих во время работы оперативной памяти компьютера, а именно в ячейках памяти, предназначенных для хранения 1 бита информации и реализуемых на RS-триггерах или D-триггерах. С помощью объектно-ориентированного языка программирования Delphi я создал информационные модели RS-триггера и D-триггера. Мои информационные модели триггеров являются увеличенными моделями, иллюстрирующими логические связи полупроводниковых элементов, из которых состоят схемы триггеров, соответствуют описаниям в прочитанной мной литературе и, во время работы, модели выдают значения, совпадающие с таблицами, приведенными в прочитанной мной литературе. Принцип работы триггеров основан на законах алгебры логики. В программном коде информационных моделей были использованы формулы, которые позволили рассчитать выводимые значения триггера.

СПИСОК ЛИТЕРАТУРЫ

Информатика и ИКТ. Профильный уровень: учебник для 10 класса / Н. Д. Угринович. -7-е изд. -М. : БИНОМ. Лаборатория знаний, 2011.

Информатика и ИКТ. Профильный уровень: учебник для 11 класса / Н. Д. Угринович. -5-е изд. -М. : БИНОМ. Лаборатория знаний, 2012. - с. 88.

Логические схемы - Физическая энциклопедия. http: //www. femto. com. ua/articles/part_1/1975. html. Ссылка действительна на 01. 12. 2012.

Триггер - Википедия http: //ru. wikipedia. org/wiki/% D2% F0% E8% E3% E3% E5% F0. Ссылка действительна на 01. 12. 2012.

Приложения

Программный код D-триггера

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Menus, ExtCtrls;

type

TForm1 = class (TForm)

Shape01: TShape;

Or1: TShape;

Shape06: TShape;

Or2: TShape;

Shape08: TShape;

Shape07: TShape;

Shape09: TShape;

Shape11: TShape;

Shape03: TShape;

Or3: TShape;

Or4: TShape;

Shape012: TShape;

Shape0140: TShape;

Shape020: TShape;

Shape015: TShape;

Shape021: TShape;

Shape016: TShape;

Shape022: TShape;

Shape017: TShape;

Shape023: TShape;

Shape018: TShape;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Or7: TShape;

Label6: TLabel;

Or8: TShape;

Panel1: TPanel;

Label7: TLabel;

Label8: TLabel;

Line: TShape;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

MainMenu1: TMainMenu;

N2: TMenuItem;

Button1: TButton;

Shape04: TShape;

Shape02: TShape;

Shape10: TShape;

Shape013: TShape;

Shape024: TShape;

Shape0141: TShape;

Shape019: TShape;

Shape1: TShape;

Shape2: TShape;

Shape05: TShape;

procedure N2Click (Sender: TObject) ;

procedure Button1Click (Sender: TObject) ;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

s, r, q, q1, c, d: string;

slog, rlog, qlog, q1log, clog, dlog: boolean;

implementation

{$R *. dfm}

procedure TForm1. N2Click (Sender: TObject) ;

begin

close;

end;

procedure TForm1. Button1Click (Sender: TObject) ;

begin

Panel1. Caption: ='';

Shape01. Brush. Color: =clBlack;

Shape01. Pen. Color: =clBlack;

Shape02. Brush. Color: =clBlack;

Shape02. Pen. Color: =clBlack;

Shape03. Brush. Color: =clBlack;

Shape03. Pen. Color: =clBlack;

Shape04. Brush. Color: =clBlack;

Shape04. Pen. Color: =clBlack;

Shape06. Brush. Color: =clBlack;

Shape06. Pen. Color: =clBlack;

Shape07. Brush. Color: =clBlack;

Shape07. Pen. Color: =clBlack;

Shape08. Brush. Color: =clBlack;

Shape08. Pen. Color: =clBlack;

Shape09. Brush. Color: =clBlack;

Shape09. Pen. Color: =clBlack;

Shape05. Brush. Color: =clBlack;

Shape05. Pen. Color: =clBlack;

Shape10. Brush. Color: =clBlack;

Shape10. Pen. Color: =clBlack;

Shape11. Brush. Color: =clBlack;

Shape11. Pen. Color: =clBlack;

Shape013. Brush. Color: =clBlack;

Shape013. Pen. Color: =clBlack;

Shape0141. Brush. Color: =clBlack;

Shape0141. Pen. Color: =clBlack;

Shape015. Brush. Color: =clBlack;

Shape015. Pen. Color: =clBlack;

Shape016. Brush. Color: =clBlack;

Shape016. Pen. Color: =clBlack;

Shape017. Brush. Color: =clBlack;

Shape017. Pen. Color: =clBlack;

Shape018. Brush. Color: =clBlack;

Shape018. Pen. Color: =clBlack;

Shape019. Brush. Color: =clBlack;

Shape019. Pen. Color: =clBlack;

Shape0140. Brush. Color: =clBlack;

Shape0140. Pen. Color: =clBlack;

Shape012. Brush. Color: =clBlack;

Shape012. Pen. Color: =clBlack;

Shape020. Brush. Color: =clBlack;

Shape020. Pen. Color: =clBlack;

Shape021. Brush. Color: =clBlack;

Shape021. Pen. Color: =clBlack;

Shape022. Brush. Color: =clBlack;

Shape022. Pen. Color: =clBlack;

Shape023. Brush. Color: =clBlack;

Shape023. Pen. Color: =clBlack;

Shape024. Brush. Color: =clBlack;

Shape024. Pen. Color: =clBlack;

Shape012. Brush. Color: =clBlack;

Shape012. Pen. Color: =clBlack;

Shape0140. Brush. Color: =clBlack;

Shape0140. Pen. Color: =clBlack;

Edit3. Text: =' ';

Edit4. Text: =' ';

Edit5. Text: =' ';

Edit6. Text: =' ';

Edit7. Text: =' ';

Edit8. Text: =' ';

d: =Edit1. Text;

c: =Edit2. Text;

if d='1' then dlog: =true;

if d='0' then dlog: =false;

if c='1' then clog: =true;

if c='0' then clog: =false;

slog: =dlog and clog;

rlog: =not dlog and clog;

if slog=true then s: ='1' else s: ='0';

if rlog=true then r: ='1' else r: ='0';

if r='1' then begin

qlog: =not (rlog or q1log) ;

q1log: =not (slog or qlog) ; end;

if s='1' then begin

q1log: =not (slog or qlog) ;

qlog: =not (rlog or q1log) ; end;

if qlog=true then q: ='1' else q: ='0';

if q1log=true then q1: ='1' else q1: ='0';

Edit7. Text: =q1;

Edit8. Text: =q;

Edit6. Text: =q;

Edit5. Text: =q1;

Edit4. Text: =r;

Edit3. Text: =s;

if Edit1. Text='1' then begin

Shape01. Brush. Color: =clRed;

Shape01. Pen. Color: =clRed;

Shape02. Brush. Color: =clRed;

Shape02. Pen. Color: =clRed;

Shape03. Brush. Color: =clRed;

Shape03. Pen. Color: =clRed;

Shape04. Brush. Color: =clRed;

Shape04. Pen. Color: =clRed;

Shape05. Brush. Color: =clBlack;

Shape05. Pen. Color: =clBlack;

end;

if Edit1. Text='0' then begin

Shape01. Brush. Color: =clBlack;

Shape01. Pen. Color: =clBlack;

Shape02. Brush. Color: =clBlack;

Shape02. Pen. Color: =clBlack;

Shape03. Brush. Color: =clBlack;

Shape03. Pen. Color: =clBlack;

Shape04. Brush. Color: =clBlack;

Shape04. Pen. Color: =clBlack;

Shape05. Brush. Color: =clRed;

Shape05. Pen. Color: =clRed;

end;

if Edit2. Text='1' then begin

Shape06. Brush. Color: =clRed;

Shape06. Pen. Color: =clRed;

Shape07. Brush. Color: =clRed;

Shape07. Pen. Color: =clRed;

Shape08. Brush. Color: =clRed;

Shape08. Pen. Color: =clRed;

Shape09. Brush. Color: =clRed;

Shape09. Pen. Color: =clRed;

end;

if Edit2. Text='0' then begin

Shape06. Brush. Color: =clBlack;

Shape06. Pen. Color: =clBlack;

Shape07. Brush. Color: =clBlack;

Shape07. Pen. Color: =clBlack;

Shape08. Brush. Color: =clBlack;

Shape08. Pen. Color: =clBlack;

Shape09. Brush. Color: =clBlack;

Shape09. Pen. Color: =clBlack;

end;

if Edit3. Text='0' then begin

Shape10. Brush. Color: =clBlack;

Shape10. Pen. Color: =clBlack;

end;

if Edit3. Text='1' then begin

Shape10. Brush. Color: =clRed;

Shape10. Pen. Color: =clRed;

end;

if Edit4. Text='0' then begin

Shape11. Brush. Color: =clBlack;

Shape11. Pen. Color: =clBlack;

end;

if Edit4. Text='1' then begin

Shape11. Brush. Color: =clRed;

Shape11. Pen. Color: =clRed;

end;

if Edit7. Text='0' then begin

Shape013. Brush. Color: =clBlack;

Shape013. Pen. Color: =clBlack;

end;

if Edit7. Text='1' then begin

Shape013. Brush. Color: =clRed;

Shape013. Pen. Color: =clRed;

Panel1. Caption: ='Записан 0';

end;

if Edit8. Text='0' then begin

Shape0141. Brush. Color: =clBlack;

Shape0141. Pen. Color: =clBlack;

end;

if Edit8. Text='1' then begin

Shape0141. Brush. Color: =clRed;

Shape0141. Pen. Color: =clRed;

Panel1. Caption: ='Записана 1';

end;

if Edit5. Text='1' then begin

Shape015. Brush. Color: =clRed;

Shape015. Pen. Color: =clRed;

Shape016. Brush. Color: =clRed;

Shape016. Pen. Color: =clRed;

Shape017. Brush. Color: =clRed;

Shape017. Pen. Color: =clRed;

Shape018. Brush. Color: =clRed;

Shape018. Pen. Color: =clRed;

Shape019. Brush. Color: =clRed;

Shape019. Pen. Color: =clRed;

Shape0140. Brush. Color: =clRed;

Shape0140. Pen. Color: =clRed;

Shape012. Brush. Color: =clRed;

Shape012. Pen. Color: =clRed;

end;

if Edit5. Text='0' then begin

Shape015. Brush. Color: =clBlack;

Shape015. Pen. Color: =clBlack;

Shape016. Brush. Color: =clBlack;

Shape016. Pen. Color: =clBlack;

Shape017. Brush. Color: =clBlack;

Shape017. Pen. Color: =clBlack;

Shape018. Brush. Color: =clBlack;

Shape018. Pen. Color: =clBlack;

Shape019. Brush. Color: =clBlack;

Shape019. Pen. Color: =clBlack; ;

end;

if Edit6. Text='1' then begin

Shape020. Brush. Color: =clRed;

Shape020. Pen. Color: =clRed;

Shape021. Brush. Color: =clRed;

Shape021. Pen. Color: =clRed;

Shape022. Brush. Color: =clRed;

Shape022. Pen. Color: =clRed;

Shape023. Brush. Color: =clRed;

Shape023. Pen. Color: =clRed;

Shape024. Brush. Color: =clRed;

Shape024. Pen. Color: =clRed;

Shape012. Brush. Color: =clRed;

Shape012. Pen. Color: =clRed;

Shape0140. Brush. Color: =clRed;

Shape0140. Pen. Color: =clRed;

end;

if Edit6. Text='0' then begin

Shape020. Brush. Color: =clBlack;

Shape020. Pen. Color: =clBlack;

Shape021. Brush. Color: =clBlack;

Shape021. Pen. Color: =clBlack;

Shape022. Brush. Color: =clBlack;

Shape022. Pen. Color: =clBlack;

Shape023. Brush. Color: =clBlack;

Shape023. Pen. Color: =clBlack;

Shape024. Brush. Color: =clBlack;

Shape024. Pen. Color: =clBlack;

end;

end;

end.

Программный код RS-триггера

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Menus;

type

TForm1 = class (TForm)

DUp: TShape;

Label1: TLabel;

DDown: TShape;

Label2: TLabel;

RLine: TShape;

SLine: TShape;

DotQ1Line1: TShape;

DotQ1Line2: TShape;

DotQ1Line3: TShape;

DotQ1Line4: TShape;

DotQ1: TShape;

DotQLine1: TShape;

DotQLine2: TShape;

DotQLine3: TShape;

DotQLine4: TShape;

DotQ: TShape;

R: TLabel;

S: TLabel;

Q: TLabel;

Q1: TLabel;

LineQ: TShape;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button1: TButton;

Panel1: TPanel;

DotDDown: TShape;

DotDUp: TShape;

QLine1: TShape;

Q1Line1: TShape;

QLine2: TShape;

Q1Line2: TShape;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure Button1Click (Sender: TObject) ;

procedure N2Click (Sender: TObject) ;

procedure N1Click (Sender: TObject) ;

procedure FormCreate (Sender: TObject) ;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a, b, a1, b1: integer;

rlog, slog, qlog, q1log: boolean;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject) ;

begin

Edit3. Text: ='';

Edit4. Text: ='';

Edit5. Text: ='';

Edit6. Text: ='';

if Edit1. Text='1' then rlog: =true;

if Edit1. Text='0' then rlog: =false;

if Edit2. Text='1' then slog: =true;

if Edit2. Text='0' then slog: =false;

if slog=true then begin

q1log: =not (slog or qlog) ;

qlog: =not (rlog or q1log) ; end;

if rlog=true then begin

qlog: =not (rlog or q1log) ;

q1log: =not (slog or qlog) ; end;

if (edit1. text='1') and (edit2. text='1') then

Panel1. Caption: ='Запрещенная комбинация'

else begin

if qlog=true then begin

Edit3. text: ='1';

Edit5. text: ='1';

end else begin

Edit3. text: ='0';

Edit5. text: ='0';

end;

if q1log=true then begin

Edit4. text: ='1';

Edit6. text: ='1';

end else begin

Edit4. text: ='0';

Edit6. text: ='0';

end;

end;

end;

procedure TForm1. N2Click (Sender: TObject) ;

begin

close;

end;

procedure TForm1. N1Click (Sender: TObject) ;

begin

Form2. Show;

end;

procedure TForm1. FormCreate (Sender: TObject) ;

begin

a: =0;

b: =0;

a1: =0;

b1: =0;

end;

end.

Размещено на Allbest.ru

...