+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أمثلة ومشاريع أعضاء المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=114)
+---- قسم : مكتبة مشاريع VB.net (http://vb4arb.com/vb/forumdisplay.php?fid=141)
+---- الموضوع : مثال تصوير الشاشة v2 (/showthread.php?tid=8056)
مثال تصوير الشاشة v2 - سعود - 20-03-13
ودها تفكير شلون نحول 600 صورة بضغطة زر
مثال تصوير الشاشة v2 - سعود - 20-03-13
كود :
Using timeline As New DefaultTimeline(25)اخواني
الرقم 25 ماذا اكتب عوضا عنه علما ان سرعة المؤقت الذي يلتقط الصور 200 مل ثانية
مثال تصوير الشاشة v2 - سعود - 20-03-13
اخواني احتاج مساعدة لاكمال التعديل على المثال
كود :
Dim i As Integer = IO.Directory.GetFiles(imagepath, "*.jpg").Countهذا كما تعرفون يظهر عدد الصور في المجلد
كود :
Dim clip1 As IClip = videoTrack.AddImage(Application.StartupPath & "\image1.jpg", 0, 2)هذا السطر كيف اصيغه بحيث يضيف كافة الصور؟؟؟؟
تحتاج محترف.
مثال تصوير الشاشة v2 - سعود - 20-03-13
كود :
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)
Nextالحمدلله انهيت الجزء الخاص باضافة كافة صور المجلد لكن حبيت اسال عن
كود :
group.AddTransition(clip2.Offset - halfDuration, halfDuration, StandardTransitions.CreateFade(), True) group.AddTransition(clip2.Offset, halfDuration, StandardTransitions.CreateFade(), False)مالفرق بين السطرين؟؟؟
مثال تصوير الشاشة v2 - سعود - 20-03-13
انهيت برمجة المثال وتفاجات بالخطا
وهذا المثال ارجو منكم التصحيح
http://vb4arb.com/vb/uploaded/34_01363757320.zip
مثال تصوير الشاشة v2 - سعود - 20-03-13
يسال عن timelinebuilder.cs
مثال تصوير الشاشة v2 - سعود - 20-03-13
http://vb4arb.com/vb/showthread.php?4392-%E3%CB%C7%E1-%CA%D5%E6%ED%D1-%C7%E1%D4%C7%D4%C9-v2&p=15351&viewfull=1#post15351
مثال تصوير الشاشة v2 - سعود - 20-03-13
مثال تصوير الشاشة v2 - سعود - 20-03-13
مثال تصوير الشاشة v2 - سعود - 20-03-13
الفيلم المستخرج سيء للغاية
يومض