اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

بطريقة اليه

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

 

0000000.png.b4de808d345dbe4556e102a34431f380.png

 

المرفق 

APP_Player.zip

  • Like 2
  • 8 months later...
قام بنشر

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

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

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

قام بنشر

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

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

 

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

 

جعفر

  • Like 1
  • Haha 1
قام بنشر
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