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

نسخة كاملة : أيهما أفضل من وجهه نظرك فى عمل المشروع
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
والله اخي عملتلك مشروع وعندما اردت رفع المشروع قمت بفحص الملف المضغوط واتضح به فايروس اعتقد ان الحاسوب مصاب بفايروسات
اساسآ هو فقط توضيحي لان تصمم برنامج كامل يأخذ وقت

ان شاء الله تفهم هذه الاكواد

برنامج التصوير

كود :
'زر تحرير الفيديو
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'If Recording Then stopRecord
       'في الاعلى فقط للتوضيح انه في حالة مازال الفيديو يسجل يتم ايقاف التسجيل
       '======================================================
       IO.File.WriteAllText(Application.StartupPath & "MyLastVideo.txt", "MyVideoPath") 'هنا طريقة فقط توضيحية
       'انه خزن اسم الفيديو الموجود في المجلد الذي تم اختياره لكي يتم اخذه من المحرر
       'مجرد فكرة
       '======================================================
       Process.Start(Application.StartupPath & "MyEditor.exe") 'هنا يتم تشغيل محرر الفيديو الذي بنفس مسار البرنامج
       'وعند بدأ المحرر يتم وضع كود داخل المحرر وفي حدث تحميل الفورم ليتعامل مع الفيديو الذي تم حفظه الان في المجلد السابق
       'عن طريق قيم او متغيرات حسب التصميم للبرنامج والطريقة المختارة
       '======================================================
       ''الان   ممكن نغلق برنامج التصوير حتى لايأخذ شي من الذاكرة
   End Sub


برنامج المحرر


كود :
'مشروع المحرر
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'حدث تحميل الفورم نقوم بأستدعاء الفيديو المحفوظ منذ قليل
       Dim path As String = IO.File.ReadAllText(Application.StartupPath & "MyLastVideo.txt")
       'Load(path)
       'أي تحميل الفيديو لتحريره

   End Sub


هذا مجرد رأيي شخصي وبالتأكيد انتم افضل مني والطريقة السابقة غير احترافية وانما فقط توضيحية
واعتذر منك على التقصير

والسلام عليكم ورحمة الله وبركاته

(13-12-19, 05:32 PM)ابو روضة كتب : [ -> ]
أم هل هذا ما تقصده حضرتك ؟ أنا أبحث لآحاول أن لا أجعلك تتعب بعمل أى شرح




لا هذه الفكرة دمج للمشاريع وانا اقصد ربط بين المشاريع او الربط بين بيانات المشاريع
لان مثل ماتعرف اكو برامج تحتوي كثيييير من المكتبات أي ممكن تربط برنامجين بمكتبة معينة
(13-12-19, 05:34 PM)3booody كتب : [ -> ]والله اخي عملتلك مشروع وعندما اردت رفع المشروع قمت بفحص الملف المضغوط واتضح به فايروس اعتقد ان الحاسوب مصاب بفايروسات
اساسآ هو فقط توضيحي لان تصمم برنامج كامل يأخذ وقت

ان شاء الله تفهم هذه الاكواد

برنامج التصوير

كود :
'زر تحرير الفيديو
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'If Recording Then stopRecord
       'في الاعلى فقط للتوضيح انه في حالة مازال الفيديو يسجل يتم ايقاف التسجيل
       '======================================================
       IO.File.WriteAllText(Application.StartupPath & "MyLastVideo.txt", "MyVideoPath") 'هنا طريقة فقط توضيحية
       'انه خزن اسم الفيديو الموجود في المجلد الذي تم اختياره لكي يتم اخذه من المحرر
       'مجرد فكرة
       '======================================================
       Process.Start(Application.StartupPath & "MyEditor.exe") 'هنا يتم تشغيل محرر الفيديو الذي بنفس مسار البرنامج
       'وعند بدأ المحرر يتم وضع كود داخل المحرر وفي حدث تحميل الفورم ليتعامل مع الفيديو الذي تم حفظه الان في المجلد السابق
       'عن طريق قيم او متغيرات حسب التصميم للبرنامج والطريقة المختارة
       '======================================================
       ''الان   ممكن نغلق برنامج التصوير حتى لايأخذ شي من الذاكرة
   End Sub


برنامج المحرر


كود :
'مشروع المحرر
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'حدث تحميل الفورم نقوم بأستدعاء الفيديو المحفوظ منذ قليل
       Dim path As String = IO.File.ReadAllText(Application.StartupPath & "MyLastVideo.txt")
       'Load(path)
       'أي تحميل الفيديو لتحريره

   End Sub


هذا مجرد رأيي شخصي وبالتأكيد انتم افضل مني والطريقة السابقة غير احترافية وانما فقط توضيحية
واعتذر منك على التقصير

والسلام عليكم ورحمة الله وبركاته


ماشاء الله عليك أستاذنا شرحت فأختصرتك ففهمت.....
فجزاك الله كل الخير أخى الكريم 
إقتباس :ماشاء الله عليك أستاذنا شرحت فأختصرتك ففهمت.....
فجزاك الله كل الخير أخى الكريم

وجزاك الجنة اخي الغالي , انتم اساتذتي ومنكم اتعلم
وشكرآ للأستاذ عبدالعزيز البسكري فهو صاحب الجواب الدقيق والكامل المختصر لسؤالك
نسيتونا الموضوع الأصلي لكن الشئ المقدم رائع
الصفحات : 1 2