Testing Data Types Output

Imports System.IO

Module Module1

    Sub Main()

        Dim bf As Boolean = False
        Dim bt As Boolean = True
        Dim sb As SByte = 127
        Dim b As Byte = 255
        Dim s As Short = 32767
        Dim i As Integer = 2101010101
        Dim ds As Single = 1.001
        Dim dd As Double = 2.0000002
        Dim l As Long = 9223372036854775807

        Dim c As Char = "q"
        Dim str As String = "Hello World!"

        Using fs As New FileStream("D:\_TEMP\binary\file.bin", FileMode.Create)

            Using bw As New BinaryWriter(fs)

                bw.Write(bf) ' 00
                bw.Write(bt) ' 01
                bw.Write(sb) ' 7F
                bw.Write(b) ' FF
                bw.Write(s) ' FF 7F
                bw.Write(i) ' B5 DE 3A 7D
                bw.Write(ds) ' C5 20 80 3F
                bw.Write(dd) ' 9B F2 D7 1A 00 00 00 40
                bw.Write(l) ' FF FF FF FF FF FF FF 7F

                bw.Write(c) ' 71
                bw.Write(str) ' 0C (number of characters) 48 (H) 65 (e) 6C (l) 6C (l) 6F (o) 20 ( ) 57 (W) 6F (o) 72 (r) 6C (l) 64 (d) 21 (!)

                ' Result: 00 01 7F FF FF 7F B5 DE 3A 7D C5 20 80 3F 9B F2 D7 1A 00 00 00 40 FF FF FF FF FF FF FF 7F 71 0C 48 65 6C 6C 6F 20 57 6F 72 6C 64 21

            End Using

        End Using

    End Sub

End Module