نصف نقطة لكل نسبة 1%

هي عملية متكررة ومعروف حجم الزيادة استخدم حلقتا for ,if,

من أجل الشرط الوحيد الذي هو أن تكون فوق 50%

ثم إضافة 0.5 لكل واحد عدد معين

خذ هذا البرنامج الموضح واعذرني إذا وجدت أخطاء برمجية لانو انا ما بعرف كتير البيسك ماصرلي غير اسبوع واحد عم أتعلمها

dim i

dim c integer

i=int(persentage)

c= i - 50

if c<0 then

dim d as integer

d=0

for d=1 to c

PointPercentage= 0.5+d

d= PointPercentage

next d

end if

عفوا صلح إذا كانت سي أكبر من الصفر وليست أصغر

if c>0 then

I = Int(Percentage)    '  لاحتساب النسبة بدون الكسر
PointPercentage =(iif(i<50,49,I)-49)/2

ألف شكر أستاذ : salah_gh الله يعطيك العافية .

ألف شكر أستاذي : مهند الله يعطيك العافية .

لقد طبقت طريقة الأستاذ مهند لسهولتها .

تحياتي ..