Tuesday, June 21, 2005

4-я глава

Позавчера начал писать программный продукт, для представления при в диссератции. Надо создать реальное приложение, позволяющее использовать все задумки по нейросетевой оптимизации. Вообще начал гнать. Уселся стал ваять на C#. Сваял примерный интерфейс, начал наполнять функциональностью. И тут до меня дошло, что все классы реализованы на Delphi :) В общем пришлось все переделывать. В реузльтате пока на сегодняшний день имеем:

Код создания новой матрицы:

If Not Assigned(NewMatrixForm) Then NewMatrixForm:=TNewMatrixForm.Create(self);
NewMatrixForm.ShowModal;
If NewMatrixForm.ExitCode<>-1 Then
Begin
N:=NewMatrixForm.N;
M:=NewMatrixForm.M;
Max:=NewMatrixForm.Max;
Domain:= TDomain.Create(N);
Domain.OnIndexChanged:= self.IndexChanged;
{Please wait...}
If Not Assigned(WaitFor) Then WaitFor:=TWaitForForm.Create(Self);
WaitFor.ProgressBar1.Max:=N*M;
WaitFor.ProgressBar1.Position:=0;
WaitFor.Show;
{Please wait...}
If NewMatrixForm.ExitCode=1 then Domain.FormHebbMatrix(M,False) Else
If NewMatrixForm.ExitCode=2 then Domain.FormHebbMatrix(M,True) Else
Domain.FormRandomMatrix(Max);
Matrix:=Domain.Matrix;
ChangeMenuState(True);
WaitFor.Close;
StatusBar.Panels[0].Text:='Матрица создана';
End;

Честно говоря немного доканали дельфийские Action'ы. Все как-то глючно :( Всегда мучался с ними... эХъ... ну что поделаешь :) В общем так.

No comments: