Click here to Skip to main content
15,867,330 members

Comments by Member 13396059 (Top 32 by date)

Member 13396059 10-May-18 7:01am View    
Solved it Thank u
I have used
if count >182 then
exit do
end if
Member 13396059 10-May-18 7:01am View    
Solved it Thank u
I have used
if count >182 then
exit do
end if
Member 13396059 28-Mar-18 4:36am View    
I'm not having document of the device
Member 13396059 24-Mar-18 7:41am View    
okay,thank u so much..i will check the document
Member 13396059 24-Mar-18 6:50am View    
Private Sub opencmd_Click()

MSComm1.CommPort = 4
MSComm1.Settings = "115200,N,8,1"
MSComm1.PortOpen = True
lblstatus.Caption = "Open"
lblstatus.ForeColor = &HC000&

End Sub

Private Sub Receive_Click()


Dim data As Variant
Dim ff

Do
ff = FreeFile
data = MSComm1.Input
Open "C:\Data.hex" For Append As #ff
Print #ff, data
Close #ff

Loop Until MSComm1.InBufferCount = 0 'As long as there is data in the buffer OR Returns 0 if user clicks "Close Port"

End Sub

when i'm using this code i'm getting printed 1
but not getting hexcode