Printable View
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.:)
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 :)
Your project is awesome. I did that once and i might be able to help.
hai..my project is also quite same like this one,..CAN ANYBODY HELP ME TO GET THE CODING.....:confused:
hello there, can anyone give some solution on this thread?
because i also had same project like this.
Thx beforehand.
Do you care to answer to reply #2? I'd be glad to help you out.
of course, Sir.Quote:
Originally Posted by TDQWERTY
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*thnx to Mr. Doogle.Quote:
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
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 :D
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..Quote:
Originally Posted by TDQWERTY
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.