مكتبة الاكواد

اهلا بك اختي شهد

واحنا تحت امرك

مشكور أخي على هذه الأكواد

مشكووووووووووررر

و الله يوفقك

:rolleyes:

مشكووووووووووررر

و الله يوفقك

:rolleyes:

مجوعة أكواد أكثر من رائعة

جزاك الله كل خير

أزادك الله علماً ومعرفة لتزيدنا مما أزادك الله

الى اخي صدى الذكرايات ان السان يعجز عن الشكر ولكن ان طريقتك للعرض جميلة جدا

للمبتدئين لان بعض المكتبات تكون في برنامج فالمبتدين لا يعرفون كيف استخدام البرنامج

هذه الطريقة جميلة لهم واسال الله العلى العظيم ان يوفقك وان يسدد خطاك وان يذهب همك

وان يغفر ذنوبك انه سميع عليم اخوك الالمعي

بريد asd_2020@gawab.com

أفكار مكررة ..................

بجد بارك الله فيك

Private Declare Sub GetMem1 Lib "msvbvm60.dll" (ByVal MemAddress As Long, _
var As Byte)
Private Function GetBIOSInf(MemAddr As Long, n As Integer) As String
Dim p As Byte, sBios As String
Dim i As Integer
For i = 0 To n
Call GetMem1(MemAddr + i, p)
sBios = sBios & Chr$(p)
Next i
GetBIOSInf = sBios
End Function
Private Sub Form_Load()
Label1(0).Caption = GetBIOSInf(&HFF400, 12)
Label1(1).Caption = GetBIOSInf(&HFF450, 31)
Label1(2).Caption = GetBIOSInf(&HFF478, 40)
Label1(3).Caption = GetBIOSInf(&HFFFF5, 7)
End Sub

شكرا لصاحب هذا الموضوع و لكل من أضاف عليه من كودات و مشاركات

و لكن لدي تعليق صغير جدا وهو أن الكودات المذكورة معظمها يهتم بجماليات البرنامج لا المضمون

و أتمنى من الزملاء إضافة كودات أكثر إحترافية

و اعذروني معظم الكودات الموجودة منسوخة من مكتبات كودات جاهزة موجودة في هذا المنتدى

و لذلك أتمنى نشر الكودات الإحترافية تتعامل مع نوافذ النظام و مع الهاردوير { كاميرات - سكانر - TV CARD - الأجهزة الإلكترونية المختلفة}

وشكرا لإهتمامكم

جود خضر

JADO

الرجاء من الأخ الكريم الذي يكتب هذه الأكواد أن يشرحها لنا سطر بسطر لكي نفهم مايجري