SHARE
TWEET

Borya

ViktorSkomorokhov Jun 25th, 2019 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. TForm1 *Form1;
  2. //---------------------------------------------------------------------------
  3. __fastcall TForm1::TForm1(TComponent* Owner)
  4.         : TForm(Owner)
  5. {
  6. ComboBox1->Items->Add("Асфальтобетонная дорога");
  7. ComboBox1->Items->Add("Асфальтоцементная  дорога");
  8. ComboBox1->Items->Add("Грунтовая дорога");
  9. ComboBox1->Items->Add("Гравийно-щебеночная дорога");
  10.  
  11. ComboBox2->Items->Add("Хорошее состояние");
  12. ComboBox2->Items->Add("Удовлетворительное состояние");
  13. ComboBox2->Items->Add("Неудовлетворительное состояние");
  14.  
  15. ComboBox3->Items->Add("Дорога сухая");
  16. ComboBox3->Items->Add("Дорога мокрая ");
  17. ComboBox3->Items->Add("Гололед");
  18.  
  19. }
  20. //---------------------------------------------------------------------------
  21.  
  22. void __fastcall TForm1::Button1Click(TObject *Sender)
  23. {
  24.         bool condition=true;
  25.         double speed=30+rand()%55,change;
  26.  
  27.         if ((ComboBox1->ItemIndex== -1) || (ComboBox2->ItemIndex== -1) || (ComboBox3->ItemIndex== -1))
  28.         {
  29.         MessageDlg("Выберите все три условия", mtInformation, TMsgDlgButtons() << mbOK, 0);
  30.         condition=false;
  31.         }
  32.         else {
  33.           if (ComboBox1->ItemIndex==0){
  34.                 if ((ComboBox2->ItemIndex==1) || (ComboBox2->ItemIndex==2))
  35.                 MessageDlg("Для асфальтобетонной дороги доступно только хорошее состояние", mtWarning, TMsgDlgButtons() << mbOK, 0);
  36.                 else if ((ComboBox2->ItemIndex==0) && (ComboBox3->ItemIndex==0) && (condition==true))
  37.                 {
  38.                         Edit1->Text=FloatToStr(speed);
  39.                         if (speed>74)
  40.                         {
  41.                         change=speed-74;
  42.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  43.                         }
  44.                         else if (speed<74)
  45.                         {
  46.                         change=74-speed;
  47.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу",mtInformation, TMsgDlgButtons() << mbOK, 0);
  48.                         }
  49.                         else if (speed==74)
  50.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  51.                 }
  52.  
  53.                                 }
  54.  
  55.            if ((ComboBox1->ItemIndex==1) && (ComboBox2->ItemIndex==0) &&(ComboBox3->ItemIndex==0) && (condition==true))
  56.                 {
  57.                         Edit1->Text=FloatToStr(speed);
  58.                         if (speed>66)
  59.                         {
  60.                         change=speed-66;
  61.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  62.                         }
  63.                         else if (speed<66)
  64.                         {
  65.                         change=66-speed;
  66.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу",mtInformation, TMsgDlgButtons() << mbOK, 0);
  67.                         }
  68.                         else if (speed==66)
  69.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  70.                 }
  71.              if ((ComboBox1->ItemIndex==1) && (ComboBox2->ItemIndex==1) && (ComboBox3->ItemIndex==0) && (condition==true))
  72.                 {
  73.                         Edit1->Text=FloatToStr(speed);
  74.                         if (speed>64)
  75.                         {
  76.                         change=speed-64;
  77.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  78.                         }
  79.                         else if (speed<64)
  80.                         {
  81.                         change=64-speed;
  82.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу",mtInformation, TMsgDlgButtons() << mbOK, 0);
  83.                         }
  84.                         else if (speed==64)
  85.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  86.                 }
  87.             if ((ComboBox1->ItemIndex==1) && (ComboBox2->ItemIndex==2) && (ComboBox3->ItemIndex==0) && (condition==true))
  88.                 {
  89.                         Edit1->Text=FloatToStr(speed);
  90.                         if (speed>60)
  91.                         {
  92.                         change=speed-60;
  93.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 3 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  94.                         }
  95.                         else if (speed<60)
  96.                         {
  97.                         change=60-speed;
  98.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 3 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
  99.                         }
  100.                         else if (speed==60)
  101.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  102.                 }
  103.             if ((ComboBox1->ItemIndex==2) && (ComboBox2->ItemIndex==0) && (ComboBox3->ItemIndex==0) && (condition==true))
  104.                 {
  105.                         Edit1->Text=FloatToStr(speed);
  106.                         if (speed>66)
  107.                         {
  108.                         change=speed-66;
  109.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу " ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  110.                         }
  111.                         else if (speed<66)
  112.                         {
  113.                         change=66-speed;
  114.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
  115.                         }
  116.                         else if (speed==66)
  117.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  118.                 }
  119.             if ((ComboBox1->ItemIndex==2) && (ComboBox2->ItemIndex==1) && (ComboBox3->ItemIndex==0) && (condition==true))
  120.                 {
  121.                         Edit1->Text=FloatToStr(speed);
  122.                         if (speed>58)
  123.                         {
  124.                         change=speed-58;
  125.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +" ,переключите на 4 передачу " ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  126.                         }
  127.                         else if (speed<58)
  128.                         {
  129.                         change=58-speed;
  130.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + " ,переключите на 4 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
  131.                         }
  132.                         else if (speed==58)
  133.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  134.                 }
  135.             if ((ComboBox1->ItemIndex==2) && (ComboBox2->ItemIndex==2) && (ComboBox3->ItemIndex==0) && (condition==true))
  136.                 {
  137.                         Edit1->Text=FloatToStr(speed);
  138.                         if (speed>55)
  139.                         {
  140.                         change=speed-55;
  141.                         MessageDlg("Снизьте скорость на " + AnsiString(change) +" ,переключите на 4 передачу " ,mtInformation, TMsgDlgButtons() << mbOK, 0);
  142.                         }
  143.                         else if (speed<55)
  144.                         {
  145.                         change=55-speed;
  146.                         MessageDlg("Повысьте скорость на " + AnsiString(change) + " ,переключите на 4 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
  147.                         }
  148.                         else if (speed==55)
  149.                         MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
  150.                 }
  151.            }
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160. }
  161.  
  162. //---------------------------------------------------------------------------
  163.  
  164.  
  165. void __fastcall TForm1::Button2Click(TObject *Sender)
  166. {
  167. if (MessageDlg("Закрыть приложение?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
  168.  
  169.             {
  170.                         Close();
  171.             }
  172. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top