begin
vorbereiten;
myNet.lerne_schritte(Application,getsolle(),10,getnoise(),ErrorLabel,ErrorImage);
Akt();
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
vorbereiten;
myNet.lerne_schritte(Application,getsolle(),100,getnoise(),ErrorLabel,ErrorImage);
Akt();
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
myNet.lerne_schritte(Application,getsolle(),1000,getnoise(),ErrorLabel,ErrorImage);
Akt();
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
vorbereiten;
myNet.lerne_schritte(Application,getsolle(),10000,getnoise(),ErrorLabel,ErrorImage);
Akt();
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
vorbereiten;
myNet.lerne_schritte(Application,getsolle(),100000,getnoise(),ErrorLabel,ErrorImage);
Akt();
end;
procedure TForm1.ImOCRLernDrawMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
zeichne:=true;
ax:=x;
ay:=y;
with ImOCRLernDraw.Canvas.Pen do begin
color:=clRed;
width:=6;
end;
end;
procedure TForm1.ImOCRLernDrawMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
zeichne:=false;
end;