برنامج صعب ومالة حل ؟؟

السلام عليكم ورحمة الله وبركاته

أخوي تفضل هذا الكود

Private Sub Command1_Click()
a = Val(Text1.Text)
Text2.Text = Str(a)

End Sub

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

العملية هذه اخي أبو محمد تسمى بالتفقيط (من كلمة الميلغ فقط لا غير) .. و قد وردت اكثر من مرة في المنتدى و اليك الرابط التالي و الذي من الممكن ان يساعدك :

اريد كود للتفقيط

و ايضاً اليك صفحة بنتائج البحث في المنتدى عن عملية التفقيط :

نتائج البحث في المنتدى عن عملية التفقيط

و السلام

بنت اليمن ،،