Learn How to Make Calculator in VBA Excel

नमस्कार दोस्तों।  कैसे हो आप सभी ?

दोस्तों आज हम सीखेंगे विसुअल बेसिक मैं कैलकुलेटर बनाना और अरिथमेटिक ऑपरेशन को भी मतलब +,-.*./ बटनो का इस्तेमाल करना। तो दोस्तों सब से पहले हम डेवलपर मेनू मैं जाकर कैलकुलेटर डेसिंग करना सीखेंगे। 

• Calculator Design

1) डेवलपर टूल्स से विसुअल बेसिक सेलेक्ट करे 

२) इन्सर्ट मेनू पर जाए , यूजर फॉर्म सेलेक्ट करे। 

३) टूल बॉक्स से टेस्टबोक्स  सेलेक्ट करे और यूजर फॉर्म पर ऊपर की और ड्रैग करे , अब टेस्टबोक्स  की प्रॉपर्टीज मैं 

फॉण्ट साइज २० , 

बोल्ड  ले , 

टेक्स्ट मैं 0  टाइप करे

टेक्स्ट एलाइनमेंट - राइट सेलेक्ट करे , 

आप यूजर फॉर्म का भी नाम चेंज कर  सकते यूजर फॉर्म पर क्लिक करे और प्रॉपर्टीज कैप्शन मैं जाकर चेंज करे ,Calculator.

आप चाहे तो टेक्स्ट बॉक्स के ऊपर लेवल भी ड्रैग कर सकते है। और उस पर कुछ न लिखे। जिस से की आपका कैलकुलेटर रियल लग सके। 

(नोट : ये सेटिंग हमने इसलिए की क्युकी कैलकुलेटर मैं राइट साइड मैं ही नंबर होते हैं। 

अब हम  कैलकुलेटर की तरह सभी बटन बनाएंगे और उन सभी बटनो पर नंबर  और +,- ,*,/,= साइन लिखंगे। याद रखिए आपको जो भी बटन बनाना हैं उसका नाम टाइप करना हैं  जैसे टेस्टबोक्स १ को  ऐड जिस से की आपको बटन मैं प्रोगरामिंग करने मैं प्रॉब्लम न हो। 

अब हम सभी बटनो मैं प्रोगरामिंग करेंगे।  उस से पहले हम वेरिएबल टाइप करेंगे। यूजर फॉर्म पर डबल क्लिक करे। 

सबसे पहले हम १ नंबर पर डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे। रन करे। 

 इफ कंडीशन से लिखंगे अगर टेक्स्ट बॉक्स मैं वैल्यू ० हैं तो १ नंबर टाइप करने पर १ नंबर आये और अगर १ नंबर को दोबारा प्रेस करे तो १ नंबर रिपीट हो। प्रोग्राम को रन बटन पर क्लिक करे और चेक करे। 

अब हम बटन नंबर २ पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे। रन करे। 

प्रोग्राम वही हैं जो हमने बटन १ मैं टाइप किया हैं। अब चाहिए तो इफ से लेकर एन्ड इफ  तक इसे कॉपी कर ले और बटन २ मैं पेस्ट करे  बस थोड़ा सा बदलाव करे  १ की जगह २ टाइप करे।  ऐसे ही  ० से डॉट सभी बटनो  तक करे। 

अब हम बटन नंबर ३  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे। 

बटन नंबर ४  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे। 

बटन नंबर ५   पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे। 

बटन नंबर ६  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे। 

बटन नंबर ७  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ८  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर ९  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन नंबर 0  पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

बटन   . पर  डबल क्लिक करेंगे और प्रोग्राम टाइप करेंगे।रन करे।

यहाँ पर हमने सभी बटनो पर प्रोग्राम टाइप कर दिया हैं अब हम जोड़ , घटना , गुणा , भागे  , बराबर और प्रतिशत वाले बटन पर प्रोग्राम टाइप करेंगे। जिन्हें ऑपरेटर्स कहते हैं। 

 OPERATORS

सब से पहले प्लस /ऐड बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे। 

यहाँ पर हमने ऑपरेटर्स का वेरिएबल पहले ही लिखा हुआ हैं। 

इस प्रोग्राम मैं लिखा हैं टेस्टबोक्स मैं जो भी नंबर हो + प्रेस करने पर वो जुड़ जाये। इस को कॉपी करके -, *, / .% के लिए पेस्ट करेंगे। 

सब्ट्रैक्ट  /माइनस  बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

मल्टिप्लिकेशन /गुणा   बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

डिवाइड / भागे   बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे। 

प्रतिशत /परसेंटेज  बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

इक्वल / बराबर  बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

यहाँ प्रोग्राम मैं लिखा हैं टेक्स्ट बॉक्स मैं पहले से कोई नंबर हो और प्लस ,  माइनस , मल्टिप्लिकेशन , डिवाइड करने पर उसका जवाब टेस्टबोक्स मैं दिखे। 

क्लियर  C  बटन पर डबल क्लिक करे। प्रोग्राम टाइप करे।

अब हम प्रोग्राम रन करेंगे और  चेक करेंगे की हमारा कैलकुलेटर सही काम कर रहा हैं या नहीं। 

यहाँ पर हम ५ + ९ को ऐड करके देखंगे। 

= बटन प्रेस करे आपको रिजल्ट दिखाई देगा। 

वैसे ही आप सभी बटन चेक कीजिये।  

सभी बटनो की प्रोगरामिंग निचे लिखी हैं। 

Option Explicit

Dim firstnum As Double

Dim secondnum As Double

Dim Answer As Double

Dim Operators As String

Private Sub CommandButton1_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "1"

Else

TextBox1.Text = TextBox1.Text + "1"

End If

End Sub

Private Sub CommandButton10_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "0"

Else

TextBox1.Text = TextBox1.Text + "0"

End If

End Sub

Private Sub CommandButton11_Click()

If InStr(TextBox1.Text, ".") = "0" Then

TextBox1.Text = TextBox1.Text + "."

End If

End Sub

'Equal

Private Sub CommandButton12_Click()

secondnum = TextBox1.Text

If Operators = "+" Then

Answer = firstnum + secondnum

TextBox1.Text = Answer

ElseIf Operators = "-" Then

Answer = firstnum - secondnum

TextBox1.Text = Answer

ElseIf Operators = "*" Then

Answer = firstnum * secondnum

TextBox1.Text = Answer

ElseIf Operators = "/" Then

Answer = firstnum / secondnum

TextBox1.Text = Answer

ElseIf Operators = "%" Then

Answer = firstnum Mod secondnum

TextBox1.Text = Answer

End If

End Sub

'plus

Private Sub CommandButton13_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "+"

End Sub

'sub

Private Sub CommandButton14_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "-"

End Sub

'multi

Private Sub CommandButton15_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "*"

End Sub

'Div

Private Sub CommandButton16_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "/"

End Sub

'Percentage

Private Sub CommandButton17_Click()

firstnum = TextBox1.Text

TextBox1 = ""

Operators = "%"

End Sub

Private Sub CommandButton18_Click()

TextBox1.Text = "0"

End Sub

Private Sub CommandButton2_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "2"

Else

TextBox1.Text = TextBox1.Text + "2"

End If

End Sub

Private Sub CommandButton3_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "3"

Else

TextBox1.Text = TextBox1.Text + "3"

End If

End Sub

Private Sub CommandButton4_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "4"

Else

TextBox1.Text = TextBox1.Text + "4"

End If

End Sub

Private Sub CommandButton5_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "5"

Else

TextBox1.Text = TextBox1.Text + "5"

End If

End Sub

Private Sub CommandButton6_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "6"

Else

TextBox1.Text = TextBox1.Text + "6"

End If

End Sub

Private Sub CommandButton7_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "7"

Else

TextBox1.Text = TextBox1.Text + "7"

End If

End Sub

Private Sub CommandButton8_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "8"

Else

TextBox1.Text = TextBox1.Text + "8"

End If

End Sub

Private Sub CommandButton9_Click()

If TextBox1.Text = "0" Then

TextBox1.Text = "9"

Else

TextBox1.Text = TextBox1.Text + "9"

End If

End Sub

Private Sub UserForm_Click()

End Sub

दोस्तों उम्मीद है की आपको कैलकुलेटर आज का सेशन पसंद आया होगा।  अगर आपके कुछ सुझाव हैं तो 

कमेंट मैं हमें बताइये। धन्यवाद।