پخش رندم فايل صوتي در vb6

[abo1524]

با سلام
من چند تا فايل صوتي دارم(صداي حيوانات) كه بايد بصورت رندم پخش شوند بعد چند تا تصوير دارم(عكس حيوانات)كاربر بايد پس از پخش صدا عكس مربوط به صدا رو كليك كند اگر اين كار را درست انجام داد يك فايل صوتي ديگه پخش بشه و بگه آفرين و بعد هم صدا و هم تصوير حذف بشوند. واگر تصوير مورد نظر را اشتباه انتخاب كرد باز دوباره يه فايل صوتي ديگه پخش بشه و بگه اشتباه كردي و بعد فايل صوتي بعدي پخش بشود و در آخر موقعي كه ديگر هيچ صدا و تصويري باقي نموند فرم به صفحه بعدي برود.
ممنون مي شوم اگه كسي سورسشو برام بزاره
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اين هم پروژه ام

[abo1524]

كسي نبود كمك كنه؟

[Akbar"22"]

كسي نبود كمك كنه؟

گریه نکن ، خودم اینجام ...
-------------------------------------------------------------------------------------------------------------------------------
برای پخش صوت به صورت رندوم پیشنهاد من این که ، نام و پسوند هر یک از صوت هاتو در یک متغیر قرار بده به هنگام Load شدن فرم . بعد تایمرو فعال کن و درون روال تایمر به جای هریک از صداها شماره ها قرار بده یعنی برای هر یک از صداها یک شماره منحصربه فرد داشته باش و بعد از داشتن شماره ها یک رندوم بساز با شماره ها و بعد از بدست آوردن شماره با قرار دادن شرط هایی بگو مثلا اگر یک شد صدای اردک را پخش کن یا ...

--------
برای به دست آوردن یک رقم رندوم میتونید از کد زیر استفاده کنید :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

کد بالا اعداد رندوم بین 1 تا 10 را تولید می کند .

[asrit.net]

دوست عزیز
شما یکبار عدد رندوم را با کد دوستمان ایجاد کنید. حال n-1 عکس را به صورت رندوم جانمایی کنید

و مکان باقی مانده می شود تصویر پاسخ. حال باید از یک Look up Table (که می تواند آرایه هم باشد.)

صوت مربوطه را پیدا و پخش کنید.

برای lookup table می توانید از یک آرایه از Type استفاده کنید.

اگر سوالی داشتید در خدمتیم

[abo1524]

ممنون آقا اكبرمگه باز هم شما به دادم برسي ولي اين كارهايي كه گفتي مثل اينه كه از يه كلاس اولي بخواي امتحان كنكور بگيري داداش من
يه كم بيشتر توضيح بده اگه سورسو بزاري كه عالي ميشه

[abo1524]

دوست عزیز
شما یکبار عدد رندوم را با کد دوستمان ایجاد کنید. حال n-1 عکس را به صورت رندوم جانمایی کنید

و مکان باقی مانده می شود تصویر پاسخ. حال باید از یک Look up Table (که می تواند آرایه هم باشد.)

صوت مربوطه را پیدا و پخش کنید.

برای lookup table می توانید از یک آرایه از Type استفاده کنید.

اگر سوالی داشتید در خدمتیم

سلام داداش والا من مبتدي هستم و اصلا هم از اين چيز هايي كه گفتين سر در نياوردم اگه ممكنه سورسشو بزارين آدرس پروژه ام رو هم نوشته ام

[abo1524]

a = 1b = 11Randomize Times = Int(Rnd * (a - b) + b)

ميشه بيشتر توضيح بدي من اينو كجا بزارم

[asrit.net]

من وقت نوشتن کل پروژه را ندارم ولی برای راهنمایی بیشتر شبه کد زیر را می نویسم :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

Public Loockup(500) as tLookup

خوب این تعریف اولیه Lookup

حالا کافی است هر کدام از عناصر را مقدار دهی کنید و باقی موارد را هم در پست قبل گفتم.

امیدوارم مفید بوده باشد.

[abo1524]

من وقت نوشتن کل پروژه را ندارم ولی برای راهنمایی بیشتر شبه کد زیر را می نویسم :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

Public Loockup(500) as tLookup

خوب این تعریف اولیه Lookup

حالا کافی است هر کدام از عناصر را مقدار دهی کنید و باقی موارد را هم در پست قبل گفتم.

امیدوارم مفید بوده باشد.

واسه مفيديش كه مفيده ولي من احتياج به كد سورس نمونه دارم اگه زحمتشو بكشي ممنون ميشم

[Akbar"22"]

سلام به همه ی دوستان مخصوصا به abo1524 عزیز

دوست من ، اینم سورس های برنامه شما فقط .
.
.
.
قبل از اجرای برنامه از طریق منوی

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

کلاس

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

msdxm.ocx رو به برنامه اضافه کن . با اضافه کردن این کلاس شما قادر به پخش صوت های خود خواهید بود .


لینک برنامه آپلود شده : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ویرایش شده : آموزش تصویری اضافه کردن کلاس Windows Media Player به پروژه اضافه شده است.