PureBasic

Private Sub VelbusSerialBus_PacketReceived(ByVal source As System.Object, ByVal args As Velleman.Velbus.BusPacketIoEventArgs) Handles VelbusSerialBus.PacketReceived
        Dim IncommingData As String

        IncommingData = "Start = " & (Hex(args.Packet.STX) + Chr(13))
        IncommingData = IncommingData & "Address = " & (Hex(args.Packet.Address) & Chr(13))
        IncommingData = IncommingData & "Priority = " & (Hex(args.Packet.Priority) & Chr(13))
        IncommingData = IncommingData & "RTR = " & (args.Packet.Rtr) & Chr(13)
        IncommingData = IncommingData & "Size = " & (args.Packet.Size) & Chr(13)
        IncommingData = IncommingData & "Cmd = " & (args.Packet.Command) & Chr(13)
        IncommingData = IncommingData & "ETX = " & (Hex(args.Packet.ETX) & Chr(13))

        IncommingData = IncommingData & "Has Cmd = " & (args.Packet.HasCommand)

        MsgBox(IncommingData) 'show me the packet

End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Velleman.Velbus;

namespace DemoAsync
{
    public partial class MainForm : Form
    {
        /* Create a new SerialBus instance */
        private SerialBus m_Bus = new SerialBus();

        public MainForm()
        {
            InitializeComponent();

            m_Bus.PacketReceived += new BusPacketIoEventHandler(PacketReceived);
            m_Bus.PacketSent += new BusPacketIoEventHandler(PacketSent);
        }

        private void btnConnect_Click(object sender, EventArgs e)
        {
            /* Connect to the specified port */
            m_Bus.PortName = cbPort.Text;
            m_Bus.Open();
        }

        private void btnDisconnect_Click(object sender, EventArgs e)
        {
            /* Close the port */
            m_Bus.Close();
        }

        private void btnScan_Click(object sender, EventArgs e)
        {
            /* Send out module type request to each possible address. These
             * packets are useful for scanning purposes, since modules will react
             * to them. */

            Packet packet = new Packet();         // no databytes, default address
            packet.Priority = PacketPriority.Low; // low priority
            packet.Rtr = true;                    // rtr must be enabled

            for (int i = 0x02; i <= 0xFF; i++)
            {
                // loop over all possible addresses
                // and send out our scan packet
                packet.Address = (byte)i;
                m_Bus.Send(packet);
            }
        }

        private void WriteLog(string msg)
        {
            /* Since the input/output operations for asynchronous IO occur on
             * a secundary thread, we need to synchronize it with our GUI thread.
             * This is the same method as if you would use the SerialPort component */

            if (lstLog.InvokeRequired)
                lstLog.BeginInvoke(new MethodInvoker(delegate() { WriteLog(msg); }));
            else
                lstLog.Items.Add(msg);
        }

        private void PacketReceived(object source, BusPacketIoEventArgs args)
        {
            // Log read operation
            WriteLog(String.Format("Packet received from address {0}", args.Packet.Address));
        }

        public void PacketSent(object source, BusPacketIoEventArgs args)
        {
            // Log write operation
            WriteLog(String.Format("Packet sent to address {0}", args.Packet.Address));
        }

        private void MainForm_FormClosed(object sender, FormClosedEventArgs e)
        {
            m_Bus.Close(); // Be sure to clean up
        }
    }
}

Enumeration
   #Bibliotheque
EndEnumeration
NomFichier$ = "D:\telechargement\Domotique\Velbus\VelbusLib\Velbus\bin\Release\Velleman.Velbus.dll"

IncludeFile "Common.pb"
Resultat = OpenLibrary(#Bibliotheque, NomFichier$)
Debug Resultat
Resultat = OpenLibrary(#Bibliotheque, NomFichier$)
Debug Resultat  --> OK
Debug IsLibrary(#Bibliotheque)  --> OK
Debug CountLibraryFunctions(#Bibliotheque)  --> 0 (!)
Debug ExamineLibraryFunctions(#Bibliotheque)  --> -1 (!)
Debug GetFunction(#Bibliotheque, "Velleman.Velbus.bus.SendBlocking")  --> 0 (!)
Debug GetFunction(#Bibliotheque, "bus.SendBlocking")  --> 0 (!)

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
Enumeration
   #CanalCOM
   #Timer1
EndEnumeration

Global *Buffer = AllocateMemory(30000)
IncludeFile "Common.pb"

;ConnexionID = OpenNetworkConnection("127.0.0.1", 3788)
;Debug ConnexionID

Procedure.s Hexa2(string$,longueur)
   Debug "Longueur Trame (proc Hexa2): "+ Str(longueur) + "  ["+PeekS(*Buffer)+"]"
   r$ = ""
   For t = 0 To longueur
     a$ = Trim(Hex(PeekB(*Buffer+t) & 255))+" "
     If Len(a$) = 2
        a$ = "0"+ a$
     EndIf
      r$ = r$ + a$
   Next t
   r$ = r$ + Chr(13)+Chr(10)
   ProcedureReturn r$
EndProcedure
Procedure LecturePort()
    Resultat = AvailableSerialPortInput(#CanalCOM)
    If Resultat
       Debug "Il a des octets à lire : "+Str(Resultat)
       longueur = ReadSerialPortData(#CanalCOM, *Buffer, Resultat)
       Debug "["+PeekS(*Buffer)+"] --> " + Str(longueur)
       Commande$ = Hexa2(PeekS(*Buffer), longueur)
       
       SetGadgetText(#Editor_0, GetGadgetText(#Editor_0)+Commande$)
       Debug Commande$
    EndIf
EndProcedure


If OpenSerialPort(#CanalCOM, "COM9", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
   Open_Window_0()
   If IsWindow(#WIndow_0) = 0
      CloseSerialPort(#CanalCOM)
      End
   EndIf
   AddWindowTimer(#Window_0, #Timer1, 50)
  Repeat
    EventID = WaitWindowEvent()
       
       ;Resultat = ReceiveNetworkData(ConnexionID, *buffer, 20)
         ;Debug "data"
       ;SetGadgetText(#Editor_0, Hexa2(PeekS(*Buffer)))

    If EventID = #PB_Event_Timer
      If EventTimer() = #Timer1
         LecturePort()
         EndIf
      EndIf
               
    If EventID = #PB_Event_Gadget

      Select EventGadget()
        Case 0
           Debug "Hello"
           ; Resultat = CallFunction(#Bibliotheque, NomFonction$ [,Parametre1 [, Parametre2...]])

      EndSelect

    EndIf
  Until EventID = #PB_Event_CloseWindow
  CloseSerialPort(#CanalCOM)
Else
   MessageRequester("Erreur","Le port série n'a pas été initialisé",0)
EndIf

;CloseNetworkConnection(ConnexionID)