If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Binary As #1
Put #1, , data
Close #1
End If
and next:
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Binary As #2
Get #2, , data
Close #2
For i = 0 To 10
Text1.Text = Text1.Text & data(i)
MSComm1.Output = Chr(data(i))
Next
MSComm1.Output = vbCrLf
Timer1.Enabled = True
End If
I haven't understood "Get & Put" methods used here! I mean their structure ! I've done some search on Google but there's no clear result ! therefore, I hope someone can help me ! Waiting for your help!

New Topic/Question
Reply



MultiQuote




|