|
#1
|
|||
|
|||
помогите
Здравствуйте. Дали нам значит курсовую на делфи,хотя мы не проходили ету программу. Дали мне готовый модуль, который должен рисовать электроизмерительные приборы(ваттметр,фазмметр итд) так вот собственно вопрос куда их вписыватЬ? между какими строками? ниже кусок программы на паскале как перевести его на делфи куда что писать обхясните поэалуйтсау
Unit PPeremT1;{Прибор переменного тока, нуль слева. Вызов Arrow, Scale, Body, Text из внешней программы} interface type Str3=String[3]; Procedure Arrow0(X,Y,Um:Integer; Ut:Real); Procedure Scale0(X,Y,Umax:integer); Procedure Marker0(X,Y:Integer); Procedure Body(X,Y:Integer); Procedure Text1(X,Y:Integer;Ch,St3:Str3;mn:Integer); implementation uses Graph; Procedure Body(X,Y:Integer);{Рисование корпуса прибора} begin Rectangle(X,Y,X+200,Y+120); Line(X,Y+100,X+200,Y+100); end; procedure Text1(X,Y:Integer;Ch,St3:Str3;mn:Integer); {Вывод надписей и множителя на шкале прибора} begin Arc(X+100,Y+90,0,180,10); SetTextStyle(0,0,1); SetTextJustify(1,1); SetColor(14); OutTextXY(x+20,y+110,St3);{Позиционное обозначение прибора} SetColor(15); OutTextXY(x+100,y+50,Ch);{Тип прибора} SetColor(4); {x0.1} if mn=1 then outtextxy(x+105,y+70,'x0.1') else {x10} if mn=2 then outtextxy(x+105,y+75,'x10'); SetColor(15); end; procedure Marker0(X,Y:Integer); var k,xk,yk,xi,yi:Integer; |
#2
|
||||
|
||||
Ты модули выложи, а подключить мы тебе их поможем…
|