Topics :

मंगलवार, मई 08, 2012

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

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

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

Share this post :

9 टिप्‍पणियां:

Vaneet Nagpal
  1. बहुत ही अच्छी प्रस्तुती सर.

    उत्तर देंहटाएं
  2. इस टिप्पणी को लेखक द्वारा हटा दिया गया है.

    उत्तर देंहटाएं
  3. मैंने मोहब्बत नामा के बाद एक और तकनिकी ब्लॉग भी शुरू किया है.जिसमे छोटी छोटी जरुरत की बातें लोगों तक पहुंचकर उनकी मदद करने की कोशिश करूँगा.हो सके तो आप इसे भी अपनी ब्लोब्स लिस्ट में शामिल कर लें.
    मास्टर्स टेक टिप्स : http://masters-tach.blogspot.com/

    उत्तर देंहटाएं
  4. आपके द्वारा मुझे बहुत अच्छी जानकारी मिली है। मैं यहाँ आने वाले पाठकों को मेरी तरफ से एक ब्लाग गिफ्ट करता हूँ, जहाँ जाकर आप बहुत सारे काम की जानकारी पायेँगे। ये है वो ब्लाग khojpad.blogspot.com

    उत्तर देंहटाएं
  5. [si="3"][co="green"]अच्छी क्लास चल रही है. धन्यवाद वनीत जी.[/co][/si]

    उत्तर देंहटाएं
  6. Bahut achchha prayas hai. ghar baithe ham logon ko sikhane ko mil raha hai. lekin vb6 w7 main install nahi hota hai phir is adhar pe kafi kuch sikh sakte hain apka bahot bahot dhanyavad

    उत्तर देंहटाएं
  7. [co="red"] [si="5"] बहुत कुछ सीखने को मील रहा है यहा पर इसके लिये आप आभारी है [/si][/co]

    उत्तर देंहटाएं

आपकी टिप्पणी मेरे लिए मेरे लिए "अमोल" होंगी | आपके नकारत्मक व सकारत्मक विचारों का स्वागत किया जायेगा | अभद्र व बिना नाम वाली टिप्पणी को प्रकाशित नहीं किया जायेगा | इसके साथ ही किसी भी पोस्ट को बहस का विषय न बनाएं | बहस के लिए प्राप्त टिप्पणियाँ हटा दी जाएँगी |