How to Code Calculator App in Visual Basic 6.0 | Visual Basic 6.0 Source Code to make Calculator Application.

 How to Code Calculator App in Visual Basic 6.0


Visual Basic 6.0 में कैलकुलेटर बनाने का परिचय

Visual Basic 6.0 एक लोकप्रिय प्रोग्रामिंग भाषा है जिसका उपयोग डेस्कटॉप एप्लिकेशन बनाने के लिए किया जाता है। इस ट्यूटोरियल में, हम आपको Visual Basic 6.0 में एक सरल कैलकुलेटर बनाने की प्रक्रिया के बारे में बताएंगे।

कैलकुलेटर की विशेषताएं

हमारा कैलकुलेटर निम्नलिखित विशेषताओं के साथ होगा:

- जोड़, घटाव, गुणा, और भाग जैसे बुनियादी गणितीय ऑपरेशन
- संख्याओं को दर्ज करने के लिए टेक्स्ट बॉक्स
- ऑपरेशन को निष्पादित करने के लिए बटन
- परिणाम प्रदर्शित करने के लिए एक टेक्स्ट बॉक्स

कैलकुलेटर बनाने के लिए आवश्यक घटक

- Visual Basic 6.0 सॉफ्टवेयर
- एक नया प्रोजेक्ट बनाने के लिए एक फॉर्म

कैलकुलेटर बनाने की प्रक्रिया

1. एक नया प्रोजेक्ट बनाएं और एक फॉर्म जोड़ें।
2. फॉर्म पर आवश्यक घटक जैसे टेक्स्ट बॉक्स, बटन, और लेबल जोड़ें।
3. घटकों के गुणों को सेट करें, जैसे टेक्स्ट, नाम, और आकार।
4. बटनों के लिए कोड लिखें जो गणितीय ऑपरेशन को निष्पादित करेंगे।
5. परिणाम को प्रदर्शित करने के लिए कोड लिखें।
6. प्रोजेक्ट को चलाएं और कैलकुलेटर का परीक्षण करें।

निष्कर्ष

इस ट्यूटोरियल में, हमने Visual Basic 6.0 में एक सरल कैलकुलेटर बनाने की प्रक्रिया के बारे में जाना। हमने कैलकुलेटर की विशेषताओं, आवश्यक घटकों, और बनाने की प्रक्रिया के बारे में चर्चा की। इस ट्यूटोरियल का उद्देश्य आपको Visual Basic 6.0 में प्रोग्रामिंग की मूल बातों को समझने में मदद करना है।


Visual Basic 6.0 में कैलकुलेटर बनाने का Code

Dim a As Double

Dim b As Double

Dim c As Double

Dim op As Integer


Private Sub Command1_Click(Index As Integer)

    Text1.Text = Text1.Text & Index

End Sub


Private Sub Command2_Click()

    Text1.Text = Text1.Text & "."

End Sub


Private Sub Command3_Click()

    b = Val(Text1.Text)

    If op = 0 Then

        c = a + b

    End If

    If op = 1 Then

        c = a - b

    End If

    If op = 2 Then

        c = a * b

    End If

    If op = 3 Then

        c = a / b

    End If

    Text1.Text = c

End Sub


Private Sub Command4_Click(Index As Integer)

    a = Val(Text1.Text)

    op = Index

    Text1.Text = ""

End Sub


Private Sub Command5_Click()

    a = 0

    b = 0

    c = 0

    op = -1

    Text1.Text = ""

End Sub


Private Sub Form_Load()

    For i = 0 To 9

        Command1(i).Caption = i

    Next

End Sub

Visual Basic 6.0 में कैलकुलेटर का Source Code Download Link


Comments

Popular posts from this blog

Syntax Tree

Derivation & Derivation Tree in Compiler Design (Left Most Derivation & Right Most Derivation)