منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب بسيط محتاج ملف DLL - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب بسيط محتاج ملف DLL (/showthread.php?tid=31027)

الصفحات: 1 2

RE: طلب بسيط محتاج ملف DLL - خالد كامل1 - 23-08-19

(23-08-19, 04:52 AM)محمد اسماعيل كتب : هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك

تم اخى العزيز بارك الله فيك

RE: طلب بسيط محتاج ملف DLL - محمد اسماعيل - 23-08-19

(23-08-19, 05:02 AM)خالد كامل1 كتب :
(23-08-19, 04:52 AM)محمد اسماعيل كتب : هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك

كما ترى اخى الكود به شئ خطأ فو سمحت تكتبه كاملا من عند ال CLASS

الكود بالكلاس كامل


كود :
Imports System.Management

Public Class Class1

   Public Shared MOTHERBOARDID As String

   Public Shared Sub hardware()
       Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARDID = getserial("SerialNumber").ToString()
       Next
   End Sub
End Class


بوتن  زر ورسالة الاستعادة الرقم


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Class1.hardware()
       MsgBox(Class1.MOTHERBOARDID)
   End Sub


RE: طلب بسيط محتاج ملف DLL - خالد كامل1 - 23-08-19

(23-08-19, 05:15 AM)محمد اسماعيل كتب :
(23-08-19, 05:02 AM)خالد كامل1 كتب :
(23-08-19, 04:52 AM)محمد اسماعيل كتب : هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك

كما ترى اخى الكود به شئ خطأ فو سمحت تكتبه كاملا من عند ال CLASS

الكود بالكلاس كامل


كود :
Imports System.Management

Public Class Class1

   Public Shared MOTHERBOARDID As String

   Public Shared Sub hardware()
       Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARDID = getserial("SerialNumber").ToString()
       Next
   End Sub
End Class


بوتن  زر ورسالة الاستعادة الرقم


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Class1.hardware()
       MsgBox(Class1.MOTHERBOARDID)
   End Sub
اخى العرير الذى لا يبخل عن الاعضاء بشئ عوضك الله عن تعبك معى ومعهم بكل خير
لى طلب اخر فى هذا الشأن 
ان تشرح لى كيفيه ضع عدد رات تشغيل البرنامج ايضا المده التجربيه  شرحا وافيا وكافيا كى ادرك ما تقول فأخيك مبتدئ وانتم اساتذتنا 
والشرح بهذه الاكواد  التى وضعناها من اول المشاركه
سدد الله خطاك واكرمك

RE: طلب بسيط محتاج ملف DLL - عبد العزيز البسكري - 23-08-19

(23-08-19, 06:14 PM)خالد كامل1 كتب :
(23-08-19, 05:15 AM)محمد اسماعيل كتب :
(23-08-19, 05:02 AM)خالد كامل1 كتب :
(23-08-19, 04:52 AM)محمد اسماعيل كتب : هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك

كما ترى اخى الكود به شئ خطأ فو سمحت تكتبه كاملا من عند ال CLASS

الكود بالكلاس كامل


كود :
Imports System.Management

Public Class Class1

   Public Shared MOTHERBOARDID As String

   Public Shared Sub hardware()
       Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARDID = getserial("SerialNumber").ToString()
       Next
   End Sub
End Class


بوتن  زر ورسالة الاستعادة الرقم


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Class1.hardware()
       MsgBox(Class1.MOTHERBOARDID)
   End Sub
اخى العرير الذى لا يبخل عن الاعضاء بشئ عوضك الله عن تعبك معى ومعهم بكل خير
لى طلب اخر فى هذا الشأن 
ان تشرح لى كيفيه ضع عدد رات تشغيل البرنامج ايضا المده التجربيه  شرحا وافيا وكافيا كى ادرك ما تقول فأخيك مبتدئ وانتم اساتذتنا 
والشرح بهذه الاكواد  التى وضعناها من اول المشاركه
سدد الله خطاك واكرمك

http://vb4arb.com/vb/showthread.php?tid=25540


RE: طلب بسيط محتاج ملف DLL - محمد اسماعيل - 24-08-19

(23-08-19, 06:14 PM)خالد كامل1 كتب :
(23-08-19, 05:15 AM)محمد اسماعيل كتب :
(23-08-19, 05:02 AM)خالد كامل1 كتب :
(23-08-19, 04:52 AM)محمد اسماعيل كتب : هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك

كما ترى اخى الكود به شئ خطأ فو سمحت تكتبه كاملا من عند ال CLASS

الكود بالكلاس كامل


كود :
Imports System.Management

Public Class Class1

   Public Shared MOTHERBOARDID As String

   Public Shared Sub hardware()
       Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARDID = getserial("SerialNumber").ToString()
       Next
   End Sub
End Class


بوتن  زر ورسالة الاستعادة الرقم


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Class1.hardware()
       MsgBox(Class1.MOTHERBOARDID)
   End Sub
اخى العرير الذى لا يبخل عن الاعضاء بشئ عوضك الله عن تعبك معى ومعهم بكل خير
لى طلب اخر فى هذا الشأن 
ان تشرح لى كيفيه ضع عدد رات تشغيل البرنامج ايضا المده التجربيه  شرحا وافيا وكافيا كى ادرك ما تقول فأخيك مبتدئ وانتم اساتذتنا 
والشرح بهذه الاكواد  التى وضعناها من اول المشاركه
سدد الله خطاك واكرمك

اكرمك  الله وحفظك .

جميعنا اخوة في منتدانا الغالي وانا طالب علم وليس اكثر  .

من الافضل ليك الاستفسار الجديد يطرح كسؤال جديد ربما يقتصر علمي علي الرد عليك فيفدك من كثر علمة عني او تجد عدة اراء مختلفة  تصل بك لاكثر فائدة .