Музыка при щелчке на клавишу "Проект калькулятор" - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы