15,867,330 members
Sign in
Sign in
Email
Password
Forgot your password?
Sign in with
home
articles
Browse Topics
>
Latest Articles
Top Articles
Posting/Update Guidelines
Article Help Forum
Submit an article or tip
Import GitHub Project
Import your Blog
quick answers
Q&A
Ask a Question
View Unanswered Questions
View All Questions
View C# questions
View C++ questions
View Javascript questions
View Visual Basic questions
View Python questions
discussions
forums
CodeProject.AI Server
All Message Boards...
Application Lifecycle
>
Running a Business
Sales / Marketing
Collaboration / Beta Testing
Work Issues
Design and Architecture
Artificial Intelligence
ASP.NET
JavaScript
Internet of Things
C / C++ / MFC
>
ATL / WTL / STL
Managed C++/CLI
C#
Free Tools
Objective-C and Swift
Database
Hardware & Devices
>
System Admin
Hosting and Servers
Java
Linux Programming
Python
.NET (Core and Framework)
Android
iOS
Mobile
WPF
Visual Basic
Web Development
Site Bugs / Suggestions
Spam and Abuse Watch
features
features
Competitions
News
The Insider Newsletter
The Daily Build Newsletter
Newsletter archive
Surveys
CodeProject Stuff
community
lounge
Who's Who
Most Valuable Professionals
The Lounge
The CodeProject Blog
Where I Am: Member Photos
The Insider News
The Weird & The Wonderful
help
?
What is 'CodeProject'?
General FAQ
Ask a Question
Bugs and Suggestions
Article Help Forum
About Us
Search within:
Articles
Quick Answers
Messages
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
Member 13396059
21-Mar-18 5:13am
View
it is not downloading the data from the device
Member 13396059
3-Mar-18 5:10am
View
STILL GETTING THE SAME ERROR :(
Member 13396059
2-Mar-18 6:11am
View
it stores the name of the test performed
for ex: glucose,cholesterol and so on...
Member 13396059
2-Mar-18 2:43am
View
Dim rs As New adodb.Recordset
Member 13396059
2-Mar-18 1:56am
View
Deleted
If i try as nme =rs.NameofTest i'm getting error as "Method or Data Member not found"
Member 13396059
2-Mar-18 1:56am
View
If i try as nme =rs.NameofTest i'm getting error as "Method or Data Member not found"
Member 13396059
19-Feb-18 6:03am
View
in database the data was converted into hex
Member 13396059
19-Feb-18 5:52am
View
Dim a1, sqlstr As String
con.Open "PROVIDER= Microsoft.Jet.OLEDB.4.0;data source=C:\Users\Raghava\Desktop\Database\artoss.mdb;"
sqlstr = "Select * from Table1"
rs.Open sqlstr, con, adOpenKeyset
a1 = rs!NameofTest
str = a1
For x = 1 To Len(str) Step 2
str1 = str1 & Chr(Val("&H" & Mid$(str, x, 2)))
Next
If str1 = Label26.Caption Then
While Not rs.EOF
display
rs.MoveNext
x = x + 1
Wend
End If
if i write like this i'm able to retrieve the data but its not checking entire database it is checking only first row of the db file
Is there any problem in my code??
Member 13396059
19-Feb-18 2:07am
View
i have modified my code as u said
rs.Open "Select * from Table1 where NameofTest='" + Label26.Caption + "'", con, adOpenDynamic, adLockPessimistic
While Not rs.EOF
a1 = rs!nameoftest
Label26.Caption = a1
str = a1
For x = 1 To Len(str) Step 2
str1 = str1 & Chr(Val("&H" & Mid$(str, x, 2)))
Next
Label26.Caption = str1
display
rs.MoveNext
Wend
but still i'm unable to retrieve the data
Member 13396059
17-Feb-18 4:25am
View
i have modified my program but am still getting the error
Member 13396059
15-Feb-18 0:53am
View
yes
Member 13396059
14-Feb-18 7:21am
View
43484F4C456E6420506F696E742F5354442F522E422094E494C25
0C0C0C0C0C0C0C0C0C0C494E4352454153494E470C0C0C6F6E62616E67616C6F7265
Member 13396059
14-Feb-18 7:21am
View
no,my complete hex value of 21 fields is 43484F4C456E6420506F696E742F5354442F522E422094E494C250C0C0C0C0C0C0C0C0C0C494E4352454153494E470C0C0C6F6E62616E67616C6F7265
but i want to make it as 21 bytes
1 field = 2bytes
how can i do that
Member 13396059
8-Dec-17 6:59am
View
i have already added com port to combo box.but its not working
Member 13396059
8-Dec-17 6:14am
View
i'm unable to open the port
Member 13396059
8-Dec-17 6:12am
View
every time when i'm running the program when i'm selecting the com port which is available also its showing that port not open pls configure
Member 13396059
8-Dec-17 6:10am
View
i want to select a comport and open it to send and receive data from a combo box
Member 13396059
8-Dec-17 6:08am
View
i want to select a comport from a combo box and open the com port which is available
Member 13396059
8-Dec-17 6:03am
View
i am askin for help
Member 13396059
8-Dec-17 5:50am
View
Public Function COMAvailable(ByVal iPortNum As Integer) As Boolean
Dim hCOM As Long
Dim ret As Long
Dim sec As SECURITY_ATTRIBUTES
'try to open the COM port
hCOM = CreateFile("COM" & iPortNum & "", 0, FILE_SHARE_READ + FILE_SHARE_WRITE, _
sec, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hCOM = -1 Then
COMAvailable = False
Else
COMAvailable = True
'close the COM port
ret = CloseHandle(hCOM)
End If
End Function
Member 13396059
17-Oct-17 7:14am
View
InStr$ = MSComm1.Input at this line i was getting error at InStr$
Member 13396059
14-Sep-17 2:45am
View
pls help me friends
Member 13396059
13-Sep-17 3:52am
View
no..the code was jus copying and pasting the data from one text box to another..if i remove the rs232 female connector also the process is running it shouldn't do so na..
Member 13396059
13-Sep-17 3:45am
View
ohh sry i dnt knw..i'll do so frm now
Member 13396059
13-Sep-17 3:40am
View
no..the code was jus copying and pasting the data from one text box to another..if i remove the rs232 female connector also the process is running it shouldn't do so na..
Member 13396059
11-Sep-17 2:23am
View
should we write code to tx and rx or any inbuild events are present to call?
Thank You
Member 13396059
8-Sep-17 5:00am
View
physically connecting means?? can u pls explain
Show More