vb 6.0 program examples in hindi explanation , vb 6.0 के प्रोग्राम के उदहारण हिंदी में समझे

vb 6.0 examples in hindi

vb 6.0 examples in hindi , vb 6.0 के उदहारण हिंदी में

vb 6.0 examples in hindi , vb 6.0 के उदहारण हिंदी में  , vb 6.0 programs factorial , prime number , table given number , total of array number , largest value of array , sorting of array , find simple intesrest
  1. Program for factorial in vb 6.0
  2. Program for Prime Number / Not Prime Number in vb 6.0
  3. Printing Table of given Number program in vb 6.0
  4. Total of all array elements program in vb 6.0
  5. Find the largest value of an array program in vb 6.0
  6. Program to find simple interest in vb 6.0

Program for factorial

Dim x As Integer
Dim y As Long


Private Sub Form_Load() x = InputBox("Enter a number") y = 1 For i = 1 To x y = y * i Next Form1.Show Print "factorial = " & y End Sub
  1. पहली दो लाइनों हमने दो variable declare किये है
  2. तीसरी लाइन में क्योकि फॉर्म लोड होने पर हम आउटपुट लेना चाहते है इसलिए ये bydefalt form में double click करने पर अपने आप लिख जाता है
  3. 4Th line में हमने declare किये गये variable x में user value लेंगे और उसे x variable में store करेंगे |
  4. 5Th line मे हमने variable y में value 1 initialize किये क्योकि factorial में क्रमशः multiplication 1 से शुरू होता है
  5. 6Th line में हमने for loop लगाया है जो की 1 से लेकर यूजर द्वारा दी गई value के base पर दी गई value तक चलेगा | By default increment 1 होता है vb 6.0 में
  6. 7Th line में हम variable y में वो value प्रत्येक loop iteration में रखना चाहते है जो y को i से multiplication करने से प्राप्त हो रही हो |
    यहाँ पर पहला multiplication variable y की initial value 1 से i की initial value 1 से तो
    y= 1 *1 = 1
    y= 1* 2(i की incremented value)= 2
    y=2 (y की incrementd value) * 3 (i की incremented value) = 6 (अगर यूजर द्वारा 3 दिया गया हो )
  7. दी वैल्यू तक लूप चल जाने के बाद for loop के definition को terminate कर देता है |
  8. form1.show आप जिस नंबर पर पर code में लिखेगे वो उसी नंबर के क्रम के अनुसार run होगा | अर्थ जैसे की अगर inputbox के पहले declare कर देंगे तो फॉर्म पहले ही देख जायेगा और और आउटपुट बाद में दिखायेगा अगर print के बाद देंगे तो आउटपुट ही नही दिखायेगा क्योकि उसे आउटपुट दिखने के लिए स्थान ही नही मिला |
  9. Print का उपयोग किसी फॉर्म पर डाटा के lines display करने के लिए किया गया है |
    & इसका उपयोग आप के text को program द्वारा generate output के साथ या किसी भी दो टेक्स्ट को concatenation के लिए किया गया है | जैसे "hello" & "world"
  10. Last line में sub procedure को end किया गया है

Program for Prime Number / Not Prime Number


Dim a As Integer
Dim b As Integer
        
Private Sub Form_Load() a = InputBox("enter a number") b = 0 For i = 2 To a / 2 If a Mod i = 0 Then b = 1 End If Next Form1.Show If b = 1 Then Print "not prime" Else Print "prime number" End If End Sub
नोट : कृपया ध्यान दे आप पिछले कोड से और जानकारी ले सकते है
    संख्या मानलो 8 ली गई है
  1. इस कोड में b=0 लिया गया आप b=0 के बजाय 1 को छोड़कर कुछ भी ले सकते है 1 नही ले सकते क्योकि b=1 condition के output को identifiy करने के लिए हमने ले रखा है आप चाहे तो एक्सचेंज कर सकते है |
  2. loop को 2 से प्रारंभ किया गया है क्योकि prime या not prime की जांच 2 से ही प्रारंभ होगी क्योकि 1 से सभी अंक divide हो जाते है |
  3. loop को a/2 तक चलाया गया है अर्थात आपकी दी गई value से half तक क्योक कोई भी value अपने से half से ज्यादा बड़ी संख्या से नही कट सकती है जैसे :
    2 से भाग देने पर 4 प्राप्त होगा अर्थात 4 या इससे छोटी संख्या से ही 8 कटेगा और loop 2 से लेकर 4 तक चलेगा
  4. फिर a mod i = 0 then लिखा गया जिसका मतलब है value 8 को प्रत्येक increment से divide किया जायेगा जैसे अगर अपने 8 दिया तो 8 , 2 से फिर 3 से फिर 4 से क्रमशः डिवाइड होगा अगर कहीं भी remainder(शेषफल) 0 प्राप्त हो जाता है then तब b=1 करदो |
  5. अगर किसी संख्या से 8 नही डिवाइड हो रहा हो तो b=0 तो हमने पहले ही दिया था उसी के आधार पर हम if .. else conditional statement के द्वारा prime और not prime प्रिंट करा सकते है |
  6. क्योकि यहाँ पर क्योकि हमने value 8 ली है इसलिए 8 कट जायेगा और b=1 दे देगा इसलिए ये not prime hoga

Printing Table of given Number

Dim a As Integer
            
Private Sub Form_Load() a = InputBox("enter a number") Form1.Show For i = 1 To 10 Print a * i Next End Sub
  1. इस program में loop ko 1 से लेकर 10 तक चलाया गया है
  2. फिर यूजर द्वारा दी गई value से इस प्रकार से प्रत्येक increment के साथ साथ multiplication किया गया है
  3. इस प्रकार से :
    पहले increment में i=1 और a=2(अगर यूजर ने 2 दिया है तो) = 2
    फिर i=2 और a=2(अगर यूजर ने 2 दिया है तो) = 4
    फिर i=3 और a=2(अगर यूजर ने 2 दिया है तो) = 6
    .........................................
    अंत में i=10 और a=2(अगर यूजर ने 2 दिया है तो) = 20

Total of all array elements

Dim a(5) As Integer
Dim b As Integer
            
Private Sub Form_Load() For i = 1 To 5 a(i) = InputBox("enter value in array") Next Form1.Show b = 0 For i = 1 To 5 b = b + a(i) Next Print "Total =" & b End Sub
  1. पहली लाइन में array a(5) declare किया गया है , अर्थात इसमें 5 value store की जा सकती है
  2. 4th line में loop को 1 से लेकर 5 तक चलाया गया ताकि 5 value user से ली जा सके |अगर आपकी value 1,2,8,4,5 है तो वो क्रमशः
    a(0)=1 ,a(2)=2 a(3)=8 ..... index number में save होगी
  3. फिर b variable में value 0 initialize किया गया है | ताकि आपके द्वारा दी गई पहली सख्या को पहली बार लूप चलने पर 0 से जोड़े और प्राप्त value को b में स्टोर करें फिर क्रमश आपके द्वारा दी गई second value को पहले प्राप्त वैल्यू से जोड़ेंगे और फिर b में स्टोर करेंगे यहाँ प्रक्रिया आपके पूरी वैल्यू जोड़ने तक चलेगी
    और अंत में print कर दिया जायेगा

Find the largest value of an array

Dim a(5) As Integer
Dim b As Integer

Private Sub Form_Load() For i = 1 To 5 a(i) = InputBox("enter value in array") Next b = 0 For i = 1 To 5 If b < a(i) Then b = a(i) End If Next Form1.Show Print "largest value=" & b End Sub
  1. b=0 value दी गई है ताकि 0 से comparing की जा सके
  2. यदि b , a(i) ( अर्थात first loop run पर a(1) =10 (यदि value 10, 15, 12 ..होतो ) ) से छोटा होतो b=10 next line में डिक्लेअर किया गया है , अब upcomming सभी लूप के साथ क्रमशः
  3. b = 10 होगा और a(i) = 15 होगा और condition check करने पर b से a(i) बड़ा मिला तो अब b=15 हो जायेगा
  4. next time a(i) =12 b=15 से छोटा है इसलिए b=15 ही रह जयेगा और आउटपुट प्रिंट द्वारा डिस्प्ले कर दिया जायेगा

Program to find simple interest

Dim P
Dim T
Dim R
Dim SI
            
Private Sub Form_Load() P = InputBox("Enter Principle Amount") T = InputBox("Enter Time(Yrs)") R = InputBox("Enter Rate of Interest") SI = (P * T * R) / 100 Form1.Show Print "Simple Interest is " & SI End Sub
  1. सबसे पहले 3 variable के माध्यम से user से value लिया गया है
  2. फिर SI VARIABLE में कैलकुलेशन से प्राप्त परिणाम प्राप्त किया गया है
  3. फिर SIMPLY PRINT करा दिया गया है

टिप्पणी पोस्ट करें

0 टिप्पणियां