Stock Control VB Program With Cash Register Input
Dear All,
I have a Supermarket (shop) with 5 cash registers of model (Samsung SAM45).
I need to create a VB program that does Inventory control for the shop by
getting input from Cash Registers everytime a transaction is processed and
subtracting items purchased from inventory stock.
My main problem is how do I get the VB program on desktop PC to get input
from cash registers.
Can someone please help.
Thanks,
Farai
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Cash Register-like Input Of Numbers
I'm trying to figure out how to have the user enter numbers into a field similar to a cash register. Where the first digit is automatically prefixed by ".0", then the 2nd digit is prefixed by ".", etc.
I keep getting hung up on the 2nd digit.
Basic Cash Register Program
I need to write a simple cash register program that I can input an amount of time, a price per hour, and it will tell me how much someone owes.
If any1 can help me write this, it would help
A Simple Cash Register Type Of Program
hey all! well see i'm working on this program and i gota alotta of it to work so far considering i am a newbie with vb. attached is my program. pretty much the first thing i need help with is that there is a reset button on the main form, when clicked it should clear all the entry fields. any ideas on how to get this to work? thanks in advance guys.
Having Trouble With Array Cash Register Program
Im creating a GUI that simulates a cash register. It has 4 check boxes, that correspond to 4 text boxes. They are quarters, dimes, nickels, and dollars. When you click a checkbox that text box opens and lets you input the amount of coins or dollars. A label to the right displays the amount entered.
I also have 9 radio buttons which are the total of the item. The radio buttons and checkboxes are in arrays. Now, I have a button that calculated the Cash given by user - total and outputs number of quarters , nickels, and dimes to give back. Im having problems assigning values to the radio buttons, and creating a correct loop for the output. Here is my code any help would be appreciated.
Code:
Dim Total As Currency
Dim Cost_of_item As Currency
'CCur() converts to Currency
Private Sub chkArray_Click(Index As Integer)
If (chkArray(Index).Value = vbChecked) Then
txtArray(Index).Enabled = True
txtArray(Index).SetFocus
End If
If (chkArray(Index).Value = vbUnchecked) Then
txtArray(Index).Enabled = False
txtArray(Index).Text = "0"
End If
End Sub
Private Sub cmdArray_Click(Index As Integer)
Select Case Index
Case 0
Dim change As Currency
Dim temp As Currency
Total = Val(lblAmountEntered)
change = Total - Cost_of_item
Cost_of_item = optArray(0).Value + optArray(1).Value + optArray(2).Value + optArray(3).Value + _
optArray(4).Value + optArray(5).Value + optArray(6).Value + optArray(7).Value + optArray(8).Value
If (Cost_of_item = False) Then
MsgBox "No selection was made."
End If
If (Total < Cost_of_item) Then
MsgBox "Not enough money was entered."
End If
Case 1
lblAmountEntered = ""
chkArray(0).Value = vbUnchecked
chkArray(1).Value = vbUnchecked
chkArray(2).Value = vbUnchecked
chkArray(3).Value = vbUnchecked
optArray(0).Value = False
optArray(1).Value = False
optArray(2).Value = False
optArray(3).Value = False
optArray(4).Value = False
optArray(5).Value = False
optArray(6).Value = False
optArray(7).Value = False
optArray(8).Value = False
lblArray(0) = ""
lblArray(1) = ""
lblArray(2) = ""
End Select
End Sub
Private Sub Form_Load()
Dim AA, BB, CC, DD
txtArray(0).Text = "0"
txtArray(1).Text = "0"
txtArray(2).Text = "0"
txtArray(3).Text = "0"
Dim Total
optArray(0).Value = False
optArray(1).Value = False
optArray(2).Value = False
optArray(3).Value = False
optArray(4).Value = False
optArray(5).Value = False
optArray(6).Value = False
optArray(7).Value = False
optArray(8).Value = False
AA = txtArray(0)
BB = txtArray(1)
CC = txtArray(2)
DD = txtArray(3)
Total = A + B + C + D
lblAmountEntered.Caption = Format(Total, "Currency")
optArray(0) = 0.25
optArray(1) = 0.35
optArray(2) = 0.45
optArray(3) = 0.55
optArray(4) = 0.65
optArray(5) = 0.75
optArray(6) = 0.85
optArray(7) = 0.95
optArray(8) = 1.5
End Sub
Private Sub txtArray_Change(Index As Integer)
Dim A
Dim B
Dim C
Dim D
Dim Total
A = txtArray(0) * 0.25
B = txtArray(1) * 0.1
C = txtArray(2) * 0.05
D = txtArray(3) * 1#
Total = A + B + C + D
lblAmountEntered.Caption = Format(Total, "Currency")
End Sub
Private Sub txtArray_GotFocus(Index As Integer)
With txtArray(Index)
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Text Box, MaskEdit Control?? Input Amounts Like Cash Registers Or Calculator.
Hi,
I need to be able to Input cash quantities like a cash register.
Description:
- Input amount from Right to left with set decimals (2 or 3 fixed) as you are typing
- I dont want use the decimal point or have to hit Enter for the decimal to be placed or display.
Ejm:
Typing -----> Display
9 ------------> .09
91 ----------> .91
913 ----------> 9.13
9130 ----------> 91.30
Thanks for your help...
Cash Register
I am developing a POS system. The receipt printer and drawer model is Epson TM-U220B. The Cash Drawer are connected to receipt printer and the receipt printer is connected to the CPU.When i Call the Cash Drawer, the cash drawer will open but at the same time the printer will scroll the paper bout 3 - 4cm long...can anyone help me ?? my code for the cash drawer code is look like this..
Printer.Font.Name = "control"
Printer.Print "A"
Printer.EndDoc
Cash Register
Hi everyone...
im doing th program for my cousin and i need to include a cash regiter application...not anything complicated though, just ur basic functions of entering items and displaying price and printing receipts....
could anyone help me with this, i mean, is there a sample code i could refer to or maybe someone could explain to me how it should be done, esp the receipt printing...thx
Cash Register Dll
ive got to access a cash register for a point of sales program and i think i need to write a dll to do this.Please can someone give me some help on this topic or some tips
Thanks shaun
Cash Register
Please I Need Code For A Simple Cash Register. I'm Using Visual Basic 6.
Cash Register App - Need Help
I'm starting my next assignment in VB, but I'm having some problems. It's basically a 'Cash Register' type program, and it must be able to accept a quantity and unit price. Then, it must be able to display the price before and after tax. Finally, it must be able to add up all the subtotals with tax and give a final total. The whole thing seems pretty easy, but I dont know why my final total won't add up previously entered numbers.
I also want the add a 'reciept' feature that will display item, quantity, price per unit, unit subtotal (w/ tax), and total in a printable listbox, but I have no idea how to get this is appear.
Attached are my project files
Cash Register
Hi everybody ,
I just want to ask what are the procedure so that i can open a cash drawer.
for a Point-of-sales thesis proposal. What object do i need to add in my project.
Can you please email me also at leojune@edsamail.com.ph
Thanks.
Open UBS Cash Register
I am trying to open a cash register USB based but the OPen file #write statement does not recognize the device \l.ccr3.
example:
-----------------
Open ".\lccr3\" For Output As #1
Print #1, Chr(&H12)
Close #1
---------------
The manufacturer provided code in C but I do not know how to convert it into VB.
Any sugestions will be greatly appreciated
c code
-------------------------------
#include <windows.h>
//This sample is for Logic Controls USB POS deivces
int _cdecl main(int argc, char *argv[])
{
HANDLE hWrite = INVALID_HANDLE_VALUE;
//open the USB port
hWrite = CreateFile(
"\\.\lccr3\",
GENERIC_WRITE | GENERIC_READ,
FILE_SHARE_WRITE,
NULL,
OPEN_EXISTING,
0,
NULL);
if (hWrite == INVALID_HANDLE_VALUE) {
return 1;
}
//write 5 bytes
if (hWrite != INVALID_HANDLE_VALUE) {
int WriteLen = 5; // #bytes to write
int nBytesWrite;
char outBuffer[256];
int i;
for (i=0;i<WriteLen;i++)
{
outBuffer[i] = 'A' + i;
}
WriteFile(hWrite,
outBuffer,
WriteLen,
&nBytesWrite,
NULL);
}
// close devices if needed
if(hWrite != INVALID_HANDLE_VALUE)
CloseHandle(hWrite);
return 0;
}
-----------------------
Cash Register Polling.
Hi,
I try to poll many models of cash registers(Samsung,Sharp) using the serial port.No matter wich register I poll,I receive strings of datas that look like "ÿÖ£₧ÉæÆô" or "°".What is that and how can I convert that to text?
I have the protocols of communications,but I don't understand what that theory has to do whit that.Thank you for your help.
Cash Register Communication
I try to poll a cash register using the serial port.I receive strings of datas that look like "ÿÖ£₧ÉæÆô" or "°".How can I convert that to text?
Cash Register Interface
I am writing a program that will interface directly with a Samsung SPS-1000 cash register. The register is configured for POLLING on SERIAL port #1 at 9600 N-8-1. Using HyperTerminal, I am unable to send or receive any data. I have verified the cable as a normal serial cable in a Null-Modem configuration.
The purpose of the connection is to query the register for its internal data such as financials, inventory, etc. This data will then be fed into a database and accessed thru a GUI front-end for reporting.
Does anyone have any information that may help. There must be a list of commands that are used to communicate with the register.
Creating A Cash Register
Ok,
Here's the story. I am trying to create a POS screen for a project I'm working on. I'm trying to determine what control to use as the display of data/numbers.
I want the data to start at the bottom of the control and scroll upward each time the enter key is pressed.
I've attached a screen print to show you what I mean.
Thanks,
Jeff
Cash Register Printing
hai
I wan`t to print some lines in my dot matrix printer and after printing the lines i do not wan`t form feed to happen.How can i do it.Currently i get the lines printed using
printer.print "sdfsdf"
printer.print "dfdsfd"
printer.endoc
The lines get printed but the problem is a form feed occurs.
regards
senthil
Simulate Cash Register
I have to write a program that should run in a tea-room.
I have 1000 articles splitted into 10 groups.
Dealing with 3 users and 30 tables.
Is this possible with VB?
Don' wan't to buy a cash register for gv. reason.
Any suggestions are welcome.
Ray
Need Help With Cash Register Application In VB.NET
I am supposed to build a Cash Register Application using Select Case statement. The Sales Tax needs to be calculated for the
amount purchased. I am supposed to add the sales tax to the subtotal and add the subtotal to the total. The Select Case statement
was used to enter the TaxRate and I think I am supposed to multiply the TaxRate by the TaxValue. I am having trouble with the button Enter key and the button Total key. When I enter a number such as $25.00, the $25.00 will show up in the subtotal, but when I enter $25.00 again it freezes up. Please help. I am new to VB and I really do not know what the heck I am doing.
' Private Sub txtCurrentPrice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCurrentPrice.TextChanged
'(I DO NOT KNOW WHAT THIS HANDLER IS SUPPOSED TO DO)
' End Sub
PrivateSub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
'This handler is supposed to add the current amount to the subtotal and display new
'subtotal.
Dim sngCurrentPrice AsSingle
sngCurrentPrice = Val(txtCurrentPrice.Text)
Dim sngSubtotalValue AsSingle
sngSubtotalValue = Val(lblSubtotalValue.Text)
Dim sngTaxValue AsSingle
sngTaxValue = Val(lblTaxValue.Text)
sngSubtotalValue += sngCurrentPrice
txtCurrentPrice.Text = ""
lblSubtotalValue.Text = String.Format("{0:C}", sngSubtotalValue)
EndSub'btnEnter_Click
PrivateSub btnTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTotal.Click
'This handler is supposed to use the subtotal to compute the tax amount.
Dim sngCurrentPrice AsSingle
sngCurrentPrice = Val(txtCurrentPrice.Text)
Dim sngSubtotalValue AsSingle
sngSubtotalValue = Val(lblSubtotalValue.Text)
Dim sngTaxValue AsSingle
sngTaxValue = Val(lblTaxValue.Text)
Dim decTaxRate AsString
SelectCase sngCurrentPrice
'amounts under $100
CaseIs < 100
decTaxRate = 0.05 'Sales Tax
'amounts between $100 and $500
Case 100 To 500
decTaxRate = 0.075 'sales tax
'amounts above $500
CaseIs > 500
decTaxRate = 0.1 'sales tax
'if no other case is true
CaseElse
decTaxRate = 0.0 'sales tax
EndSelect
'lblTaxValue.Text = strTaxRate
Dim dblTotalValue AsDouble
dblTotalValue = Val(lblTotalValue.Text)
lblTaxValue.Text = decTaxRate
'sngTaxValue += sngSubtotalValue
'dblTotalValue = sngSubtotalValue + decTaxRate
'dblTotalValue = sngSubtotalValue + (sngCurrentPrice * decTaxRate) 'or
dblTotalValue = dblTotalValue + (sngCurrentPrice * decTaxRate)
lblSubtotalValue.Text = String.Format("{0:C}", sngSubtotalValue)
lblTaxValue.Text = String.Format("{0:C}", sngTaxValue)
EndSub'btnTotal_Click
Opening A Cash Register In VB
Hi,
I am trying to write a small program to open a cash register using VB. what do I need in order to do that ? (cash register driver ? what function(s)?) Please help ! Thanks.
Touch Computer Cash Register
i am creating a touch screen program for a cash register i have basic knowledge of visual basic but i have realised i do not know how the cash draw will open does anybody have any idea about the coding i will need to do this send replies and i will try to give you more information if needed
Open Cash Register Code
Does someone have programmed a Point of sale system? I need to know how to send the "BELL" code to the printer in order to open the cash register box.
I am already trying this
printer.print chr(7)
but is not working.
Thank you in advance for your help
Jose Reyes
How Do I Create An Easy PC Cash Register?
Folks out there... please help me to create an easy pc cash register from scratch. I'm new to VB6, but I can try doing it cause I need such programme urgently. I got VB6 loaded on my PCPlease help...
Cash Register Printer Programming
I have never programmed for a point of sale printer..
i have made a program now all i need is to actually print to these printers (same printers as found at convenient stores)
1. do these printers follow a standard protocal? (if i programm for one will i have to program for different brand names or do they ship with drivers for windows)
2. what else should i watch out for..
any details or info you guys could give would be appreciated it
thanks.
Working With Cash Register Device...
HI
if i want that each time that the user sell something and uses his cash register, the code of the product will "go into" my application as an input and will do some stuff with that value..
how is that possible ?
Displaying On A Poll Display And Opening Cash Register
I am writing a small cashier application which uses a poll display and cash register .
I am having problem in what to use to display on the serial or lpt1 poll display and open the cash register after each treansaction.
Howto Open Cashbox Drawer Of Cash Register Using Visual Basic Code
hi,
im developing a point of sale system for the first time but i know a bit how develop database system using visual basic and mdb and i plan implement on the network and my question are:
- using visualbasic code how can i open cash register drawer?
- does cash register printer the same as the usual printer?
Video Stock Controling Program
hi all..
i would like to know about POS programs for videos shops. i mean like a POS. i am using visual basic to create this program. i didnt to design the program yet.. cox i need idea about creating a program like this..
if you can give me a sample program.. or a link from where i can get a sample program it will be very helpful.. i hope that you will give me some idea about how to create a program like this..
thanks
Can You Make Your Vb Program Retrieve Stock Quotes?
I want to make a program that will retrieve the stock quote of a company with a click of a button. Can you guys help me with the basic concept??
Where would the program be able to pull this information from?
Database Program Of Flexgrid Cash Invoice
normalblack fixed
I'm making a program about a cash invoice program w/a msflexgrid form w/textboxes where i enter data coming from multiple datavase tables. My program is based on DAO n not using ADO or SQL entries. I'm having problem sending tha data in the flexgrid that came from the database tables into a new record in the database tables when i press the command button to enter that data into the tables. Here is a fregment code of my program about the cmdTransact button that will send/edit/update the data from the flexgrid into the database tables. Please f anyone can help me w/this to improve it or give me the correct code. Thank you.
Private Sub cmdTransact_Click()
Dim newcsno As Integer
newcsno = rs3!CSNO + 1
rs3.Edit
rs3!CSNO = newcsno
rs3.Update
Display
With rs4
.Index = "CustomerIndex"
.Seek "=", txtTin.Text
If .NoMatch Then
.AddNew
!CFTIN = txtTin.Text
!CFName = txtCustomerName.Text
!CFAddress = txtAddress.Text
.Update
End If
End With
With rs3
.Edit
!CSNO = !CSNO + 1
.Update
End With
With rs5
.AddNew
!CSFTIN = txtTin.Text
!CSFDate = lblDate(Label5.Caption)
rs1.Index = "EmplIndex"
rs1.Seek "=", txtEmpLname.Text
CSFEmpNo = rs1EmpNo
CSFTotal = txtTotal.Text
.Update
End With
txtTin.Text = " "
txtCustomerName.Text = " "
txtAddress.Text = " "
txtItemcode.Text = " "
txtQuantity.Text = " "
txtEmpLname.Text = " "
txtTotal.Text = " "
MSFlexGrid1.TextMatrix(I, 0) = " "
MSFlexGrid1.TextMatrix(I, 1) = " "
MSFlexGrid1.TextMatrix(I, 2) = " "
MSFlexGrid1.TextMatrix(I, 3) = " "
MSFlexGrid1.TextMatrix(I, 4) = " "
MSFlexGrid1.TextMatrix(I, 5) = " "
End Sub
'From computer sicence student from Philippines
Stock Control - Ideas(?)
Hi Guys,
I have recently studied VB6 and SQL 7/2000 myself. As a matter of fact I have only got book knoledge in VB6 and SQL7.
But I need to write Complete stock control project using SQL7 and VB. But I have no clue except these following two.
1. create tables in SQL and connecting tables using primary and foreign key
2. In VB - Design userinterface(like adding item into database, update, delete etc) in a Form and connecting the sql database with datacontrol
Is there anything more I should do or is there anyother way I can do the stock control?
Please give more ideas? I also accept critism
Thanks in advance.
dp
Multi-site Stock Control Example
Hi Everyone
Been looking on the web for a multisite database example, but with no luck.
Does anyone have an example that they could show me or at least point me in the right direction.
Had a few goes at putting one together myself, but it has all gone wrong.....
Click here to view my database effort
hope someone can help
cheers
Daniel ;-(
Edited by - Afy on 10/24/2006 3:51:47 AM
Building A Basic Stock Control System
ok,how do subtract a number(selected from adrop down list) from a field?enclosed is a szipped version of my db,it is access and very basic,also if someone could show how to make my re-order query work i would be much obliged
Send Control Code To LPT1 To Open Cash Drawer
I use the following in a VB6 point of sale program to open the cash drawer.
Open "lpt1:" for output as #1
Print #1, Chr$(open code usually 0 or 7)
Close #1
It works fine, but if the printer on the same port is not turned on, everything locks up and I have to either re-boot or disconnect the printer cable to get it "un-stuck".
Is there a (hopefully simple) way to check the port and printer status directly to see if the printer is turned on and send a message to turn it on if it's off ?
Thanks..
Register Program
I have download martinlis signature code register program, there are 2 project;modprotect and modgenkey
but compile error "cant find project or library"in line string$ do I have to remove "$" ? and
similar to strvolumebuffer$, strvolumename$ ?
is this call for a reference?
Any higlight are very much appreciated
Thanks in advance
Regards,
modprotect:
VB Code:
Public Function GetSerialNumber() As Long Dim strVolumeBuffer As String Dim strSysName As String Dim lngSerialNumber As Long Dim lngSysFlags As Long Dim lngComponentLen As Long Dim lngResult As Long strVolumeBuffer$ = String$(256, 0) strSysName$ = String$(256, 0) lngResult = GetVolumeInformation("C:", strVolumeBuffer$, 255, lngSerialNumber, _ lngComponentLen, lngSysFlags, strSysName$, 255) GetSerialNumber = lngSerialNumber End Function
and modgenkey has "left$"
VB Code:
Public Sub Main() Dim strLicenseKey As String Dim lngSerialNum As Long Const ZEROS = "000000000" lngSerialNum = InputBox("Enter user's hard drive serial number") ' This calculation must be the same as the one used in your application strLicenseKey = CStr(Int(3456 * Sqr(lngSerialNum / 5))) strLicenseKey = Left$(strLicenseKey, 9) If Len(strLicenseKey) < 9 Then strLicenseKey = Left$(ZEROS, 9 - Len(strLicenseKey)) & strLicenseKey End If strLicenseKey = Format(strLicenseKey, "@@@-@@@-@@@") frmGenKey.txtKey = strLicenseKey frmGenKey.Show vbModal End Sub
Register A Program
Hello
I would like my program to be able to be registered but the code has to match or it won't register
I want the thing to be like
if Len(code) = 16 then
code = ucase(code)
DoCheckcode code
Else
MsgBox "invalid code", vbExclamation, "ERROR!"
end if
sub Docheckcode(code as String)
If left(code, 1) = A then
goto check2
else
goto badcode
end if
check2:
if left(code) = anynumber then
goto check3
else
goto badcode
check3:
if left(code) = B then
goto check4
else
goto badcode
end if
end sub
and so on
but where it says any number I want the program to see if its a number
my question is how can I make my program go to bad code if its a number greater then nine or not a number at all
I hope you can understand my question
Register Program As A Service In XP
Hello everybody.... I am working in a user control program for windows XP. What I need is either if the program is closed using ctrl-alt-supr the whole operating system restarts or not let the user close the program by registring the program as a service.
How can I approach this?
Help Me: Program Register On Online?
i want make my program register on online.i have no idea ,can you pls help me?.how can we program this in vb
[Cimperiali: Title changed to match question:
"Help me?" does not give enough clues when wieving threads titles
Moving A Custom VB6 Program To A New PC - Install Disk Lost - TLB Register
I AM FLYING BY THE SEAT OF MY PANTS!
First off, I am not a VB6 programmer. My past includes programming in languages such as Cobol, Fortran, Basic, Apple Basic, SQL, some HTML, etc. but I have been on the tech side of things for the last 10+ years with occasional troubleshooting in different languages as needed.
My problem: Installed a new hard drive for a client and performed a fresh XP Home install due to possible corruption in the old drive's XP registry. Client gave me a list of all the programs to move over and forgot about a database program used for their business that they had custom-made. They have no Install CD or disk and we can't locate the programmer. I do, however, have the old hard drive and the program still functions in XP. The only module of the program not working is "Reports". An uninstall log does exist - is it possible to create an INSTALL file this Uninstall file? Using what I know, I created a batch files that copies and registers the DLLs but don't know how to register the TLB & OLB files (STDOLE2.TLB, MSADO20.TLB, MSACC9.OLB).
What's happening with the "Reports" module:
Error message: Error opening file. File could not be opened: "Invoice Report", at file location: "Invoice Report"
I click OK and then, after I select the report parameters, I get Run-time error '20535': Unable to connect: incorrect session parameters.
Online I found regasm.exe but am not sure if I should use this and I found Run-time error 20535 but I am going in circles.
Additional info: The program was originally written in 1999-2000 and then updated in 2002 (for XP?) and programmer is not to be found.
ANY help is appreciated!
Register Control?
Hi!
I would like to register some controls on my PC. mschrt20.ocx and MSFlxGrd.ocx. I want to use them in UserForm
I have registered them using regsvr32. After executing this command it displayed that the succesfull registration was done.
After registration using additional control in toolbox I select these control, but trying to place them to UserForm the program still displaying "not properly registered" error message.
Please help.
Boris
Register Control
I need to know a way that I can have my user register my commercial controls.
I could use the registry or an ini file, but the problem would be on the computer of a user that uses their program. I'm going to have msgbox popup saying "This control is not registered." everytime it is initialized, except for after they register.
Is there a way I can store inside the .ocx whether or not it's registered, like in some kind of resource file that's part of the .ocx?
Or does anyone have a better idea?
|
TRACKER
