Convert 1550 to 15.5 How

[Gogs]

The title says it all.

In a script (HS2) how can a take a device value of 1550 and convert it to 15.5?

I know how to read the value into a script, just not how to move the decimal point.

[mrhappy]

Dim NewVal As Double = 0

NewVal = hs.devicevalue("A2") / 100

hs.writelog("", NewVal)

Should do it...

[Gogs]

Dim NewVal As Double = 0

NewVal = hs.devicevalue("A2") / 100

hs.writelog("", NewVal)

Should do it...

Thanks for quick reply.

Errors on line three (expect end of statement) and line 3 is "Dim NewVal As Double = 0"

Here is my entire script

Sub Main
dim x
Dim NewVal As Double = 0
x=hs.DeviceValue ("O42")
x=x+50
hs.setdevicevalue "O42", x
NewVal = hs.devicevalue("O42") / 100
hs.setdevicestring "O42", NewVal

End Sub

[mrhappy]

Thanks for quick reply.

Errors on line three (expect end of statement) and line 3 is "Dim NewVal As Double = 0"

Here is my entire script

Sub Main
dim x
Dim NewVal As Double = 0
x=hs.DeviceValue ("O42")
x=x+50
hs.setdevicevalue "O42", x
NewVal = hs.devicevalue("O42") / 100
hs.setdevicestring "O42", NewVal

End Sub

ah right thats a VBScript rather than a .net bit of stuff I posted I should have said...

Just remove the As Double = 0 bit, just put Dim NewVal

[Gogs]

ah right thats a VBScript rather than a .net bit of stuff I posted I should have said...

Just remove the As Double = 0 bit, just put Dim NewVal

Erm, even I should have noticed it was VB.

Thanks it works perfectly, and now you have shown how to do it in both VB and .net

[enigmatheatre]

Hi Gogs

This may also help make things smaller

Sub Main
hs.setdevicevalue "O42", (hs.DeviceValue("O42") +50)
hs.setdevicestring "O42", (hs.devicevalue("O42") / 100)
End Sub

Greig.