Лекция: Динамические ЗУ
Динамическими они называются потому, что они в принципе не способны сохранять записанную информацию длительное время и требуют периодической регенерации (обновления) хранимой информации.
При замкнутом ключе записи/хранения высокий потенциал на шине записи обеспечивает заряд емкости С (в качестве С может использоваться и входная емкость МДП транзистора). При выключенном ключе заряд на емкости сохраняется некоторое время (единицы – сотни миллисекунд) за счет малых токов утечки через ключ записи/хранения.
МДП транзистор изолирует С от шины чтения и позволяет считать информацию без разрешения. Это важная особенность.
Наличие утечек приводит к необходимости периодической регенерации заряда на емкости С. Процедура регенерации включает последовательные чтение и запись.
Информационные объемы однокристальных динамических ОЗУ (565РУ5, 565РУ4 и т.д.; 537РУ2, 557РУ3) в режиме хранения напряжение питания – до 2.2В и очень малая потребляемая мощность достигают единиц и десятков мегабит при времени считывания/записи в десятки наносекунд.
3. Составить программу для вычисления скорости передачи информации между компьютерами, объединенными в локальную сеть
//ПРОГРАММА СЕРВЕР
unit NetTestSrv;
interface
type
TForm1 = class(TForm)
Socket1: TServerSocket;
procedure Socket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
type
implementation
procedure TForm1._FORM_CREATE(Sender: TObject);
begin
Socket1.Port:=1203038;
Socket1.Active:=True;
end;
procedure TForm1.Socket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket1.Socket.SendText(Socket.ReceiveText;);
end;
end.
//ПРОГРАММА КЛИЕНТ
unit NetTestClient;
interface
type
TForm1 = class(TForm)
Socket1: TClientSocket;
procedure Socket1Read(Sender: TObject; Socket: TCustomWinSocket);
end;
implementation
var i:integer;
procedure TForm1._FORM_CREATE(Sender: TObject);
begin
Socket1.Address:='127.0.0.0';
Socket1.Port:=530262;
Socket1.Active:=True;
i=GetTickCount();
Socket1.Socket.SendText('TEST TEXT');
end;
end;
procedure TForm1.Socket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
if Socket1.Socket.ReceiveText='TEST TEXT' then begin
ShowMessage('Время передачи данных — ' + IntToStr(GetTickCount()-i) + ' мс');
end;
end;