• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Có thể tạo âm thanh khác với âm thanh tiếng beep trong VB6.0

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

dong
Thành viên ưu tú
Thành viên ưu tú
Posts: 705
Joined: Thu 03/04/2008 7:46 am
Has thanked: 13 times
Been thanked: 2 times

Có thể tạo âm thanh khác với âm thanh tiếng beep trong VB6.0

Postby dong » Thu 30/04/2009 6:28 am

Nếu ai đã từng lập trình với Pascal 7.0 ngoài tiếng beep ra để tạo âm thanh có 1 lệnh để tạo âm gồm 1 âm thấp và 1 âm cao để tạo âm thanh ra loa, âm thấp và âm cao được gán vào là 1 số nguyên dương nào đó, như tiếng ren của điện thoại, karaoke... trong VB6.0 có thể tạo âm thanh được không ? trong VB6.0 mình chỉ biết có lệnh Beep để tạo ra âm thanh beep là hết không có lệnh như trong Pascal nói trên, có ai biết chổ này không ? xin chỉ giúp, thank



User avatar
T7
Thành viên danh dự
Thành viên danh dự
Posts: 415
Joined: Thu 24/05/2007 8:19 pm
Location: Long Xuyên - An Giang
Been thanked: 12 times
Contact:

Re: Có thể tạo âm thanh khác với âm thanh tiếng beep trong VB6.0

Postby T7 » Thu 30/04/2009 8:54 am

Dùng API Beep :D

Code: Select all

  1. Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
  2.  
  3. 'Cách dùng rất đơn giản:
  4. Beep(<Cao độ>,<Trường Độ>)
While (i <= you) i++;

User avatar
Tunes
Thành viên tích cực
Thành viên tích cực
Posts: 116
Joined: Sun 13/04/2008 6:13 pm
Location: Atlanta, USA
Been thanked: 2 times
Contact:

Re: Có thể tạo âm thanh khác với âm thanh tiếng beep trong VB6.0

Postby Tunes » Thu 30/04/2009 9:27 am

MessageBeep MB_ICONASTERISK MB_ICONEXCLAMATION...
Development means Challenge

dong
Thành viên ưu tú
Thành viên ưu tú
Posts: 705
Joined: Thu 03/04/2008 7:46 am
Has thanked: 13 times
Been thanked: 2 times

Re: Có thể tạo âm thanh khác với âm thanh tiếng beep trong VB6.0

Postby dong » Sun 03/05/2009 4:39 pm

1. Dòng lệnh của anh T7 rất hay mình tra trong MSDN không thấy có cao độ và trường độ, chỉ vẻn vẹn lệnh Beep, mình muốn hỏi thêm, nếu muốn tạo ra tiếng chuông điện thoại reo: cái này mình nghĩ đơn giản có cái bảng hay tư liệu nào để biết cao độ và trường độ của âm thanh này không ? tương tự tiếng gõ cửa, cao hơn là giọng nói hay phát âm tiếng việt,... lệnh này có thể xử lý được không ?, trước mắt mình chỉ thử các số để tìm ra âm thanh mình cần, cách này có lẽ sẽ khó khăn và hơi lâu để tìm ra âm thanh mình cần. nếu anh biết xin chỉ giúp, cám ơn anh.

2. Dòng lệnh của anh Tunes copy vào VB6.0 dòng lệnh bị báo đỏ kèm cảnh báo lỗi, dòng lệnh này cần thêm thư viện nào không ?

User avatar
Tunes
Thành viên tích cực
Thành viên tích cực
Posts: 116
Joined: Sun 13/04/2008 6:13 pm
Location: Atlanta, USA
Been thanked: 2 times
Contact:

Re: Có thể tạo âm thanh khác với âm thanh tiếng beep trong VB6.0

Postby Tunes » Sun 03/05/2009 8:38 pm

Sorry bạn, do mình có việc gấp, bạn thêm các dòng này vào đầu trang code:

Code: Select all

  1. Private Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long
  2. Private Const MB_ICONASTERISK = &H40&
  3. Private Const MB_ICONEXCLAMATION = &H30&
  4. Private Const MB_ICONHAND = &H10&
  5. Private Const MB_ICONQUESTION = &H20&
  6. Private Const MB_OK = &H0& 'Cái này là cái thường dùng
  7.  

Khi nào muốn dùng thì gọi MesageBeep với thông số wType là một trong 5 hằng trên
vd : MessageBeep MB_ICONASTERISK hoặc MessageBeep MB_ICONEXCLAMATION,...
Development means Challenge

longtep
Thành viên tích cực
Thành viên tích cực
Posts: 149
Joined: Sun 08/06/2008 9:45 pm
Has thanked: 10 times
Been thanked: 1 time

Re: Có thể tạo âm thanh khác với âm thanh tiếng beep trong V

Postby longtep » Mon 30/07/2012 9:48 pm

dong wrote:Nếu ai đã từng lập trình với Pascal 7.0 ngoài tiếng beep ra để tạo âm thanh có 1 lệnh để tạo âm gồm 1 âm thấp và 1 âm cao để tạo âm thanh ra loa, âm thấp và âm cao được gán vào là 1 số nguyên dương nào đó, như tiếng ren của điện thoại, karaoke... trong VB6.0 có thể tạo âm thanh được không ? trong VB6.0 mình chỉ biết có lệnh Beep để tạo ra âm thanh beep là hết không có lệnh như trong Pascal nói trên, có ai biết chổ này không ? xin chỉ giúp, thank

Ý bác ấy là giống ngày xưa học lt Pascal, muốn chơi bài lambađa thì ta lập trình cho cái loa dos nó kêu è é e, tẹc tẹc....đó
nhưng làm khéo cũng tạo ra đc âm thanh hay (như game for dos chẳng hạn).
vd nốt đồ đơn thì: sound(323);nôsund; rê kép thì sound(212);nosound, .v.v...
Giống mình bây giờ cũng muốn tìm hiểu cái này, làm sao cho vb6 lt giống vậy nhưng nó sẽ phát ra = cái loa soundcard. thanks


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: Google [Bot] and 42 guests