锐客网

  1. 首页 > 生活百科 > it技术 > >

vbnet二进制数转换 vb编写二进制转十进制

二进制IT技术

vb.net 二进制问题帮忙！ 关于任意的Structure定义的结构转换成二进制的问题Replace(Space((8 - Len(Convert.ToString(12, 2)))), " ", "0")Convert.ToString(12, 2)
上面vbnet二进制数转换的代码是把255以内vbnet二进制数转换的整数转化为8位2进制 (本例是12转化为2进制vbnet二进制数转换，修改12为vbnet二进制数转换你要转化vbnet二进制数转换的数即可)
用VB.NET将二进制数转换为十进制数.NET 程序写成你这样也算厉害了 ， 好好看看下面的代码
Sub Main()
Console.WriteLine("请输入一个二进制数")
Console.WriteLine(bin2int(Console.ReadLine()))
Console.ReadKey()
End Sub
Function bin2int(ByVal bin As String) As Integer
Dim i As Long
For i = 1 To bin.Length
bin2int = bin2int * 2Val(Mid(bin, i, 1))
Next i
End Function
vb.net 将文件转化成二进制首先引入System.IO命名空间
Imports System.IO
然后使用文件流来读入数组：
Dim bytes() As Byte
Using fs As New FileStream(文件路径,FileMode.Open)
ReDim bytes(fs.Length-1)
fs.Read(bytes,0,fs.Length)
fs.Close()
End Using
这样bytes就是整个文件的所有字节了
从字节生成Image：
Dim img As Image = Image.FromStream(New MemoryStream(bytes))
img就是图片了
vb.net如何将图片转二进制'容易vbnet二进制数转换，用apivbnet二进制数转换，查一查SetBitmapBits
'新建工程，增加一个 command button ， 一个 picture box , 将图片加载到 picture box.
'将代码粘贴到 Form1
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicBits() As Byte, PicInfo As BITMAP, Cnt As Long
Private Sub Command1_Click()
'Get information (such as height and width) about the picturebox
GetObject Picture1.Image, Len(PicInfo), PicInfo
'reallocate storage space
ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 3) As Byte
'Copy the bitmapbits to the array
GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
'Invert the bits
For Cnt = 1 To UBound(PicBits)
PicBits(Cnt) = 255 - PicBits(Cnt)
Next Cnt
'Set the bits back to the picture
SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
'refresh
Picture1.Refresh
End Sub
用VB怎么把二进制转化为十进制VB把二进制转化为十进制的方法：
' 用途：将二进制转化为十进制' 输入：Bin(二进制数)' 输入数据类型：String
' 输出：BIN_to_DEC(十进制数)' 输出数据类型：Long
' 输入的最大数为1111111111111111111111111111111(31个1),输出最大数为2147483647
Public Function BIN_to_DEC(ByVal Bin As String) As LongDim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2Val(Mid(Bin, i, 1))Next i
End Function
比如输入：1010
输出就是：10
【vbnet二进制数转换 vb编写二进制转十进制】vbnet二进制数转换的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb编写二进制转十进制、vbnet二进制数转换的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：漳县电商如何打开，电商平台怎么弄

    下一篇：如何购买紫鸟服务器？ 紫鸟服务器怎么买