• 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

Sóng âm thanh hình sine

Các ví dụ nho nhỏ và những thứ linh tinh không thuộc nhóm nào
User avatar
alexanderdna
Guru
Guru
Posts: 214
Joined: Tue 14/07/2009 11:13 am
Location: Sài Gòn
Has thanked: 3 times
Been thanked: 15 times

Sóng âm thanh hình sine

Postby alexanderdna » Sat 24/10/2009 11:39 am

Tên chương trình: Tone
Ngôn ngữ lập trình: VB6
Tác giả: David M.Hitchner
Chức năng: Phát âm thanh với tần số tùy chọn.



tone.jpg
Giao diện chương trình
tone.jpg (11.39 KiB) Viewed 3736 times

Frequency là tần số. Audio Mode là số kênh. Sample rate là tần số trích mẫu. Bits là chiều sâu bit.

Lưu ý: các nút DTMF và Train sau khi bấm thì hãy chờ cho tới khi phát xong âm thanh, vì nó sẽ làm chương trình có vẻ tê liệt tạm thời.
Attachments
tone.zip
(6.14 KiB) Downloaded 846 times



nghia_tdh21
Posts: 7
Joined: Sat 26/04/2008 9:28 am
Location: TP Hồ Chí Minh
Contact:

Re: Sóng âm thanh hình sine

Postby nghia_tdh21 » Thu 18/02/2010 8:07 am

dùng doevent có khả năng hết bị "tê liệt". Nếu muốn delay ở tầm ms tốt nhất là dùng hàm gettickcount.

Code: Select all

dim m_delay as long
dim inint as long
innit=gettickcount 'hàm này phải khai báo
m_delay=45 'trễ 45mili giây
do
DoEvents
loop until (innit+m_delay)<GetTickCount

robotihon711
Posts: 1
Joined: Mon 31/10/2011 11:28 am

Re: Sóng âm thanh hình sine

Postby robotihon711 » Mon 31/10/2011 8:41 pm

bạn ơi!mình có một bài tập lớn là lập trình chương trình thu âm, có thể chỉnh đc tần số lấy mẫu.Bạn có thể giúp mình dc ko?chuyên ngành của mình ko phải lập trình nên hơi khó khăn!!


Return to “[VB] Mã nguồn linh tinh”

Who is online

Users browsing this forum: No registered users and 0 guests