Page 456 - CITS - CSA - TP (Volume 1) - Hindi
P. 456
कंप्यूटर सॉफ्टवेयर एप्लीकेशन- CITS
जब उपयोगकता फ़ॉम आरंभीकृ त होता है, तो सभी टे बॉ की कं ट ट्स साफ़ हो जाता है या िडफ़ॉ मानों पर सेट हो जाती है, और फ़ोकस
txtid टे बॉ पर सेट हो जाता है। यह फ़ॉम खोले जाने पर एक साफ़ और क ि त उपयोगकता इंटरफ़े स सुिनि त करता है, जो उपयोगकता
इनपुट या इंटरै न के िलए एक ािट ग पॉइंट दान करता है।
• ेप (Step) 7: अब कोड को कै लकु लेट और सबिमट बटन म ऐड करे । सबिमट बटन पर क करने पर, उपयोगकता को वक शीट म वै ू
ऐड करने म स म होना चािहए। िन िल खत VBA कोड कम चारी ID, नाम, मूल वेतन और कटौती जैसे कु छ इनपुट के आधार पर वेतन की गणना
करने के िलए उपयोगकता इंटरफ़े स का िह ा तीत होता है।
Dim row As Long ‘in general declaration
Private Sub cmdcalculate_Click()
Dim eid As Integer, ename As String, bp As Single, da As Single, hra As Single, ts As Single, ns As Single, ded As Single
Cells(2, 1).Value = “Employee Id”
Cells(2, 2).Value = “Employee Name”
Cells(2, 3).Value = “Basic Pay”
Cells(2, 4).Value = “DA”
Cells(2, 5).Value = “HRA”
Cells(2, 6).Value = “Deduction”
Cells(2, 7).Value = “Total Salary”
Cells(2, 8).Value = “Net Salary”
eid = txtid.Value
ename = txtname.Text
bp = txtbp.Value
da = bp * (107 / 100)
txtda.Text = da
hra = bp * (25 / 100)
txthra.Text = hra
ded = txtded.Value
txtts.Value = bp + hra + da
txtns.Value = txtts.Value - ded
End Sub
यह VBA कोड कम चारी ID, नाम, मूल वेतन और कटौती जैसे कु छ इनपुट के आधार पर वेतन की गणना करने के िलए उपयोगकता इंटरफ़े स का िह ा
लगता है। आइए कोड को ेक डाउन और ेक पाट की ा ा कर :
1 वे रएबल घोषणाएँ (Variable Declarations) :
• row As Long: यह row नामक वे रएबल को Long डेटा कार के प म घोिषत करता है। हालाँिक, इस वे रएबल का उपयोग दान िकए
गए कोड ि पेट म नहीं िकया जाता है।
• eid As Integer, ename As String, bp As Single, da As Single, hra As Single, ts As Single, ns As Single, ded As
Single: ये पं याँ कई वे रएबल घोिषत करती ह :
440
CITS : IT & ITES - कं ूटर सॉ वेयर ए ीके शन - अ ास 71
