Цель настоящей работы – разработать программный продукт на языке Visual Basic.NET с использованием средств мультимедия, который будет использоваться для выполнения лабораторных работ по прикладному программированию.
Проект включает в себя - две связанные между собой формы. На первой, расширяемой форме, располагается калькулятор(простейшие операции +,-,/,* и несколько функций, такие как возведение в степень и вычисление корня) и окно плеера windows media player, который реализован как встраиваемый модуль. Также она имеет функцию прозрачного экрана, которая реализуется с помощью инструмента полосы прокрутки. На второй - игра «Угадай число», которая имеет 3 уровня сложности : легкий, средний, сложный. Уровни отличаются интервалом рандомизирования чисел.
Инструкции пользователю:
• Запустить программу
• Для использования калькулятора вводить числа в текстовые поля и нажать клавиши нужных арифметических действий. Также на форме доступны окна информации и календарь.
• Для расширения формы 1 , нажмите кнопку «Далее» . Для воспроизведения файла в плеере нажмите кнопку «open file»
• Для возвращения формы в исходный размер нажимаем кнопку «Назад»
• Чтобы активировать форму 2 , на которой располагается «Угадай число» нажмите кнопку «Игра» на первой форме.
• Игра «Угадай число» : 1 шаг – выбор уровня игры, затем в поле ввода записываем придуманное число, после чего нажимаем кнопку «попытка», далее появиться сообщение машины с результатами ваших действий.
Фрагмент кода программы:
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox4.Text = CInt(TextBox4.Text) * CInt(TextBox4.Text)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox5.Text = TextBox5.Text ^ 0.5
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Me.Size = New Size(1297, 458)
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Me.Size = New Size(656, 458)
End Sub
Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
OpenFileDialog1.ShowDialog()
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Form4.Show()
Me.Hide()
End Sub
End Class
Данный проект может быть использован студентами колледжа для ознакомления с базовым уровнем языка Visual Basic.NET и на лабораторных работах при разработке учебных игровых программ.
Заключение
Visual Basic .NET – это производительное и надежное оружие в руках профессионального программиста. К тому же, очень удобное и, несмотря на мощь, достаточно простое. Поэтому Visual Basic .NET более других профессиональных языков подходит для освоения начинающими программистами.