Navigation

S7 HMI - VB Scripts - CInt conversion doesn't work.

Created by: hRequena at: 3/14/2014 3:19 PM (1 Replies)

3/14/2014 3:19 PM	Rate (0)
hRequena Posts: 1 Rating: (0)	Hello everybody. I'm novice in programing(I'd started 2 weeks ago) and I've doubts to programing in VB Script to S7 HMI. I've two TAGs that control valve status (opened/closed). The TAGs are boolean type. I need to convert Boolean to Integer, because I have four valve status, being: Bit 0 = Null Bit 1 = Closed Bit 2 = Opened Bit 3 = Valve error For to do this expression, I make this: "Do While(True) SmartTags("internal_tag") = 2SmartTags("bool_tag_1") + SmartTags("bool_tag_2)* Loop" My internal_tag is INT and for to move values for this tag, I used th e following code: "Dim a, b a =CInt(SmartTags("bool_tag_1")) b =CInt(SmartTags("bool_tag_2")) Do While (True) SmartTags("internal_tag") = 2a + b* Loop" My problem is that apparently my tag is not converted to boolean and then I use the "CInt" command all my down line of code does not work. Please friends, could you help me? ps: I'm use a Text_field > Animations > Apparence > internal_tag > Range: 4 values. Thanks in Advance. Henrique. Attachment vbscript_code.JPG (234 Downloads)
hRequena Posts: 1 Rating: (0)
Suggestion To thank Quote Answer

3/14/2014 3:29 PM	Rate (0)
0_Einstein Diamond Expert Joined: 7/7/2010 Last visit: 1/24/2025 Posts: 15558 Rating: (2468)	Maybe you can use someone else's vbscript code to get/set bits? http://chris.wastedhalo.com/2010/10/dealing-with-binary-in-asp/(in vbscript) I am guessing your inputs to the CINTs at the top of your script are simple values converted to an integer. Are you simply trying to set bits in the smart tags? If so, you may be able to use the abovelinked code, or google for something more to your liking. For a good vbscript reference, http://msdn.microsoft.com/en-us/library/d1wf56tt(v=vs.84).aspx For an installable vbscript help (highly recommended), http://www.microsoft.com/en-us/download/details.aspx?id=2764
	science guy
Suggestion To thank Quote Answer