कैलकुलेटर प्रोग्राम विशिष्ट प्रोग्रामिंग कार्यों में से एक है। इस तरह के एप्लिकेशन को लगभग किसी भी प्रोग्रामिंग भाषा में लागू किया जा सकता है। सबसे लोकप्रिय प्रोग्रामिंग भाषाओं में से एक डेल्फी है, जिसका उपयोग सरल और कुशल कैलकुलेटर कोड लिखने के लिए किया जा सकता है।
ज़रूरी
डेल्फी प्रोग्रामिंग वातावरण
निर्देश
चरण 1
डेल्फ़ी प्रोग्रामिंग परिवेश प्रारंभ करें जिसका आप उपयोग कर रहे हैं। अपने आवेदन के लिए इंटरफ़ेस की योजना बनाएं। फॉर्म पर 26 बटन होंगे, जिनमें से 10 नंबर के लिए जिम्मेदार हैं, और बाकी फंक्शन के लिए हैं। इसके अतिरिक्त, एक TPanel घटक होगा जिस पर कार्रवाई का परिणाम प्रदर्शित किया जाएगा।
चरण 2
कोड में 4 चर जोड़ें जो उपयोगकर्ता द्वारा दर्ज किए गए नंबरों को संग्रहीत करेगा और मोड निर्धारित करेगा। उदाहरण के लिए:
वर
ए, बी, सी: असली; // नंबर जो उपयोगकर्ता दर्ज करता है
डी: पूर्णांक; // कैलकुलेटर कार्रवाई
चरण 3
बनाए गए चर को संरक्षित और निजी दोनों में जोड़ा जा सकता है। अब प्रत्येक नंबर बटन के लिए ऑनक्लिक ईवेंट को हैंडल करें। सभी अंकों के लिए, कोड समान होगा:
प्रक्रिया TForm1. Button1Click (प्रेषक: टॉब्जेक्ट);
शुरू
पैनल1.कैप्शन: = पैनल1.कैप्शन + 'नंबर'
समाप्त;
"नंबर" को बटन के नाम से बदलें (यदि यह संख्या 0 है, तो पैनल 1। कैप्शन + '0')।
चरण 4
चर d पूर्णांक प्रारूप में है और इसमें किसी भी क्रिया का संबंधित संख्यात्मक मान होगा। यदि गुणन किया जाएगा, तो आप क्रिया को मान 1 पर सेट कर सकते हैं, यदि भाग - मान 2, यदि जोड़ - मान 3, आदि। गुणन क्रिया के लिए, कोड इस तरह दिखेगा:
प्रक्रिया TForm1. ButtonMultiplyClick (प्रेषक: टॉब्जेक्ट); // कार्रवाई गुणा करें
शुरू
a: = StrToFloat (पैनल१.कैप्शन); // बटन दबाने के बाद, वेरिएबल a का मान सेव हो जाता है
डी: = 1; // एक्शन वेरिएबल संबंधित मान पर सेट है
पैनल 1. कैप्शन: = '';
समाप्त;
चरण 5
विभाजन (बटनडिवक्लिक), जोड़ (बटनप्लसक्लिक), घटाव (बटनमाइनसक्लिक), और घातांक (बटनपावरक्लिक) के लिए समान संचालन करें।
चरण 6
मान `` = '' को संसाधित करने के लिए, आपको एक मामले की स्थिति बनानी होगी और बदले में प्रत्येक क्रिया पर विचार करना होगा:
प्रक्रिया TForm1. ButtonClick (प्रेषक: टॉब्जेक्ट);
शुरू
केस डी ऑफ
1: शुरू // यदि d = 1, यानी गुणा बटन दबाया जाता है, तो संबंधित क्रिया होती है
बी: = स्ट्रेटोफ्लोट (पैनल 1. कैप्शन);
सी: = ए * बी;
Panel1. Caption: = FloatToStr (c);
समाप्त;
2: शुरू
a: = StrToFloat (पैनल१.कैप्शन);
सी: = ए / बी;
Panel1. Caption: = FloatToStr (c);
चरण 7
उसी तरह जोड़, घटाव और घातांक को संभालें। कैलकुलेटर तैयार है।
