[@_L_E_X]

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

[Konrad]

Сообщение от @_L_E_X

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

Что ИМЕНО имеется ввиду? ХОR?

[@_L_E_X]

ну есть такой прибор - дешифратор. Мне нужен именно двоичный. Т.е. на делфи прога которая будет реализовывать его работу. Описать работу Д. долго, проще прочитать тут : http://www.studfiles.ru/dir/cat32/su...view92315.html если конечно не сочтете за наглость с моей стороны ... там пара обзацев ...

[Konrad]

Сообщение от @_L_E_X

ну есть такой прибор - дешифратор. Мне нужен именно двоичный. Т.е. на делфи прога которая будет реализовывать его работу. Описать работу Д. долго, проще прочитать тут : http://www.studfiles.ru/dir/cat32/su...view92315.html если конечно не сочтете за наглость с моей стороны ... там пара обзацев ...

который из тех что описаны в статье?

[lmikle]

Господя!!!

Код:

function Deshifr(AIn : Byte) : DWORD;
begin
  If AIn > 63 Then Raise Exception.Create('Sorry, overflow...');
  Result := 1 shl AIn;
end;

пример простейший. Опять-же, не зыбывай, что разряды считаются справа на лево (это если тебя смутит картинка в статье - там Zi в обратном полядке - первым идет младший разряд).

Условие в функции сделано потому, что DWORD - 64 бита, т.е. в простейшем варианте можно сделать только для 7 входных бит. Если нужно больше, то уже надо изобретать велосипед со сложными длинными типами.

[@_L_E_X]

Сообщение от Konrad

который из тех что описаны в статье?

мне нужна прога реализующая работу вот этого двоичного дешифратора К 530 ИД 14 (ну вот типо вводишь в поле, значения, которые подаются на входы и нужно чтоб она вывела результат в такой же таблице и просто графически; таблицу надо вывести на форму )

[PhoeniX]

Сообщение от lmikle

DWORD - 64 бита

Это в какой версии Delphi и в какой подсистеме DWORD превратился в "64 бита"?
байт = 8 бит
слово (word) = 2 байта = 16 бит
2 слова (Double word = DWORD) = 4 байта = 32 бит
4 слова (Quad word = QWORD) = 8 байт = 64 бит

Ты что-то перепутал?

[lmikle]

Да, сорри, описался. Использовать либо QWORD, либо Int64.

[lmikle]

Сообщение от @_L_E_X

мне нужна прога реализующая работу вот этого двоичного дешифратора К 530 ИД 14 (ну вот типо вводишь в поле, значения, которые подаются на входы и нужно чтоб она вывела результат в такой же таблице и просто графически; таблицу надо вывести на форму )

Ну ты бы хоть описание ее привел (или ссылку на описание).
Никто ж на вскидку не знает как она работает. А прямой поиск только продавцов дает.

Опять же, все за тебя никто тут делвть не будет. Для этого есть раздел "Работа".

[lmikle]

вот нашел, правда для 531 серии:

Микросхема КР531ИД14 (рис. 97) содержит два стробируемых дешифратора, каждый с двумя адресными входами 1 и 2, инверсным



входом стробирования S и инверсными выходами 0-3. Как и в других дешифраторах ТТЛ-серий, при разрешающем лог. 0 на входе S лог. 0 появляется на том выходе дешифратора, номер которого соответствует десятичному эквиваленту двоичного числа, поданному на адресные входы 1 и 2. При лог. 1 на входе S на всех выходах дешифратора также лог. 1.

[lmikle]

Итого, есть функция, которая имеет 3 входа и 4 выхода. в соотв. с описанием выще оно будет выглядеть примерно так:

Код:

type
  TBit = 0..1;

procedure TForm1.K531ID14(AIn0, AIn1, AStrob : TBit; var AOut0, AOut1, AOut2, AOut3 : TBit);
var
  AIn : Byte;
begin
  AOut0 := 1;
  AOut1 := 1;
  AOut2 := 1;
  AOut3 := 1;

  If AStrob = 0 Then
    Begin
      AIn := (AIn1 Shl 1) + AIn0;
      Case AIn Of
        0 : AOut0 := 0;
        1 : AOut1 := 0;
        2 : AOut2 := 0;
        3 : AOut3 := 0;
      End;
    End
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A1, A2, A3, A4 : TBit;
begin
  K531ID14(1,1,0,A1,A2,A3,A4);
  ShowMessage(Format('%d %d %d %d',[A4,A3,A2,A1]))
end;

Написано по простому, что бы было понятно, что делается.
Плюс пример вызова.

За полной программой - wellcome to "Работа".

[@_L_E_X]

большое спасибо, токо разъясните плиз что значит "welcom to работа" ?

[lmikle]

Сообщение от @_L_E_X

большое спасибо, токо разъясните плиз что значит "welcom to работа" ?

Это значит, что за тебя бесплатно никто писать всю программу не будет, бо как это просто не интересно. Тебе дали имплементацию собственно логики, т.к. это было немного интересно разобраться и сделать (хотя я бы сделал немного подругому, если бы делал для себя). Дальше либо делаешь интерфейс сам, либо платишь деньги и получаешь готовое решение.

[@_L_E_X]

понятно... а сколько стоит примерно такая прога ? )))

[lmikle]

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