Музыка при щелчке на клавишу "Проект калькулятор" - VB
Формулировка задачи:
Скажите почему у меня не играет музыка при запуске проекта?
Решение задачи: «Музыка при щелчке на клавишу "Проект калькулятор"»
textual
Листинг программы
Private Sub Command1_Click() Кл_вычитания.Left = "4800" Кл_вычитания.Caption = "-" Число1.Text = "" Число2.Text = "" Результат.Text = "" End Sub Private Sub Command2_Click() Результат.Text = Val(Число1.Text) * Val(Число1.Text) End Sub Private Sub Form_Load() Звук.DeviceType = "WaveAudio" Плеер.DeviceType = "Sequencer" Плеер.FileName = "C:\Windows\Media\flourish.mid" Плеер.Command = "Open" Плеер.Command = "Play" End Sub Private Sub Form_Terminate() MsgBox ("Считай в уме!") Плеер.Command = "Close" End Sub Private Sub MMControl1_Done(NotifyCode As Integer) Плеер.WaveAudio = "Sequencer" Плеер.FileName = "C:\Windows\Media\flourish.mid" Плеер.Command = "Open" Плеер.Command = "Play" End Sub Private Sub Кл_вычитания_Click() Кл_вычитания.Left = "2000" Кл_вычитания.Caption = "я тут теперь братан" Звук.FileName = "C:\Windows\Media\town.mid" Звук.Command = "Open" Звук.Command = "Sound" Звук.Command = "Close" Результат.Text = Val(Число1.Text) - Val(Число2.Text) End Sub Private Sub Кл_деления_Click() Звук.FileName = "C:\Windows\Media\flourish.mid" Звук.Command = "Open" Звук.Command = "Sound" Звук.Command = "Close" Результат.Text = Val(Число1.Text) / Val(Число2.Text) End Sub Private Sub Кл_сложения_Click() Звук.FileName = "C:\Windows\Media\flourish.mid" Звук.Command = "Open" Звук.Command = "Sound" Звук.Command = "Close" Результат.Text = Val(Число1.Text) + Val(Число2.Text) End Sub Private Sub Кл_умножения_Click() Звук.FileName = "C:\Windows\Media\flourish.mid" Звук.Command = "Open" Звук.Command = "Sound" Звук.Command = "Close" Результат.Text = Val(Число1.Text) * Val(Число2.Text) End Sub Private Sub пункт_меню_Красный_Click() пункт_меню_Красный = LoadPicture() BackColor = vbRed End Sub Private Sub пункт_меню_О_программе_Click() MsgBox ("Калькулятор создал Юрий 13.11.15г") End Sub Private Sub пункт_меню_Синий_Click() пункт_меню_Синий = LoadPicture() BackColor = vbBlue End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д