- ابنِ بيئة كلمات على Qt5.
- اقرأ شرح المثال كاملا قبل تنفيذ أي شيء: آلة حاسبة بلغة كلمات .
- ضع الكود التالي في ملف باسم
حاسبة.كلمات(أو أي اسم من اختيارك)، وافتحه في بيئة كلمات ونفذه.
لاحظ أن الكود المرفق هو نفسه الكود الأخير (الكامل) في الشرح، مع ثلاثة تعديلات طفيفة:
- تعديل
ارجع ب:إلىارجع. (انظر الخطوة السادسة في بناء بيئة كلمات بالأعلى.) - تغيير
طالما صحيح:إلىكرر:، لأنطالما <شرط>:تغيرت إلىكرر مادام <شرط>:، وفي حالة الحلقة اللانهائية (طالما صحيح:)، تصيركرر:وحسب. - تصحيح الموضع السيني لزر الرقم ٣، فيكون
100بدل من00.
دالة صنع.زر(س، ص، العرض، الارتفاع، النص، النافذة):
ز = زر جديد
ز : حدد.المكان ( س ، ص )
ز : حدد.الحجم ( العرض ، الارتفاع )
ز : حدد.النص ( النص )
النافذة : اضف ( ز )
ارجع ز
نهاية
ن = النافذة.الحالية ( )
زر1 = صنع.زر (40 ، 130 ، 30 ، 30 ، "1" ، ن)
زر2 = صنع.زر (70 ، 130 ، 30 ، 30 ، "2" ، ن)
زر3 = صنع.زر (100، 130 ، 30 ، 30 ، "3" ، ن)
زر4 = صنع.زر (40 ، 100 ، 30 ، 30 ، "4" ، ن)
زر5 = صنع.زر (70 ، 100 ، 30 ، 30 ، "5" ، ن)
زر6 = صنع.زر (100، 100 ، 30 ، 30 ، "6" ، ن)
زر7 = صنع.زر (40 ، 70 ، 30 ، 30 ، "7" ، ن)
زر8 = صنع.زر (70 ، 70 ، 30 ، 30 ، "8" ، ن)
زر9 = صنع.زر (100، 70 ، 30 ، 30 ، "9" ، ن)
زر0 = صنع.زر (70 ، 160 ، 30 ، 30 ، "0" ، ن)
زر.الجمع = صنع.زر (10، 70 ، 30 ، 30 ، "+" ، ن)
زر.الطرح = صنع.زر (10، 100 ، 30 ، 30 ، "-" ، ن)
زر.الضرب = صنع.زر (10، 130 ، 30 ، 30 ، "×" ، ن)
زر.القسمة = صنع.زر(10، 160 ، 30 ، 30 ، "÷" ، ن)
زر.يساوي = صنع.زر (40، 160 ، 30 ، 30 ، "=" ، ن)
زر.الفاصلة.العشرية = صنع.زر(100، 160، 30، 30، "."، ن)
الشاشة = سطر.نصي جديد
الشاشة : حدد.المكان ( 10 ، 30 )
الشاشة : حدد.الحجم ( 120 ، 30 )
الشاشة : حدد.النص ( "" )
ن : اضف ( الشاشة )
ن : حدد.الحجم ( 150 ، 210 )
ن : حدد.العنوان ( "الحاسبة" )
كتبنا.فاصلة.عشرية = خطأ
العملية = ""
العدد.الأول = لاشيء
تفريغ = خطأ
كرر:
تخير :
تسلم إشارة من ضغط زر.الجمع :
العملية = "+"
العدد.الأول = الشاشة : نصه ( )
العدد.الأول = كعدد ( العدد.الأول )
كتبنا.فاصلة.عشرية = خطأ
تفريغ = صحيح
أو تسلم إشارة من ضغط زر.الطرح :
العملية = "-"
العدد.الأول = الشاشة : نصه ( )
العدد.الأول = كعدد ( العدد.الأول )
كتبنا.فاصلة.عشرية = خطأ
تفريغ = صحيح
أو تسلم إشارة من ضغط زر.الضرب :
العملية = "×"
العدد.الأول = الشاشة : نصه ( )
العدد.الأول = كعدد ( العدد.الأول )
كتبنا.فاصلة.عشرية = خطأ
تفريغ = صحيح
أو تسلم إشارة من ضغط زر.القسمة :
العملية = "÷"
العدد.الأول = الشاشة : نصه ( )
العدد.الأول = كعدد ( العدد.الأول )
كتبنا.فاصلة.عشرية = خطأ
تفريغ = صحيح
أو تسلم إشارة من ضغط زر.يساوي :
العدد.الثاني = الشاشة : نصه ( )
العدد.الثاني = كعدد ( العدد.الثاني )
النتيجة = لاشيء
إذا العملية = "+" :
النتيجة = العدد.الأول + العدد.الثاني
وإلا إذا العملية = "-" :
النتيجة = العدد.الأول - العدد.الثاني
وإلا إذا العملية = "×" :
النتيجة = العدد.الأول × العدد.الثاني
وإلا إذا العملية = "÷" :
النتيجة = العدد.الأول ÷ العدد.الثاني
تم
إذا ليس النتيجة = لاشيء :
النتيجة = كنص ( النتيجة )
الشاشة : حدد.النص ( النتيجة )
العملية = ""
تفريغ = صحيح
تم
أو تسلم إشارة من ضغط زر.الفاصلة.العشرية :
إذا كتبنا.فاصلة.عشرية = خطأ :
الشاشة : الحق.نص (".")
كتبنا.فاصلة.عشرية = صحيح
تم
--------
أو تسلم إشارة من ضغط زر1 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("1")
--------
أو تسلم إشارة من ضغط زر2 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("2")
--------
أو تسلم إشارة من ضغط زر3 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("3")
--------
أو تسلم إشارة من ضغط زر4 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("4")
--------
أو تسلم إشارة من ضغط زر5 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("5")
--------
أو تسلم إشارة من ضغط زر6 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("6")
--------
أو تسلم إشارة من ضغط زر7 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("7")
--------
أو تسلم إشارة من ضغط زر8 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("8")
--------
أو تسلم إشارة من ضغط زر9 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("9")
--------
أو تسلم إشارة من ضغط زر0 :
إذا تفريغ :
الشاشة : حدد.النص ("")
تفريغ = خطأ
تم
الشاشة : الحق.نص ("0")
تم
تابع