Advertisement
robkepetr

Untitled

Apr 29th, 2017
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C++ 1.48 KB | None | 0 0
  1. #pragma endregion
  2.     private: System::Void AtliktaRedagavimas_Load(System::Object^  sender, System::EventArgs^  e) {
  3.                  
  4.                  
  5.                  label3->Text = gcnew String(glob::Reg.ats[glob::eilute].klientas.c_str());
  6.                  textBox1->Text = (glob::Reg.ats[glob::eilute].ugis * 100).ToString();
  7.                  textBox2->Text = glob::Reg.ats[glob::eilute].svoris.ToString();
  8.                  textBox3->Text = glob::Reg.ats[glob::eilute].proc.ToString();
  9.                  textBox4->Text = glob::Reg.ats[glob::eilute].ritmas.ToString();
  10.                  comboBox1->Text = glob::Reg.ats[glob::eilute].ivertinimas.ToString();
  11.              }
  12. private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
  13.  
  14.                  double Ugis;
  15.                  double Svoris;
  16.                  int Ritmas;
  17.                  double Proc;
  18.                  int Ivertinimas;
  19.  
  20.                  Ugis = double::Parse(textBox1->Text);
  21.                  Svoris = double::Parse(textBox2->Text);
  22.                  Proc = double::Parse(textBox3->Text);
  23.                  Ritmas = int::Parse(textBox4->Text);
  24.                  Ivertinimas = int::Parse(comboBox1->Text);
  25.  
  26.                  glob::Reg.ats[glob::eilute].ugis = Ugis / 100;
  27.                  glob::Reg.ats[glob::eilute].svoris = Svoris;
  28.                  glob::Reg.ats[glob::eilute].proc = Proc;
  29.                  glob::Reg.ats[glob::eilute].ritmas = Ritmas;
  30.                  glob::Reg.ats[glob::eilute].ivertinimas = Ivertinimas;
  31.                  glob::Reg.ats[glob::eilute].kmi = (Svoris / (( Ugis / 100) * (Ugis / 100)));
  32.  
  33.                  std::string failoPav;
  34.                  failoPav = glob::Reg.ats[glob::eilute].klientas + ".txt";
  35.  
  36.                  glob::Reg.duomAts(glob::n, failoPav);
  37.  
  38.                  Form::Close();
  39.  
  40.          }
  41. };
  42. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement