Giúp code về Âm Thanh trong VBA

[minhtuan55]

Chào cả nhà GPE . Em có cái món này mới TEst chiều giờ sửa loạn lên hết mà chưa làm sao chạy theo ý Mình. Cụ thể Code như sau

 Private Declare Function apiPlaySound _
    Lib "winmm.dll" _
      Alias "PlaySoundA" _
       (ByVal lpszName As String, _
        ByVal hModule As Long, _
        ByVal dwFlags As Long) As Boolean
  Private Const SND_ASYNC = &H1
  Private Const SND_NODEFAULT = &H2
  Private Const SND_FILENAME = &H20000

Public Sub PlaySoundFile(ByVal Snd_File_Name As String)
  
  Dim Flags As Long
  Dim Ret As Long
  
    Flags = SND_ASYNC Or SND_FILENAME Or SND_NODEFAULT
    Ret = apiPlaySound(Snd_File_Name, 0&, Flags)
    
End Sub


Sub test()
    PlaySoundFile "D:\Code tao Am Thanh\Music_Note\GA GAY.wav" ' Duong dan den file am thanh *.wav
End Sub

Thứ 1: Khi code chạy thì tiếng gà gáy sẽ gáy lên. Muốn làm nút Stop hoặc nút Mute thì phải làm sao
Thứ 2: Ví dụ em muốn code gà gáy xong thì tự động lặp lại 5 lần em đã sửa code như thế này mà code không chạy được

Sub test()
Dim i as long
For i = 1 to 5
    PlaySoundFile "D:\Code tao Am Thanh\Music_Note\GA GAY.wav" ' Duong dan den file am thanh *.wav
Next i
End Sub

Chúc cả nhà Năm mới, Giáng sinh, Noel vui vẽ Rực rỡ

 

[♫ђöล♥ßล†♥†µ♫]

VetMini
"Thời thế" sinh tiền tài
Nếu tôi ở trên núi thì không thể so thành phố, đất núi cũng không thể so đất thành phố

Anh nạy chưa tham gia hêt chủ đề của Anh í trên diễn đàn này rồi.
Chủ topic rất giỏi cái C gì đó. Và cũng. Biết rất rất nhiều về VBA Excel
Hị hị. Xin lỗi tất cả mọi người là em hơi nhiều chuyện

Bài đã được tự động gộp: 24/12/18

Cái này áp dụng cho ứng dung lấy số thứ tự trong khu vui chơi. Ví dụ nhan viên muốn gọi số 2345 thì nhập số vào textbox nhấn play là nó nói ( mời quý khách mang số thứ tự 2345 đến quầy để nhận vé ) tất nhiên là những từ cố định em ghi âm hết rồi .

Sao Bà ấy không cầm cái micro đọc luôn mắc mớ gì ma phải gõ xong chờ máy đọc Hay là đây là ứng dụng cho người khiếm thị

 

[batman1]

Thực ra những cái bạn cần tôi đã có trong tập tin PlayVideo nhưng bạn lười tải về và thử nghiệm. Nếu có câu hỏi cụ thể thì tôi cũng sẽ trả lời. Nhưng bạn muốn cái người khác dâng tận nơi, mà thực chất tôi cũng đã cung cấp.

Nhưng thôi. Bạn từng viết là bạn lập trình trong C gì đó. Vậy cái bạn bí chỉ là ý tưởng, chỉ là không biết một hàm API nào đó. Vậy khi tôi cho ý tưởng và hàm API thì không lý gì bạn lại không tự làm tiếp được.

Ý tưởng: chèn giữa 2 dòng phát gà gáy và chó sủa một vòng Do ...Loop. Trong vòng lặp gọi hàm GetMode và kiểm tra xem kết quả có là "stopped" hay không. Nếu là "stopped" thì ra khỏi vòng lặp để phát tiếp chó sủa. Để không lặp chóng mặt thì thêm vd. Sleep 2000 trong Do ... Loop. Cũng có thể dùng Timer (cái này là SetTimer và KillTimer. Bạn biết C gì gì đó thì bạn phải làm được) rồi trong TimerProc gọi GetMode. Nếu là stopped" thì phát chó sủa.

Hàm API
Về AliasName thì xem trong tập tin PlayVideo.

Function GetMode()
Dim ret As String
    ret = String(32, Chr(0))
    If mciSendString("status " & AliasName & " mode", ret, 32, 0) = 0 Then
        GetMode = Left(ret, InStr(1, ret, Chr(0)) - 1)
    End If
End Function

Khi đang phát thì còn "playing", "paused"

 

[HeSanbi]

Anh nạy chưa tham gia hêt chủ đề của Anh í trên diễn đàn này rồi.
Chủ topic rất giỏi cái C gì đó. Và cũng. Biết rất rất nhiều về VBA Excel
Hị hị. Xin lỗi tất cả mọi người là em hơi nhiều chuyện

"Đắc Nhân Tâm"
"Sao tôi biết cậu ấy là Tỉ Phú"
"Sao tôi biết cậu ấy giấu vàng sâu vườn"
"Cậu ấy và tôi và mọi người cũng đang cố sống cuộc sống này sao cho tốt"

 

[Hoàng Trọng Nghĩa]

Chào cả nhà GPE . Em có cái món này mới TEst chiều giờ sửa loạn lên hết mà chưa làm sao chạy theo ý Mình. Cụ thể Code như sau

Chúc cả nhà Năm mới, Giáng sinh, Noel vui vẽ Rực rỡ

Vô tình ngang qua đây, và tôi là người thích chia sẻ, nên tôi tặng bạn đường link này để tham khảo làm thế nào để điều khiển được bài nhạc theo ý muốn.

Bài viết: Tặng công cụ chơi nhạc MP3 với Excel VBA

Xin đừng so sánh với các công cụ nghe nhạc có sẳn như Media Player hoặc nhúng nó vào Excel, mọi sự so sánh đều khập khiểng. Ở đây mô phỏng cái na ná như thế để tặng mọi người giải trí khi trà dư tửu hậu. Sau nhiều lần tranh luận về cách gọi Tiếng Việt, tiếng Anh, và một số bạn đề nghị làm 2...

www.giaiphapexcel.com

 

[minhtuan55]

Anh nạy chưa tham gia hêt chủ đề của Anh í trên diễn đàn này rồi.
Chủ topic rất giỏi cái C gì đó. Và cũng. Biết rất rất nhiều về VBA Excel
Hị hị. Xin lỗi tất cả mọi người là em hơi nhiều chuyện

Bài đã được tự động gộp: 24/12/18

Sao Bà ấy không cầm cái micro đọc luôn mắc mớ gì ma phải gõ xong chờ máy đọc Hay là đây là ứng dụng cho người khiếm thị

Bây giờ 1 ngày 1000 người bạn đọc nổi không. Phải tư lên thông minh lên, cái nào cần Auto thì phải cho nó Auto