01.
PictureBox1.Image.Save(
"NewFileName.jpg"
, System.Drawing.Imaging.ImageFormat.Jpeg)
02.
03.
Dim
oFile
As
System.IO.FileInfo =
New
System.IO.FileInfo(
"NewFileName.jpg"
)
04.
Dim
numBytes
As
Long
= oFile.Length
05.
06.
Dim
fStream
As
New
FileStream(
"NewFileName.jpg"
, FileMode.Open, FileAccess.Read)
07.
Dim
br
As
New
BinaryReader(fStream)
08.
Dim
data
As
String
= br.ReadInt32() + br.ReadInt32()
09.
br.Close()
10.
11.
12.
Dim
SP
As
System.IO.Ports.SerialPort
13.
SP =
New
System.IO.Ports.SerialPort(
"COM7:"
)
14.
SP.Write(data)
15.
16.
SP.WriteLine(
"12321423423"
)
17.
SP.WriteLine(
"PRINT"
)
18.
SP.Close()