تطبيق على التحويل (ازاي نكتب برنامج )

[س ا يوسف]

لديك اداتان من ادوات الكتابة الاولي(txtBooksQuantitly) لادخال عدد الكتب ، الثانية(txtUnitPric) لادخال سعر الكتاب و مطلوب حساب الثمن الاجمالى ووضعه في متغير رقمي(TotalPrice)ثم اظهار النتيجة في اداة الكتابة txtResult
الحل
ازاي نترجم الكلام دا الي اكواد
ننظر ما سيدخل من بيانات وما هو النوع المناسب له وعن طريق اي اداه واين سيخزن بعد الدخول ونوع المخزن وهل محتاج تحويل ولا لآ ويتحول ازاي
ايه دا كله وحدة وحدة علشان نفهم
وحدة وحدة
عدد الكتب هو ما سيدخل
1احسن نوع لها ايه integer علشان عدد صحيح ومينفهش للكتاب كسر
2سيدخل عن طريق ايه اداة الكتابة اسمها ايه txtBooksQuantitly
3بعد الدخول لابد من ايه مخزن( نحدد له اسم عدد الكتب) و النوع المناسب ايه integer
4دا شكله في الادخال ايه حرفي ولابد من ايه تحويله لعددي عن طريق ايه Parse
كل حاجة ستدخل نحدد لها ما سبق
وبعدين بيدأ في الترجمة لكود
ازاي
نبدأ برقم 3 سهلة وعارفينها لعمل مخزن Dim وبعد Dim اسم (عدد كتب) BooksQuantitly( ينفع اي اسم بس دا احسن علشان نبقى عارفينه ) وبعد الاسم as وبعد as النوع اللي هو integer
نكتب الجملة
Dim BooksQuantitly as Integer
رقم 4 التحويل
بص بقى دي طريقة سهلة جدا
البيان بتدخل عن طريق اداة text box
نكتب Text ونضع نقطة بعدها جهة اليسار
تبقى كده text,
اسم الاداة ايه txtBooksQuantitly نكتبه يسارالـ النقطة وبعدها نقطة على يسارها
تبقى الجملة كده txtBooksQuantity.Text.
الاداة دي موجودة فين موجودة على الـ Form حنرمز للForm بـ Me ونكتب Me يسار النقطة
تبقى الجملة كده Me.txtBooksQuantity.Text دا بقى هو البيان المدخل
دا عايز يتحول الي عددي بـ Parse
نضعه كله بين قوسين ويسار القوس نكتب Parse وبعدها النقطة
تبقى الجملة (Parse(Me.txtBooksQuantity.Text .
دا حيتحول الي عددي من اي نوع من النوع integer نكتبها يسار النقطة
تبقى الجملة كده
(Integer. Parse (Me . txtBooksQuantitly. Text
كدا اتحول الى عددي بس نضعه فين
نضعه في مخزن عدد الكتب اللي اسمه
BooksQuantitly
بامر التخصيص بـعلامة [/COLOR]=
تبقى الجملة في شكلها النهائي كده
(BooksQuantitly = Integer. Parse (me . txtBooksQuantitly. Text

بعد كده نشوف ايه اللي حيدخل تاني
سعر الكتاب
1احسن نوع لها ايه Decimal علشان عدد مبلغ من المال
2سيدخل عن طريق ايه اداة الكتابة txtUnitPric
3بعد الدخول لابد من ايه مخزن( نحدد له اسم سعر الكتابUnitPric ) و النوع المناسب له هو Decimal
4دا شكله في الادخال ايه حرفي ولابد من ايه تحويله لعددي عن طريق ايه Parse
تبقى جملة عمل المخزن
Dim UnitPric as Decimal
وجملة التحويل
(UnitPric = Decimal. Parse (me . txtUnitPric. Text

ايه المطلوب ناني من المسألة
حساب الثمن الاجمالى ووضعه في متغير رقمي(TotalPrice)
يبقى الاول نعمل المخزن باسم TotalPrice من النوع Decimal ليه علشان دا مبلغ من المال
تبقى جملة عمل المخزن
Dim TotalPrice as Decimal
الثمن الاجمالي يتحسب ازاي عدد الكتب في سعر الكتاب
BooksQuantitly * UnitPric
[COLOR="Blue"]دا يوضع فين
في مخزن TotalPrice ازاي بامر التخصيص
يعني كده
TotalPrice = BooksQuantitly * UnitPric
ايه تاني المطلوب
ثم اظهار النتيجة في اداة الكتابة txtResult
اظهار يعني خروج مين ويخرج لفين وحيتول الى حرفي ازاي
بتحول حرفي بـ ()Tostring
نكتب () Tostring وبعدها النقطة من اليسار
يبقى الجملة كدا() Tostring,
مين اللي حيخرج السعر الاجمالي TotalPrice نكتبه يسار النقطة
تبقى الجملة كدا ()TotalPrice.To string
دا حيخرج فين الي textbox يبقى نكتب = ثم Text ثم النقطة
تبقى الجملة كدا
()Text = TotalPrice.To string,
اسم الاداة ايه txtResult يكتب يسار النقطة
يبقى شكل الجملة النهائي كدا
()txtResult.Text = TotalPrice.To string


يبقى الحل الجمل اللي تم كتابتها

Dim BooksQuantitly as Integer
BooksQuantitly = Integer. Parse (me . txtBooksQuantitly. Text )
Dim UnitPric as Decimal
UnitPric = Decimal. Parse (me . txtUnitPric. Text )
Dim TotalPrice as Decimal
TotalPrice = BooksQuantitly * UnitPric
txtResult.Text = TotalPrice.To string





لاحظ ان :-
داخل الاكواد يمكن كتابة بعض الاسطر التى تساعد المبرمج و لكن المترجم او المفسر يهملها ولا يلتفت اليها وتسمى تعليقات وهذه الاسطر تكتب امامها ( ' ) مثل calculate the total price'