THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU THANK-YOU
All I need to do now is work out how I can intergrate that in to my application below is the sub for the salescreen (bit basic at the moment as I am still figuring things out)
Code: Select all
ItemsSold = 0
Cls
Line (0,0) - (800,600), white, BF 'Draws the white box at the top of the screen
Line (0,32) - (630,600), Grey, BF ' Draw the gray background for the sign off display
Line (0,580) - (630,600), Blue, BF ' Draws the blue background for the user task bar
Line (10,40) - (300,80), black, BF' Draws the Sub total box
Line (400,40) - (600,80), black, BF' Draws the Item count box
Line (10,90) - (600,500), white, BF' Draws the box for the current sale list
Line (10,510) - (600,570), red, BF' Draws the box for the current sale list
Do
Dim KeyInString As String
KeyInString = InKey
If KeyInString = "0" Then KeyInPutData = KeyInPutData & "0"
If KeyInString = "1" Then KeyInPutData = KeyInPutData & "1"
If KeyInString = "2" Then KeyInPutData = KeyInPutData & "2"
If KeyInString = "3" Then KeyInPutData = KeyInPutData & "3"
If KeyInString = "4" Then KeyInPutData = KeyInPutData & "4"
If KeyInString = "5" Then KeyInPutData = KeyInPutData & "5"
If KeyInString = "6" Then KeyInPutData = KeyInPutData & "6"
If KeyInString = "7" Then KeyInPutData = KeyInPutData & "7"
If KeyInString = "8" Then KeyInPutData = KeyInPutData & "8"
If KeyInString = "9" Then KeyInPutData = KeyInPutData & "9"
KeyInString = ""
text_scaler(20, 0+(3*16), 1, "Sub Total", white) ' Prints Sub total on the screen
text_scaler(180, 10+(3*16), 3, Format(TotalDue, Chr$(156) & "######0.00"), white) ' Displays the Sub total value
text_scaler(410, 0+(3*16), 1, "Items Sold", white) ' Prints Items sold on the screen
text_scaler(575, 10+(3*16), 3, "" & ItemsSold, white) ' Displays the items sold
text_scaler(10, 537+(3*16), 1, RecTillNumber, White) ' Displys the till number
text_scaler(50, 537+(3*16), 1, Format(Now,"hh:mm"), White, Blue) ' Displays the time
text_scaler(120, 537+(3*16), 1, Format(Now,"dd/mm/yyyy"), White, Blue) ' Displyas the Date
text_scaler(250, 537+(3*16), 1, "123456", White, Blue) ' Displyas the transacation number
text_scaler(300, 537+(3*16), 1, "1234", White, Blue) ' Displyas the Cashier number
text_scaler(350, 537+(3*16), 1, "12345678901234567890", White, Blue) 'displays the cashier name
If TotalDue = 0 Then
text_scaler(20, 470+(3*16), 2, "Next Customer Please", Black) ' displasy the Next customer please on the screen
Else
text_scaler(20, 470+(3*16), 1, "Scan / Key", Black) ' displasy the Next customer please on the screen
text_scaler(20, 500+(3*16), 1, "Next Item", Black) ' displasy the Next customer please on the screen
text_scaler(290, 500+(3*16), 2, KeyInPutData, Black) ' displasy the Next customer please on the screen
End If
'Normal Keys
'Shift Key
If MultiKey(SC_LSHIFT) And MultiKey(SC_F1) Then SignOffQuestion ' F1 sign on key
'Control Key
If MultiKey(SC_CONTROL) And MultiKey(SC_F1) Then End 'F1 End (remove when live)
Loop