منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3

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

كود :

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

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

يافرحة ماتمت Sad

عدلت على مثال الاخ دريم اضفت بدل 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

خلاص آخر محاولاتي باءت بالفشل وسارجع عن استخدام هذه الميزة Smile

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:

الصفحات : 1 2 3

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

سعود

سعود

سعود

سعود

ربيع

ربيع

سعود

ربيع