Results 1 to 9 of 9

Thread: RFID detection to dispay in VB (supermarket payment system)

  1. #1

    Thread Starter
    New Member
    Join Date
    Mar 2011
    Posts
    1

    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.

  2. #2
    Fanatic Member TDQWERTY's Avatar
    Join Date
    Oct 2003
    Location
    Oporto & Leiria, Portugal / Luanda, Angola
    Posts
    972

    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
    ::Winamp 5.xx id3v2 & modern skin support::
    ::NetCF DataGrid Programatically Scroll Example::
    Don't forget to rate posts from those who helped you solving your problem, clicking on and rating it.

  3. #3

    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.

  4. #4
    New Member
    Join Date
    May 2013
    Posts
    3

    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.....

  5. #5
    Member
    Join Date
    Jul 2013
    Posts
    35

    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.

  6. #6
    Fanatic Member TDQWERTY's Avatar
    Join Date
    Oct 2003
    Location
    Oporto & Leiria, Portugal / Luanda, Angola
    Posts
    972

    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.
    ::Winamp 5.xx id3v2 & modern skin support::
    ::NetCF DataGrid Programatically Scroll Example::
    Don't forget to rate posts from those who helped you solving your problem, clicking on and rating it.

  7. #7
    Member
    Join Date
    Jul 2013
    Posts
    35

    Re: RFID detection to dispay in VB (supermarket payment system)

    Quote Originally Posted by TDQWERTY View Post
    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.

  8. #8
    Fanatic Member TDQWERTY's Avatar
    Join Date
    Oct 2003
    Location
    Oporto & Leiria, Portugal / Luanda, Angola
    Posts
    972

    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++.
    ::Winamp 5.xx id3v2 & modern skin support::
    ::NetCF DataGrid Programatically Scroll Example::
    Don't forget to rate posts from those who helped you solving your problem, clicking on and rating it.

  9. #9
    Member
    Join Date
    Jul 2013
    Posts
    35

    Re: RFID detection to dispay in VB (supermarket payment system)

    Quote Originally Posted by TDQWERTY View Post
    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
  •  



Click Here to Expand Forum to Full Width