Реферат Розробка отказоустойчивой обчислювальної системи

Тема: Курсовые обзорные

tive: = false; end; procedure TForm1.sUDPRead (Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); end; procedure TForm1.Timer2Timer (Sender: TObject); begin if numP = 0 then begin if ncs = 1 then Memo1.Lines.Add ('ГЏГ®ГІГҐГ°ГїГГГ Г±ГўГїГ§Гј Г± Г±ГҐГ°ГўГҐГ°Г®Г¬ 1. ГЏГ®ГЇГ»ГІГЄГ ГЇГ®Г¤ГЄГ«Гѕ Г· ГҐГГЁГї В№ 1') else < span align = "justify"> Memo1.Lines.Add ("ГЏГ®ГІГҐГ°ГїГГГ Г±ГўГїГ§Гј Г± Г±ГҐГ°ГўГҐГ°Г®Г¬ 2. ГЏГ®ГЇГ»ГІГЄГ ГЇГ®Г¤ГЄГ«Гѕ Г· ГҐГГЁГї В№ 1 '); end; if numP = 1 then begin if ncs = 1 then Memo1.Lines.Add ('ГЏГ®ГІГҐГ°ГїГГГ Г±ГўГїГ§Гј Г± Г±ГҐГ°ГўГҐГ°Г®Г¬ 1. ГЏГ®ГЇГ»ГІГЄГ ГЇГ®Г¤ГЄГ«Гѕ Г· ГҐГГЁГї В№ 2') else Memo1.Lines.Add ('ГЏГ®ГІГҐГ°ГїГГГ Г±ГўГїГ§Гј Г± Г±ГҐГ°ГўГҐГ°Г®Г¬ 2. ГЏГ®ГЇГ»ГІГЄГ ГЇГ®Г¤ГЄГ«Гѕ Г· ГҐГГЁГї В№ 1'); end; if numP> 1 then begin timer2.Enabled: = false; if ncs = 1 then begin c.Host: = eip2.Text; ncs: = 2; numP: = 0; Memo1.Lines.Add ('ГЏГ®ГІГҐГ°ГїГГГ Г±ГўГїГ§Гј Г± Г±ГҐГ°ГўГҐГ°Г®Г¬ 1. ГЏГ®ГЇГ»ГІГЄГ ГЇГ®Г¤ГЄГ«Гѕ Г· ГҐГГЁГї ГЄГ® ГўГІГ®Г°Г®Г¬Гі'); end else begin c.Host: = eip.Text; ncs: = 1; numP: = 0 ; Memo1.Lines.Add ('ГЏГ®ГІГҐГ°ГїГГГ Г±ГўГїГ§Гј Г± Г±ГҐГ°ГўГҐГ°Г®Г¬ 2. ГЏГ®ГЇГ»ГІГЄГ ГЇГ®Г¤ГЄГ«Гѕ Г· ГҐГГЁГї ГЄ ГЇГҐГ°ГўГ®Г¬Гі'); end; end ; numP: = numP +1; end; procedure TForm1.Button2Click (Sender: TObject); begin s.DefaultPort: = strtoint (eport.Text) end; procedure TForm1.s2UDPRead (Sender: TObject; AData: TStream; ABinding: TIdSocketHandle ); var i: integer; mas: array [0 .. 1000] of char; str: string; begin Adata.Read (mas, 100); for i: = 0 to 1000 do begin if mas [i] <> ;'' then str: = str + mas [i] else break; end; timer2.Enabled: = false; end; procedure TForm1.FormCreate (Sender: TObject); begin Mip: = GetLocalIP; c.Host: = eip. Text; numP: = 0; ncs: = 1; end; procedure TForm1.Button3Click (Sender: TObject); begin if Butt on3.caption = 'Г‘ГЄГ°Г»ГІГј ГГ Г±ГІГ°Г®Г©ГЄГЁ' then begin label2.Visible: = false; label3.Visible: = false; label4.Visible: = false; label5.Visible: = false; eip.Visible: = false; eip2.Visible: = false; eport.Visible: = false; Button2.Visible: = false; Memo1.Visible: = false; Form1.Height: = 180; button3.Caption: = 'ГЏГ®ГЄГ Г§Г ГІГј ГГ Г±ГІГ°Г®Г©ГЄГЁ '; end else begin label2.Visible: = true; label3.Visible: = true; label4.Visible: = true; label5.Visible: = true; eip.Visible: = true; eip2.Visible: = true; eport.Visible: = true; Button2.Visible: = true; Memo1.Visible: = true; Form1.Height: = 400;

Назад | сторінка 4 з 5 | Наступна сторінка

Схожі реферати:

Реферат на тему: Creation of control system by a personnel how to begin with a zero

Реферат на тему: Procedure of preparation business-plan

Реферат на тему: Розробка грі "Lines" в середовіщі С ++

Реферат на тему: Розробка гри "Lines"

Реферат на тему: Phonetic peculiarities of the popular science text

Український реферат переглянуто разів: | Коментарів до українського реферату:

Коментарів до українського реферату: 0