پخش موزيك

[ehsan58]

سلام دوستان باز هم يه سوال كوچولو آيا ميشه توي پروژه 5 آهنگ رو معرفي كرد يعني هر وقتي كه پروژه بالا مياد
اتفاقي يكيشون پخش بشه مثل كينگ 2010

 

[Silver PC]

از rnd استفاده کنید ... !

 

[evil_gates]

دوست عزيز

فرض كنيم شما 5 تا فايل صوتي داريد و فايلها رو به ترتيب از 1 تا 5 نامگذاري كرديد. براي انتخاب تصادفي بين فايلها من اين كد رو پيشنهاد ميكنم:

x = RND(5)
If (x=0) Then
  x = x + 1
End
path$='x:\myfolder\\' + CHAR(x) + '.mp3'
AudioOpen("path$")
AudioPlay()