رقم الهارددسك بالسالب

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

اذا ظهر لديك الرقم بالسالب فهذا يعني ان الهارد دسك لديك نوعه ساتا وليس كما هو الحال مثل بقية الهاردسكات العادية . فسيظهر لديك الرقم بهذا الشكل

ولهذا نقوم بفتح النموذج في وضع التصميم ثم نتقل الى محرر الفيجول بيسك الخاص بمحرر الأكواد ونقوم بضرب رقم الهارسك في المعامل -1

وسيظهر لنا الرقم بعد ضربه في المعامل -1 بهذا الشكل

وهذا هو المثال قم بالتجربه عليه الآن

zaHard.rar

الأستــــــــادة الفاضلــــــة / زهــــــــــــرة

أشكـــــــرك جزيل الشكــــــــــر علـــــى حســــــــن الاهتمـــــــــام وسرعــــــــــة الــــــرد والاستجابــــــــــــــــــة وأدامـــــــك اللـــــــه دخـــــــرا لطلبتــــــــــــك

عشـــــــــــــــاق الأكســــــــــــــــــــــس ، وأنـــــا فهمــــــت مــــــن اجابتـــــــــك أن نتجاهــــــــــل اشــــــــــارة السالــــــــــب دائمـــــــا ونعتبــــــر

الرقـــــــــــــم صحيـــــــــــــح

- فهـــــــــل انــــــا أصبـــــت أم لا ؟؟؟؟؟؟؟؟؟

، ، ، اكــــررلـــــك شكــــــري وتقـــديــــــــــري واحتـــــرامــــي

نعم اخي الكريم

ولكن في حالات معينه عندما يكون الهارد دسك نوعه ساتا لأنه يختلف عن الهاردسك العادي IDE من حيث مخارج ومداخل الطاقة والداتا

وقد يحمل بعض الأخوة المثال ولديهم هاردسك عادي ذو كيبل 40 بن من نوع IDE ويظهر لهم رقم الهاردسك بالسالب فهنا يجب استبعاد معامل الضرب -1

بسم الله الرحمن الرحيم

اختنا زهرة هل يوجد حل بحيث تتم العملية اوتوماتيكيا

بمعنى ان البرنامج نفسه يتحقق مثلا من نوع الهارد وهو يقوم بالباقي

نعم اخي الكريم

يمكن حل هذه المشكلة بهذه الطريقة

Private Sub Form_Load()
 Dim obj_FSO As Object, obj_Drive As Object
 Set obj_FSO = CreateObject("Scripting.FileSystemObject")
 Set obj_Drive = obj_FSO.GetDrive("c:\")
If Left(SerialNumber, 1) = "-" Then
  SerialNumber = (obj_Drive.SerialNumber) * -1
End If
 Set obj_FSO = Nothing
 Set obj_Drive = Nothing
End Sub

zaHard_up.rar

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة وحفظك