السلام عليكم ورحمة الله وبركاته
قمت بكتابة داله في لغة c++ واريد البديل لها في لغة فيجوال بيسك وهي كالتالي :
outClientFile.width(4); //cout.width(4);
outClientFile.fill('0');//cout.fill('0');
outClientFile<<n;حيث ان السطر الاول يقوم بحجز اربع خانات .
والسطر الثاني يقوم بتعبئة هذه الخانات باصفار .
والسطر الاخير يقوم بطباعة قيمة المتغير مكان الاصفار فاذا لم تكن قيمته مكونه من اربع خانات فانه يقوم بتعبئة الخانات الباقيه باصفار على اليسار
ارجو المساعده
دمتم بخير
public function wrta(nom as long)as string dim k as byte dim g as byte g=len(nom) k=4-l if k=0 then wrta=nom :goto 10 dim z as byte for z = 1 to k wrta= "0" & z next z 10 : end function
معلش انا مش مركز بس بأذن الله الكود ده حيفى بالغرض
شرح الكود :
بنحصل على عدد خانات العدد باستخدام الدالة Len
بنطرح 4 من عدد خانات الرقم
نعمل لووب بحيث كل مرة يضيف 0 على اليسار وتنتهى الدورة عند انتهاء عدد الاصفار وهى العدد الزى يكمل الرقم الناتج باربعة
ولو مش واضح ياريت تقول , والمهم انك تكون فهمت الكود..السلام عليكم
“Any fool can make things bigger, more complex, and more violent”
:( معذرة يا اخى..
بقد اخطات فى كتابة الكود نظرا لانى كنت فى مقهى وقله التركيز...
هذا الكود هو الصحيح..وقد تمت تجربته :
Public Function sd(now As String) As String Dim l As Byte Dim k As Byte Dim z As Byte l = Len(now) k = 4 - l If k = 0 Then sd = now: GoTo 10 sd = now For z = 1 To k sd = "0" + sd Next z 10: End Function
ولاستخدام الدالة :
sd(20)
وكان الخطا فى الكود الاول ان الدلة Len تقوم بحساب عدد العناصر لقيمة نصية عكس المتغير الذى كنت عرفته على انه رقمى
وفى دورة اضافة اللاصفار كان المفترض ان يضيف لاخر قيمة حتى يزيد كل مرة صفر عكس المكتوب سيضيف صفرا مرة واحدة...ارجو المعذرة مرة اخرى
“Any fool can make things bigger, more complex, and more violent”
هذا الموضوع مغلق.