የሂሳብ ማሽን ፕሮግራም ከተለመዱት የፕሮግራም ሥራዎች ውስጥ አንዱ ነው ፡፡ እንዲህ ዓይነቱ መተግበሪያ በማንኛውም የፕሮግራም ቋንቋ ማለት ይቻላል ሊተገበር ይችላል ፡፡ በጣም ታዋቂ ከሆኑ የፕሮግራም ቋንቋዎች አንዱ ዴልፊ ሲሆን ቀላል እና ቀልጣፋ የሂሳብ ማሽንን ለመፃፍ ሊያገለግል ይችላል ፡፡
አስፈላጊ
የዴልፊ የፕሮግራም አከባቢ
መመሪያዎች
ደረጃ 1
የሚጠቀሙበትን የዴልፊ የፕሮግራም አከባቢን ይጀምሩ ፡፡ ለመተግበሪያዎ በይነገጽን ያቅዱ ፡፡ በቅጹ ላይ 26 አዝራሮች ይኖራሉ ፣ ከእነዚህ ውስጥ 10 ቱ ለቁጥሮች ተጠያቂ ሲሆኑ ቀሪዎቹ ደግሞ ለተግባሮች ናቸው ፡፡ በተጨማሪም የድርጊቱ ውጤት የሚታይበት የ TPanel አካል ይኖራል ፡፡
ደረጃ 2
በተጠቃሚው የገቡትን ቁጥሮች በሚያስቀምጥ እና ሁነቱን በሚወስነው ኮድ ላይ 4 ተለዋጮችን ያክሉ። ለምሳሌ:
እ.ኤ.አ.
a, b, c: እውነተኛ; // ተጠቃሚው ያስገባቸው ቁጥሮች
መ: ኢንቲጀር; // የሂሳብ ማሽን እርምጃ
ደረጃ 3
የተፈጠሩ ተለዋዋጮች በሁለቱም በተጠበቁ እና በግል ሊታከሉ ይችላሉ። አሁን ለእያንዳንዱ የቁጥር ቁልፍ የ OnClick ክስተት ይያዙ ፡፡ ለሁሉም አኃዞች ኮዱ ተመሳሳይ ይሆናል
አሠራር TForm1. Button1Click (ላኪ TObject);
ጀምር
ፓነል 1. ቆጣሪ: = ፓነል 1. Caption + 'ቁጥር'
መጨረሻ;
“ቁጥር” ን በአዝራር ስም ይተኩ (ቁጥሩ 0 ከሆነ ፣ ከዚያ ፓነል 1. ክፋይ + '0')።
ደረጃ 4
ተለዋዋጭው መ ቁጥር (ኢንቲጀር) ቅርጸት ያለው ሲሆን የማንኛውም እርምጃ ተጓዳኝ የቁጥር እሴት ይይዛል። ማባዛቱ የሚከናወን ከሆነ ታዲያ እርምጃውን 1 ዋጋ እንዲወስኑ ማድረግ ይችላሉ ፣ ክፍፍል - እሴት 2 ፣ መደመር - እሴት 3 ፣ ወዘተ … ለማባዛት እርምጃ ኮዱ ይመስላል:
አሠራር TForm1. ButtonMultiplyClick (ላኪ TObject); // እርምጃን ማባዛት
ጀምር
ሀ: = StrToFloat (Panel1. Caption); // ቁልፉን ከተጫኑ በኋላ የ “ተለዋዋጭ” እሴት ይቀመጣል
መ = 1; // የድርጊት ተለዋዋጭ ወደ ተጓዳኝ እሴት ተቀናብሯል
ፓነል 1. መግለጫ: = ;
መጨረሻ;
ደረጃ 5
ለመከፋፈል (ButtonDivClick) ፣ መደመር (ButtonPlusClick) ፣ መቀነስ (ButtonMinusClick) እና ማስፋፊያ (ButtonPowerClick) ተመሳሳይ ክዋኔዎችን ያድርጉ።
ደረጃ 6
እሴቱን “=” ለማስኬድ የጉዳይ ሁኔታን ማመቻቸት እና እያንዳንዱን እርምጃ በቅደም ተከተል ማጤን ያስፈልግዎታል ፡፡
አሠራር TForm1. ButtonClick (ላኪ TObject);
ጀምር
ጉዳይ መ
1: ይጀምሩ // ከሆነ d = 1, ማለትም የብዜት አዝራሩ ተጭኖ ከዚያ ተጓዳኝ እርምጃው ይከሰታል
ለ: = StrToFloat (Panel1. Caption);
ሐ = a * ለ;
ፓነል 1. መግለጫ: = FloatToStr (c);
መጨረሻ;
2: መጀመር
ሀ: = StrToFloat (Panel1. Caption);
ሐ = a / b;
ፓነል 1. መግለጫ: = FloatToStr (c);
ደረጃ 7
በተመሳሳይ መንገድ የመደመርን ፣ የመቀነስ እና የማስፋፋትን አያያዝ። ካልኩሌተር ዝግጁ ነው ፡፡
