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

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

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

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

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

المطلوب :

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

الى العدد 135000

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


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


الملفات المرفقة
.rar   ff.rar (الحجم : 11.26 ك ب / التحميلات : 47)
الرد }}}}
تم الشكر بواسطة:
#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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : أرجو المساعدة بإضافة STATUSBAR RECORD عبد العزيز البسكري 6 124 اليوم, 01:09 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو التكرم بمثال ( الطباعة تكون بحسب بيانات حقل معين ) iisys 0 68 09-10-16, 07:47 PM
آخر رد: iisys
  ارجو مساعدتي الفورم لا يفتح عد عمل ايام فيه samira20 6 214 24-09-16, 07:28 PM
آخر رد: Amir_alzubidy
  ارجو المساعدة اريد افضل نسخة للفجول بيسك 6 تكون كاملة mhareek 5 298 30-08-16, 12:38 AM
آخر رد: إبراهيم خشافه
  الاخوة الكرام نرجو المساعدة فى تعديل المرفق gadr 13 429 21-08-16, 04:50 PM
آخر رد: gadr
  [كود] ارجو التعديل على كود الترتيب التصاعدي فاضل الحمود 1 134 13-07-16, 02:01 AM
آخر رد: فاضل الحمود
  اساتذتى الكرام ارجو المساعدة فى هذا الكود mhareek 4 183 26-06-16, 02:29 PM
آخر رد: mhareek
  [سؤال] المساعدة في متصفح بفيجول بيسك 6 hsansalhh 2 180 23-06-16, 06:23 AM
آخر رد: hsansalhh
  [سؤال] المساعدة في عمل مشروع صغير للصيانه ملك الوورد 6 247 21-06-16, 11:00 PM
آخر رد: ملك الوورد
  اساتذتى الكرام ارجو المساعده فى موضوع الاومر الصوتية mhareek 0 122 09-06-16, 11:05 PM
آخر رد: mhareek

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


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