ÇóÖúVBÓë´®¿ÚÎÊÌâ

²ÉÓÃVB·¢ËͽÓÊÕasciiÂ룡ÎҵĽÓÊÕÔõôÊÇÂÒÂ룿
VB code:

Private Sub com_init()

With MSComm1

.CommPort = 1 'COM1

.Settings = "9600, E, 7, 1"

.InputMode = comInputModeBinary

.InputLen = 14

.InBufferCount = 0

.InBufferSize = 50

.OutBufferCount = 0

.OutBufferSize = 50

.RThreshold = 14

.SThreshold = 1

.PortOpen = True

If MSComm1.PortOpen = False Then MsgBox "ÇëÏÈÉèÖô®¿Ú", 16, "Ìáʾ"

End With

If Err Then '´íÎó´¦Àí

MsgBox "´®¿ÚͨÐÅÎÞЧ"

End If

End Sub

Private Sub MSComm1_OnComm()

Dim filename As String

' Dim btReceive As Variant

Select Case MSComm1.CommEvent

Case comEvReceive

btReceive = MSComm1.Input

Picture1.Print btReceive(0); btReceive(1); btReceive(2); btReceive(3); btReceive(4); btReceive(5);

Picture1.Print btReceive(6); btReceive(7); btReceive(8); btReceive(9); btReceive(10); btReceive(11);

Picture1.Print btReceive(12);