اذهب الي المحتوي
أوفيسنا

سؤال بخصوص تشغيل كل الاصوات تباعا من المكتبة الصوتيه


ابو جودي

الردود الموصى بها

السلام عليكم هل يمكن تشغيل الاصوات تباعا من المكتبة الصوتية الموجوده بالمرفق هنا

يعنى بعد الانتهاء من 
- aoj3ene

يتم تشغيل  
- nor
ثم بعد الانتهاء منه يتم تشغيل 
- فضلكم ياوالدي

بطريقة اليه

وان امكن هل ممكن وضه مثلا Checkbox  ان كان  True   يتم التشغيل تباعا  وان كان  False  يتم التوقف بعد الانتهاء من تشغيل الملف الحالى ؟!

 

0000000.png.b4de808d345dbe4556e102a34431f380.png

 

المرفق 

APP_Player.zip

  • Like 2
رابط هذا التعليق
شارك

  • 8 months later...

السلام عليكم ورحمة الله وبركاته والدى الحبيب الفضيل واستاذى الجليل ومعلمى القدير استاذ @jjafferr :fff:

خطرت على بالى فكرة ولكن بصراحة لا اعرف هل يمكن تنفيذها ام لا

هل يمكن استخدام ShellWait فى التنقل الى التالى من قائمة التشغيل بعد انتهاء عمل الميديا بلاير من التوقف بعد انتهاء المدة الزمنية لملف الصوت الذى تم تشغيله حتى يتم تشغيل الملف الذى يليه بالقائمة تلقائيا:rol: مجرد فكرة ولكن لا اعلم هل يمكن تنفيذها ام لا ولا خبرة لدى فى التعامل مع ال Shellwait :eek2:

رابط هذا التعليق
شارك

5 دقائق مضت, jjafferr said:

وعليكم السلام باشمهندس 🙂

لك وحشه يا راجل 🙂

 

الامر ShellWait يعمل تماما مثل Shell ، فقط تغير اسم الامر ، وخلاص 🙂

 

جعفر

ماتشوف وحش ابدا يارب :signthankspin::fff:

طيب هل من فكرة للتشغيل التلقائي لملفات الصوت تباعا :rol:

رابط هذا التعليق
شارك

3 دقائق مضت, jjafferr said:

جرب ShellWait (ولكن استعمل النسخة اللي استعملناها في برنامج QR https://www.officena.net/ib/topic/90906-كارنيهات-باستخدام-باركود-ماتركس-qr-code/ )

سوف احاول :biggrin:

ولكن لا اعرف كيف :wavetowel:

وكذلك اتصفح من الجوال :wallbash:

جزاكم الله خيرا :signthankspin:

رابط هذا التعليق
شارك

السلام عليكم 🙂

 

نقدر نعمل ملف XML ونضيف فيه القائمة PlayList  ، ونحفظ بصيغة wpl

Private Sub Make_List_2()
On Error Resume Next
'
'from
'http://www.vbforums.com/showthread.php?871083-playlist-in-vb6&p=5357495&viewfull=1#post5357495
'
    Dim i As Integer
    
    'delete the file, if exists
    Kill Application.CurrentProject.Path & "\PlayListTest.wpl"
    
  'Create and save a playList
  Open Application.CurrentProject.Path & "\PlayListTest.wpl" For Output As #1
    Print #1, "<?wpl version="; 1#; "?>"
    Print #1, "<smil>"
    Print #1, "    <head>"
    Print #1, "        <title>PlaylistTest</title>"
    Print #1, "    </head>"
    Print #1, "    <body>"
    Print #1, "        <seq>"
        
        For i = 0 To Me.PlayList.ListCount - 1
    Print #1, "            <media src=" & Chr(34) & Me.PlayList.Column(0, i) & Chr(34) & "/>"
        Next i
        
    Print #1, "       </seq>"
    Print #1, "    </body>"
    Print #1, "</smil>"
  Close #1
End Sub

.

ثم نناديه هكذا :

        'do the XML playlist
        Call Make_List_2

            With Me![wmp]
            .URL = Application.CurrentProject.Path & "\PlayListTest.wpl"
            End With

.

ولكنه لا يقرأ الملفات بالاحرف العربية !!

فقد تستطيع ان تستعمل الكود من برنامجك الذي يحول الكلمات العربية الى chrW 🙂

 

جعفر

1194.Digital Player.zip

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله تعالى وبركاته

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 🌹🌹🌹

جزاكم الله تعالى كل خير 

وانا بفضل الله تعالى توصلت الى نتيجة ولا اروع وبدون استخدام مساعدات من خارج الاكسس

دخلت لابشركم ولكن سبقتونى اسال الله تعالى ان يجعلكم سباقون بالخيرات ويتقبل منكن اعمالكم ورزقكم البركة فى العمر والعلم والاهل والولد ...  اللهم امين . امين . امين

 

وهنا نتيجة كفاحى 😄

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information