Page 457 - CITS - CSA - TP (Volume 1) - Hindi
P. 457
कंप्यूटर सॉफ्टवेयर एप्लीकेशन- CITS
• eid को कम चारी ID ोर करने के िलए एक पूणा क के प म ,
• ename को कम चारी नाम ोर करने के िलए एक ंग के प म ,
• bp, da, hra, ts, ns, और ded को मशः मूल वेतन, महंगाई भ ा, मकान िकराया भ ा, कु ल वेतन, शु वेतन और कटौती सं हीत करने
के िलए एकल डेटा कार के प म ।
2 कमांड बटन क इव ट (cmdcalculate_Click()):
• यह सब टीन तब िन ािदत होता है जब उपयोगकता “Calculate” बटन पर क करता है।
• टे बॉ (txtid, txtname, txtbp, txtded) के मान संबंिधत वे रएबल (eid, ename, bp, ded) को सौं पे जाते ह ।
• महंगाई भ ा (da) की गणना मूल वेतन (bp) के 107% के प म की जाती है और da वे रएबल म ोर की जाती है।
• मकान िकराया भ ा (hra) की गणना मूल वेतन (bp) के 25% के प म की जाती है और hra वे रएबल म ोर की जाती है।
• कु ल वेतन (ts) की गणना मूल वेतन (bp), महंगाई भ ा (da), और मकान िकराया भ ा (hra) के योग के प म की जाती है और txtts
टे बॉ म दिश त की जाती है।
• शु वेतन (ns) की गणना कु ल वेतन (ts) म से कटौती (ded) घटाकर की जाती है और txtns टे बॉ म दिश त की जाती है।
3 वक शीट सेल वै ू (Worksheet Cell Values) :
• सेल (2, 1) से सेल (2, 8) तक मान सेट करने वाली लाइन वक शीट म कॉलम को लेबल करने के िलए ह । ये सेल संभवतः दज िकए जा रहे या
गणना िकए जा रहे डेटा के हेडर ह ।
4 गणना िकए गए मान दिश त करना (Displaying Calculated Values) :
• महंगाई भ े (da) और हाउस र ट अलाउंस (hra) के िलए गणना िकए गए मान मशः टे बॉ txtda और txthra म दिश त िकए जाते
ह । हालाँिक, ये टे बॉ िदए गए कोड ि पेट म नहीं िदखाए गए ह ।
कु ल िमलाकर, यह कोड ि पेट उपयोगकता इंटरफ़े स के मा म से िदए गए इनपुट के आधार पर कम चारी वेतन िववरण की गणना और दिश त करने
की ि या को कै े रएबल करता है। ऐसा लगता है िक इसे सेल और टे बॉ के संदभ को देखते ए Excel VBA के साथ काम करने के िलए
िडज़ाइन िकया गया है।
Private Sub cmdsubmit_Click()
Dim row As Long
‘Make Sheet4 active
Sheet4.Activate
‘Determine emptyRow
row = WorksheetFunction.CountA(Range(“A:A”)) + 1
Cells(row, 1).Value = txtid.Value
Cells(row, 2).Value = txtname.Value
Cells(row, 3).Value = txtbp.Value
Cells(row, 4).Value = txtda.Value
Cells(row, 5).Value = txthra.Value
Cells(row, 6).Value = txtded.Value
Cells(row, 7).Value = txtts.Value
Cells(row, 8).Value = txtns.Value
End Sub
441
CITS : IT & ITES - कं ूटर सॉ वेयर ए ीके शन - अ ास 71
