Tặng công cụ chơi nhạc MP3 với Excel VBA (phần 2 - Final Version) (1 người xem)

[Hoàng Trọng Nghĩa]

Từ topic này:

http://www.giaiphapexcel.com/forum/showthread.php?107903-Tặng-công-cụ-nghe-nhạc-MP3-với-VBA

đến nay đã hơn 56 bài rồi, tôi thấy cần phải chuyển qua topic mới để các bạn không nhầm lần với các phiên bản cũ hơn.

Với cải tiến lần này:

1) Giao diện được thay đổi đẹp mắt.

2) Có chức năng lựa chọn bản nhạc mình muốn nghe.

3) Các thanh thời lượng bài hát, thanh volume được thay thế từ các scrollbar bằng những Label được thiết kế tinh vi và đẹp mắt.

4) Và nhiều tiện ích khác.

Bạn rê chuột trên thanh thời lượng, "hạt đậu" sẽ mập ú lên để bạn dễ dàng kéo qua kéo lại thời điểm mà bạn muốn nghe. Bạn cũng không nhất thiết nắm vào "hạt đậu" đó, trên thành đó bạn click vào điểm nào thì "hạt đậu" sẽ chạy đến điểm đó và nhạc sẽ chơi vào thời điểm đó (tương tự với thanh Volume).

Chúc các bạn thưởng thức công cụ chơi nhạc MP3 này. Excel không quá khô khan phải không các bạn!

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

Đã thay file cũ bị lỗi, các bạn tải file lại nhé.

 

[doveandrose]

1 và 2: Làm cái icon gì đó là được rồi
3: Thằng nhóc nhà tôi nó gọi là TẮT TIẾNG
Mà nói chung: Tiếng Anh toàn bộ cho tiện, khỏi suy nghĩ

nếu 1 số người thích có tiếng Anh và 1 số người thích tiếng Việt (như em) thì đề xuất anh Nghĩa có tùy chọn ngôn ngữ cho giao diện đê =)) . người dùng chọn tiếng nước nào thì sẽ hiển thị ra vậy

 

[Nguyễn Duy Tuân]

Có 4 chữ bằng tiếng Anh:

1) Hide: nên ghi là Giấu hay Ẩn hay cái gì?

2) Exit: nên ghi là Thoát hay Đi ra?

3) Mute: ghi là Ngắt âm hay là Không phát tiếng, hay là Câm?

4) Bit rate: Ghi tốc độ truyền tải hay Tỷ lệ Đập?

Nói chung, đôi khi sử dụng tiếng Việt vào còn rối rắm hơn, thôi thì để nguyên những từ thông dụng vậy mà người ta dễ hình dung đó là cái gì.

Sao phần mềm Media Player nó không ghi là Media Listener ta?

Theo mình thì các từ thuộc chuyên môn Media để nguyên tiếng Anh vì từ bé chắc ai cũng biết mấy từ này khi bật đài, đĩa. Các biểu tượng của nó cũng là chuẩn đủ nói lên các hiệu lệnh.
Các từ thuộc điều khiển giao diện cửa sổ có thể dịch ra tiếng việt:
Exit: Thoát
Lưu ý thêm: 2 từ Close <> Exit. Exit=Thoát = thoát ứng dụng. Close=Đóng=Đóng một màn hình trong ứng dụng (ứng dụng chưa thoát).
Hide: Ẩn. Nếu dùng từ "Giấu" nghe có vẻ thủ thuật....

 

[Hoàng Trọng Nghĩa]

nếu 1 số người thích có tiếng Anh và 1 số người thích tiếng Việt (như em) thì đề xuất anh Nghĩa có tùy chọn ngôn ngữ cho giao diện đê =)) . người dùng chọn tiếng nước nào thì sẽ hiển thị ra vậy

Há há, cái này dễ òm à. Tôi gửi file này chủ yêu cho người mới hoặc chưa biết làm giao diện form của chương trình mình nó "lung linh" thôi, chứ nghe nhạc thì cho vui. Media Player có sẳn đáp ứng tốt ngàn lần!

 

[Ngoai Thanh]

Thay bằng chữ Nghe: cái công cụ đó nó chơi mình nghe, chứ sao bắt nó nghe?

Thay bằng Chọn, checkbox Chơi Tùy Chọn, đổi thành CHỌN TÙY CHỌN hay sao ta?

Mình thì thấy ý kiến của bạn "leo" có vẻ chuẩn hơn, chương trình để phục vụ mình thì mình cần cái gì ? thế nào ? thì "nó " phục vụ mình theo yêu cầu . Vậy ta đang cần nghe .....mà ! Nếu "nghe" có vẻ không thuận thì " chọn " . Riêng mục " Chơi tùy chọn " thì chỉ cần " Tùy chọn " là đủ . Điều mình muốn hỏi là gõ tiếng việt có dấu trong caption ? Bạn nghĩa có thể bật mí được không ? Mình đổi nó không hiện tiếng việt có dấu , thử các kiểu mà không được ...chán mớ đời .( mà sao Hoa còi vào tít Biên hòa chụp ảnh , hay nhỉ !)

 

[Hoàng Trọng Nghĩa]

Mình thì thấy ý kiến của bạn "leo" có vẻ chuẩn hơn, chương trình để phục vụ mình thì mình cần cái gì ? thế nào ? thì "nó " phục vụ mình theo yêu cầu . Vậy ta đang cần nghe .....mà ! Nếu "nghe" có vẻ không thuận thì " chọn " . Riêng mục " Chơi tùy chọn " thì chỉ cần " Tùy chọn " là đủ . Điều mình muốn hỏi là gõ tiếng việt có dấu trong caption ? Bạn nghĩa có thể bật mí được không ? Mình đổi nó không hiện tiếng việt có dấu , thử các kiểu mà không được ...chán mớ đời .( mà sao Hoa còi vào tít Biên hòa chụp ảnh , hay nhỉ !)

Bạn nói CAPTION là của cái nào? LABEL, FORM hay COMMANDBUTTON?

Riêng trên FORM thì phải dùng API để thao tác nhé.

Còn lại tất cả đều hỗ trợ tiếng Việt với font UNICODE. Cứ thế mà gõ thôi mà?

 

[Hoàng Trọng Nghĩa]

Không liên quan, nhưng tự nhiên thấy câu chuyện này hay hay ta?

Riêng về bị lỗi VBA thì mình sẽ sửa lại, riêng về cách ghi tên tiếng Việt, tiếng Anh, nếu đã biết lập trình thì tự sửa cho mình nha các Anh Chị.

TREO BIỂN

(Truyện Cười)
​

Một cửa hàng bán cá làm cái biển đề mấy chữ to tướng :

"Ở ĐÂY CÓ BÁN CÁ TƯƠI"

Biển vừa treo lên, có người qua đường xem, cười bảo :

- Nhà này xưa quen bán cá ươn hay sao mà bây giờ phải đề biển là cá "tươi"?

Nhà hàng nghe nói, bỏ ngay chữ "tươi" đi.

Hôm sau, có người khách đến mua cá, cũng nhìn lên biển, cười bảo :

- Người ta chẳng nhẽ ra hàng hoa mua cá hay sao, mà phải đề là "ở đây"?

Nhà hàng nghe nói, bỏ ngay hai chữ "ở đây" đi.
Cách vài hôm, lại có một người khách đến mua cá, cũng nhìn lên biển, cười bảo :

- Ở đây chẳng bán cá thì bày cá ra để khoe hay sao mà phải đề là "có bán"?

Nhà hàng nghe nói lại bỏ ngay hai chữ "có bán" đi. Thành ra biển chỉ còn có mỗi một chữ "cá". Anh ta nghĩ trong bụng chắc từ bây giờ không còn ai bắt bẻ gì nữa.

Vài hôm sau, người láng giềng sang chơi, nhìn cái biển, nói :

- Chưa đi đến đầu phố đã ngửi mùi tanh, đến gần nhà thấy đầy những cá, ai chẳng biết là bán cá, còn đề biển làm gì nữa?

Thế là nhà hàng cất nốt cái biển!

(Theo Trương Chính)

​

 

[Ngoai Thanh]

Bạn nói CAPTION là của cái nào? LABEL, FORM hay COMMANDBUTTON?

Riêng trên FORM thì phải dùng API để thao tác nhé.

Còn lại tất cả đều hỗ trợ tiếng Việt với font UNICODE. Cứ thế mà gõ thôi mà?

Của label trên form đó bạn ! chà chắc phải dùng API như bạn nói rồi . Nếu không phức tạp quá thì bạn trao đổi cách làm được không ? Nếu phức tạp quá thì thôi ! Mình tìm hiểu sau vậy .

 

[Hoàng Trọng Nghĩa]

Của label trên form đó bạn ! chà chắc phải dùng API như bạn nói rồi . Nếu không phức tạp quá thì bạn trao đổi cách làm được không ? Nếu phức tạp quá thì thôi ! Mình tìm hiểu sau vậy .

Ủa LABEL mình gõ dấu tiếng Việt bình thường mà bạn? Unicode dựng sẳn là OK mà?

 

[ndu96081631]

Của label trên form đó bạn ! chà chắc phải dùng API như bạn nói rồi . Nếu không phức tạp quá thì bạn trao đổi cách làm được không ? Nếu phức tạp quá thì thôi ! Mình tìm hiểu sau vậy .

Trên Form thì label hay button gì cũng gõ được tiếng Việt đó anh (gõ bằng tay bình thường, không cần chiêu)
Chỉ có cái thanh tiêu đề của form thì mới.. chiêu thôi

 

[Ngoai Thanh]

Ủa LABEL mình gõ dấu tiếng Việt bình thường mà bạn? Unicode dựng sẳn là OK mà?

Mình dùng unicos 3.63, không biết có phải tại nó không nữa ! mình kiểm tra lại sau .

 

[ndu96081631]

Mình dùng unicos 3.63, không biết có phải tại nó không nữa ! mình kiểm tra lại sau .

Ý anh là Unikey chăng? Chỉ cần anh chọn font Unicode (Arial, Tahoma, Times New Roman... ) và chọn bảng mã "Unicode" là xơi được hết
Anh có thể thử nghiệm: Gõ tiếng Việt vào 1 cell, xong copy nội dung của cell rồi paste vào Label
Lưu ý: Gõ trực tiếp vào Label chứ hổng phải gõ vào mục Caption trong khung Lable Properties đâu nha

 

[Hoàng Trọng Nghĩa]

Trên Form thì label hay button gì cũng gõ được tiếng Việt đó anh (gõ bằng tay bình thường, không cần chiêu)
Chỉ có cái thanh tiêu đề của form thì mới.. chiêu thôi

Ui, vậy là nick Ngoai Thanh lớn tuổi dữ vậy ta? Trước nay tưởng chạc chạc mình.

Mình dùng unicos 3.63, không biết có phải tại nó không nữa ! mình kiểm tra lại sau .

Anh tải cái này về dùng thử xem.

 

[Ngoai Thanh]

Trên Form thì label hay button gì cũng gõ được tiếng Việt đó anh (gõ bằng tay bình thường, không cần chiêu)
Chỉ có cái thanh tiêu đề của form thì mới.. chiêu thôi

Xin lỗi thày và các bạn , nhà em nhầm nó là chekbox ( chỗ đang nói đến chữ " Chơi " đó thầy . kỳ thật !

 

[Hoàng Trọng Nghĩa]

Xin lỗi thày và các bạn , nhà em nhầm nó là chekbox ( chỗ đang nói đến chữ " Chơi " đó thầy . kỳ thật !

Nếu cái CheckBox, cái Label, cái ComboBox hay cái gì khác mà nằm trên SHEET đều sẽ bị lỗi dấu tiếng Việt hết nha Anh, khi gõ vào thì được, nhưng chọn cell nào đó thì nó bị lỗi font ngay. Muốn giữ nguyên được thì phải để nó lên Frame thôi.

 

[ndu96081631]

Xin lỗi thày và các bạn , nhà em nhầm nó là chekbox ( chỗ đang nói đến chữ " Chơi " đó thầy . kỳ thật !

CheckBox hay bất cứ cái gì (trừ thanh tiêu đề của form) đều CHƠI được hết anh à

 

[Ngoai Thanh]

CheckBox hay bất cứ cái gì (trừ thanh tiêu đề của form) đều CHƠI được hết anh à

Cám ơn thày ! đúng là phải gõ trực tiếp vào chekbox , nhà em sửa trong caption nên không được . Hèn chi thua nó ! Như vậy mỗi người tự chọn cho mình là "chơi", "Nghe", "chọn"... hay gì khác . Khỏi phải bỏ hay sửa biển "Bán cá " của bạn Nghĩa ở trên .

 

[doveandrose]

Không liên quan, nhưng tự nhiên thấy câu chuyện này hay hay ta?

Riêng về bị lỗi VBA thì mình sẽ sửa lại, riêng về cách ghi tên tiếng Việt, tiếng Anh, nếu đã biết lập trình thì tự sửa cho mình nha các Anh Chị.

em hổng biết chỗ nào mà sửa hết anh ơi . Nếu mai này anh có ý định làm giao diện tiếng Anh thì em lại up file lên nhờ anh sửa lại thành Tiếng Việt dùm em nha anh . hi hi hi

 

[ndu96081631]

Thế là nhà hàng cất nốt cái biển!

Vậy thì chắc chắn sẽ có 1 version nữa mà hổng có chữ nghĩa nào trên đó, chỉ có nút và nút (có chăng thì chỉ mỗi chữ CÁ)
Ẹc... Ẹc... Dzọt!

 

[Hoàng Trọng Nghĩa]

em hổng biết chỗ nào mà sửa hết anh ơi . Nếu mai này anh có ý định làm giao diện tiếng Anh thì em lại up file lên nhờ anh sửa lại thành Tiếng Việt dùm em nha anh . hi hi hi

OK, định nghĩa cho mình từ Bit Rate bằng tiếng Việt đi (tiêu chí là ngắn, gọn, dễ hiểu), mình thêm 1 checkbox để biến chúng thành English hay Tiếng Việt ngay và luôn!

 

[Kiều Mạnh]

phải nói nghĩa viết hay thiệt.... nâng cấp thêm một khúc nữa là:

Có cách nào khi mình chọn các file mp3 trong folder xong Enter một cái là mặc định nó chơi nhạc luôn thay cho Windows media được không...

Ý mình là nó chạy mặc định luôn trên Window mà không cầm gọi thông qua Form Excel...