Похожие работы на «Разработка программы- тренажера Управление электросетями »

Разработка программы- тренажера Управление электросетями
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... 3 |Отключить МВ ввода В2 яч.14 |Включить ВВ 220 кВ яч 10 | |4 |Отключить ТР2 яч.14 |Включить ТР2 яч.14 | |5 |Отключить ШР2 яч.14 |Включить ШР2 яч.14 ...
... i]:=False; end; end; procedure MVState(AOwner:TImage;i:integer); begin if F[i]=false then begin with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo ...


Разработка системы автоматизации документооборота [нестрогое соответствие]
Делопроизводство, Разработка системы автоматизации документооборота, Диплом TObject); begin if Table1.Modified then Table1.Post; if Table2.Modified then Table2.Post; if Table3.Modified then Table3.Post; if Table4.Modified then ...
TObject); begin if RadioButton1.Checked=true then Table1.Locate('Rukov', Edit1.Text, [loPartialKey]) else if RadioButton2.Checked=true then Table1. ...


Создание теста в Delphi [нестрогое соответствие]
Программирование и комп-ры, Создание теста в Delphi, Курсовая ... Введите фамилию',mterror,[mbok],0); error:=true; end else error:=false; if edit2.Text='' then begin messagedlg('Введите имя',mterror,[mbok],0); error: ...
... memo1.ScrollBars:=ssVertical; buttonnext.Caption:='Завершить'; buttonnext.Visible:=false; BFinish.Visible:=true; Label1.Visible:=false; Label3.Visible ...


Разработка программы психотестирования [нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая ... f:file of TResult; r:tresult; begin inc(defque); if defque=testnum then begin assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f ...
... read(f,test[testnum]); inc(testnum) end; statictext1.Caption:='Всего вопросов '+inttostr(testnum); closefile(f); spinedit1.value:=1; spinedit1change( ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... col] <> i then begin Finish:=False; break; end; if col < 4 then inc(col) else begin col :=1; inc(row); end; end; end; procedure TForm1.Formmas; var i, ...
... Pole[ey,ex]:=Pole[cy,cx]; Pole[cy,cx]:=0; ex:=cx; ey:=cy; Form1.ShowPole; if Finish then begin pole[H,W]:=H*W; Form1.ShowPole; r:=MessageDlg('Цель ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...
... f,lessonname); reset(f); while not eof(f) do begin readln(f,s); if s='/:question' then inc(nq) end; closefile(f); reset(f); readln(f,name); frmlesson. ...


Экспертная система [нестрогое соответствие]
Программирование и комп-ры, Экспертная система, Курсовая ... Visible := true; Form1.Button3.Caption := str; end; 4: begin Form1.Button4.Visible := true; Form1.Button4.Caption := str; end; end; end else case n of
TObject); begin if Select > 10 then Select := Select div 10; ReLoad (form1); end; procedure TForm1.Button5Click(Sender:


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... рисунка для синих фишек if (a[i,j]=0) then if button=mbLeft then begin if (abs(i-vi)<3) and (abs(j-vj)<3) then begin if (abs(i-vi)=2) or (abs(j-vj)=2) ...
... image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap); V2i:=i; v2j:=j; end else begin image2.Canvas.StretchDraw(b[v2i,v2j],image3.picture.bitmap) ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая TObject); begin if OpenDialog.Execute then begin Image.ImageName := OpenDialog.FileName; NSelect.Enabled := True; end else NSelect.Enabled := False; ...
... x-1,y] = clBlack then d := 0 else d := 1; if Pixels[x+1,y] = clBlack then e := 0 else e := 1; if Pixels[x-1,y+1] = clBlack then g := 0 else g := 1


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... crx+1; | |Sheep(croldx,cr_type,false); | |Sheep(crx,cr_type,true); | |croldx:=crx; | |end; | |end else begin | |if crx=150 then begin | |inc(cr_ind2) ...