自己用了一個很笨的方法解決, 就是新增一個tag_F的sim tag用來暫存轉(zhuǎn)好小數(shù)的值, 再新增一個schedules, 讓它執(zhí)行以下程式碼
Private Sub TempFloat_OnTimeOut(ByVal lTimerId As Long)
Dim tag, tmp, dec1, dec2
tag= ReadValue("tag", 2) ' 讀取 tag 值
If tag> 0 Then
tmp = Hex$(tag) ' convert to Hex, eg: 1C05
dec1 = Left(tmp, 2) ' get high part of Hex, eg: 1C
dec2 = Right(tmp, 2) ' get low part of Hex, eg: 05
WriteValue Str(CInt("&H" & dec1) & "." & CInt("&H" & dec2)), "tag_F", 2 ' 寫入 tag
Else
WriteValue "0", "tag_F", 2
End If
End Sub
一定有更好的方法, 不吝指教一下. 另外不知 ca 型的 tag 能不能到類似效果? 但它好像只支持 +-*/ 的運算而已