锐客网

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

vb.net二进制函数 二进制转十进制编程代码vb简单

文件IT技术

用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 怎么获取一个十进制数的二进制数位？最好有系统提供的函数？有的 。
Dim i As Int32
i = 24244
Dim s As String
s = Convert.ToString(i, 2)
's就是二进制字符串了 。
vb.net如何读写二进制文件？ 有各种类型的变量open函数用来打开一个文件，其调用的一般形式为：
文件指针名=fopen(文件名,使用文件方式);
其中，
“文件指针名”必须是被说明为FILE
类型的指针变量；
“文件名”是被打开文件的文件名；
“使用文件方式”是指文件的类型和操作要求 。
“文件名”是字符串常量或字符串数组 。
例如：
FILE
*fp；
fp=("file
a","r");
其意义是在当前目录下打开文件file
a，只允许进行“读”操作，并使fp指向该文件 。
又如：
FILE
*fphzk
fphzk=("c:\\hzk16","rb")
其意义是打开C驱动器磁盘的根目录下的文件hzk16，这是一个二进制文件，只允许按二进制方式进行读操作 。两个反斜线“\\
”中的第一个表示转义字符 ， 第二个表示根目录 。
使用文件的方式共有12种，下面给出了它们的符号和意义 。
文件使用方式
意义
“rt”
只读打开一个文本文件，只允许读数据
“wt”
只写打开或建立一个文本文件 ， 只允许写数据
“at”
追加打开一个文本文件，并在文件末尾写数据
“rb”
只读打开一个二进制文件，只允许读数据
“wb”
只写打开或建立一个二进制文件，只允许写数据
“ab”
追加打开一个二进制文件，并在文件末尾写数据
“rt ”
读写打开一个文本文件，允许读和写
“wt ”
读写打开或建立一个文本文件 ， 允许读写
“at ”
读写打开一个文本文件，允许读，或在文件末追加数据
“rb ”
读写打开一个二进制文件，允许读和写
“wb ”
读写打开或建立一个二进制文件，允许读和写
“ab ”
读写打开一个二进制文件，允许读，或在文件末追加数据
对于文件使用方式有以下几点说明：
1)
文件使用方式由r,w,a,t,b，六个字符拼成，各字符的含义是：
r(read):
读
w(write):
写
a(append):
追加
t(text):
文本文件，可省略不写
b(banary):
二进制文件
:
读和写
2)
凡用“r”打开一个文件时，该文件必须已经存在，且只能从该文件读出 。
3)
用“w”打开的文件只能向该文件写入 。若打开的文件不存在，则以指定的文件名建立该文件，若打开的文件已经存在，则将该文件删去，重建一个新文件 。
4)
若要向一个已存在的文件追加新的信息 ， 只能用“a”方式打开文件 。但此时该文件必须是存在的 ， 否则将会出错 。
5)
在打开一个文件时，如果出错，fopen将返回一个空指针值NULL 。在程序中可以用这一信息来判别是否完成打开文件的工作，并作相应的处理 。因此常用以下程序段打开文件：
6)
if((fp=fopen("c:\\hzk16","rb")==NULL)
{
printf("\nerror
on
open
c:\\hzk16
file
VB.NET 怎么读写二进制文件 ， 类似Open本示例阐释二进制文件vb.net二进制函数的基本输入和输出（使用 BinaryReader、BinaryWriter 和 FileStream 类 。在如何创建日志文件标题下面有一个类似的主题 。读写二进制信息使您可以创建和使用通过其他输入和输出方法无法访问的文件 。本示例还展示写入非字符串数据vb.net二进制函数，并展示二进制 I/O 的功能 。
尽管计算机上的文件可以不同的类型和文件存储vb.net二进制函数，但是，二进制格式是文件的较常用格式之一 。此处对创建二进制文件的简短介绍使用基类 BinaryReader 和 BinaryWriter 从文件获取信息 ， 并将信息放入文件 。这些类中的每个类均封装一个信息流，因此，在进一步操作之前，需要创建一个可用于来回写信息的流 。因为要创建文件，所以可使用 FileStream 来公开特定文件 ， 在此情况下，如果该文件已存在，则可以修改该文件，或者如果该文件尚不存在，则可以创建该文件 。在有 FileStream 之后，可以使用它来构造 BinaryReader 和 BinaryWriter
在读入信息之后，可以对信息进行所需的任何操作 。但是，在某些时候，您可能想要将信息写回文件 ， 因此需要 BinaryWriter 。在本示例中，您将使用 Seek 方法将信息追加到文件结尾 ， 因此，在开始写入之前，请确保指向文件的指针位于文件结尾 。在使用 BinaryWriter 写入信息时有多个选项 。因为 Write 方法有足够的重载用于您能够写入的所有信息类型 ， 所以，可以使用 Write 方法向您的编写器封装的流写入任何标准形式的信息 。本情况下，还可以使用 WriteString 方法向流中写入长度预先固定的字符串 。
VB Source:VB\ReadWrite.aspx
%@ Import Namespace="System.Text" %
%@ Import Namespace="System.IO" %
script language="VB" runat=server
Class TestBinary
Public Shared Function ReadFile(selection As String) As String
Dim output As StringBuilder = New StringBuilder()
Dim fs As FileStream = New FileStream("data.bin", FileMode.OpenOrCreate)
Dim r As BinaryReader = New BinaryReader(fs)
Try
r.BaseStream.Seek(0,SeekOrigin.Begin)' 将文件指针设置到文件开始
' 因为不同数据类型之间的很多转换结果都是不可解释的，
' 所以当在其他类型与二进制数据之间进行转换时，
' 必须捕捉可能引发的任何潜在的异常...
' 能够正确读取数据依赖于如何写入信息...
' 这与写日志文件时不同 。
Do While r.BaseStream.Positionr.BaseStream.Length'当未到达文件结尾时
Select Case selection
Case "Boolean"
output.Append( r.ReadBoolean().ToString() )
Case "String"
output.Append( r.ReadString() )
Case "Integer"
output.Append( r.ReadInt32().ToString() )
End Select
Loop
Finally
fs.Close()
End Try
return output.ToString()
End Function
Public Shared Function WriteFile(output As Object, selection As String) As String
Dim fs As FileStream = New FileStream("data.bin", FileMode.Create)
Dim w As BinaryWriter = New BinaryWriter(fs)
Dim strOutput As String = ""
w.BaseStream.Seek(0, SeekOrigin.End)'将文件指针设置到文件结尾
' 因为正在写的信息可能不适合于所选择用于写入的特定样式
' （例如，单词“Hello”作为整数vb.net二进制函数？），所以我们必须捕捉写入
' 错误，并通知用户未能执行该任务
Try
Select Case selection
Case "Boolean"
Dim b As Boolean = Convert.ToBoolean(output)
w.Write( b )
Case "String"
Dim s As String = Convert.ToString(output)
w.Write( s )
Case "Integer"
Dim i As Int32 = Convert.ToInt32(output)
w.Write(i)
End Select
Catch E As Exception
' 让用户知道未能写入该信息
strOutput = "写异常："chr(13)_
"无法以所请求的格式写入要写入的信息 。"_
chr(13)"请输入尝试写入的数据类型的有效值"
End Try
fs.Close()
return strOutput
End Function
End Class
Sub btnAction_Click(src As Object, E As EventArgs)
Dim s As String = ""
' 写出文件
s = TestBinary.WriteFile(txtInput.Text, lstDataIn.SelectedItem.Text)
If s = "" Then
Try
' 读回信息，显示信息...
txtOutput.Text = TestBinary.ReadFile(lstDataIn.SelectedItem.Text)
Catch Exc As Exception
' 让用户知道未能写入信息
s = "读异常："chr(13)_
"无法以所请求的格式读取要写入的信息 。"_
chr(13)"请输入尝试写入的数据类型的有效值"
End Try
Else
txtOutput.Text = s
End If
End Sub
/script
html
head
link rel="stylesheet" href="https://www.04ip.com/post/intro.css"
/head
body style="background-color:f6e4c6"
form method=post runat="server"
p
table
tr
tdb
下面的示例使用 BinaryWriter 对象创建一个二进制文件，然后使用 BinaryReader 读取该信息 。/b可以选择不同的对象来将所需的信息写入文件
此演示用于强调您需要知道如何读取已写入的二进制文件 。一旦以某种格式写入数据，就只能以该格式读取该信息 。但是，可以将多种不同的数据类型写入文件 。在此演示中，输入任意字符串并将它们作为字符串读取，对于整型，仅输入整型数值项（试试浮点数字，然后看看会发生什么...）；对于布尔型项，仅输入词“false”和“true” 。
p
hr
/td
/tr
/table
asp:Table id="basetable" runat="server" border="0" cellspacing="0" cellpadding="5"
asp:tablerow
asp:tablecell verticalalign="top"
请选择要保存到二进制文件的数据类型...
/asp:tablecell
asp:tablecell verticalalign="top"
asp:listbox id="lstDataIn" runat="server"
asp:listitemBoolean/asp:listitem
asp:listitem selected="true"String/asp:listitem
asp:listitemInteger/asp:listitem
/asp:listbox
/asp:tablecell
asp:tablecell verticalalign="top"
asp:button id="btnAction" onclick="btnAction_Click" Text="写入/读取文件" runat="server"/
/asp:tablecell
/asp:tablerow
VB.NET，八/十六进制转十进制的函数，怎么转?'此函数用于十进制到二进制
Private Function Bin(Number As Long) As Long
Dim Div_value As String
Do
Div_value = https://www.04ip.com/post/(Number Mod 2)Div_value
Number = Int(Number / 2)
Loop Until Number2
Bin = NumberDiv_value
End Function
'此函数用于二进制到十进制
Private Function value_Bin(Number As Long) As Long
Dim Temp_value As Long, Cyc As Long
For Cyc = 0 To Len(Str(Number))
If Cyc = Len(Str(Number)) Then
value_Bin = Temp_valueVal(Mid(Str(Number), Cyc, 1))
Exit For
End If
If Cyc0 Then Temp_value = https://www.04ip.com/post/(Temp_valueVal(Mid(Str(Number), Cyc, 1))) * 2
Next Cyc
End Function
'====写入以上函数后转值操作vb.net二进制函数：
'十进制到十六进制vb.net二进制函数：Hex(十进制数值)
'十进制到八进制vb.net二进制函数：Oct(十进制数值)
'十进制到二进制：Bin(十进制数值)
'二进制到十进制：value_Bin(二进制数值)
'八进制到十进制：Val("O"八进制数值)
'十六进制到十进制：Val("H"十六进制数值)
比如
msgbox DEC_to_BIN(10)
就会返回一个10转换为十进制后vb.net二进制函数的结果
或者简单点就用
VB自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("H"num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("O"num)
十六进制转换为十进制
Dim str As String
str = Text2.Text
Text10.Text = CLng("H"str)
【vb.net二进制函数 二进制转十进制编程代码vb简单】vb.net二进制函数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于二进制转十进制编程代码vb简单、vb.net二进制函数的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：农村大哥拍视频叫什么，农村大哥叫什么名字

    下一篇：如何将服务器连接到存储设备？ 怎么把服务器挂到存储上