Moin Moin zusammen,
Ich bin etwas zu .. .. um das C# Konsolenanwenungsdingsbums in ein Win Forms VB.Net um zu basteln.
Hoffe ihr könnt mir da etwas Helfen.
Ziel: Auslesen von NFC Tags.
Betrieb via USB
Orginal Script
Die Imports habe ich bereits auch das NFC Nuget Packet.
Imports Sydesoft.NfcDevice
Nuget: NFC-ACR122U
Ich weis das es da bessere Reader gibt aber das war ein Geschenk ^.^...
Währe schön wenn mir da jemand helfen könnte.
Lg Teng
Ich bin etwas zu .. .. um das C# Konsolenanwenungsdingsbums in ein Win Forms VB.Net um zu basteln.
Hoffe ihr könnt mir da etwas Helfen.
Ziel: Auslesen von NFC Tags.
Betrieb via USB
Orginal Script
C#-Quellcode
- using Sydesoft.NfcDevice;
- using System;
- using System.Collections.Generic;
- using System.Linq;
- using System.Text;
- using System.Threading.Tasks;
- namespace ConsoleApp1
- {
- class Program
- {
- private static Sydesoft.NfcDevice.ACR122U acr122u = new ACR122U();
- static void Main(string[] args)
- {
- acr122u.Init(false, 50, 4, 4, 200); // NTAG213
- acr122u.CardInserted += Acr122u_CardInserted;
- acr122u.CardRemoved += Acr122u_CardRemoved;
- Console.ReadLine();
- }
- private static void Acr122u_CardInserted(PCSC.ICardReader reader)
- {
- Console.WriteLine("NFC Transponder wurde aufgelegt.");
- Console.WriteLine("Unique ID: " + BitConverter.ToString(acr122u.GetUID(reader)).Replace("-", ""));
- string data = "Hello World";
- Console.WriteLine("Daten auf NFC Transponder schreiben: " + data);
- bool ret = acr122u.WriteData(reader, Encoding.UTF8.GetBytes(data));
- Console.WriteLine("Schreibvorgang: " + (ret ? "erfolgreich" : "fehlgeschlagen"));
- Console.WriteLine("Daten von NFC Transponder auslesen: " + Encoding.UTF8.GetString(acr122u.ReadData(reader)));
- }
- private static void Acr122u_CardRemoved()
- {
- Console.WriteLine("NFC Transponder wurde entfernt.");
- }
- }
Die Imports habe ich bereits auch das NFC Nuget Packet.
Imports Sydesoft.NfcDevice
Nuget: NFC-ACR122U
Ich weis das es da bessere Reader gibt aber das war ein Geschenk ^.^...
VB.NET-Quellcode
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- acr122u.Init(False, 50, 4, 4, 200)
- AddHandler acr122u.CardInserted, AddressOf Acr122u_CardInserted
- AddHandler acr122u.CardRemoved, AddressOf Acr122u_CardRemoved
- Console.ReadLine()
- End Sub
- Private Shared Sub Acr122u_CardInserted(ByVal reader As PCSC.ICardReader)
- ' Dim rtb11 As RichTextBox = Form1.rtb1
- ' rtb11.AppendText(Environment.NewLine & "NFC Transponder wurde aufgelegt.")
- Console.WriteLine("NFC Transponder wurde aufgelegt.")
- Console.WriteLine("Unique ID: " & BitConverter.ToString(acr122u.GetUID(reader)).Replace("-", ""))
- Dim data As String = "Hello World"
- Console.WriteLine("Daten auf NFC Transponder schreiben: " & data)
- Dim ret As Boolean = acr122u.WriteData(reader, Encoding.UTF8.GetBytes(data))
- Console.WriteLine("Schreibvorgang: " & (If(ret, "erfolgreich", "fehlgeschlagen")))
- Console.WriteLine("Daten von NFC Transponder auslesen: " & Encoding.UTF8.GetString(acr122u.ReadData(reader)))
- End Sub
- Private Shared Sub Acr122u_CardRemoved()
- Console.WriteLine("NFC Transponder wurde entfernt.")
- End Sub
- End Class
Währe schön wenn mir da jemand helfen könnte.
Lg Teng