Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- TForm1 *Form1;
- //---------------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent* Owner)
- : TForm(Owner)
- {
- ComboBox1->Items->Add("Асфальтобетонная дорога");
- ComboBox1->Items->Add("Асфальтоцементная дорога");
- ComboBox1->Items->Add("Грунтовая дорога");
- ComboBox1->Items->Add("Гравийно-щебеночная дорога");
- ComboBox2->Items->Add("Хорошее состояние");
- ComboBox2->Items->Add("Удовлетворительное состояние");
- ComboBox2->Items->Add("Неудовлетворительное состояние");
- ComboBox3->Items->Add("Дорога сухая");
- ComboBox3->Items->Add("Дорога мокрая ");
- ComboBox3->Items->Add("Гололед");
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button1Click(TObject *Sender)
- {
- bool condition=true;
- double speed=30+rand()%55,change;
- if ((ComboBox1->ItemIndex== -1) || (ComboBox2->ItemIndex== -1) || (ComboBox3->ItemIndex== -1))
- {
- MessageDlg("Выберите все три условия", mtInformation, TMsgDlgButtons() << mbOK, 0);
- condition=false;
- }
- else {
- if (ComboBox1->ItemIndex==0){
- if ((ComboBox2->ItemIndex==1) || (ComboBox2->ItemIndex==2))
- MessageDlg("Для асфальтобетонной дороги доступно только хорошее состояние", mtWarning, TMsgDlgButtons() << mbOK, 0);
- else if ((ComboBox2->ItemIndex==0) && (ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>74)
- {
- change=speed-74;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<74)
- {
- change=74-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==74)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- }
- if ((ComboBox1->ItemIndex==1) && (ComboBox2->ItemIndex==0) &&(ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>66)
- {
- change=speed-66;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<66)
- {
- change=66-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==66)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- if ((ComboBox1->ItemIndex==1) && (ComboBox2->ItemIndex==1) && (ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>64)
- {
- change=speed-64;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<64)
- {
- change=64-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==64)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- if ((ComboBox1->ItemIndex==1) && (ComboBox2->ItemIndex==2) && (ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>60)
- {
- change=speed-60;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 3 передачу" ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<60)
- {
- change=60-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 3 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==60)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- if ((ComboBox1->ItemIndex==2) && (ComboBox2->ItemIndex==0) && (ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>66)
- {
- change=speed-66;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +", переключите на 4 передачу " ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<66)
- {
- change=66-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + ", переключите на 4 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==66)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- if ((ComboBox1->ItemIndex==2) && (ComboBox2->ItemIndex==1) && (ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>58)
- {
- change=speed-58;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +" ,переключите на 4 передачу " ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<58)
- {
- change=58-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + " ,переключите на 4 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==58)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- if ((ComboBox1->ItemIndex==2) && (ComboBox2->ItemIndex==2) && (ComboBox3->ItemIndex==0) && (condition==true))
- {
- Edit1->Text=FloatToStr(speed);
- if (speed>55)
- {
- change=speed-55;
- MessageDlg("Снизьте скорость на " + AnsiString(change) +" ,переключите на 4 передачу " ,mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed<55)
- {
- change=55-speed;
- MessageDlg("Повысьте скорость на " + AnsiString(change) + " ,переключите на 4 передачу ",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- else if (speed==55)
- MessageDlg("Придерживайтесь данного скоростного режима",mtInformation, TMsgDlgButtons() << mbOK, 0);
- }
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TForm1::Button2Click(TObject *Sender)
- {
- if (MessageDlg("Закрыть приложение?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
- {
- Close();
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement