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

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

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

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

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

المطلوب :

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

الى العدد 135000

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


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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احبابى فى الله ارجو المساعدة برنامج طباعة الباركود mhareek 2 75 19-09-18, 07:37 PM
آخر رد: mhareek
  احبابى فى الله ارجو المساعدة تغير ربط قاعدة البينات من (.accdb) الى mbp mhareek 6 115 14-09-18, 11:18 PM
آخر رد: mhareek
  السلام عليكم ورحمة الله وبركاتة - ارجو المساعدة فى ترتيب البيانات داخل الفلكس جريد mhareek 4 202 14-07-18, 09:17 PM
آخر رد: mhareek
  [سؤال] برجاء المساعدة ضروري فى جملة select ahmed eldouskey 6 356 21-06-18, 02:50 AM
آخر رد: princeofislam
  ارجو المساعدة فى التنقل بين السجلات ..... جزاكم الله خير mhareek 15 594 07-06-18, 10:54 PM
آخر رد: mhareek
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 292 03-05-18, 02:09 PM
آخر رد: mhareek
  ارجو المساعدة فى هذا الكود mhareek 1 106 02-05-18, 07:18 PM
آخر رد: Amir_Alzubidy
  [vb6.0] ممكن المساعدة في اضافة الايام بين تاريخين في الفيلكس قريد mustafa mohamed 0 112 12-04-18, 04:30 PM
آخر رد: mustafa mohamed
  اخوانى الاحباب ارجو المساعدة فى اضافة زر جديد ونقل الاومر من زر الى زر mhareek 9 336 08-04-18, 12:44 PM
آخر رد: mhareek
Photo [vb6.0] المساعدة في تصدير بيانات الى جدول وورد hassan0379 0 176 07-04-18, 11:36 PM
آخر رد: hassan0379

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


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