-
Mar 28th, 2011, 03:03 PM
#1
Thread Starter
New Member
RFID detection to dispay in VB (supermarket payment system)
I'm new to using Visual Basic. So, I do not know much about how to make the code in vb. My project is about scanning items in the supermarket and continue to display to the PC. Details of the necessary items, such as price and quantity of the scan. I hope there is someone who is willing to assist me in completing my project. I am very grateful.
-
Apr 6th, 2011, 09:23 AM
#2
Fanatic Member
Re: RFID detection to dispay in VB (supermarket payment system)
To display in the PC? This forum is intended for mobile devices.
If you're trying to ask someone build your software you probably should give more details/info about the project itself, no?
Such as, RFID technology, What kind of antenas/cards/labels are beeing used, ISO A/B? Number of tracks/sectors per card/label...Does the RFID scaner detects the proximity card or should the software use threads or timers to scan some range each X seconds? etc etc etc...databases, interfaces, and so on...
good luck with your project
-
Apr 11th, 2012, 12:41 AM
#3
New Member
Re: RFID detection to dispay in VB (supermarket payment system)
Your project is awesome. I did that once and i might be able to help.
-
May 13th, 2013, 11:47 PM
#4
New Member
Re: RFID detection to dispay in VB (supermarket payment system)
hai..my project is also quite same like this one,..CAN ANYBODY HELP ME TO GET THE CODING.....
-
Jul 26th, 2013, 06:35 PM
#5
Member
Re: RFID detection to dispay in VB (supermarket payment system)
hello there, can anyone give some solution on this thread?
because i also had same project like this.
Thx beforehand.
-
Jul 29th, 2013, 01:21 AM
#6
Fanatic Member
Re: RFID detection to dispay in VB (supermarket payment system)
Do you care to answer to reply #2? I'd be glad to help you out.
-
Aug 2nd, 2013, 03:38 AM
#7
Member
Re: RFID detection to dispay in VB (supermarket payment system)
Originally Posted by TDQWERTY
Do you care to answer to reply #2? I'd be glad to help you out.
of course, Sir.
well i used simple reader ID-12, heres the datasheet *thnx to Mr Doogle.
with pasive tag, and want to build it with VB6 + MySQL, the code of read the tag is
Option Explicit
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = 9600
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Static strBuffer As String
Dim strData As String
Dim binComplete As Boolean
Dim intI As Integer
Dim S As String
Select Case MSComm1.CommEvent
Case comEvReceive
strData = MSComm1.Input
strBuffer = strBuffer & strData
Do
If Len(strBuffer) >= 16 Then
If Asc(Mid$(strBuffer, 1, 1)) = 2 Then
Text1.Text = Text1.Text & "Start OK" & vbNewLine
Text1.Text = Text1.Text & "Data:" & vbNewLine
For intI = 4 To 11
Text1.Text = Text1.Text & CStr(intI - 4) & " = "
Text1.Text = Text1.Text & " Hex: " & Hex(Asc(Mid$(strBuffer, intI, 1)))
Text1.Text = Text1.Text & " Char: " & Mid$(strBuffer, intI, 1) & vbNewLine
Next intI
Text2.Text = Text2.Text & strTag
Text1.Text = Text1.Text & "Checksum:" & vbNewLine
For intI = 12 To 13
Text1.Text = Text1.Text & Hex(Asc(Mid$(strBuffer, intI, 1)))
Next intI
Text1.Text = Text1.Text & vbNewLine
If Asc(Mid$(strBuffer, 16, 1)) = 3 Then
Text1.Text = Text1.Text & "End OK" & vbNewLine
Else
Text1.Text = Text1.Text & "Synchronisation Error - ETX not received" & vbNewLine
Text1.Text = Text1.Text & "Expected ETX, received: " & Hex(Asc(Mid$(strBuffer, 15, 1))) & vbNewLine
End If
Else
Text1.Text = Text1.Text & "Synchronisation Error - STX not received" & vbNewLine
Text1.Text = Text1.Text & "Expected STX, received: " & Hex(Asc(Mid$(strBuffer, 1, 1))) & vbNewLine
End If
If Len(strBuffer) > 16 Then
strBuffer = Mid$(strBuffer, 17)
Else
binComplete = True
strBuffer = ""
End If
Else
binComplete = True
End If
Loop Until binComplete
End Select
End Sub
*thnx to Mr. Doogle.
so, the main purpose is when my reader capture the tag, it will automatically shown on some list view on that form, maybe like the code itself, and another information.
to be honest, iam a new one on this language, hopefully it doesnt make you lost ur spirit
Last edited by cataztrophe; Aug 2nd, 2013 at 03:47 AM.
-
Aug 2nd, 2013, 08:48 AM
#8
Fanatic Member
Re: RFID detection to dispay in VB (supermarket payment system)
First things first, on this #1 post there is written about quantities, usually tags will identify 1 item, that item can be a single unit or a bundle, such as packs, for that best way would be to create an other item. Most of the stores work like that.
Why on earth would you use vb6? Don't get me wrong, vb6 does work although multi-thread isn't one of it's options. IMHO you should pick vb.net, c# or even c++.
-
Aug 4th, 2013, 03:42 AM
#9
Member
Re: RFID detection to dispay in VB (supermarket payment system)
Originally Posted by TDQWERTY
First things first, on this #1 post there is written about quantities, usually tags will identify 1 item, that item can be a single unit or a bundle, such as packs, for that best way would be to create an other item. Most of the stores work like that.
Why on earth would you use vb6? Don't get me wrong, vb6 does work although multi-thread isn't one of it's options. IMHO you should pick vb.net, c# or even c++.
i see..
so let say we use maybe vb.net should be the best way to change my old-school paradigm,
if only you can help me to build the algorithm first, about the main purpose is when the tag was pass through the reader, it will be read at the system (maybe in list view, etc) then it also contains some information regards of what it attacth to the tag (using DB here), just like smart cash-out on virtual warehouse, fyi.
thnx in advance.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|