+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة عمل عداد لمستخدمين البرنامج (/showthread.php?tid=25392)
الصفحات:
1
2
طريقة عمل عداد لمستخدمين البرنامج - YousefOkasha - 15-06-18
السلام عليكم ورحمه الله و بركاته اهل المنتدي ..
مثل ما قرأتم عنوان الموضوع ..
بحثت عن ذلك الشئ كثيراً ..
و لم اجد ..
فكيف اقوم بعمل هذه الميزه ..
بشرط جمع جميع المستخدمين ..
اي ان كل من فتح التطبيق اكثر من مره ..
فتحتسب بزيارة واحده فقط ..
و معرفة عدد مستخدمي البرنامج حالياً ..
و شكرا
RE: طريقة عمل عداد لمستخدمين البرنامج - سعود - 15-06-18
و عليكم السلام ورحمة الله وبركاته
هذا يتوقف على اسلوب برنامجك كيف يكون؟
الفكرة بالنسبة لي سهلة جدا لكن اغلب الاخوة لا يناسبهم ما يناسب غيرهم.
بالنسبة لي اتعامل مع موقع رفع وقاعدة بيانات اكسس واخزن سيريال المعالج وعند كل تشغيل افحص السريال ان كان هو يخرج من الاجراء او يضيف رقم.
لكن هذا يتطلب الاتي:
Webservice مرفوع على موقع وبه ملف اكسس بسيط.
RE: طريقة عمل عداد لمستخدمين البرنامج - elgokr - 16-06-18
طريقة اخرى كما قدمه شرحه الاخ سعود
قم باستدعاء كلاً من
كود :
Imports System.Management
Imports System.Netبعد ذلك اسفل سطر
كود :
Public Class Form1قم باضافة الكود التالى
كود :
Dim HW As New SEC_Informations
Dim MB As String
Public Class SEC_Informations
Friend Function GetMotherBoardID() As String
Dim strMotherBoardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherBoardID = info("product").ToString()
Next
Return strMotherBoardID
End Function
End Classوقبل الاستخدام قم بانشاء جدول تحت اسم مثلاً
VUsers
ويحتوى بداخله على اعمدة التالية
MyID - MyUSERS - G-DATE
الاول ترقيم تلقائى - الثاني نصي [المستخدم] - الثالث تاريخ
بعد ذلك سيتم عمل التالي
فى منطقة الـ Form1_Load
ضع السطر التالى
كود :
MB = HW.GetMotherBoardID()واسفل منه كود الاستعلام بالجدول
(يتوقف على طريقة كتابة كود الاتصال بقاعدة البيانات وطريقة كتابة الاسطر فقط بالنهاية استخدم الاستعلام بهذا الشكل)
كود :
"SELECT MyUSERS FROM VUsers WHERE MyUSERS='" & MB & "'"بعد ذلك عمل التحقق
كود :
If dt.Rows.Count = 0 Then
' ضح كود الادخال بقاعدة البيانات وهو عبارة عن الكود التالى
' "INSERT INTO VUsers (MyUSERS, G-DATE) VALUES ('" & MB & "', '" & NOW.ToString() & "')"
End Ifوبكده اذا كان المستخدم اى الكمبيوتر
قام بفتح البرنامج للمرة الاولى سيقوم بتسجيله فى قاعدة البيانات
وفى حالة قام بفتحه العديد من المرات بعد ذلك
ومن اشخاص مختلفين ولكن من جهاز الكمبيوتر نفس فلم يقوم بفعل شئ
يارب يكون الكود والشرح بسيط
تحياتى لك
وتمنياتى لك التوفيق
RE: طريقة عمل عداد لمستخدمين البرنامج - YousefOkasha - 16-06-18
شرح جميل من سعود و elgoker
و لكن لم افهم جيدا من elgoker ..
فهل من شرح بالصور او فيديو
RE: طريقة عمل عداد لمستخدمين البرنامج - elgokr - 16-06-18
اليك مشروع وبرنامج مرفق
يوضح فى توزيعة الاكواد
ولكن الاكواد فى المشروع ليس طبقاً
لما تم شرحه فى الرد السابق
لان الرد السابق يعتمد على قاعدة البيانات
لتسجيل جميع المستخدمين بناءاً على الكمبيوتر
لكن فى المشروع قمت بتخطى قاعدة البيانات بـ Setting
وفى هذه الوضعية يقوم بتسجيل سجل واحد فقط
بحيث ان البرنامج للمعينة وانه جهاز واحد يتم اختبار عليه الكود
ملحوظة:
قد تحتاج الى اضافة
PHP كود :
System.Management
داخل References
حتى يتم استدعائه كما فى الكود بالاعلى
فى الرد السابق... صورة توضيح
ويتم ذلك من خلال كلك يمين على References
من ثم اختيار AddReference...
وطبق كما فى الصورة
قم بتحميل السورس والبرنامج من المرفقات
السورس(VB2015)
تحياتى لك
وتمنياتى لك التوفيق
RE: طريقة عمل عداد لمستخدمين البرنامج - YousefOkasha - 21-06-18
هناك مضكلة في السورس كود ..
يحتاج دوت نيت فرايم ورك 6.5.0
RE: طريقة عمل عداد لمستخدمين البرنامج - elgokr - 21-06-18
ماذا تقصد بـ مضكلة
وايضاَ كيف يحتاج الى
.net framework 6.5.0
بينما اخر اصدار هو 4.7.2
على حيث علمى
الرجاء التوضيح لما يحدث معك
تحياتى لك
RE: طريقة عمل عداد لمستخدمين البرنامج - ابو روضة - 21-06-18
(21-06-18, 03:15 AM)elgokr كتب :ماذا تقصد بـ مضكلة
اعتقصد يقصد بها " يوجد مشكلة " ليس يوجد مضكلة
RE: طريقة عمل عداد لمستخدمين البرنامج - YousefOkasha - 21-06-18
(21-06-18, 03:15 AM)elgokr كتب :ماذا تقصد بـ مضكلةوايضاَ كيف يحتاج الى.net framework 6.5.0
بينما اخر اصدار هو 4.7.2على حيث علمى
الرجاء التوضيح لما يحدث معك
تحياتى لك
عفواً قصد إصدار 4.7.2
اسف علي كلمة مضكلة
فأنا أقصد كلمة مشكلة
RE: طريقة عمل عداد لمستخدمين البرنامج - elgokr - 22-06-18
حيث ان ما بالجهاز لدى هو 4.6.1
كما ان المستخدم فى المشروع هو نفس الاصدار
لكن الك التالى..
يمكنك تحميل اى اصدار تريده من خلال الرابط التالى
ستجد الاصدارات من 3.5 حتى 4.7.2
كما انه مرفق المشروع والمثال بعد تحويل الاصدار الى 4.5
تجنباً لعدم وجود اى اخطاء بالاكواد
تحياتى لك
وتمنياتى لك التوفيق