Разработка программы, обеспечивающую с помощью средств языка С++ ввод анкетных данных студентов и вывод в табличном виде списка студентов, отобранных по заданному условию, страница 16

На форму необходимо добавит следующие элементы:

·  PictureBox

·  Timer

·  FolderBrowserDialog

·  Кнопки «Выбор папки», «Начать показ», «Завершить показ», «Вперед», «Назад»

·  ComboBox

Обработчик события нажатия кнопки «Выбор папки»:

Dim Result As DialogResult

Result = FolderBrowserDialog1.ShowDialog()

If (Result = Windows.Forms.DialogResult.OK) Then

Files = Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.jpg")

Img_Count = Files.Length

If Img_Count = 0 Then

MsgBox("В данной папке нет графических файлов", MsgBoxStyle.OkOnly)

End If

End If

Выбор скорости показа с помощью элемента Combobox. Обработчик события SelectedIndexChanged:

Dim n As String

n = ComboBox1.Text

Select Case n

Case "10"

Me.Timer1.Interval() = 10

Case "50"

Me.Timer1.Interval() = 50

Case "150"

Me.Timer1.Interval() = 150

Case "500"

Me.Timer1.Interval() = 500

Case "1000"

Me.Timer1.Interval() = 1000

End Select

Обработчик события нажатия кнопки «Начать показ»:

If Img > Img_Count Then Img = 0

Button_next.Enabled = True ‘Кнопка вперед

Button_prev.Enabled = True ‘Кнопка назад

Timer1.Start()

Обработчик события нажатия кнопки «Завершить показ»:

Timer1.Stop()

If Img < Img_Count And Img <> 0 Then Button4.Enabled = True And Button5.Enabled = True

Обработчик события нажатия кнопки «Вперед»:

If Img = Img_Count Then Button4.Enabled = False

Img = Img + 1

Button5.Enabled = True

If Img < Img_Count Then PictureBox1.Image = Image.FromFile(Files(Img))

ResizeImage()

Обработчик события нажатия кнопки «Назад»:

If Img > Img_Count Then

Img = Img - 2

Else

Img = Img - 1

End If

Button4.Enabled = True

If Img = 0 Then Button5.Enabled = False

PictureBox1.Image = Image.FromFile(Files(Img))

ResizeImage()

Задача №27

ДАНО:	Два числа типа Single.
ТРЕБУЕТСЯ:	1.  Создать программу, вычисляющую сумму данных чисел, их разность, произведение и частное от деления одного числа на другое, результат целочисленного деления одного числа на другое и результат деления по модулю одного числа на другое.
ОГРАНИЧЕНИЯ:	·  Числа вводятся пользователем в два элемента TextBox. ·  Вид математической операции выбирается пользователем с помощью элемента ComboBox. ·  Обеспечить контроль вводимых данных, позволяя пользователю вводить только цифры и одну десятичную точку. ·  Обеспечить правильность отображения результата в случае ввода некорректных данных (для операций деления, целочисленного деления, деления по модулю). ·  Язык программирования – Visual Basic .Net или C # (по выбору)

Для вычисления в обработчик события нажатия кнопки «Вычислить» записать:

TextBox3.Enabled = True

If ComboBox1.Text = "/" And TextBox2.Text = "0" Then

TextBox3.Text = "На 0 делить нельзя)"

ElseIf ComboBox1.Text = "/" Then

TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End If

If ComboBox1.Text = "\" And TextBox2.Text = "0" Then

TextBox3.Text = "На 0 делить нельзя)"

ElseIf ComboBox1.Text = "\" Then

TextBox3.Text = Val(TextBox1.Text) \ Val(TextBox2.Text)

End If

If ComboBox1.Text = "+" Then TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

If ComboBox1.Text = "-" Then TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

If ComboBox1.Text = "*" Then TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

If ComboBox1.Text = "mod" Then TextBox3.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)