1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
Скрыть объявление

Уважаемый Гость, в 23:30 по мск форум будет закрыт на профилактику на 1,5 часа до 01:00 24.10.2017

помагите новичку в Vbasic

Тема в разделе "Visual Basic", создана пользователем Randol111, 5 авг 2007.

Статус темы:
Закрыта.
  1. Randol111

    Randol111 Гость

    Репутация:
    0
    начинаю изучать VBasic из книги С. Н. Лукина
    задача было такой: нужно свтавить музыка на калькулятор и чтобы музыка играла при вкльючений калькулятора.

    и код
    Код:
    Private Sub Form_Load()
    media.DeviceType = "Sequencer"
    media.FileName = "c:\Windows\Media\Canyon.mid"
    media.Command = "Open"
    media.Command = "Play"
    End Sub
    
    Private Sub Form_Terminate()
    media.Command = "Close"
    End Sub
    думаю все зделал как описано
    но поемуто музыка не играет.
    вчем причина?
     
  2. Гость

    Репутация:
    0
    Попробуй воспроизвести звук при помощи функции api sndPlaySound
    -------------------------------------------------------------------------------------
    Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"(ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long

    Public Const SND_ALIAS = &H10000 'реальное имя файла находится в win.ini
    'или в реестре
    Public Const SND_ASYNC = &H1 'Асинхронное воспроизведение
    Public Const SND_SYNC = &H0 'Синхронное воспроизведение
    Public Const SND_NOWAIT = &H2000 ' Не ждать, если драйвер занят
    Public Const SND_LOOP = &H8 'Циклическое воспроизведение до следующего вызова

    Sub SoundCheck()
    Dim lRetVal As Long
    lRetVal = sndPlaySound("C:\WINDOWS\MEDIA\CHIMES.wav", SND_SYNC)
    lRetVal = sndPlaySound("SystemStart", SND_ALIAS + SND_ASYNC + SND_ NOWAIT)
    'SystemStart - представляет собой псевдоним систмного звука. Имя реального файла находится
    'в реестре(где, кстати, описаны и остальные системные звуки.)
    End Sub
     
  3. Shtirlits

    Shtirlits Гость

    Репутация:
    0
    и даже с собственным кодом ты можешь проиграть любой media файл, только не забудь добавить на форму компонент MMControl (Microsoft Multimedia Control), который у тебя в коде называется media :)
     
Загрузка...
Похожие Темы - помагите новичку Vbasic
  1. vladimir412
    Ответов:
    0
    Просмотров:
    882
  2. Ким
    Ответов:
    23
    Просмотров:
    1.003
  3. thunder
    Ответов:
    34
    Просмотров:
    730
  4. thunder
    Ответов:
    0
    Просмотров:
    177
  5. rn3rjd
    Ответов:
    9
    Просмотров:
    1.386
Статус темы:
Закрыта.

Поделиться этой страницей