Перевод программы с Deplhi

[Valera11]

Добрый день программисты, мне необходимо сделать перевод с Deplhi на Visual Basic, жду ваших ответов в данной теме!

[zer0mail]

Вы даже Delphi правильно написать не смогли, что уж говорить о программе.

[Dvoishnik]

Сообщение от Valera11

мне необходимо сделать перевод с Deplhi на Visual Basic

это просто превосходно!
дальше что?
может хотя бы код скинете ?
хотя нет не замарачивайтесь. ждите ответов!

[Valera11]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math, ExtCtrls, ActnList, XPStyleActnCtrls, ActnMan,
  ActnMenus, ToolWin, ActnCtrls, ImgList, XPMan, ComCtrls, chart, series;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit4: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Memo2: TMemo;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    RadioGroup1: TRadioGroup;
    ImageList1: TImageList;
    ActionToolBar1: TActionToolBar;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    XPManifest1: TXPManifest;
    ProgressBar1: TProgressBar;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);

  private
    { Private declarations }
  public
    n,ni,r,s,w :integer;
    q0,q,h,w0,k1,k2,z,v1,v2,f,f0,f1,g,e,x13,x21,x22,x31,x32,x131,t,t1,p1,
    p2,p3,a11,a21,con,xmin,xmax,ymin,ymax,cmin,cmax, eps, dc,mx,my,xc,yc,
    x0,y0,alf1,alf2,c3,c1,c2:real;
    x:array [0..99] of real;
    dq:array [0..99] of real;
    function ff(z1,z2:real):real;
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}


function tform1.ff(z1,z2:real):real;
var j1,j2,w0:integer;
label l3,lc;
begin
j1:=1; j2:=2; w0:=1;
x13:=w0;
l3:
x22:=w0+x13;
x21:=x22/(x22+j1*z1);
x31:=x22*x21/(x22+j2*z2);
x32:=x22;
x131:=x31*x32;
if abs(x131-x13)/x13<Power(10,-4) then
 ff:=c1*Power(z1,alf1)+c2*Power(z2,alf2)+c3*x32
else begin
x13:=x131; goto l3; end;
end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j:integer;
label l1,l2,lc,l21;
begin
memo2.Lines.Clear;
form2.Visible:=false;
Progressbar1.Visible:=true;
Progressbar1.Position:=1;
button2.Enabled:=false;
button3.Enabled:=false;

if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='')  or (Edit4.Text='')
then goto lc;
n:=strtoint(Edit1.Text);
h:=strtofloat(Edit2.Text);
x[1]:= strtofloat(Edit3.Text);
x[2]:= strtofloat(Edit4.Text);

if radiogroup1.ItemIndex=1 then begin
if (Edit5.Text='') or (Edit6.Text='') or (Edit7.Text='')  or (Edit8.Text='') or
(Edit9.Text='') or (Edit10.Text='') or (Edit11.Text='') or (Edit12.Text='')
then goto lc;
alf1:=strtofloat(Edit5.Text);
alf2:=strtofloat(Edit6.Text);
w0:=strtofloat(Edit7.Text);
k1:=strtofloat(Edit8.Text);
k2:=strtofloat(Edit9.Text);
c1:=strtofloat(Edit10.Text);
c2:=strtofloat(Edit11.Text);
c3:=strtofloat(Edit12.Text);
end;
if radiogroup1.ItemIndex=0 then begin
alf1:=1; alf2:=0.8; w0:=1; k1:=1;k2:=2;c3:=1;c1:=1;c2:=1.5;
end;

g:= Power(10,-4);
e:= Power(10,-6);
ni:=1;
r:=200;s:=400;
for i:=1 to 6 do begin
form2.chart1.Series[i].Clear;
end;

eps:=1e-2;
x13:=w0;
xmin:=0;xmax:=3;ymin:=0;ymax:=3;cmin:=3.45;cmax:=6;
dc:=(cmax-cmin)/10;
mx:=(xmax-xmin)/s;
my:=(ymax-ymin)/r;

x0:=x[1];
y0:=x[2];

con:=cmin;
repeat
  for j:=0 to s do begin
    x0:=xmin+j*mx;
      for i:=0 to r do begin
      y0:=ymin+i*my;
     if con=0 then goto l1;
     if abs((ff(x0,y0)/con)-1)>0.001 then goto l1;
     Form2.Chart1.Series[2].AddXY(x0,y0,'',clred);
     l1:
    end;
  end;
con:=con+dc;
Progressbar1.Position:=Progressbar1.Position+10;
until con>cmax;

x0:=x[1];
y0:=x[2];

q:=ff(x0,y0);
q0:=q;
memo2.Lines.Add('q0 = ' + floatToStr(q0));
Form2.Chart1.Series[6].AddXY(x0,y0,'',clblack);
xc:=0.4165;yc:=0.833;
Form2.Chart1.Series[1].AddXY(xc,yc,'',clblue);

l2:
t:=w0+x13+k1*x[1];
p1:=k1*x[1]/t/t;
t1:=x22+k2*x[2];
p2:=x22/t1;
p3:=x21*k2*x[2]/t1/t1;
a11:=p2*x32*c3/(p1*p2*x32+p3*x32+x31-1);
a21:=a11/p2;
dq[1]:=a11*k1*(w0+x13)/t/t+alf1*c1*Power(x[1],(alf1-1));
dq[2]:=a21*k2*x22*x21/t1/t1+alf2*c2*Power(x[2],(alf2-1));

q0:=q;

l21:
for i:=1 to n do
x[i]:=x[i]-dq[i]*h;

q:=ff(x[1],x[2]);
memo2.Lines.Add('q=' + floatToStr(q));

if q>q0 then begin
  for i:=1 to n do begin
    x[i]:=x[i]+dq[i]*h;
  end;
h:=h/2;
memo2.Lines.Add('h=' + floatToStr(h));
goto l21;
end;

Form2.Chart1.Series[6].AddXY(x[1],x[2],'',clgreen);

if abs(q-q0)/abs(q0)<e then  begin
memo2.Lines.Add('Минимальное значение = ' + floatToStr(q));
memo2.Lines.Add('Шаг = ' + floatToStr(h));
memo2.Lines.Add('X1min = ' + floatToStr(x[1]));
memo2.Lines.Add('X2min = ' + floatToStr(x[2]));
memo2.Lines.Add('Количество итераций = ' + floatToStr(ni));

goto lc;
end;
ni:=ni+1;
goto l2;
lc:
Progressbar1.Visible:=false;
button2.Enabled:=true;
button3.Enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form2.Height:=form2.Chart1.Height+80;
form2.Width:=form2.Chart1.Width+15;
Form2.Visible:=true;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 if radiogroup1.ItemIndex=0 then begin
 Edit5.Enabled:=false;
 Edit6.Enabled:=false;
 Edit7.Enabled:=false;
 Edit8.Enabled:=false;
 Edit9.Enabled:=false;
 Edit10.Enabled:=false;
 Edit11.Enabled:=false;
 Edit12.Enabled:=false;
end;
 if radiogroup1.ItemIndex=1 then begin
 Edit5.Enabled:=true;
 Edit6.Enabled:=true;
 Edit7.Enabled:=true;
 Edit8.Enabled:=true;
 Edit9.Enabled:=true;
 Edit10.Enabled:=true;
 Edit11.Enabled:=true;
 Edit12.Enabled:=true;
 end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
radiogroup1.ItemIndex:=0;
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
Close;
end;

procedure TForm1.Action3Execute(Sender: TObject);
begin
Form3.Visible:=true;
end;

procedure TForm1.Action1Execute(Sender: TObject);
var i:integer;
begin
radiogroup1.ItemIndex:=0;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
Edit5.Enabled:=false;
Edit6.Enabled:=false;
Edit7.Enabled:=false;
Edit8.Enabled:=false;
Edit9.Enabled:=false;
Edit10.Enabled:=false;
Edit11.Enabled:=false;
Edit12.Enabled:=false;
memo2.Clear;
for i:=1 to 6 do
form2.chart1.Series[i].Clear;
Form2.Visible:=false;
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
  TForm2 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series4: TLineSeries;
    Series5: TLineSeries;
    Series6: TLineSeries;
    Series7: TLineSeries;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.


unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Valera11]

Перевод нужен срочно, не бесплатно конечно же!

[min@y™]

 public
    n,ni,r,s,w :integer;
    q0,q,h,w0,k1,k2,z,v1,v2,f,f0,f1,g,e,x13,x21,x22,x31,x32,x131,t,t1,p1,
    p2,p3,a11,a21,con,xmin,xmax,ymin,ymax,cmin,cmax, eps, dc,mx,my,xc,yc,
    x0,y0,alf1,alf2,c3,c1,c2:real;

боюсь, это непереводимая (на другие языки) игра слов.
Тут надо трансплантолога вызывать. Для пересадки рук с жопы в плечи.

пипец ваще. И комментариев в коде ноль.
Тебя кинули, Серёжа.

[Gilius]

Хотелось бы знать бюджет, сроки
Напишите giliussoft@yandex.ru