锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net进位 vb十进制二进制

IT技术arr

VB.net，小数点直接进一位的函数?'自定义一个函数：功能是给小数直接进一位
'num要操作的小数
'n　保留几位小数 ，
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a1 / (10 ^ n)
End If
End Function
-------------------------
调用一下：
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
vb 十进制转换成 八进制 二进制原码 二进制补码 二进制反码 程序VB.NET控制台程序：
Module module3
Sub Main()
Dim i As Integer
Dim num As Integer = -35
Dim R As Integer = 8
Dim arr(33) As Integer
Dim len As Integer
arr = TransToR(num, R)
len = arr(0)
Console.Write(num" 转换成 "R" 进制后："vbTab)
If (arr(1) = 1) Then
Console.Write("-")
End If
For i = len1 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
arr = TransToSourceCode(num)
Console.Write(num" 转换成32位二进制源码后："vbTab)
Console.Write(arr(1))
For i = 32 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
arr = TransToReverseCode(num)
Console.Write(num" 转换成32位二进制反码后："vbTab)
Console.Write(arr(1))
For i = 32 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
arr = TransToCompensatoryCode(num)
Console.Write(num" 转换成32位二进制补码后："vbTab)
Console.Write(arr(1))
For i = 32 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
End Sub
'将十进制数num转换为R(2=R=9)进制数，结果存在arr数组中
'arr(0)存储长度, arr(1)存储符号位：1为负，0为正
Function TransToR(ByVal num As Integer, ByVal R As Integer) As Integer()
Dim arr(33) As Integer
arr(0) = 0'初始长度
'设置符号位
If (num0) Then
【vb.net进位 vb十进制二进制】arr(1) = 1
Else
arr(1) = 0
End If
num = Math.Abs(num)
While num0
arr(0) = arr(0)1
arr(arr(0)1) = num Mod R
num \= R
End While
Return arr
End Function
'将十进制数num转换为二进制原码
Function TransToSourceCode(ByVal num As Integer) As Integer()
Dim arr(33) As Integer
Dim i As Integer
arr = TransToR(num, 2)
'高位补零
For i = arr(0)2 To 32
arr(i) = 0
Next
arr(0) = 32
Return arr
End Function
'将十进制数num转换为二进制反码
Function TransToReverseCode(ByVal num As Integer) As Integer()
Dim arr(33) As Integer
Dim i As Integer
arr = TransToSourceCode(num)
If num = 0 Then
Return arr
End If
'除符号位外各位取反
For i = 2 To 33
arr(i) = 1 - arr(i)
Next
Return arr
End Function
'将十进制数num转换为二进制补码
Function TransToCompensatoryCode(ByVal num As Integer) As Integer()
Dim arr(33) As Integer
Dim i As Integer
Dim c As Integer = 0'进位
arr = TransToReverseCode(num)
If num = 0 Then
Return arr
End If
'末尾加1
i = 2
arr(i)= 1
Do While True
arr(i) = carr(i)
c = arr(i) \ 2
arr(i) = arr(i) Mod 2
i= 1
If c1 Then
Exit Do
End If
Loop
Return arr
End Function
End Module
100分 急求在vb.net中怎样进行位操作用bitarray类和BitVector32类实现
VB实现大致如下：
Imports System.Collections.Specialized
...
Dim bvData as BitVector32
Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)
Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255,sec1)
Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255,sec2)
Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255,sec3)
Dim Buf(4096) as Byte 'receive byte size matched with DSP send data: 1024*4Byte
Dim recCount as Integer
Dim Data(1024) as long
....
For recCount = 0 To 1023
bvData(sec4) = buf(recByte*4)
bvData(sec3) = buf(recByte*4 1)
bvData(sec2) = buf(recByte*4 2)
bvData(sec1) = buf(recByte*4 3)
Data(recCount) = bvData.Data '这样数据肯定是-398
Next
....
vb.net进位的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb十进制二进制、vb.net进位的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何在腾讯云上查看自己的服务器？ 腾讯怎么查看自己服务器

    下一篇：mysql命令行外键，mysql外键怎么设置