هذا مثال بسيط جدا ذو خطوتين:
1-تسجيل او تصوير سطح المكتب او الشاشة مع خيار منطقة محددة او كاملة وايضا خيار تسجيل المايك وعند الايقاف يتم حفظ الكل بقاعدة بيانات اكسس وهذا مشروع لوحده.
2-استعراض الصور من القاعدة بعد استخراجها لمصفوفة صور وكذلك استخراج الصوت وتشغيله وهذا مشروع لوحده
أشكر كل من قدم مالديه من معلومات لافادة اخوانه بالمنتدى. ...كلمة المرور مرفقة
ارجو من لم يعمل عنده المشروع بسبب اختلاف الاصدار ان يعلم ان الامر بسيط والحلول سهلة ... ذكرها الاخ خضر بارك الله فيه و هذا
run vs2012 application in vb2010 ايضا فيه الطريقة.
بالنسبة للمثال الاخر وهو المشغل بعد انشاء ملف تنفيذي (اذا اردت) ضعه بمكان ثابت بالجهاز واي ملف قاعدة بيانات ينشئها البرنامج الاول انقر بزر الفارة الايمن عليها وانقر فتح باستخدام وابحث عن البرنامج الاخر.
امتداد ملف القاعدة سيكون
المرفق محدث 18/11/1438 هـ
التحديث اللي عملته كالتالي:
حفظ مباشر من نفس اجراء Getscreenshot
ارسال هل يوجد صوت
ارسال سرعة المؤقت.
كل هذا يتم الاستفادة منه بواسطة البرنامج المشغل.
أيضا المشغل جعلته يستقبل البيانات ويضعها في
Datatable (وبهذه انحلت مشكلة توقف البرنامج بعد حجم ومدة معينة)
18/11/1438هـ
وهذي لاكس بي
تم تحديث المرفقات الرئيسية والاستغناء عن بعض الاجراءات غير الضرورية واستبدالها بابسط منها.
قمت بتعديل بسيط في برنامج عارض الصور sauddbplayer
اضفت ميزة استخراج الصوت مع الصور وارسالها الى wmm للتحرير لو حبيت.
تنبيه!
الصور سيتم استخراجها بالتنسيق التالي:
يعني لو كان الجدول يحتوي صور اكثر من 9999 ستحدث مشكلة على مااظن والحل زيادة عدة الاصفار باسم ملف الصورة واظن ليس حلا منطقيا وارجو ان احدا يساعد في هذه الجزئية.
ممكن تستخدم تاريخ التقاط الصورة في الترقيم
مثلا بعد التقاط الصورة مباشرة ممكن اسم الملف يكون كالتالي
PHP كود :
Dim accessDate As DateTime = DateTime.Now
Dim fileName As Sring = accessDate.ToFileTime.ToString
fileName = fileName + ".png"
بارك الله فيك وجزاك عني كل خير.
هل هناك طريقة او كود يؤدي لزيادة الخانات بالنص ("0000") على حسب طول الرقم والذي هو عبارة عن عدد صفوف جدول ما؟.
على كل حال الكود الذي زودتني به ساجربه باذن الله تعالى ...
ممكن تستخدم PadLeft او PadRight
(23-04-18, 05:28 PM)سعود كتب : [ -> ]بارك الله فيك وجزاك عني كل خير.
هل هناك طريقة او كود يؤدي لزيادة الخانات بالنص ("0000") على حسب طول الرقم والذي هو عبارة عن عدد صفوف جدول ما؟.
على كل حال الكود الذي زودتني به ساجربه باذن الله تعالى ...
ياسعود تكست بوكس 3 عدد الخانات المراد عمل فورمات لاسم الصورة .
تكست بوكس 1 رقم آخر صورة لديك .
تكست بوكس 2 رقم الصورة الجديدة .
أتمنى الكود يكون واضح .
كود :
Dim totalzero As String = "0"
For i = 2 To Val(TextBox3.Text)
totalzero = totalzero & "0"
Next
TextBox2.Text = Val(TextBox1.Text + 1)
TextBox2.Text = Format(Val(TextBox2.Text), "" & totalzero & "") & ".png"