vb.net 补码计算
发布时间:2020-12-16 22:18:34 所属栏目:大数据 来源:网络整理
导读:Private Function funcBM(ByVal strInput As Integer) As Integer If strInput 127 Then Dim s() As Byte = {H30,H30,H30} Dim s1 As String Dim i As Integer = 0 Dim val As Integer = 0 Dim sT(6) As Byte s1 = Convert.ToString(strInput,2) s = System.
Private Function funcBM(ByVal strInput As Integer) As Integer If strInput > 127 Then Dim s() As Byte = {&H30,&H30,&H30} Dim s1 As String Dim i As Integer = 0 Dim val As Integer = 0 Dim sT(6) As Byte s1 = Convert.ToString(strInput,2) s = System.Text.Encoding.ASCII.GetBytes(s1) For i = 0 To 6 If s(i + 1) = &H31 Then sT(i) = &H0 ElseIf s(i + 1) = &H30 Then sT(i) = &H1 End If Next For i = 0 To 6 val = val + (sT(i) << (6 - i)) Next funcBM = 0 - (val + 1) Else funcBM = strInput End If End Function (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- 重拾VB6(18): Externally Creatable and Dependent Ojbe
- inno-setup – Inno Script – 如何在默认选择的EULA页面上
- 12. Hamming Distance
- GoLang ssh:尽管将其设置为nil,仍然“必须指定HosKeyCallb
- perl(Time::HiRes) is needed mysql5.7
- 我不明白Delphi中的Application.ProcessMessages正在做什么
- DELPHI判断同时按下CTRL+SHIFT组合键
- Lua中的loadfile、dofile、require详解
- Lua中,assert的作用
- 关于 Delphi 中流的使用(4) 遍历读取流中的所有数据