RIOCOM.DLL
В
This DLL uses 32 bits integers, when used with programming languages that have 16-bit integers its functions must be prototyped using long int instead of int. All functions return 32 bit integer error codes.
В
______________________________________________________________________________
В
DLL Initialization and Termination
В
int __stdcall menu_init(int com_no,int first_terminal,int last_terminal,int license_no)
В
Description:
В
Initializes the antenna and puts it in receive mode. Takes about 1 second.
В
Parameters:
В
com_no: COM port number (1 for COM1)
В
first_terminal and last_terminal: Wireless devices will only be acknowledged if numbered between these values.
В
license_no: Installation license Number. Must match the license number that is programmed into the wireless devices. Several systems can coexist in the same area as long as they have a different license number.
В
Return values:
0 -> Success
2 -> INVALID_COM_PORT or COM_PORT_ALREADY_IN_USE
3 -> GENERIC_ERROR
4 -> NO_ANTENNA_FOUND
В
В
В
В
int __stdcall menu_close()
В
Description:
В
Frees the COM port and puts the antenna back in no-receive mode.
В
________________________________________________________________________________
В
Sending menu items to the 'X64 Smart Menu'
В
В
int __stdcall menu_item( int code, char *name,char *price, int position)
В
Description:
В
Declare a new menu item on the current menu item group.
В
Parameters:
В
code: Item Code (1 to 9000)
В
name: Item name. Example: "Coca Cola"
В
price: Item price. Example 2.25
В
position: Menu page number and item position on the page. Example: for an item to be set on page 3 line 10 position = (3-1)*24+10=58
int __stdcall menu_item_modifier_group( char *page_title,int min,int max,int default_value)
В
Description:
В
Assigns a modifier group to a menu item. More than one modifier group can be assigned to an item by calling this function repeatedly.
В
Parameters:
В
page_title: Title of the modifier group to be assigned.
В
min: Minimum number of items that the end user must select in the group.
В
max: Maximum number of items that the end user must select in the group.
В
default_value: Each bit of this code makes the corresponding modifier in the group pre-selected by default.
В
В
int __stdcall menu_modifier_group(char *title)
В
Description:
В
Create a new modifier group.
В
________________________________________________________________________________
В
int __stdcall menu_modifier(int code, char *name,int position)
В
Description:
В
Declares a new modifier in the current modifier group.
{RND_WORD} font-weight: normal;" align="LEFT">В
Parameters:
В
code: Modifier Code (1 to 9000)
В
name: Modifier description. Example: "Extra Cheese"
В
position: Menu page number and item position on the page. Example: for an item to be set on page 3 line 10 position = (3-1)*24+10=58
В
Example:
В
menu_modifier_group("PIZZA INGREDIENTS");
menu_modifier(1000,"Extra Cheese",25); // Binary 1
menu_modifier(1001,"Sun-Dried Tomato",26); // Binary 2
menu_modifier(1002,"Olives",27); // Binary 4
menu_modifier(1003,"Pineapple Pieces",28); // Binary 8
menu_modifier(1004,"Garlic",29); // Binary 16
menu_modifier(1005,"Mushrooms",30); // Bynary 32
Roulette , have enjoyed many developments too such as the inclusion of the Eagle slot. font-weight: normal;" {RND_WORD} align="LEFT">В
menu_item(500,"Custom Pizza",30,1);
menu_item_modifier_group("PIZZA INGREDIENTS",0,1,1,4);// "Olives" is pre-selected by default
В
________________________________________________________________________________
В
int __stdcall menu_upload()
В
Description:
В
Sends all the data to the 'X64 Smart Menu' devices.
В
В
Another example:
В
menu_modifier_group("ICE")
menu_modifier(1000, "WITH ICE", 25)
menu_modifier(1001, "WITHOUT ICE", 26)
В
menu_modifier_group("ICE_CREAM_INGREDIENTS")
menu_modifier(1010, "CHOCOLATE", 30)
menu_modifier(1011, "LEMON", 31)
menu_modifier(1012, "MENTA", 32)
menu_modifier(1013, "APPLE", 33)
menu_modifier(1014, "BANANA", 34)
menu_modifier(1015, "ORANGE", 35)
В
menu_item(500, "COCA COLA", 25, 1)
menu_item_modifier_group("ICE", 0, 1, 0)
menu_item(501, "7 UP", 25, 2)
menu_item_modifier_group("ICE", 0, 1, 0)
menu_item(502, "1 BALL", 30, 3)
Slots online without busting your align="LEFT">menu_item_modifier_group("ICE_CREAM_INGREDIENTS", 1, 1, 0)
menu_item(503, "2 BALLS", 31, 4)
menu_item_modifier_group("ICE_CREAM_INGREDIENTS", 2, 2, 0)
jameshallison casino align="LEFT">menu_item(504, "3 BALLS", 32, 5)
menu_item_modifier_group("ICE_CREAM_INGREDIENTS", 3, 3, drjeffsklar.com 0)
В
menu_upload()
В
В
best-driving-school.com Instructor when the lesson has been delivered. page-break-before: always;" align="CENTER">Receiving data from the 'X64 Smart Menu' devices
В
int __stdcall menu_receive(int *function,int *terminal,int *license,int *items,int *table,char *plus,char *qty)
В
Description:
В
{RND_WORD} normal;" align="LEFT">This function should be called periodically about 10 times a second. It receives wireless data from the 'X64 Smart Menu' devices.
casinos ajt som du tycker verkar fortroendeingivande, rent allmant sett. font-style: normal; font-weight: normal;" align="LEFT">В
(Return) Parameters:
В
function:
В
ASC('P') -> the message is an order for one or several items.
В
ASC('C') -> the message is a bill request.
В
terminal: Wireless device number. Every device casino online must have its exclusive number.
В
license: License number. All the devices in the same installation must have the same license number.
В
items: Number of items received.
В
table: Table number.
В
plus: A pointer to an string with the ordered items codes grouped with 8 chars/item.
В
qty: A pointer to an string with the ordered items quantities grouped with 8 chars/item.
В
Return Values:
В
0 --> OK - Order received, data is available to be read.
-1 --> OK - No order received.
В
В
В
В
В
FULL VB 2008 Program to send and receive data from 'X64 Smart Menu'.
CODE SAMPLE:
В
Public Class Form1
В
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ComPort.Text.Length = 0 Or License.Text.Length = 0 Then
MsgBox("Please fill comport and license!")
Exit Sub
End If
В
If menu_init(CInt(ComPort.Text), 0, 65535, CInt(License.Text)) = 0 Then
SendData.Enabled = True
End If
End Sub
В
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If SendData.Enabled = True Then
menu_close()
SendData.Enabled = False
End If
End Sub
В
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendData.Click
menu_modifier_group("ICE")
menu_modifier(1000, "WITH ICE", 25)
menu_modifier(1001, "WITHOUT ICE", 26)
В
menu_modifier_group("ICE_CREAM_INGREDIENTS")
menu_modifier(1010, "CHOCOLATE", 30)
menu_modifier(1011, "LEMON", 31)
menu_modifier(1012, "MENTA", 32)
menu_modifier(1013, "APPLE", 33)
menu_modifier(1014, "BANANA", 34)
menu_modifier(1015, "ORANGE", 35)
В
menu_item(500, "COCA COLA", 25, 1)
menu_item_modifier_group("ICE", 0, 1, 0)
menu_item(501, "7 UP", 25, 2)
menu_item_modifier_group("ICE", 0, 1, 0)
menu_item(502, "1 BALL", 30, 3)
menu_item_modifier_group("ICE_CREAM_INGREDIENTS", 1, 1, 0)
menu_item(503, "2 BALLS", 31, 4)
menu_item_modifier_group("ICE_CREAM_INGREDIENTS", 2, 2, 0)
menu_item(504, "3 BALLS", 32, 5)
menu_item_modifier_group("ICE_CREAM_INGREDIENTS", 3, 3, 0)
menu_upload()
End Sub
В
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim n As Integer
Dim p_function As Integer
Dim p_terminal As Integer
Dim p_license As Integer
Dim p_items As Integer
Dim p_table As Integer
В
Dim p_plus(64) As Integer
Dim p_qtds(64) As Integer
В
Dim plus_aux As String
Dim qty_aux As String
В
If SendData.Enabled = True Then
plus_aux = Space(512)
qty_aux = Space(512)
В
If menu_receive(p_function, p_terminal, p_license, p_items, p_table, plus_aux, qty_aux) = 0 Then
For n = 0 To p_items - 1
p_plus(n) = CInt(plus_aux.Substring(n * 8, 8).Trim)
p_qtds(n) = CInt(qty_aux.Substring(n * 8, 8).Trim)
Next
PList.Text = ""
For n = 0 To p_items - 1
PList.Text = PList.Text + "PLU:" + (p_plus(n).ToString) + " , "
PList.Text = PList.Text + "QTD" + (p_qtds(n).ToString) + Chr(13) + Chr(10)
Next
В
TerminalNo.Text = p_terminal
Table.Text = p_table
End If
End If
End Sub
End Class
