Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2011, 12:03   #1
GrafMonte
 
Регистрация: 11.10.2011
Сообщений: 5
По умолчанию Из Delphi в C#.

Помогите пожалуйста перевести данный код Delphi в C#. Delphi до этого в глаза не видел.
Код:
unit grid_;
 
interface
 
uses
 
Windows, Messages, SysUtils, Classes,
 
Graphics, Controls, Forms, Dialogs, StdCtrls;
 
type
 
TForm1 = class(TForm)
 
procedure FormPaint(Sender: TObject);
 
private
 
{ Private declarations }
 
public
 
{ Public declarations }
 
end;
 
var
 
Form1: TForm1; implementation
 
{$R *.DFM}
 
procedure TForm1.FormPaint(Sender: TObject);
 
var
 
x0,y0:integer; // координаты начала координатных осей
 
dx,dy:integer; // шаг координатной сетки (в пикселах)
 
h,w:integer; // высота и ширина области вывода координатной сетки
 
х,у:integer;
 
lx,ly:real; // метки (оцифровка) линий сетки по X и Y
 
dlx,dly:real; // шаг меток (оцифровки) линий сетки по X и Y
 
cross:integer; // счетчик неоцифрованных линий сетки
 
dcross:integer;// количество неоцифрованных линий между оцифрованными
 
begin
 
х0:=30; у0:=220; // оси начинаются в точке (40,250)
 
dx:=40; dy:=40; // шар координатной сетки 40 пикселов
 
dcross:=1; // помечать линии сетки X: 1 — каждую;
 
// 2 — через одну;
 
// 3 — через две;
 
dlx:=0.5; // шаг меток оси X
 
dly:=1.0; // шаг меток оси Y, метками будут: 1, 2, 3 и т. д.
 
h:=200; w:=300;
 
with forml.Canvas do begin
 
cross:=dcross;
 
MoveTo(x0,v0); LineTo(x0,y0-h); // ось X
 
MoveTo(x0,y0); LineTo(x0+w, y0); // ось Y
 
// засечки, сетка и оцифровка по оси X
 
x:=x0+dx;
 
lx:=dlx;
 
repeat
 
MoveTo(x,y0-3);LineTo(x,yO+3); // засечка
 
cross:=cross-l;
 
if cross = 0 then // оцифровка
 
begin
 
TextOut(x-8,y0+5,FloatToStr(lx));
 
cross:=dcross ; end;
 
Pen.Style:=psDot;
 
MoveTo(x,y0-3);LineTo(x,y0-h); // линия сетки
 
Pen.Style:=psSolid;
 
lx:=lx+dlx;
 
x:=x+dx;
 
until (x>x0+w);
 
// засечки, сетка и оцифровка по оси Y
 
y:=y0-dy;
 
ly:=dly;
 
repeat
 
MoveTo(х0-3,у);LineTo(х0+3,у); // засечка
 
TextOut(х0-20,у,FloatToStr(1у)); // оцифровка
 
Pen.Style:=psDot;
 
MoveTo(х0+3,у); LineTo(x0+w,у); // линия сетки
 
Pen.Style:=psSolid;
 
y:=y-dy;
 
ly:=ly+dly; until (y<y0-h);
 
end;
 
end;
 
end.
GrafMonte вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 Elvisnya Общие вопросы Delphi 3 28.04.2011 15:59
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 666dart666 Помощь студентам 11 04.11.2010 17:57
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism savva-paladin Софт 18 02.10.2010 20:24
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? redred Общие вопросы Delphi 10 11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? dagarik БД в Delphi 7 22.10.2007 17:54