افتح VB ، إنشاء AXDLL جديد ، اسم المشروع هو str ، اسم الفصل هو العد ، وأدخل الكود التالي:
نسخة الكود كما يلي:
publicfunctionadd (Byvalaasdouble ، Byvalbasdouble ، byvalcasinteger ، byvaldasinteger) asdouble
D = Cint (D)
IFC = 1then'add
إضافة = formatnumber (A+B ، D)
elseifc = 2then 'تقليل
إضافة = formatnumber (AB ، D)
elseifc = 3then'multiplied
إضافة = formatnumber (a*b ، d)
elseifc = 4then '
إضافة = formatnumber (a/b ، d)
Endif
الوظيفية
وصف المعلمة: A و B هما القيم التي سيتم حسابها ، C هي نوع الحساب ، و D هي النقطة العشرية عدد الأرقام التي يتم الاحتفاظ بها
رمز ملف ASP العميل:
نسخة الكود كما يلي:
setObj = server.createBject ("str.count")
DIMC
C = OBJ.Add (455،45،4،2)
استجابة. writec
نتيجة تنفيذ الكود أعلاه هي: تقسيم 455 على 45 ، والنقطة العشرية دقيقة للنسبة المئوية