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

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

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

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

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

المطلوب :

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

الى العدد 135000

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


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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 453 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
  [vb6.0] ارجو التعديل على كود الطباعه ragab_most 3 352 14-11-21, 04:45 AM
آخر رد: ragab_most
  ارجو المساعدة فى تكرر كود mhareek 9 722 10-11-21, 02:55 PM
آخر رد: mhareek
  طلب : أريد المساعدة في الداتا ريبورت hamada salah90 1 439 25-10-21, 06:35 PM
آخر رد: Taha Okla
  [سؤال] ارجو المساعدة العبادي 2 1 489 23-08-21, 09:05 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة في حل هذه المشكلة العبادي 2 0 586 04-07-21, 11:16 PM
آخر رد: العبادي 2
Question [vb6.0] نامل المساعدة في هذا الكود المرفق إن امكن ذلك ؟؟ Microformt 3 730 23-05-21, 08:50 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس بتقنية Dao نامل المساعدة العاجلة ؟؟ Microformt 3 815 23-05-21, 01:50 AM
آخر رد: Ahmed_Mansoor
  اخوانى الاحباب ارجو المساعدة للاهمية جزاكم الله خيرا mhareek 19 2,273 10-03-21, 10:47 PM
آخر رد: mhareek
  المساعدة في اضافة كلمة مرور لقاعدتي البيانات fahad fbs 2 909 01-12-20, 01:26 AM
آخر رد: fahad fbs

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


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