1 Частина
Створимо новий проект та додамо до форми кнопку
Додамо у проект нову форму
Додамо наступний програмний код
private: System::Void Form_per_Load(System::Object^ sender, System::EventArgs^ e) {
label1->Text = "Введите фамилию на русском языке:";
button1->Text = "Проверка";
label2->Text = "Введите положительное рациональное число:";
button2->Text = "Проверка";
}
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
textBox1->Text = textBox1->Text->Trim();
if (System::Text::RegularExpressions::Regex::Match(
textBox1->Text, "^[А-ИК-ЩЭ-Я][а-яА-Я]*$")->Success != true)
MessageBox::Show ("Неверный ввод фамилии", "Ошибка");
}
private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
textBox1->Text = textBox1->Text->Trim();
if (System::Text::RegularExpressions::Regex::Match(
textBox1->Text,
"^(([0-9]+.[0-9]*)|([0-9]*.[0-9]+)|([0-9]+))$"
)->Success == false)
MessageBox::Show("Некорректный ввод", "Ошибка");
}
Повернемося до першої форми. До першої форми підключимо другу форму. Для події клацання на кнопці створимо обробник для відкриття другої форми
Запустимо прикладення. Якщо клацнемо на кнопці
Завершимо роботу із програмою.
2 Частина
Розташуємо на формі кнопку
Створимо нову форму та розташуємо наступні компоненти
Для форми створимо обробники подій
#pragma endregion
// Программа демонстрирует стандартную форму. Щелчок мышью в пределах
// этой формы начинает постепенный процесс исчезновения формы: форма
// становится все более прозрачной, а затем исчезает вовсе. Далее она
// постепенно проявляется снова, и т. д. Еще один щелчок в пределах
// формы останавливает этот процесс, а следующий щелчок процесс
// возобновляет и т. д.
double s; // - шаг изменения прозрачности
private: System::Void Form_st_Load(System::Object^ sender, System::EventArgs^ e) {
s = 0.1;
Form_st::Text = "Щелкните на форме";
// Timer1->Interval() = 400;
}
private: System::Void timer1_Tick(System::Object^ sender, System::EventArgs^ e) {
if (this->Opacity <= 0 || this->Opacity >= 1) s = -s;
this->Opacity += s;
}
private: System::Void Form_st_Click(System::Object^ sender, System::EventArgs^ e) {
timer1->Enabled = !timer1->Enabled;
}
Повернемося до першої форми. До першої форми підключимо нову форму. Для події клацання на кнопці створимо обробник для відкриття нової форми
Запустимо прикладення. Якщо клацнемо на кнопці
Завершимо роботу із програмою.
3 Частина
Додамо до панелі компонентів наступний компонент
Створимо нову форму та розташуємо наступні компоненти
Для форми створимо обробники подій
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e) {
this->Text = "Расчет ежемесячных платежей";
label1->Text = "Год. ставка в %";
label2->Text = "Срок в месяцах";
label3->Text = "Размер кредита";
textBox1->Clear(); textBox2->Clear(); textBox3->Clear();
button1->Text = "Расчет";
}
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
try
{
Microsoft::Office::Interop::Excel::Application^ XL = gcnew Microsoft::Office::Interop::Excel::Application();
// Перменная с "пустым" значением:
System::Object^ t = Type::Missing;
// Получаем размер месячного платежа:
double pay = XL->WorksheetFunction->Pmt(
(Convert::ToDouble(textBox1->Text)) / 1200,
Convert::ToDouble(textBox2->Text),
Convert::ToDouble(textBox3->Text), t, t);
// ИЛИ, если использовать функцию Pmt()
// из Microsoft.VisualBasic:
// double FV = 0;
// Microsoft::VisualBasic::DueDate dt =
// Microsoft::VisualBasic::DueDate::EndOfPeriod;
// double pay = Microsoft::VisualBasic::Financial::Pmt(
// (Convert::ToDouble(textBox1->Text)) / 1200,
// Convert::ToDouble(textBox2->Text),
// Convert::ToDouble(textBox3->Text), FV, dt);
String^ Строка = String::Format("Каждый месяц следует платить {0:$#.##} долларов",Math::Abs(pay));
MessageBox::Show(Строка);
XL->Quit();
}
catch (Exception ^ Ситуация)
{
MessageBox::Show(Ситуация->Message, "Ошибка",
MessageBoxButtons::OK, MessageBoxIcon::Exclamation);
}
Додамо необхідний код для відкриття створеної форми з першої форми. Запустимо прикладення.
Завершимо роботу із програмою.