VBNet - Форум - Как зделать музыку на Visual Basic как на Qbasic

Вопрос: Как зделать музыку на Visual Basic как на Qbasic Добавлено: 24.10.02 14:26

Автор вопроса: Brains | Web-сайт: softsware.narod.ru

Как зделать музыку на Visual Basic как на Qbasic
(на QBASIC музыка играет оператором Play" "),а каким операторм или какую функцию нужно вызывать в VB
Ответить

Ответы Всего ответов: 8

Номер ответа: 1
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #1

Добавлено: 24.10.02 14:30

В зависимости от формата записи. Поищи тут в примерах должно быть.

Ответить

Номер ответа: 2
Автор ответа:

Mister U

ICQ: 809526

Вопросов: 49
Ответов: 63

Web-сайт: stihi.h12.ru
Профиль | | #2

Добавлено: 24.10.02 18:37

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()

Dim res

res = mciExecute("Play C:\Путь_до_файла")

End Sub

======================================================

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()

Dim x As Long

x = PlaySound("C:\Путь_до_файла", 0, &H1 Or &H10)

End Sub

======================================================

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()

Dim x As Long

x = sndPlaySound("C:\Путь_до_файла", &H1 Or &H10)

End Sub

======================================================

А еще можно установить различные ActiveX компоненты, например, Microsoft Multimedia Control. Или Windows Media Player

Ответить

Номер ответа: 3
Автор ответа:

Mister U

ICQ: 809526

Вопросов: 49
Ответов: 63

Web-сайт: stihi.h12.ru
Профиль | | #3

Добавлено: 24.10.02 18:41

Если используешь Windows Media Player, то:

Добавь на форму его, имя MediaPlayer1. Добавь также три кнопки. Имена: Command1, Command2, Command3, значение Caption = "Играть", "Пауза", "Стоп"

Private Sub Form_Load()

MediaPlayer1.FileName="...путь к файлу..."

End Sub

Private Sub Command1_Click()

mediaplayer1.play

End Sub

Private Sub Command2_Click()

mediaplayer1.pause

End Sub

Private Sub Command3_Click()

mediaplayer1.stop

End Sub

Это самый простой способ

Ответить

Номер ответа: 4
Автор ответа:

Mister U

ICQ: 809526

Вопросов: 49
Ответов: 63

Web-сайт: stihi.h12.ru
Профиль | | #4

Добавлено: 24.10.02 22:16

Brains: а что-то у меня не пашет музыка на QB оператором play. Не знаю ,может что-то не так написал, т.к. я на QB почти ничего не пишу

Ответить

Номер ответа: 5
Автор ответа:

Synax

Вопросов: 20
Ответов: 61

Web-сайт: elance.ru/sands
Профиль | | #5

Добавлено: 24.10.02 23:47

Dmitry

В QB в операторе Play ты не можешь проиграть музыкальный фаил , ты можешь сам написать музыку.

Пример

Play "aabcdffea"

Где от а до g - ноты!

Ответить

Номер ответа: 6
Автор ответа:

Mister U

ICQ: 809526

Вопросов: 49
Ответов: 63

Web-сайт: stihi.h12.ru
Профиль | | #6

Добавлено: 25.10.02 09:39

Brains:

А, дак ты про это. Хочешь также как и на QB управлять системным динамиком (запомни это название, оно тебе в будущем пригодится!).

Вот:

Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Beep 789, 100 'где 789 - частота звука, а 100 - продолжительность его звучания в милисекундах

End Sub

Ответить

Номер ответа: 7 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #7	Добавлено: 25.10.02 15:45
	Но это работает только в системах линейки NT. В Win 9x/Me Beep просто выдаст системный звук бип. Ответить

Номер ответа: 8
Автор ответа:

Nio

Вопросов: 15
Ответов: 115

Web-сайт: www.fea.nxt.ru
Профиль | | #8

Добавлено: 25.10.02 16:29

Скачай Future Library (не помню, где - поищи на Яндексе) - с её помощью можно не только проигрывать муз. файлы в Qbasic, но и многое другое - например, мышь, SVGA до 1600, и прочая....

Ответить

Страница: 1 |