23-08-19, 05:10 AM
الصفحات : 1 2
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 Sub23-08-19, 06:14 PM
(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
لى طلب اخر فى هذا الشأن
ان تشرح لى كيفيه ضع عدد رات تشغيل البرنامج ايضا المده التجربيه شرحا وافيا وكافيا كى ادرك ما تقول فأخيك مبتدئ وانتم اساتذتنا
والشرح بهذه الاكواد التى وضعناها من اول المشاركه
سدد الله خطاك واكرمك
23-08-19, 06:56 PM
(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
لى طلب اخر فى هذا الشأن
ان تشرح لى كيفيه ضع عدد رات تشغيل البرنامج ايضا المده التجربيه شرحا وافيا وكافيا كى ادرك ما تقول فأخيك مبتدئ وانتم اساتذتنا
والشرح بهذه الاكواد التى وضعناها من اول المشاركه
سدد الله خطاك واكرمك
24-08-19, 05:43 AM
(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
لى طلب اخر فى هذا الشأن
ان تشرح لى كيفيه ضع عدد رات تشغيل البرنامج ايضا المده التجربيه شرحا وافيا وكافيا كى ادرك ما تقول فأخيك مبتدئ وانتم اساتذتنا
والشرح بهذه الاكواد التى وضعناها من اول المشاركه
سدد الله خطاك واكرمك
اكرمك الله وحفظك .
جميعنا اخوة في منتدانا الغالي وانا طالب علم وليس اكثر .
من الافضل ليك الاستفسار الجديد يطرح كسؤال جديد ربما يقتصر علمي علي الرد عليك فيفدك من كثر علمة عني او تجد عدة اراء مختلفة تصل بك لاكثر فائدة .
الصفحات : 1 2