السلام عليكم ورحمه الله و بركاته اهل المنتدي ..
مثل ما قرأتم عنوان الموضوع ..
بحثت عن ذلك الشئ كثيراً ..
و لم اجد ..
فكيف اقوم بعمل هذه الميزه ..
بشرط جمع جميع المستخدمين ..
اي ان كل من فتح التطبيق اكثر من مره ..
فتحتسب بزيارة واحده فقط ..
و معرفة عدد مستخدمي البرنامج حالياً ..
و شكرا
و عليكم السلام ورحمة الله وبركاته
هذا يتوقف على اسلوب برنامجك كيف يكون؟
الفكرة بالنسبة لي سهلة جدا لكن اغلب الاخوة لا يناسبهم ما يناسب غيرهم.
بالنسبة لي اتعامل مع موقع رفع وقاعدة بيانات اكسس واخزن سيريال المعالج وعند كل تشغيل افحص السريال ان كان هو يخرج من الاجراء او يضيف رقم.
لكن هذا يتطلب الاتي:
Webservice مرفوع على موقع وبه ملف اكسس بسيط.
طريقة اخرى كما قدمه شرحه الاخ سعود
قم باستدعاء كلاً من
كود :
Imports System.Management
Imports System.Net
بعد ذلك اسفل سطر
قم باضافة الكود التالى
كود :
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
وبكده اذا كان المستخدم اى الكمبيوتر
قام بفتح البرنامج للمرة الاولى سيقوم بتسجيله فى قاعدة البيانات
وفى حالة قام بفتحه العديد من المرات بعد ذلك
ومن اشخاص مختلفين ولكن من جهاز الكمبيوتر نفس فلم يقوم بفعل شئ
يارب يكون الكود والشرح بسيط
تحياتى لك
وتمنياتى لك التوفيق
شرح جميل من سعود و elgoker
و لكن لم افهم جيدا من elgoker ..
فهل من شرح بالصور او فيديو
اليك مشروع وبرنامج مرفق
يوضح فى توزيعة الاكواد
ولكن الاكواد فى المشروع ليس طبقاً
لما تم شرحه فى الرد السابق
لان الرد السابق يعتمد على قاعدة البيانات
لتسجيل جميع المستخدمين بناءاً على الكمبيوتر
لكن فى المشروع قمت بتخطى قاعدة البيانات بـ Setting
وفى هذه الوضعية يقوم بتسجيل سجل واحد فقط
بحيث ان البرنامج للمعينة وانه جهاز واحد يتم اختبار عليه الكود
ملحوظة:
قد تحتاج الى اضافة
داخل References
حتى يتم استدعائه كما فى الكود بالاعلى
فى الرد السابق... صورة توضيح
ويتم ذلك من خلال كلك يمين على References
من ثم اختيار AddReference...
وطبق كما فى الصورة
قم بتحميل السورس والبرنامج من المرفقات
السورس(VB2015)
تحياتى لك
وتمنياتى لك التوفيق
هناك مضكلة في السورس كود ..
يحتاج دوت نيت فرايم ورك 6.5.0
ماذا تقصد بـ مضكلة
وايضاَ كيف يحتاج الى
.net framework 6.5.0
بينما اخر اصدار هو 4.7.2
على حيث علمى
الرجاء التوضيح لما يحدث معك
تحياتى لك
(21-06-18, 03:15 AM)elgokr كتب : [ -> ]ماذا تقصد بـ مضكلة
اعتقصد يقصد بها " يوجد مشكلة " ليس يوجد مضكلة
حيث ان ما بالجهاز لدى هو 4.6.1
كما ان المستخدم فى المشروع هو نفس الاصدار
لكن الك التالى..
يمكنك تحميل اى اصدار تريده من خلال الرابط التالى
ستجد الاصدارات من 3.5 حتى 4.7.2
كما انه مرفق المشروع والمثال بعد تحويل الاصدار الى 4.5
تجنباً لعدم وجود اى اخطاء بالاكواد
تحياتى لك
وتمنياتى لك التوفيق
