->Caption= FloatToStrF(Flowrate_water,ffGeneral,4,2);->Caption= FloatToStrF(TotalFlowrate_water,ffGeneral,4,2);->Caption=CastingSpeed;->Add(ShellThickness,_time);->Add(Flowrate_water,_time);
_water=0.13;
_Time+=10;->Caption=_Time;(_Time% 60 ==0)
{_Time=0;->Caption=_Time;
_TimeMin+=1;
}->Caption=_TimeMin;
}
//---------------------------------------------------------------------------
__fastcall TForm1::Button2Click(TObject *Sender)
{->Enabled=False;->Enabled=False;->Enabled=True;->Caption="Остановлено";
}
//---------------------------------------------------------------------------
__fastcall TForm1::Button5Click(TObject *Sender)
{->Visible=True;->Visible=True;->Caption="Ручное";->Enabled=False;->Enabled=True;
}
//---------------------------------------------------------------------------
__fastcall TForm1::Button6Click(TObject *Sender)
{->Caption=Edit2->Text;_water=StrToFloat(Label15->Caption);
}
//---------------------------------------------------------------------------
__fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{(Key)
{'0':case '1':case '2':'3':case '4':case '5':'6':case '7':case '8':'9':case 8:break;',':
Text.Pos(Key)%20!=0)%20Key=0;">{=',';(Edit2->Text.Pos(Key) !=0) Key=0;
break;
}:Key=0;
}
}
ПРИЛОЖЕНИЕ В
Результаты работы программы
Рисунок 1 - Модель затвердевания стали
