เปิด VB สร้าง Axdll ใหม่ชื่อโครงการคือ STR ชื่อคลาสคือนับและป้อนรหัสต่อไปนี้:
การคัดลอกรหัสมีดังนี้:
PublicFunctionAdd (Byvalaasdouble, Byvalbasdouble, Byvalcasinteger, Byvaldasinteger) Asdouble
d = cint (d)
ifc = 1 แล้ว
เพิ่ม = formatNumber (A+B, D)
elseifc = 2 จากนั้นลดลง
เพิ่ม = formatNumber (ab, d)
elseifc = 3 แล้ว multiplied
เพิ่ม = formatNumber (a*b, d)
elseifc = 4 จากนั้น '
เพิ่ม = formatNumber (A/B, D)
endif
endfunction
คำอธิบายพารามิเตอร์: A และ B เป็นค่าที่จะคำนวณ C คือประเภทการคำนวณและ D คือจุดทศนิยมจำนวนตัวเลขที่เก็บไว้จำนวนเท่าใด
รหัสไฟล์ ASP ไคลเอนต์:
การคัดลอกรหัสมีดังนี้:
setObj = server.createObject ("str.count")
dimc
c = obj.add (455,45,4,2)
Response.writec
ผลการดำเนินการรหัสข้างต้นคือ: หาร 455 ด้วย 45 และจุดทศนิยมนั้นแม่นยำกับเปอร์เซ็นไทล์