Visual Basic

using SPORTident;
using System.Windows.Forms;
using SPORTident.Communication;
using System;

namespace SportidentMinimal
{
    public partial class MainForm : Form
    {
        public Reader reader;

        public MainForm()
        {
            InitializeComponent();

            reader = new Reader
            {
                WriteBackupFile = true,
                BackupFileName = System.IO.Path.Combine(Environment.CurrentDirectory, $@"backup\{DateTime.Now:yyyy-MM-dd}_stamps.bak")
            };

            reader.DeviceConfigurationRead += new DeviceConfigurationReadEventHandler(reader_DeviceConfigurationRead);
            reader.InputDeviceChanged += new ReaderDeviceChangedEventHandler(reader_InputDeviceChanged);
            reader.InputDeviceStateChanged += new ReaderDeviceStateChangedEventHandler(reader_InputDeviceStateChanged);
            reader.CardRead += new SPORTident.DataReadCompletedEventHandler(reader_CardRead);
        }

        private void reader_DeviceConfigurationRead(object sender, StationConfigurationEventArgs e)
        {
            writeLog("StationConfigRead, OperatingMode: " + e.Device.OperatingMode);
            writeLog("StationConfigRead, LegacyProtocolMode: " + e.Device.LegacyProtocolMode);
            writeLog("StationConfigRead, AutoSend: " + e.Device.AutoSendMode);
            writeLog("StationConfigRead, FirmwareVersion: " + e.Device.FirmwareVersion);
            writeLog("StationConfigRead, CodeNumber: " + e.Device.CodeNumber);
            writeLog("StationConfigRead, SerialNumber: " + e.Device.SerialNumber);
        }

        private void reader_InputDeviceStateChanged(object sender, ReaderDeviceStateChangedEventArgs e)
        {
            writeLog("InputDeviceStateChanged: " + e.PreviousState + " => " + e.CurrentState);
        }

        private void reader_InputDeviceChanged(object sender, ReaderDeviceChangedEventArgs e)
        {
            writeLog("InputDeviceChanged: " + e.PreviousDevice + " => " + e.CurrentDevice);
        }

        private void reader_CardRead(object sender, SportidentDataEventArgs e)
        {
            SportidentCard card = e.Cards[0];
            writeLog("Card read: " + card.Siid);
        }

        private void button_refresh_Click(object sender, EventArgs e)
        {
            writeLog("Refresh pressed");
            clearSIDevices();
            getSIDevices();
        }

        private void button_sportidentConnect_Click(object sender, EventArgs e)
        {
            writeLog("Connect pressed");
            try
            {
                connect();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
        }

        private void button_sportidentDisconnect_Click(object sender, EventArgs e)
        {
            writeLog("Disconnect pressed");
            disconnect();
        }

        private void writeLog(string text)
        {
            if (listBox_log.InvokeRequired)
            {
                listBox_log.Invoke(new Action(() => writeLog(text)));
            }
            else
            {
                listBox_log.Items.Add(text);
                listBox_log.SelectedIndex = listBox_log.Items.Count - 1;
                listBox_log.SelectedIndex = -1;
            }
        }

        private void clearSIDevices()
        {
            writeLog("Clearing list of devices");
            comboBox_sportidentDevices.Items.Clear();
        }

        private void getSIDevices()
        {
            writeLog("Scanning for available devices");
            ReaderDeviceInfo.GetAvailableDeviceList();
            foreach (ReaderDeviceInfo device in ReaderDeviceInfo.AvailableDevices)
            {
                comboBox_sportidentDevices.Items.Add(device);
                writeLog("Adding device: " + device.DeviceName);
            }
            if (comboBox_sportidentDevices.Items.Count > 0)
            {
                writeLog("Found " + comboBox_sportidentDevices.Items.Count + " devices");
                comboBox_sportidentDevices.SelectedIndex = 0;
            }
            else
            {
                writeLog("No devices found");
            }
        }

        private void connect()
        {
            ReaderDeviceInfo readerDeviceInfo = (ReaderDeviceInfo)(comboBox_sportidentDevices.SelectedItem);
            reader.InputDevice = readerDeviceInfo;
            reader.OutputDevice = new ReaderDeviceInfo(ReaderDeviceType.None);
            reader.OpenInputDevice();
            reader.OpenOutputDevice();

            comboBox_sportidentDevices.Enabled = false;
            button_refresh.Enabled = false;
            button_sportidentConnect.Enabled = false;
            button_sportidentDisconnect.Enabled = true;
        }

        private void disconnect()
        {
            comboBox_sportidentDevices.Enabled = true;
            button_refresh.Enabled = true;
            button_sportidentConnect.Enabled = true;
            button_sportidentDisconnect.Enabled = false;

            reader.CloseInputDevice();
        }
    }
}

Imports SPORTident
Imports SPORTident.Communication


Public Class Results_Capture_Enduro
    Public reader As Reader


    Public Sub New()
        InitializeComponent()

        reader = New Reader() With {
                .WriteBackupFile = True,
                .BackupFileName = System.IO.Path.Combine(Environment.CurrentDirectory, "backup\{DateTime.Now:yyyy-MM-dd}_stamps.bak")
            }

        AddHandler reader.DeviceConfigurationRead, New DeviceConfigurationReadEventHandler(AddressOf reader_DeviceConfigurationRead)
        AddHandler reader.InputDeviceChanged, New ReaderDeviceChangedEventHandler(AddressOf reader_InputDeviceChanged)
        AddHandler reader.InputDeviceStateChanged, New ReaderDeviceStateChangedEventHandler(AddressOf reader_InputDeviceStateChanged)
        AddHandler reader.CardRead, New SPORTident.DataReadCompletedEventHandler(AddressOf reader_CardRead)

    End Sub

    Private Sub reader_DeviceConfigurationRead(sender As Object, e As StationConfigurationEventArgs)
        writeLog("StationConfigRead, OperatingMode: " & e.Device.OperatingMode.ToString)
        writeLog("StationConfigRead, LegacyProtocolMode: " & e.Device.LegacyProtocolMode.ToString)
        writeLog("StationConfigRead, AutoSend: " & e.Device.AutoSendMode.ToString)
        writeLog("StationConfigRead, FirmwareVersion: " & e.Device.FirmwareVersion.ToString)
        writeLog("StationConfigRead, CodeNumber: " & e.Device.CodeNumber.ToString)
        writeLog("StationConfigRead, SerialNumber: " & e.Device.SerialNumber.ToString)
    End Sub

    Private Sub reader_InputDeviceStateChanged(sender As Object, e As ReaderDeviceStateChangedEventArgs)
        writeLog("InputDeviceStateChanged: " & e.PreviousState.ToString & " => " & e.CurrentState.ToString)
    End Sub

    Private Sub reader_InputDeviceChanged(sender As Object, e As ReaderDeviceChangedEventArgs)
        writeLog("InputDeviceChanged: " & e.PreviousDevice.ToString & " => " & e.CurrentDevice.ToString)
    End Sub

    Private Sub reader_CardRead(sender As Object, e As SportidentDataEventArgs)
        MessageBox.Show("got here")

        Dim card As SportidentCard = e.Cards(0)

        writeLog("Card read: " & card.Siid.ToString)
    End Sub

    Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
        writeLog("Refresh pressed")
        clearSIDevices()
        getSIDevices()
    End Sub

    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
        writeLog("Connect pressed")
        connect()
    End Sub

    Private Sub btnDisconnect_Click(sender As Object, e As EventArgs) Handles btnDisconnect.Click
        writeLog("Disconnect pressed")
        disconnect()
    End Sub

    Private Sub writeLog(Text As String)

        If listBox_log.InvokeRequired Then
            listBox_log.Invoke(New Action(Sub() writeLog(Text)))
        Else
            listBox_log.Items.Add(Text)
            listBox_log.SelectedIndex = listBox_log.Items.Count - 1
            listBox_log.SelectedIndex = -1
        End If
    End Sub

    Private Sub clearSIDevices()
        writeLog("Clearing list of devices")
        cbbSportIdentDevices.Items.Clear()
    End Sub

    Private Sub getSIDevices()
        writeLog("Scanning for available devices")

        ReaderDeviceInfo.GetAvailableDeviceList()

        For Each device As ReaderDeviceInfo In ReaderDeviceInfo.AvailableDevices
            cbbSportIdentDevices.Items.Add(device)
            writeLog("Adding device:  " & device.DeviceName.ToString)
        Next
        If cbbSportIdentDevices.Items.Count > 0 Then
            writeLog("Found " & cbbSportIdentDevices.Items.Count.ToString & " devices")
            cbbSportIdentDevices.SelectedIndex = 0
        Else
            writeLog("No devices found")
        End If


    End Sub

    Private Sub connect()

        Dim readerDeviceInfo As ReaderDeviceInfo = CType((cbbSportIdentDevices.SelectedItem), ReaderDeviceInfo)
        reader.InputDevice = readerDeviceInfo
        reader.OutputDevice = New ReaderDeviceInfo(ReaderDeviceType.None)
        reader.OpenInputDevice()
        reader.OpenOutputDevice()

    End Sub

    Private Sub disconnect()
        'reader = New Reader()
        cbbSportIdentDevices.Enabled = True
        reader.CloseInputDevice()
    End Sub

End Class

Private Sub connect()

    Dim readerDeviceInfo As ReaderDeviceInfo = CType((cbbSportIdentDevices.SelectedItem), ReaderDeviceInfo)
    reader.InputDevice = readerDeviceInfo
    reader.OutputDevice = New ReaderDeviceInfo(ReaderDeviceType.None)
    reader.OpenInputDevice()
    reader.OpenOutputDevice()

End Sub

Dim result As New RightCategoryModel

Dim queryCmd As String
queryCmd = "SELECT RightCategoryId, Category, Description, IsDeleted FROM tblRightCategories WHERE RightCategoryId = " + CStr(Id)

Dim Db As Database
Dim rs As Recordset
Set Db = DBEngine(0)(0)
Set rs = Db.OpenRecordset(queryCmd)

If rs.RecordCount > 0 Then

    With result
        .Id = rs.Fields("RightCategoryId")
        .Category = rs.Fields("Category")
        .Description = rs.Fields("Description")
        .IsDeleted = rs.Fields("IsDeleted")
    End With

End If

set GetRightCategory = result

Imports System.Printing
Public Class Form1
Private Sub ConnectionStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectionStatusToolStripMenuItem.Click
        If thPQueue.IsOffline = True Then
            MsgBox("The printer is currently offline.", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsWaiting Then
            MsgBox("The printer is on wait mode.", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsWarmingUp Then
            MsgBox("The printer is currently warming up. Please wait", vbInformation + vbOKOnly, "Printer Status")
        ElseIf thPQueue.IsNotAvailable Then
            MsgBox("The printer is currently not available.", vbInformation + vbOKOnly, "Printer Status")

        End If
    End Sub
End Class