Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim dms As Integer
- Dim ret As Integer
- Dim readByte As Byte
- ret = pmospipe_wrapper.DMS.DMS_ConnectEx("\\.\pipe\PROMOS-DMS", dms)
- MessageBox.Show(ret)
- ret = pmospipe_wrapper.DMS.Write.DMS_WriteBITEx(dms, "System:togglebit", 1)
- MessageBox.Show(ret)
- ret = pmospipe_wrapper.DMS.Read.DMS_ReadBITEx(dms, "System:togglebit", readByte)
- ret = pmospipe_wrapper.DMS.DMS_CloseEx(dms)
- MessageBox.Show(readByte.ToString)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement