VB.net 里面 将 -32768 到32767 转化为16位的二进制字符串

   '通过short类型的数据  和  位号(从0-15) 获取对应位置的状态（ON 或者OFF）
    Public Function Gsz_short_To_bite(ByVal Gsz_Short As Short, ByVal Gsz_weihao As Integer) As Boolean

        Dim Gsz_String_YuanShi_ErJinZhi As String

        Dim Gsz_String_YuanShi_GaoWeiBuLing As String

        Dim Gsz_String_YuanShi_GaoWeiBuLing_DaoXu As String

        Dim Gsz_Status As Boolean

        Try

            If Gsz_Short >= -32768 And Gsz_Short <= 32767 Then

                Gsz_String_YuanShi_ErJinZhi = Convert.ToString(Gsz_Short, 2) '将十进制（有正有负转化为二进制）

                Gsz_String_YuanShi_GaoWeiBuLing = Strings.Right("0000000000000000" & Gsz_String_YuanShi_ErJinZhi, 16) '补零

                Gsz_String_YuanShi_GaoWeiBuLing_DaoXu = StrReverse(Gsz_String_YuanShi_GaoWeiBuLing) '倒序

                If Gsz_String_YuanShi_GaoWeiBuLing_DaoXu.Substring(Gsz_weihao, 1) = "1" Then

                    Gsz_Status = True
                    Gsz_LastEventAdd("对应位状态为：ON:::" & Gsz_String_YuanShi_GaoWeiBuLing_DaoXu)

                Else
                    Gsz_Status = False
                    Gsz_LastEventAdd("对应位状态为：OFF:::" & Gsz_String_YuanShi_GaoWeiBuLing_DaoXu)
                End If

            Else


            End If
        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        Return Gsz_Status

    End Function