شرح لهذه الشيفره

السلام عليكــم ورحمـة الله وبركاتــه

اقتباس

dim x,sum,counter as integer

هذا معناه انه يقوم بجز اماكن في الذاكرة بالاسماء x و sum و counter علي انهم اعداد

اقتباس

sum=0

counter =20

هنا اعطي لهم قيم

وتم حفظها بالذاكرة

اقتباس

DO

sum = sum + counter mod 2

loop until counter =0

هذه حلقه تكراريه ويفيد معناها

انه sum = sum اللي قيمتها بصفر مضافا عليها counter اللي قيمتها عشرين

يبقي كده 0+20

ثم سيتم القسمه علي 2

ستصبح قيمه counter الان 10

وتبدأ الحلقه التكراريه في عملها مرة اخري وهي جمع sum + counter

يعني 0 + 10

ثم قسمتهم علي 2

وسيظل يعمل حينما تكون قيمه counter مساويه للصفر

عندها سيتم ايقاف الحلقه التكراريه

اقتباس

text box1.text= sum

وهنا يقول ان text1.text هتساوي او هيظهر فيها قيمه sum

اتمني ان اكون وفقت

Ehab-2008 كتب:

هذا معناه انه يقوم بجز اماكن في الذاكرة بالاسماء x و sum و counter علي انهم اعداد