標(biāo)題: VB如何向串口發(fā)送二維數(shù)組 [打印本頁(yè)] 作者: zzan 時(shí)間: 2018-6-1 15:32 標(biāo)題: VB如何向串口發(fā)送二維數(shù)組 將一個(gè)二值化圖片以二進(jìn)制形式打開存入二維數(shù)組，先要將二維數(shù)組通過(guò)串口發(fā)送到51單片機(jī)，如何用MSComm控件向串口發(fā)送二維數(shù)組？
Private Sub Command1_Click()
Open "C:\Users\lenovo\Desktop\Pic1.BMP" For Binary Access Read As #1
Picture1.ScaleMode = 3
m = Picture1.ScaleWidth
n = Picture1.ScaleHeight
L = LOF(1)
ReDim a(1 To n, 1 To m) As Byte
Get #1, 1, a()
Close #1
'測(cè)試
For j = 1 To n
For i = 1 To m
Debug.Print Hex$(a(j, i)) & Space(3);
Next i
Debug.Print
Next j
End Sub