07-12-13, 04:39 PM
السلام عليكم ورحمة الله وبركاته
بداية وللأمانة العلمية شاهدت في هذا المنتدى هذا الموضوع للعضو mero5000
وكان أنشأ مكتبة بهذا الشأن
فأعجبتني الفكرة جدا ، وقمت بالتعديل في الفكرة ، وليس في الكود لأني لا أعرف الكود الذي كتبه
واتوجه بالشكر الوافر للأخ استاذي المحترم أبو ايهاب لأني تعلمت منه طريقة انشاء الكلاسات
وطبعا لهذا المنتدى المحترم
مرفق ملف التفقيط في المرفقات
class.rar (الحجم : 5.13 ك ب / التحميلات : 1,935)
أولاً : نفتح مشروع جديد ونضع على الفورم تيكست بوكس وباتون ولابل
ثانياً : أيمن بالفارة على اسم المشروع ثم نختار Add Referance
ثم نختار Browse
ثم نختار الملف الذي قمنا بتنزليه وهو موجود في المرفقات واسمه Tafqet_Tarek.dll
ثم نكتب تلك الأكواد
Imports Tafqet_Tarek.tarek
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim taf As New Tafqet_Tarek.tarek
label1.text = taf.tarek(textbox1.text,"pound")
Catch ex As Exception
End Try
End Sub
end class
طبعا ممكن اشيل كلمة pound واضع أي كلمة اخرى " ريال " أو " جنية مصري فقط لا غير "
أي جملة تريدها أن تأتي في نهاية التفقيط
بداية وللأمانة العلمية شاهدت في هذا المنتدى هذا الموضوع للعضو mero5000
وكان أنشأ مكتبة بهذا الشأن
فأعجبتني الفكرة جدا ، وقمت بالتعديل في الفكرة ، وليس في الكود لأني لا أعرف الكود الذي كتبه
واتوجه بالشكر الوافر للأخ استاذي المحترم أبو ايهاب لأني تعلمت منه طريقة انشاء الكلاسات
وطبعا لهذا المنتدى المحترم
مرفق ملف التفقيط في المرفقات
class.rar (الحجم : 5.13 ك ب / التحميلات : 1,935)
أولاً : نفتح مشروع جديد ونضع على الفورم تيكست بوكس وباتون ولابل
ثانياً : أيمن بالفارة على اسم المشروع ثم نختار Add Referance
ثم نختار Browse
ثم نختار الملف الذي قمنا بتنزليه وهو موجود في المرفقات واسمه Tafqet_Tarek.dll
ثم نكتب تلك الأكواد
Imports Tafqet_Tarek.tarek
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim taf As New Tafqet_Tarek.tarek
label1.text = taf.tarek(textbox1.text,"pound")
Catch ex As Exception
End Try
End Sub
end class
طبعا ممكن اشيل كلمة pound واضع أي كلمة اخرى " ريال " أو " جنية مصري فقط لا غير "
أي جملة تريدها أن تأتي في نهاية التفقيط