विजुअल बेसिक-6.0 पाठ नंबर - 5, अब हिंदी में

पाठ नंबर - 5

आज की पाठ में हम जानेंगे कि कैसे एक छोटे से कोड से किसी भी Numerical Figure का जोड़ लगाया जा सकता है |

निम्न टेबल में आप देखेंगे कि इस छोटे से प्रोजेक्ट के लिए हमें फॉर्म के डिज़ाइन मोड में किस ऑब्जेक्ट की जरूरत पड़ेगी व उन आब्जेक्ट की प्रापर्टी में कैप्शन व् नाम को बदला जायेगा

---

Object Image	Object	Property/Caption	Name
	Form1	Form1	frmMain
	Label1	Value1	lblValue1
	Label2	Value2	lblValue2
	Label3	Sum	lblValue2
	Text1	Text1	text1
	Text2	Text2	text2
	Text3	Text3	text3
	Command1	Calculation	cmdCalculation

---

उपरोक्त आब्जेक्ट की प्रापर्टी को फार्म के डिजाईन मोड में कैसे दिखाया जाता है, इसे आप निम्न तस्वीर में देख सकते हैं |

डिजाईन मोड में सेटअप के बाद फार्म के कोड मोड में कोड निम्न प्रकार से लिखेंगे |

Private Sub cmdCalculate_Click()
'To add the values in text box 1 and text box 2
Sum = Val(Text1.Text) + Val(Text2.Text)
'To display the answer on text box 3
Text3.Text = Sum
End Sub

अब प्ले (Run) बटन पर कलिक करें या F5 कीज दबाएँ | प्ले बटन पर कलिक करने के बाद फार्म निम्न तस्वीर के अनुसार लोड होगा |
अब जहाँ पर Value1 लिखा है उस के साहमने वाले बाक्स में कोई भी numarical figure लिखें व जहाँ पर Value2 लिखा है उस के साहमने वाले बाक्स में कोई भी numarical figure लिखें | इसके बाद Calculate बटन पर कलिक करें | आपको उपरोक्त दोनों Numerical Figure का जोड़ Sum के साहमने वाले बाक्स में दिखाई देगा | आप इसका एक उदाहरण निम्न तस्वीर में देख सकते हैं |

आप चाहें तो कैलकुलेट बटन के साथ कोई भी मेसेज डिस्प्ले कर सकते हैं, इसके लिए आप इस कोड में साथ एक और लाइन का कोड लिखना होगा | आप निम्न कोड में देख सकते हैं कि मेसेज डिस्प्ले करने के लिए कोड कैसे लिखा जाता है :-

Private Sub cmdCalculate_Click()
'To add the values in text box 1 and text box 2
Sum = Val(Text1.Text) + Val(Text2.Text)
'To display the answer on text box 3
Text3.Text = Sum
'To display the message
MsgBox "Sum code is running successfully"
End Sub

उपरोक्त कोड लिखने के बाद जब आप कैलकुलेट बटन पर कलिक करेंगे तो निम्न तस्वीर के अनुसार जोड़ के साथ ही मेसेज भी डिस्प्ले होगा | इसे आप निम्न तस्वीर में देख सकते हैं |

इसी प्रकार आप मल्टीप्लाई के लिए निम्न प्रकार से कोड लिख सकते हैं :-

Private Sub cmdCalculate_Click()
'To add the values in text box 1 and text box 2
multiply = Val(Text1.Text) * Val(Text2.Text)
'To display the answer on text box 3
Text3.Text = multiply
'To display the message
MsgBox "multiply code is running successfully"
End Sub

उपरोक्त कोड के पश्चात जब प्ले बटन पर कलिक करने के बाद वैल्यू लिखने के बाद जब आप Calculate बटन पर कलिक करेंगे तो निम्न तस्वीर के अनुसार आपको रिजल्ट प्राप्त होगा |


इस प्रोजेक्ट को डाउनलोड करने के लिए यहाँ पर कलिक करें |

• विजुअल बेसिक 6.0
• ....
• <<< Pre.
• ....
• पाठ नंबर - पाँच
• ....
• Next >>>

यदि आपको विजुअल बेसिक - 6 पर लिखा ये लेख पसंद आया ? यदि हां !!! तो अपनी टिप्पणी इस पोस्ट पर जरूर दें |

"टिप्स हिन्दी में ब्लॉग" की हर नई जानकारी अपने मेल-बॉक्स में मुफ्त पाएं !