منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة فى عمل هذه الدالة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ارجو المساعدة فى عمل هذه الدالة (/showthread.php?tid=1742)

ارجو المساعدة فى عمل هذه الدالة - wolf1120 - 28-01-14

ارجو المساعدة فى عمل هذه الدالة

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

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

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

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

المطلوب :

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

الى العدد 135000

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


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

RE: ارجو المساعدة فى عمل هذه الدالة - ناجي إبراهيم - 28-01-14

السلام عليكم...

ضع الدالة التالية في الـ 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


نرجو الاستفادة و السلام.