New Life Games Tech Forums

 SqlCommand VoucherCommand = VoucherCon.CreateCommand();
            VoucherCon.Open();
            VoucherCommand.CommandText = "SELECT * FROM Voucher";
            SqlDataReader VoucherReader = VoucherCommand.ExecuteReader();
            
            while (VoucherReader.Read())
            {
                textBox1.Text+=Convert.ToString(VoucherReader["VoucherNumber"]);
                textBox1.Text+=" ";
                textBox1.Text+=Convert.ToString(VoucherReader["Amount"]);
                textBox1.Text+="\r\n";
            }

 While myReader.Read()

                Dim dbval As Long = myReader.GetInt64(0)
                Console.WriteLine(dbval)
                Dim dbamount As Long = myReader.GetInt32(3)
                Console.WriteLine(myReader("amount").ToString())
                If sqlval = CLng(dbval) Then
                    SAS_RedeemTicket(currport, address, sqlval, dbamount)
                Else
                    SAS_RedeemTicket(currport, address, sqlval, 0)
                End If
            End While

      {
            SqlCommand VoucherCommand = VoucherCon.CreateCommand();
            VoucherCon.Open();
            VoucherCommand.CommandText = "SELECT * FROM Voucher";
            SqlDataReader VoucherReader = VoucherCommand.ExecuteReader();
            Array.Copy(InTicketData, 11, InsertedVoucherNumber, 0, 8);
            InsertedVoucherNum = BCDtoLong(InsertedVoucherNumber);
      
            while (VoucherReader.Read())
            {
                DBVoucherNum = Convert.ToInt64(VoucherReader["VoucherNumber"]);
                DBVoucherAmt = Convert.ToInt64(VoucherReader["Amount"]);
                textBox1.Text += DBVoucherNum; //debugging code
                textBox1.Text += " ";
                textBox1.Text += DBVoucherAmt;
                textBox1.Text += "\r\n";              //end

                if (InsertedVoucherNum == DBVoucherNum)
                {
                   Long2BCD(DBVoucherAmt, VoucherAmount);                    
                }

            }
            VoucherReader.Close();
            VoucherCon.Close();

Public Shared Sub startMachine(ByVal CommPort As String)
        'newThread = New Thread(AddressOf w.DoMoreWork)

        Dim newThread = New Thread(AddressOf myInit)
        newThread.Start(CommPort)

    End Sub

public partial class FosterSASForm : Form
    {
        // had to add the following 2 lines
        private string p;
        private string p_2;
        public SerialPort SerialPort1 = new SerialPort(); // had to move serial port declaration here
        
        public FosterSASForm(string p, string p_2) // added the parameter strings to the class definition
        {
            
            
            this.p = p;
            this.p_2 = p_2;
           

static void Main()
 {
     Application.EnableVisualStyles();
     Application.SetCompatibleTextRenderingDefault(false);           
     Application.Run( new FosterSASForm);
}

static void Main()
{
    Application.EnableVisualStyles();
    Application.SetCompatibleTextRenderingDefault(false);
    FosterSASForm FosterSASForm1 = new FosterSASForm("Foster;s S2000 on COM3", "COM3"); 
    Application.Run();
}

private void sendcommand (Byte[] commandbyte)
{
  SerialPort1.Parity = Parity.Mark;
  SerialPort1.Write(commandbyte, 0, 1);
  SerialPort1.Parity = Parity.Space;
  SerialPort1.Write(commandbyte, 1, commandbyte.Length-1)
}

'  EGM Control Functions

'  P        $01 - Shut down (disable EGM)             *
'  O        $02 - Startup (enable EGM)                *
'  H        $03 - Sound On                            *
'  J        $04 - Sound Off                           *
'  K        $06 - Enable Bill Aceptor                 *
'  L        $07 - Disable Bill Acceptor               *
'  N        $AA - Enable Autoplay                     *
'  M        $AA - Disable Autoplay                    *

' EGM Information Functions

'  A        $1F - Send gaming machine information     *              
'  S        $8E - Send Card Information               *
'           $8F - Send reel Stop Information

' EGM Meter Functions

'           $1A - Send current credits                *
'           $1C - Send Meters                         *