Tweet
em có đoạn code sau:
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub Command3_Click()
Dim s As String
s = Asc(MSComm1.Input)
Text1.Text = s
End Sub
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
mà sao lúc kết nối mạnh avr nó toàn hiện lên 128 không hà
khi em mặc định dữ liệu gửi lên lá 15
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub Command3_Click()
Dim s As String
s = Asc(MSComm1.Input)
Text1.Text = s
End Sub
Private Sub Command1_Click()
MSComm1.Output = Text1.Text
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
mà sao lúc kết nối mạnh avr nó toàn hiện lên 128 không hà
khi em mặc định dữ liệu gửi lên lá 15
Attached Files
