повніть всі поля!», «Помилка»);
}
Далі представлений текст програми для роботи з вікном оплати телебачення.
Кнопка «Баланс»:
private: System: Void button11_Click (System: Object ^ sender, System: EventArgs ^ e) {(textBox1- gt; Text!=»») {int flag; (textBox1- gt; Text! =»») { gt; openFileDialog1- gt; Filter=«txt files (* .txt) | * .txt | Всі файли (*. *) | *. *»;
this- gt; openFileDialog1- gt; FilterIndex=1;
filename=this- gt; openFileDialog1- gt; FileName; (! filename- gt; IsNullOrEmpty (filename))
{ gt; check_balance («1.txt», Convert: ToInt32 (textBox1- gt; Text)); - gt; Enabled=0; (flag!=300) {- gt; Text= »»; 4- gt; Text=«Баланс вашого особового рахунку n»;
label4- gt; Text=label4- gt; Text + «Ваш особовий рахунок:« + tv- gt; getid () + » n»; - gt; Text=label4- gt; Text + « Ваш баланс: «+ tv- gt; getamount () +» n »; - gt; Text =» »; - gt; Text =« Баланс вашого особового рахунку n »; - gt; Text=label9- gt; Text + «Ваш особовий рахунок:« + tv- gt; getid () + » n»; - gt; Text=label9- gt; Text + «Ваш баланс:« + tv- gt; getamount () + » n»;
}
{- gt; Text=»»; - gt; Text=«Ваш приводу не знайдений в базі! Ласка зареєструйтеся n »;
}
}
}: Show («Ви не ввели всі дані! Будь ласка заповніть всі поля!», «Помилка»);
button10- gt; Enabled=1; - gt; Text=»»; - gt; Text=«0»;
}: Show («Ви не ввели всі дані! Будь ласка заповніть всі поля!», «Помилка»);
}
Кнопка «Поповнити рахунок»:
private: System: Void button9_Click (System: Object ^ sender, System: EventArgs ^ e) {((textBox1- gt; Text!=»») amp; amp; (textBox2- gt; Text !=»»)) {int flag; gt; openFileDialog1- gt; Filter=«txt files (* .txt) | * .txt | Всі файли (*. *) | *. *»; gt; openFileDialog1- gt; FilterIndex=1;=this- gt; openFileDialog1- gt; FileName; (! filename- gt; IsNullOrEmpty (filename)) {(textBox1- gt; Text =="") {
MessageBox: Show («Будь ласка введіть номер особового рахунку!», «Помилка»);
exit;
}
{((Convert: ToInt32 (textBox2- gt; Text)% 10!=0) || (Convert: ToInt32 (textBox2- gt; Text)% 10 gt; 10000) || (Convert:ToInt32 (textBox2- gt; Text)% 10 lt; 0))
{: Show («Будь ласка перевірте введення суми! Сума повинна бути неотрицательной і кратної 10!», «Помилка»);
exit;
}
{= tv- gt; change_balance («1.txt», Convert: ToInt32 (textBox1- gt; Text), Convert: ToInt32 (textBox2- gt; Text)); - gt; Enabled= 0; - gt; Visible=1; ((flag!=300) amp; amp; (flag!=900))
{- gt; Text=»»; - gt; Text=«Операція пройшла успішно! Ваш особовий рахунок поповнений! n »;
label9- gt; Text=label9- gt; Text + «Ваш особовий рахунок:« + tv- gt; getid () + » n»; - gt; Text=label9- gt; Text + « Ваш баланс: «+ tv- gt; getamount () +» n »;;
}
{- gt; Text=»»; - gt; Text=«Ви завели новий особовий рахунок! n »; - gt; Text=label9- gt; Text +« Ваш особовий рахунок: «+ tv- gt; getid () +» n »; - gt; Text=label9- gt; Text +« Ваш баланс: «+ tv- gt; getamount () + » n»;
exit;
}
}
}
}
}: Show («Ви не ввели всі дані! Будь ласка заповніть всі поля!», «Помилка»);
textBox2- gt; Text=«0»; - gt; Text=»»; - gt; Enabled=1;
}
Кнопка «Реєстрація»:
private: System: Void button8_Click (System: Object ^ sender, System: EventArgs ^ e) {(textBox1- gt; Text!=»») {int flag; gt; openFileDialog1- gt; Filter =«txt files (* .txt) | * .txt | Всі файли (*. *) | *. *»; gt; openFileDialog1- gt; FilterIndex=1;=this- gt; openFileDialog1- gt; FileName; (! filename- gt; IsNullOrEmpty (filename)) {= tv- gt; setdata («1.txt», Convert: ToInt32 (textBox1- gt; Text)); - gt; Enabled=0; (flag == 300)
{- gt; Text=»»;
label4- gt; Text=«Даний особовий рахунок вже був зареєстрований! n »; - gt; Text=label4- gt; Text +« Ваш особовий рахунок: «+ tv- gt; getid () +» n »; - gt; Text=label4- gt; Text +« Ваш баланс: «+ tv- gt; getamount () + » n»;
}
{- gt; Text=»»; - gt; Text=«Вітаємо! Ви завели новий ос...
