المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
يااخوان هذا السطر يسبب خطا
كود :
group.AddTransition(clip1.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True)
تم حل كل شيء الا السطر هذا
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
عدلت على مثال الاخ دريم اضفت بدل 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
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
خلاص آخر محاولاتي باءت بالفشل وسارجع عن استخدام هذه الميزة
http://vb4arb.com/vb/uploaded/34_01363764031.zip
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
زالت رسائل الخطا بعد حذف هذين السطرين
كود :
' 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 مل ثانية
المشاركات : 609
المواضيع 23
الإنتساب : Sep 2012
السمعة :
43
الشكر: 2709
تم شكره 2810 مرات في 181 مشاركات
سعود كتب :اسال الله جل في علاه ان يوفقك لكل خير وان يحقق لك ماتريد ويكون قربة اليه.
واسال الله ان يجزيك بالمثل
المشاركات : 609
المواضيع 23
الإنتساب : Sep 2012
السمعة :
43
الشكر: 2709
تم شكره 2810 مرات في 181 مشاركات
نحمده ونصلي على رسوله الكريم
الكود التالي يزيل التاثيرات من المقطع الناتج، ويحدد المدة الزمنية في التنقل بين الصور بـ 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]
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
طيب دقة الفيدية ليست جيدة ما السبب؟
المشاركات : 609
المواضيع 23
الإنتساب : Sep 2012
السمعة :
43
الشكر: 2709
تم شكره 2810 مرات في 181 مشاركات
السلام عليكم
الظاهر انك تراجعت فعلا عن استخدام الميزة :confused:
|