Задание 1. Создание проигрывателя WAV файлов

В текстовом редакторе Word можно работать с несколькими документами одновременно и видеть каждый из них в своем окне. Все эти окна находятся внутри главного кона Word и являются по отношению к нему дочерними. В среде Visual Basic удобным средством для создания многооконного приложения служит так называемый многооконный интерфейс.

Постановка задачи.

Ранее Вы уже создавали различные приложения. Эти

Private Sub cmdРезультат_Click()

Dim sr As Single

sr = (Val(txtМатематика.Text) + Val(txtИнформатика.Text) + Val(txtРусский.Text) + Val(txtСрБаллАттестата.Text)) / 4

txtСрБалл.Text = Str(sr)

If Val(txtСрБалл.Text) >= Val(Проходной.Text) Then

txtРезультат.Text = "Зачислен (-а)"

Else

txtРезультат.Text = "Не зачислен (-а)"

End If

End Sub

Private Sub Form_Load()

txtПроходной.Text = Str(4.5)

End Sub

Private Sub lblФото_Change()

txtМатематика.Text = ""

txtИнформатика.Text = ""

txtРусский.Text = ""

txtСрБалл.Text = ""

If lblФото.Caption <> "" Then

Set imgФото.Picture = LoadPicture(App.Path & "\Pictures\" & frmЭкзамены.lblФото)

txtРезультат.Text=""

Else

imgФото.Picture = LoadPicture()

End If

End Sub

Data1.DatabaseName = App.Path + "\Экзамены.mdb"

Data1.Refresh