Private Sub Cover() Const Konstan As Single = 1000 WG1.Text = Val(QP1.Text) * Val(BM1.Text) TW1.Text = (Val(WG1.Text) + Val(WG6.Text) + Val(WG11.Text)) GI1.Text = (Val(WG1.Text) / Val(TW1.Text)) * Val(QL1.Text) * Konstan 'Cover L WG6.Text = Val(QP2.Text) * Val(BM6.Text) GI6.Text = (Val(WG6.Text) / Val(TW1.Text)) * Val(QL1.Text) * Konstan 'Cover R WG11.Text = Val(QP3.Text) * Val(BM11.Text) GI11.Text = (Val(WG11.Text) / Val(TW1.Text)) * Val(QL1.Text) * Konstan End Sub
ToString
string.Format
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)