विनक्क स्क्रिप्ट उदाहरण 3 – MSHFGrid कंट्रोल का उपयोग रिकॉर्डों को फील्डों के आधार पर क्रमबद्ध करने हेतु किया जाता है।

Thread Content

कभी-कभी हमें ऐसी सुविधा भी चाहिए कि ऑपरेटर, MSHFGrid कंट्रोल पर क्लिक करने के बाद, फील्डों के आधार पर डेटा को क्रमबद्ध कर सके। इस लेख में इस सुविधा को कैसे प्राप्त किया जाए, इसके बारे में बताया गया है। 1. तैयारी के चरण में, Wincc में 32-बिट फ्लोटिंग-पॉइंट प्रकार का एक आंतरिक चर “Sort” बनाया जाता है; इसका उपयोग यह निर्धारित करने हेतु किया जाता है कि डेटा को आरोही क्रम में व्यवस्थित किया जाए या अवरोही क्रम में। WinCC पृष्ठ में एक स्थिर टेक्स्ट घटक जोड़ें; इसका नाम “txt” रखें। “गुण” – “प्रभाव” में “ग्लोबल कलर” को “नहीं” पर सेट करें। “गुण” – “रंग” में “बैकग्राउंड कलर” की “पारदर्शिता” को 100 पर सेट करें, एवं बॉर्डर की मोटाई को 0 पर सेट करें।

**ऑर्डरिंग स्क्रिप्ट:**
MSHFGrid कंट्रोल के इवेंट “ऑब्जेक्ट इवेंट-माउसअप” में निम्नलिखित स्क्रिप्ट लिखें:

```vba
Dim MSHFGrid, txt, sort
Set MSHFGrid = ScreenItems("MSHFGrid")
Set sort = HMIRuntime.Tags("Sort")
Set txt = ScreenItems("txt")

If MSHFGrid.TextMatrix(0, item.MouseCol) = “तारीख/समय” Then
If sort.Read = 2 Then
MSHFGrid.Sort = 1 ‘मानों के आधार पर आरोही क्रम में व्यवस्थित करें
sort.Write 1
txt.Text = “वर्तमान में ‘” & MSHFGrid.TextMatrix(0, item.MouseCol) & “’ फील्ड के आधार पर आरोही क्रम में व्यवस्थित किया गया है।”
Else
MSHFGrid.Sort = 2 ‘मानों के आधार पर अवरोही क्रम में व्यवस्थित करें
sort.Write 2
txt.Text = “वर्तमान में ‘” & MSHFGrid.TextMatrix(0, item.MouseCol) & “’ फील्ड के आधार पर अवरोही क्रम में व्यवस्थित किया गया है।”
End If
Else If sort.Read = 2 Then
MSHFGrid.Sort = 5 ‘अक्षरों के आधार पर आरोही क्रम में व्यवस्थित करें
sort.Write 1
txt.Text = “वर्तमान में ‘” & MSHFGrid.TextMatrix(0, item.MouseCol) & “’ फील्ड के आधार पर आरोही क्रम में व्यवस्थित किया गया है।”
Else
MSHFGrid.Sort = 6 ‘अक्षरों के आधार पर अवरोही क्रम में व्यवस्थित करें
sort.Write 2
txt.Text = “वर्तमान में ‘” & MSHFGrid.TextMatrix(0, item.MouseCol) & “’ फील्ड के आधार पर अवरोही क्रम में व्यवस्थित किया गया है।”
End If
End Sub
```

स्क्रिप्ट सेव करके चलाएं; इससे परिणाम दिखाई देगा। यह स्क्रिप्ट पिछले ब्लॉग पोस्ट में दिए गए प्रोजेक्ट के आधार पर बनाई गई है। MSHFGrid को डेटाटेबल से कैसे जोड़ा जाए, इसके लिए कृपया अन्य WinCC स्क्रिप्टों संबंधी पोस्टों को देखें।