تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة فى عمل هذه الدالة
#1
ارجو المساعدة فى عمل هذه الدالة

الدالة المرفقة تعمل بشكل جيد :

مثلا : لديا العدد 135000

عندما اقوم بتحويله يعطينى النتيجة 580F0296

لحد الان الفكرة واضحة

المطلوب :

اريد تحويل النيجة 580F0296

الى العدد 135000

اي عمل عكس الدالة


المثال فى المرفقات الرجاء التعديل عليه


الملفات المرفقة
.rar   ff.rar (الحجم : 11.26 ك ب / التحميلات : 65)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

ضع الدالة التالية في الـ Module:

كود :
Public Function Revert(ByVal AHexVal As String) As Long
    Dim AValue As String
    
    AValue = Left$(AHexVal, 6)
    AValue = "&H" & Mid$(AValue, 5, 2) & Mid$(AValue, 3, 2) & Mid$(AValue, 1, 2)
    Revert = CLng(AValue)
End Function

ضع على الـ Form مربع نص آخر (Text3 مثلاً) و زر آخر (Command2 مثلاً) للاستعادة. في كود الزر اكتب:

كود :
Private Sub Command2_Click()
    Text3.Text = CStr(Revert(Text2.Text))
End Sub


نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: جاسم عبد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة - بتقرير فرعي ناجح احمد 9 96 11-11-17, 02:57 AM
آخر رد: ناجح احمد
  ارجوا المساعدة gody_hm2010 2 50 10-11-17, 12:21 AM
آخر رد: eiocm
  الرجاء تعديل الدالة التالية wolf1120 4 105 04-11-17, 08:05 PM
آخر رد: wolf1120
  ارجو المساعدة VB.NET 6 98 28-10-17, 03:03 AM
آخر رد: VB.NET
  [vb6.0] لرجاء المساعدة في جملة adoPrimaryRS.Open إبراهيم خشافه1 20 284 25-10-17, 07:23 PM
آخر رد: إبراهيم خشافه1
  [vb6.0] المساعدة في تشغيل المنبه انمار العبيدي 11 270 24-09-17, 07:52 PM
آخر رد: انمار العبيدي
  ارجو المساعده اخوانى الاحباب "" تاريخ اخر عملية " mhareek 22 729 23-08-17, 06:02 PM
آخر رد: mhareek
  [vb6.0] سؤال مهم جدا بالنسبة لي ارجو المساعدة محمد حمد محمد 1 101 14-08-17, 08:14 PM
آخر رد: Amir_alzubidy
  (تم الحل) ارجو المساعده ب runtime error 70 permission denied scsi7000 4 177 26-07-17, 04:29 PM
آخر رد: scsi7000
  [vb6.0] ارجو المساعدة في حل مشكلة في البرنامج المرفق larbihamri 2 149 23-07-17, 03:19 AM
آخر رد: larbihamri

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم