Цель настоящей работы – разработать программный продукт на языке 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 более других профессиональных языков подходит для освоения начинающими программистами.
Библиографическая ссылка
Корниевский Д.В., Кораблёва О.И. ИСПОЛЬЗОВАНИЕ МУЛЬТИМЕДИЙНЫХ ВОЗМОЖНОСТЕЙ ЯЗЫКА ПРОГРАММИРОВАНИЯ VISUAL BASIC.NET ПРИ РАЗРАБОТКЕ ПРОЕКТОВ // Современные наукоемкие технологии. – 2014. – № 5-1. – С. 56-57;URL: https://top-technologies.ru/ru/article/view?id=33696 (дата обращения: 21.11.2024).