+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 (/showthread.php?tid=47344)
ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - AhmedEissa - 20-10-23
السلام عليكم
إستخدمت 2 Function فى تطبيق على فيجوال بيسك 2010
لكن ظهر به تلك العلامات الدالة على وجود أخطاء
ما المكتبات التى يجب إضافتها لهذا التطبيق ، وما احتاج إليه من Imports
PHP كود :
Friend Shared Function GetProcessorId() As String
Dim str2 As String = String.Empty
Dim searcher As New ManagementObjectSearcher(New SelectQuery("Win32_processor"))
Dim obj2 As ManagementObject
For Each obj2 In searcher.Get
str2 = obj2("processorId").ToString
Next
Return str2
End Function
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End Function
RE: ما الخط فى الـ Functions المستخدم فى vb.net 2010 - Taha Okla - 20-10-23
وعليكم السلام ورحمة الله وبركاته
- في البداية عليك اضافة المكتبة من الـ المراجع (Project >> Add Reference)
من قسم الـ (Assemblies) قم بإَافة المرجع (System.Management)
- ثم قإم باستيراد المرجع (System.Management).
وسلامتك..
RE: ما الخط فى الـ Functions المستخدم فى vb.net 2010 - AhmedEissa - 20-10-23
أشكرك جداً على اهتمامك وردك
عملت كما أشرت واختفت مشاكل الـ Function الأول
وأريد مساعدتك للتغلب على مشاكل الـ Function الثانى
RE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - Ahmed5 - 20-10-23
(20-10-23, 09:34 PM)AhmedEissa كتب :أشكرك جداً على اهتمامك وردك
عملت كما أشرت واختفت مشاكل الـ Function الأول
وأريد مساعدتك للتغلب على مشاكل الـ Function الثانى
PHP كود :
Dim obj2 As New ManagementObject(string.format("win32_logicaldisk.deviceid=""{0}:""",ltr))
RE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - AhmedEissa - 21-10-23
مع مزيد شكرى وتقديرى
رجاء التعديل على الملف بما يلزم وإعادة رفعه ليعمل بدون أخطاء
RE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - bidaya - 21-10-23
جرب المثال ربما يكون المقصود
RE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - AhmedEissa - 21-10-23
(21-10-23, 01:03 PM)bidaya كتب :جرب المثال ربما يكون المقصود
شكراً لك ،
للأسف أخى الفاضل
ليس هو
أرغب فقط فى تعديل الملف الخاص بى لإصلاح رسالة الخطأ التى تظهر
RE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - عبدالله الدوسري - 21-10-23
Visual Basic 2010
لا يدعم خاصية ( Interpolated Strings ) وهي علامة الدولار
هذة الميزة ، تسمى ( Interpolated Strings ) ، بالعربي يعني ميزة تسمح للنص أن يكون مجزء على عدة اسطر، وتسمح بكتابة المتغيرات داخل النص بوضع متغيرات داخل قوسين من هذا النوع {}، مثل المتغير {ltr} كتب داخل قوسين ضمن السلسلة النصية
متوفرة فقط في Visual Basic 2015 فما فوق
إذا كنت لا تستطيع إستخدام هذة الخاصية ، استبل الكود التالي : ( الموجود لديك )
كود :
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End Function بهذا الكود : طريقة 1
كود :
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim Path As String = "win32_logicaldisk.deviceid="" & ltr & :"""
Dim obj2 As New ManagementObject(Path)
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End Functionطريقة 2
كود :
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim obj2 As New ManagementObject(Str("win32_logicaldisk.deviceid="" & ltr & :"""))
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End FunctionRE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - AhmedEissa - 21-10-23
تمام أخى عبدالله
يبدو أن السبب فعلاً فى عدم التوافق هو استخدامى لـ Visual Basic 2010
لأن كلا الكودين السابقين لم ينجحا على هذا الإصدار ، والثانى بالتحديد أعطى الرسالة
Argument 'Number' cannot be converted to a numeric value
الوحيد الذى توافق هى تعليمة الأخ Ahmed5
Dim obj2 As New ManagementObject(string.format("win32_logicaldisk.deviceid=""{0}:""",ltr))
لكن ما زلت أتمنى أن يقوم أحد الإخوان بالتعديل على الملف الذى رفعته أعلاه
RE: ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 - Ahmed5 - 21-10-23
(21-10-23, 07:22 PM)عبدالله الدوسري كتب :
Visual Basic 2010
لا يدعم خاصية ( Interpolated Strings ) وهي علامة الدولار
هذة الميزة ، تسمى ( Interpolated Strings ) ، بالعربي يعني ميزة تسمح للنص أن يكون مجزء على عدة اسطر، وتسمح بكتابة المتغيرات داخل النص بوضع متغيرات داخل قوسين من هذا النوع {}، مثل المتغير {ltr} كتب داخل قوسين ضمن السلسلة النصية
متوفرة فقط في Visual Basic 2015 فما فوق
إذا كنت لا تستطيع إستخدام هذة الخاصية ، استبل الكود التالي : ( الموجود لديك )
كود :
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End Function
بهذا الكود : طريقة 1
كود :
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim Path As String = "win32_logicaldisk.deviceid="" & ltr & :"""
Dim obj2 As New ManagementObject(Path)
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End Function
طريقة 2
كود :
Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
Dim obj2 As New ManagementObject(Str("win32_logicaldisk.deviceid="" & ltr & :"""))
obj2.Get()
Return obj2("VolumeSerialNumber").ToString
End Function
ممتاز
تم التقييم +1
(21-10-23, 10:01 PM)AhmedEissa كتب : تمام أخى عبدالله
يبدو أن السبب فعلاً فى عدم التوافق هو استخدامى لـ Visual Basic 2010
لأن كلا الكودين السابقين لم ينجحا على هذا الإصدار ، والثانى بالتحديد أعطى الرسالة
Argument 'Number' cannot be converted to a numeric value
الوحيد الذى توافق هى تعليمة الأخ Ahmed5
Dim obj2 As New ManagementObject(string.format("win32_logicaldisk.deviceid=""{0}:""",ltr))
لكن ما زلت أتمنى أن يقوم أحد الإخوان بالتعديل على الملف الذى رفعته أعلاه
واضح ان الملف المرفوع تم تحويله من #C إلى VB
الرجاء وضع الملف الأصلي بلغة #C
لآن التحويل في الملف المرفق غير صحيح