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

Printable View

22-07-2012, 08:55
abo1524

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

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

كسي نبود كمك كنه؟:37:
23-07-2012, 20:00
Akbar"22"

نقل قول:

نوشته شده توسط abo1524 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

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

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

کد:

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

کد بالا اعداد رندوم بین 1 تا 10 را تولید می کند .
23-07-2012, 20:36
asrit.net

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

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

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

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

اگر سوالی داشتید در خدمتیم :)
24-07-2012, 08:33
abo1524

ممنون آقا اكبرمگه باز هم شما به دادم برسي ولي اين كارهايي كه گفتي مثل اينه كه از يه كلاس اولي بخواي امتحان كنكور بگيري داداش من
يه كم بيشتر توضيح بده اگه سورسو بزاري كه عالي ميشه:18:
24-07-2012, 09:33
abo1524

نقل قول:

نوشته شده توسط asrit.net [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

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

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

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

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

سلام داداش والا من مبتدي هستم و اصلا هم از اين چيز هايي كه گفتين سر در نياوردم اگه ممكنه سورسشو بزارين آدرس پروژه ام رو هم نوشته ام:12:
24-07-2012, 14:55
abo1524

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

ميشه بيشتر توضيح بدي من اينو كجا بزارم
24-07-2012, 16:29
asrit.net

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

کد:

Type tLookup Voice as string Picture as string end type

Public Loockup(500) as tLookup

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

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

امیدوارم مفید بوده باشد.
24-07-2012, 18:24
abo1524

نقل قول:

نوشته شده توسط asrit.net [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

کد:

Type tLookup Voice as string Picture as string end type

Public Loockup(500) as tLookup

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

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

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

واسه مفيديش كه مفيده ولي من احتياج به كد سورس نمونه دارم اگه زحمتشو بكشي ممنون ميشم
24-07-2012, 19:09
Akbar"22"

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

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

کد:

Project > References

کلاس

کد:

Windows Media Player

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

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

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

:11:
25-07-2012, 08:32
abo1524

آقا اكبر دستت درد نكنه :40:واقعا خسته نباشي كارت عالي بود موفق باشي:11:
فقط من اگه بخوام كاري كنم كه اگه تصوير اشتباه كليك شدو اون پيغام كه ميگه اشتباه كردي هم نمايش داده شد . اگه نخوام تصوير حذف بشه بايد كجاي كد را دستكاري كنم به عبارتي اگه تصوير اشتباه كليك شد حذف نشه بلكه در چرخه رندوم قرار بگيره
25-07-2012, 09:18
Akbar"22"

نقل قول:

نوشته شده توسط abo1524 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آقا اكبر دستت درد نكنه :40:واقعا خسته نباشي كارت عالي بود موفق باشي:11:
فقط من اگه بخوام كاري كنم كه اگه تصوير اشتباه كليك شدو اون پيغام كه ميگه اشتباه كردي هم نمايش داده شد . اگه نخوام تصوير حذف بشه بايد كجاي كد را دستكاري كنم به عبارتي اگه تصوير اشتباه كليك شد حذف نشه بلكه در چرخه رندوم قرار بگيره

کد های درون رویداد Click کنترل Imgae رو پاک کن و کد های زیرو جایگزین کن :

کد:

Private Sub Image1_Click(Index As Integer)Timer2.Enabled = False Dim mototemp As Integer mototemp = Index + 1 If mototemp = NUMPLAY Then PLAYFILESOUND.Open "OK.wav": Timer2.Enabled = False Image1(NUMRND1 - 1).Visible = False Else MsgBox " ÊÕæíÑ ÏÑÓÊ Ñæ ÇäÊÎÇÈ ä˜ÑÏíí " Select Case NUMRND1 Case 1 PID1 = False Case 2 PID2 = False Case 3 PID3 = False Case 4 PID4 = False End Select End If Timer1.Enabled = True End Sub
25-07-2012, 10:02
abo1524

:11::40::11::11: