|
In the program i am writing i use the software you can find at this sight
http://www.idautomation.com/formscontrols/
They work well. Gives you more options then some. And suports alot of different formats. Also, there is a standard for barcodes that you should folow if you are writing this for a bussiness. Here is a sumary of how it works and the address where you can look at the info for yourself. Please keep in mind that this is a report i sent to my boss regaurding our product so you may have to ignore some of what im saying in it that is specific to us. Also i copy and pasted most of this from the howstuffworks sight. HAPPY HACKING:
===========================================================================
Sigts to use:
-www.howstuffworks.com/upc.htm
-www.uc-council.org
===========================================================================
===========================================================================
NOTES:
-We may need to aply for a manufacturer id with the council
-No price is incoded. the POS system looks up the UPC and sends back the
price of the item.
===========================================================================
===========================================================================
BAR CODE FORMAT:
-First 6 digits are the manufacturer id and the first of these 6 is the
"number system character"
-next 5 digits are the item # set by the store (have them set it in meatbooks)
-last digit is the check digit to insure the scan read correctly.
===========================================================================
===========================================================================
HOW TO MAKE THE CHECK DIGIT:
using the code 63938200039 calculating the check digit:
1.) Add together the value of all of the digits in odd positions
(digits 1, 3, 5, 7, 9 and 11).
6 + 9 + 8 + 0 + 0 + 9 = 32
2.) Multiply that number by 3.
32 * 3 = 96
3.) Add together the value of all of the digits in even positions
(digits 2, 4, 6, 8 and 10).
3 + 3 + 2 + 0 + 3 = 11
4.) Add this sum to the value in step 2.
96 + 11 = 107
5.) Take the number in Step 4. To create the check digit,
determine the number that, when added to the number in step 4,
is a multiple of 10.
107 + 3 = 110
6.) The check digit is therefore 3.
Each time the scanner scans an item, it performs this calculation.
If the check digit it calculates is different from the check digit it
reads, the scanner knows that something went wrong and the item
needs to be rescanned.
===========================================================================
===========================================================================
THE NUMBERSYSTEMCHARACTER(first digit of manufacturer id):
0 = Standard UPC number
(must have a zero to do zero-suppressed numbers)
1 = Reserved
2 = Random-weight items
(fruits, vegetables, meats, etc.)
3 = Pharmaceuticals
4 = In-store marking for retailers
(A store can set up its own codes, but no other store will understand them.)
5 Coupons
6 Standard UPC number
7 Standard UPC number
8 Reserved
9 Reserved
# 4 example
Since Toys R Us is the only store that will ever use this bar code
it's the only place where the gift certificate can be redeemed
Toys R Us made up its own UPC code for the gift certificate and used
number system 4 so it could do that.
===========================================================================
===========================================================================
COUPON BAR CODES:
the coupon's bar code starts with a 5 to indicate that it is a coupon.
The next 5 digits are the Post's manufacturer ID.
The next 3 digits are called the family code.
The next 2 digits are a value code.
The final digit is the normal check digit.
The family code and value code are set up arbitrarily by the UPC
coordinator for the manufacturer. It must be done that way because
a coupon will often be usable for a whole family of products.
For example, a coupon might be good for four different kinds of
soap made by the same manufacturer. In the same way, the value code
represents the value of the coupon arbitrarily. The manufacturer
sends the retailer the data that tells the retailer's computer
exactly which products fit the family code, and exactly how much to
take off. When the coupon is scanned, the POS computer:
1.) Decodes the family code
2.) Checks to make sure the customer purchased an item from the family
3.) Decodes the value code
4.) Sends the discount back to the cash register
===========================================================================
===========================================================================
INCODING A BARCODE:
So let's say you would like to incode the actual bars in the bar code and
map them to numbers.This is something that will make you cross-eyed, but
it can be done. First of all, look at any 12-digit bar code. It is made
up of black bars and white spaces between the bars. Assume that the
thinnest bar or space that you see (for example, the first bar on the left)
can be called "one unit wide." The bars and spaces can therefore be seen to
have proportional widths of one, two, three or four units. If you look
at any bar code you can see examples of these four widths.
The start of any bar code is "1-1-1." That is, starting at the left you
find a one-unit-wide black bar followed by a one-unit-wide white space
followed by a one-unit-wide black bar (bar-space-bar). Following the
start code, the digits are encoded like this:
0 = 3-2-1-1
1 = 2-2-2-1
2 = 2-1-2-2
3 = 1-4-1-1
4 = 1-1-3-2
5 = 1-2-3-1
6 = 1-1-1-4
7 = 1-3-1-2
8 = 1-2-1-3
9 = 3-1-1-2
(Something to notice: All of these encodings seem to add up to 7.)
So let's take this barcode as an example:
043000181706:
-The bar code starts with the standard start code of 1-1-1 (bar-space-bar).
-The zero is 3-2-1-1 (space-bar-space-bar).
-The four is 1-1-3-2 (space-bar-space-bar).
-The three is 1-4-1-1 (space-bar-space-bar).
-The next three zeros are 3-2-1-1 (space-bar-space-bar).
-In the middle there is a standard 1-1-1-1-1 (space-bar-space-bar-space),
which is important because it means the numbers on the right are
optically inverted!
-The one is 2-2-2-1 (bar-space-bar-space).
-The eight is 1-2-1-3 (bar-space-bar-space).
-The one is 2-2-2-1 (bar-space-bar-space).
-The seven is 1-3-1-2 (bar-space-bar-space).
-The zero is 3-2-1-1 (bar-space-bar-space).
-The six is 1-1-1-4 (bar-space-bar-space).
-The stop character is a 1-1-1 (bar-space-bar).
===========================================================================
===========================================================================
SOME OF WHAT OUR POS NEEDS TO DO:
-Handle coupons
-Handle pricing
===========================================================================
This should be what we need. We will have to check into the manufacturur id.
Im not sure if that would be something we have to use or not.
Pablo
|
|
|
|
|
Hey does anyone know how to send an e-mail using VB.Net without bringing up an interface? I want to send an invoice to my companys when they buy an item with credit letting them know the exact cost, etc. I dont want to have to type it up though. I will build the invoice in code and then just send it to them.
Pablo
|
|
|
|
|
|
Thanks for the link, I apreciate it
Pablo
|
|
|
|
|
How to export datagrid datas to MS Word in VB.net
|
|
|
|
|
I don't think it is possible in .net.if u got the anser mail me at trickyuk001@rediffmail.com
try to be the best... whereever you go,
|
|
|
|
|
How to set Textbox text on a crystal report at runtime ?
Dim cr As CRAXDDRT20.TextObject
cr = crReport.Section1.ReportObjects.Item("Text3")
cr.SetText(strEmpName)
a.CrystalReportViewer1.ReportSource = crReport
a.Show()
error : specified cast is not valid
Farah
|
|
|
|
|
farhha wrote: error : specified cast is not valid
On what line of code does this error occur? In any case the error description is telling you what the problem is.
...Steve
|
|
|
|
|
I would like to know on how to start an existing windows service programtically (using Visual Basic). After starting the service, I would also like to check the error code that it returns to verify that the service has indeed started.
Can I check a registry key to see of a specific windows service is currently running? If not, is there a programatic way to check if a specific windows service is currently running or not?
Thanks in advance
-- modified at 0:13 Wednesday 7th December, 2005
|
|
|
|
|
|
Thanks Dave.
This code is using the 'System' and 'ServiceControlManager' classes to work with the existing services. I am looking for Win32 API way of checking the status of the service. This is because, I want to use the Win32 API (Declare and code) in Lotus Notes (LotusScript). Generally, LotusScript can use Win32 API similar to a VB code where you DECLARE the Win 32 API function with the arguments and then call that function within the code.
Thanks
Ravi
|
|
|
|
|
Doing it the hard way? 
A 10 second search on Google for "vb6 start stop service" revealed this example[^].
10 seconds is a lot quicker than 12 hours in a forum, isn't it?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Have anyone experience, delete key is not functioning on TextBox
So weir, on other forms TextBox is working fine.
Any comment?
|
|
|
|
|
I have an service that I developed that loads a COM library on startup. The application has been running on a machine for several months on a server, but on at least 3 occasions (on 2 different machines) I have recieved a "Cannot create ActiveX component" exception. In order to get the program to run I had to uninstall\reinstall the DLL. Apparently there is something that is happening were the registry entry for the library is either lost or corrupted (I suspect). Anyone have any ideas how I could work around this? The library is redistrubutable, maybe I could re-register it when I load the service? Any ideas would be appreciated, I'm at a loss why after a few months of operation all of a sudden I would be unable to load the library file.
Uptight Ex-Military Republican married to a Commie Lib - How weird is that?
|
|
|
|
|
i am currently having a problem in visual basic .net 2005, while trying to put comboboxes in a datagrid.
I am populating the datagrid with a database table. After i bind this data, i would like to change one of the cells to a combobox. Can someone help me out or point me in the right direction?
anything would be appreciated
|
|
|
|
|
Check this link out:
http://RustemSoft.com/DataGridColumns.htm
They have a pretty good one with examples.
|
|
|
|
|
thank you for the link, im going to look into it
|
|
|
|
|
i've got a form with 3 fields: comboBox, button(text = &Add) and a textBox.
Run the form, type, "abc" in the comboBox, highlight the "abc", click on the Add button and the eventcode shows a selectionlength of 0.
TextBox1.Text = cboBox.SelectionLength
go through the same process and type Alt A, instead of clicking the Add button, and the eventcode shows a selectionlength of 3.
the parameters for the 3 fields are default, visual basic.net, running in MDE 2003, version 7.1.3088.
i've also tried the other selection options, eg, selectedindex, and still get unexpected results.
thanks.
|
|
|
|
|
mattlove wrote: Run the form, type, "abc" in the comboBox, highlight the "abc", click on the Add button and the eventcode shows a selectionlength of 0.
TextBox1.Text = cboBox.SelectionLength
go through the same process and type Alt A, instead of clicking the Add button, and the eventcode shows a selectionlength of 3.
The reason for this is that when you click on the button, focus leaves the combobox, and nothing is selected anymore. Thus the "0". When you do an "Alt A", focus is still in the combobox, and you have three characters highlighted, you get a "3".
mattlove wrote: i've also tried the other selection options, eg, selectedindex, and still get unexpected results.
You don't say anything about adding items to the combobox items, so I am assuming that it is empty. Thus, regardless of clicking the button, or doing an "Alt A", you will probably get a "-1".
I guess my question would be: What do you want to happen?
Let's assume that you want the Add button to add the item to the combobox list. In the button click event, use this code:
CboBox.Items.Add(CboBox.Text)<br />
TextBox1.Text = CboBox.Items.Count
This will add what is typed in the combobox to the combobox list, and then put the number of items in the list into the textbox.
Hope this helps.
Roy.
-- modified at 12:28 Thursday 8th December, 2005
|
|
|
|
|
thanks roy.
my example should have been based on the delete function in which the difficulty is more acute than the add function...my fault.
what i want to do is highlight something in the comboBox and delete it using the delete button.
your answer helped me solve it but i have a question.
my solution is to use selectedindex which returns -1 if nothing is selected...working like a charm.
so, the reason selectedtext, selectedvalue, selectionlength and selectionstart don't work is because the field is out of focus, is that right? can you or do you want to recommend any other solutions i could use?
thank you very much in any case.
matt
|
|
|
|
|
You could try putting this in your Delete button handler:
If cboBox.SelectedIndex > -1 Then<br />
cboBox.Items.Remove(cboBox.SelectedItem)<br />
End If
This does not care if the item has focus or not.
Roy.
|
|
|
|
|
works like a charm
thanks again roy.
matt
|
|
|
|
|
How to set the text of a text box on a crystal report at run time?
Dim strEmpName As String
strEmpName = TextBox1.Text
Dim a As Form2
a = New Form2
Dim crReport As CrystalReport1
crReport = New CrystalReport1
Dim cr As CRAXDDRT20.TextObject
cr = crReport.Section1().ReportObjects.Item("Text3")
cr.SetText(strEmpName)
a.CrystalReportViewer1.ReportSource = crReport
a.Show()
Farah
|
|
|
|
|
this might help u....
add a parameter field in ur report.
than use the following code:-
Dim rpt As New myreport ''the report that u created
CrystalReportViewer1.ReportSource = rpt
rpt.SetParameterValue(0, textbox1.text.trim)
this should work it worked with mine..
abhinav
|
|
|
|
|
How to set the text of a text box on a crystal report at run time?
Dim strEmpName As String
strEmpName = TextBox1.Text
Dim a As Form2
a = New Form2
Dim crReport As CrystalReport1
crReport = New CrystalReport1
Dim cr As CRAXDDRT20.TextObject
cr = crReport.Section1().ReportObjects.Item("Text3")
cr.SetText(strEmpName)
a.CrystalReportViewer1.ReportSource = crReport
a.Show()
Farah
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
