الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد تحويل هذا الكود لصيغه اخرى ارجو المساعده

مغلق
بدأه فؤاد سعد في 24 ديسمبر 2007 · 2 رد · 446 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

في المرفقات سورس كود لمعرفه سرعه الرامات

عند الضغط على command 1 راح تلاقي هذا الامر GetMemoryStatus وعند الضغط على هذا الامر راح تلاقي سرعه الميموري في text 1

انا اريد وضع هذا الكود Text1.Text = GetMemoryStatus بدل GetMemoryStatus ويعمل على text 1 عند الضغط عليه ايضا

يعني بدل ما في command1 هذا الكود GetMemoryStatus اريد تغييره الى Text1.Text = GetMemoryStatus ويعمل بنفس الاداه ويظهر سرعه الرامات في تكست واحد text1

السورس بالمرفقات

ارجو ان يكون قصدى مفهوم وارجو مساعدتي وشكرا لكم

تحياتي ..................

فؤاد سعد

New_Folder__4_.rar

تم تعديل هذه المشاركة بواسطة فؤاد سعد في 24 ديسمبر 2007 في 15:43

#2

السلام عليكم ،،

للقيام بذلك قم بتغيير الـSub إلى دالة Function ، وستحصل على ما تريد :

Private Function GetMemoryStatus()
	Dim tMS As MEMORYSTATUS
	tMS.dwLength = Len(tMS)
	GlobalMemoryStatus tMS
	GetMemoryStatus = Format$(tMS.dwTotalPhys / 1024, "###,###,###") & " Kb"
End Function

سبحان الله وبحمده ... سبحان الله العظيم

#3

شككككككككككككككككككككككككر جزيلا للمعلومه انا فعلا كنت محتاج اتعلم دا

تحياتي...............

فؤاد سعد

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…