[سعود]

يااخوان هذا السطر يسبب خطا

كود :

group.AddTransition(clip1.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True)

تم حل كل شيء الا السطر هذا

[سعود]

يافرحة ماتمت

[سعود]

عدلت على مثال الاخ دريم اضفت بدل clip2 وضعت clip1 وصار نفس الخطا
طيب شلون اصيغ الكود هذا بحيث يتخطى اول ملف مثلا باسم a0.jpj

كود :

For Each fl In IO.Directory.GetFiles(imagepath, "*.jpg")                Dim fn As String = IO.Path.GetFileName(fl)
                Dim clip1 As IClip = videotrack.AddImage(imagepath & fn, 0, 2)
                Dim halfDuration As Double = 0.5




                group.AddTransition(clip1.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True)
                group.AddTransition(clip1.Offset, halfDuration, StandardTransitions.CreateFade(), False)
                prog.Value += 1




            Next

[سعود]

خلاص آخر محاولاتي باءت بالفشل وسارجع عن استخدام هذه الميزة
http://vb4arb.com/vb/uploaded/34_01363764031.zip

[سعود]

زالت رسائل الخطا بعد حذف هذين السطرين

كود :

' group.AddTransition(clip1.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True)                'group.AddTransition(clip1.Offset, halfDuration, StandardTransitions.CreateFade(), False)

لكن الدقة سيئة للغاية يااخوان

كود :

Using timeline As New DefaultTimeline(5)

ماذا اضع بدل الرقم 5 جربت 25 ولم ينفع الصورة الواحد تطول المفروض تاخذ فقط 200 مل ثانية

[ربيع]

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

واسال الله ان يجزيك بالمثل

[ربيع]

نحمده ونصلي على رسوله الكريم

الكود التالي يزيل التاثيرات من المقطع الناتج، ويحدد المدة الزمنية في التنقل بين الصور بـ 0.02 ما يعادل 200 مل ثانية:

كود :

[align=left]Label1.Visible = True
Application.DoEvents()

Using timeline As New DefaultTimeline(25)

    Dim group As IGroup = timeline.AddVideoGroup(32, 960, 720) ' هنا حجم مقطع الفيدو من ناحية العرض والارتفاع

    Dim videoTrack As ITrack = group.AddTrack()

    Dim clip1 As IClip = videoTrack.AddImage(Application.StartupPath & "\image1.jpg", 0, 0.02) ' آخر وسيطة لتحديد مدة الانتقال، كل صورة على حده
    Dim clip2 As IClip = videoTrack.AddImage(Application.StartupPath & "\image2.jpg", 0, 0.02)
    Dim clip3 As IClip = videoTrack.AddImage(Application.StartupPath & "\image3.jpg", 0, 0.02)
    Dim clip4 As IClip = videoTrack.AddImage(Application.StartupPath & "\image4.jpg", 0, 0.02)

    'Dim halfDuration As Double = 0.5

    'group.AddTransition(clip2.Offset - halfDuration, halfDuration, StandardTransitions.CreateIris(), True)
    'group.AddTransition(clip2.Offset, halfDuration, StandardTransitions.CreateIris(), False)
    'group.AddTransition(clip3.Offset - halfDuration, halfDuration, StandardTransitions.CreateIris(), True)
    'group.AddTransition(clip3.Offset, halfDuration, StandardTransitions.CreateIris(), False)
    'group.AddTransition(clip4.Offset - halfDuration, halfDuration, StandardTransitions.CreateIris(), True)
    'group.AddTransition(clip4.Offset, halfDuration, StandardTransitions.CreateIris(), False)

    Dim audioTrack As ITrack = timeline.AddAudioGroup().AddTrack()
    ' التالي هو مقطع الصوت المدمج
    Dim audio As IClip = audioTrack.AddAudio(Application.StartupPath & "\soundtrack.wav", 0, videoTrack.Duration)

    'audioTrack.AddEffect(0, audio.Duration, StandardEffects.CreateAudioEnvelope(1.0, 1.0, 1.0, audio.Duration))

    Using renderer As New WindowsMediaRenderer _
        (timeline, Application.StartupPath & "\output.wmv", WindowsMediaProfiles.HighQualityVideo)

        renderer.Render()
    End Using

End Using

Label1.Visible = False

If MessageBox.Show("تم إنشاء الفيديو" & Environment.NewLine & "هل تريد تشغيله", Text, _
                   MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK Then

    System.Diagnostics.Process.Start(Application.StartupPath & "\output.wmv")
End If
[/align]

[سعود]

طيب دقة الفيدية ليست جيدة ما السبب؟

[ربيع]

السلام عليكم

الظاهر انك تراجعت فعلا عن استخدام الميزة :confused: