📄 loop3.cpp
字号:
Form7->ET77->Text="双联轴";
Ax-=1;
break;
case 7:
Form7->ET87->Text="双联轴";
Ax-=1;
break;
}
break;
case 6:spic+=3;
switch(i)
{
case 0:
Form7->ET17->Text="三联轴";
Ax-=2;
break;
case 1:
Form7->ET27->Text="三联轴";
Ax-=2;
break;
case 2:
Form7->ET37->Text="三联轴";
Ax-=2;
break;
case 3:
Form7->ET47->Text="三联轴";
Ax-=2;
break;
case 4:
Form7->ET57->Text="三联轴";
Ax-=2;
break;
case 5:
Form7->ET67->Text="三联轴";
Ax-=2;
break;
case 6:
Form7->ET77->Text="三联轴";
Ax-=2;
break;
case 7:
Form7->ET87->Text="三联轴";
Ax-=2;
break;
}
break;
}
switch(i)
{
case 0: EA1->Text=IntToStr(AxleGr[i].Aweigh);
Form7->EA17->Text=IntToStr(AxleGr[i].Aweigh);
tempo=AxleGr[i].Aweigh;
switch(AxleGr[i].Atype)
{
case 1:EL1->Text=IntToStr(limit6);
Form7->EL17->Text=IntToStr(limit6);
tempo-=limit6;
break;
case 2:EL1->Text=IntToStr(limit10);
Form7->EL17->Text=IntToStr(limit10);
tempo-=limit10;
break;
case 4:EL1->Text=IntToStr(limit18);
Form7->EL17->Text=IntToStr(limit18);
tempo-=limit18 ;
break;
case 6:EL1->Text=IntToStr(limit22);
Form7->EL17->Text=IntToStr(limit22);
tempo-=limit22;
}
if(tempo>0)
{
ov=1;
EC1->Text=IntToStr(tempo);
// Form7->EC17->Text=IntToStr(tempo);
}
else
{
EC1->Text="0";
// Form7->EC17->Text="0";
}
break;
case 1: EA2->Text=IntToStr(AxleGr[i].Aweigh);
Form7->EA27->Text=IntToStr(AxleGr[i].Aweigh);
tempo=AxleGr[i].Aweigh;
switch(AxleGr[i].Atype)
{
case 1:EL2->Text=IntToStr(limit6);
Form7->EL27->Text=IntToStr(limit6);
tempo-=limit6;
break;
case 2:EL2->Text=IntToStr(limit10);
Form7->EL27->Text=IntToStr(limit10);
tempo-=limit10;
break;
case 4:EL2->Text=IntToStr(limit18);
Form7->EL27->Text=IntToStr(limit18);
tempo-=limit18 ;
break;
case 6:Form7->EL27->Text=IntToStr(limit22);
EL2->Text=IntToStr(limit22);
tempo-=limit22;
}
if(tempo>0)
{
// Form7->EC27->Text=IntToStr(tempo);
EC2->Text=IntToStr(tempo);
}
else
{
EC2->Text="0";
// Form7-> EC27->Text="0";
}
break;
case 2: EA3->Text=IntToStr(AxleGr[i].Aweigh);
Form7->EA37->Text=IntToStr(AxleGr[i].Aweigh);
tempo=AxleGr[i].Aweigh;
switch(AxleGr[i].Atype)
{
case 1:EL3->Text=IntToStr(limit6);
Form7->EL37->Text=IntToStr(limit6);
tempo-=limit6;
break;
case 2:EL3->Text=IntToStr(limit10);
Form7->EL37->Text=IntToStr(limit10);
tempo-=limit10;
break;
case 4:EL3->Text=IntToStr(limit18);
Form7->EL37->Text=IntToStr(limit18);
tempo-=limit18;
break;
case 6:EL3->Text=IntToStr(limit22);
Form7->EL37->Text=IntToStr(limit22);
tempo-=limit22;
}
if(tempo>0)
{
ov=1;
// Form7->EC37->Text=IntToStr(tempo);
EC3->Text=IntToStr(tempo);
}
else
{
// Form7->EC37->Text="0";
EC3->Text="0";
}
break;
case 3: EA4->Text=IntToStr(AxleGr[i].Aweigh);
Form7->EA47->Text=IntToStr(AxleGr[i].Aweigh);
tempo=AxleGr[i].Aweigh;
switch(AxleGr[i].Atype)
{
case 1:EL4->Text=IntToStr(limit6);
Form7->EL47->Text=IntToStr(limit6);
tempo-=limit6;
break;
case 2:EL4->Text=IntToStr(limit10);
Form7->EL47->Text=IntToStr(limit10);
tempo-=limit10;
break;
case 4:EL4->Text=IntToStr(limit18);
Form7->EL47->Text=IntToStr(limit18);
tempo-=limit18;
break;
case 6:EL4->Text=IntToStr(limit22);
Form7->EL47->Text=IntToStr(limit22);
tempo-=limit22;
}
if(tempo>0)
{
ov=1;
EC4->Text=IntToStr(tempo);
// Form7->EC47->Text=IntToStr(tempo);
}
else
{
// Form7->EC47->Text="0";
EC4->Text="0";
}
break;
case 4: EA5->Text=IntToStr(AxleGr[i].Aweigh);
Form7->EA57->Text=IntToStr(AxleGr[i].Aweigh);
tempo=AxleGr[i].Aweigh;
switch(AxleGr[i].Atype)
{
case 1:EL5->Text=IntToStr(limit6);
Form7->EL57->Text=IntToStr(limit6);
tempo-=limit6;
break;
case 2:EL5->Text=IntToStr(limit10);
Form7->EL57->Text=IntToStr(limit10);
tempo-=limit10;
break;
case 4:EL5->Text=IntToStr(limit18);
Form7->EL57->Text=IntToStr(limit18);
tempo-=limit18;
break;
case 6:EL5->Text=IntToStr(limit22);
Form7->EL57->Text=IntToStr(limit22);
tempo-=limit22;
}
if(tempo>0)
{
ov=1;
// Form7->EC57->Text=IntToStr(tempo);
EC5->Text=IntToStr(tempo);
}
else
{
// Form7->EC57->Text="0";
EC5->Text="0";
}
break;
case 5: EA6->Text=IntToStr(AxleGr[i].Aweigh);
Form7->EA67->Text=IntToStr(AxleGr[i].Aweigh);
tempo=AxleGr[i].Aweigh;
switch(AxleGr[i].Atype)
{
case 1:EL6->Text=IntToStr(limit6);
Form7->EL67->Text=IntToStr(limit6);
tempo-=limit6;
break;
case 2:EL6->Text=IntToStr(limit10);
Form7->EL67->Text=IntToStr(limit10);
tempo-=limit10;
break;
case 4:EL6->Text=IntToStr(limit18);
Form7->EL67->Text=IntToStr(limit18);
tempo-=limit18;
break;
case 6:EL6->Text=IntToStr(limit22);
Form7->EL67->Text=IntToStr(limit22);
tempo-=limit22;
}
if(tempo>0)
{
ov=1;
EC6->Text=IntToStr(tempo);
// Form7->EC67->Text=IntToStr(tempo);
}
else
{
EC6->Text="0";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -