اين برنامه مثال خوبي ميتواند در زمينه كار با كنترلهاي چند رسانه اي در زبان برنامه نويسي ويژوال بيسيك است . اگر مطالب قبلي را مرور كرده باشيد متوجه ميشويد كه پروژه هاي قبلي چند رسانه اي توانايي پخش سي دي هاي صوتي را دارند  . اما در اين مثال علاوه بر پخش سي دي هاي صوتي فايلهاي ام پي 3 را متوانيد از كامپيوتر خود لود و پخش كنيد در اين برنامه يك صفحه  وجود دارد كه كنترل ميزان صدا را ميتوان بدست گرفت . اميدوارم كه اين برنامه هاي كوچك مقدمه اي باشد براي نوشتن برنامه هاي بزرگ . انشاالله...

 

 

اين برنامه با استفاده از جك باكس به همراه موزيک خودش متن مورد نظر را با استفاده از داده هاي شما باز نويسي مي كند

در اين برنامه از توابع زير استفاده شده است

 

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const DATAPATH = "Merlin.acs"

Dim uFlags As Long

Dim ErrorCode As Boolean

Dim Merlin As IAgentCtlCharacterEx

Dim UserName As String

Dim Exe As Long

Dim Path As String

Dim Counter As Integer

Dim Tiden() As String

Dim Melody() As String

Dim Title() As String

Dim file As String

Dim PlayMode As Integer

Dim PlayerIsPlaying As Boolean

Dim Player As FilgraphManager

Dim PlayerPos As IMediaPosition

Dim PlayerAU As IBasicAudio

Dim I As Integer

Dim Check As Integer

Dim Character As IAgentCtlCharacterEx

Private Declare Function mciGetErrorString Lib "winmm" Alias _

    "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _

    ByVal uLength As Long) As Long

 

 

دانلود اين برنامه

 

اين برنامه با استفادا از تابع زير درست شده است.لازم به ذكر است اين برنامه بدون استفاده از هيچ برنامه يا اجزاي ديگر ، به سادگي داراي ظاهر زيبايي است .اين رنامه مانند برنامه بالا عمل ميكند ، در برنامه قبلي از كنترلها استفاده شد اما در اين برنامه از توابع استفاده شده است.متن تابع اين پروژه را متوانيد در زير مشاهده كنيد و در برنامه هايي كه خودتان مينويسيد استفاده كنيد

 

دانلود اين برنامه