Creating file with QB64?

Question

With the following DIM a AS INTEGER a = 10 OPEN "myFile" FOR BINARY AS #1 PUT #1, 1, a CLOSE #1 I get a file (myFile) with two bytes (using QB64). The first byte is indeed `0A`, but there is a second byte `00`. How can I create a file with just one byte?

Answer 1

Null terminator or End of file marker possibly getting written to file...

Integers are 2 bytes at least...

try using a short integer or a byte

the following code works, in VB.net

'***********************************************************************************

Imports System.IO

Module Module1

Sub Main()

Dim bw As BinaryWriter

Dim i As Byte = 25

'creates the file

Try

bw = New BinaryWriter(New FileStream("c:\users\pdiru\desktop\mydata.dat", FileMode.Create))

Catch e As IOException

Console.WriteLine(e.Message + "\n Cannot create file.")

Return

End Try

'writing into the file

Try

bw.Write(i)

Catch e As IOException

Console.WriteLine(e.Message + "\n Cannot write to file.")

Return

End Try

bw.Close()

Console.ReadKey()

End Sub

End Module