# An other Velbus-server (Purebasic) **URL:** \ **Category:** For developers\ **Created:** [December 21, 2011, 11:21pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523 "2011-12-21T23:21:01Z")\ **Posts on this page:** 20\ **Page:** 1
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [December 21, 2011, 11:21pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/1 "2011-12-21T23:21:01Z")
You can try this source code : it’s Purebasic code but there is a free version of Purebasic (so you can modify and compile your own code) ```auto ; Velbus server 1.0 by Golfy (Purebasic 4.60) ; CompilerIf #PB_Compiler_OS = #PB_OS_Windows Port$ = "COM4" CompilerElse Port$ = "/dev/ttyS0" CompilerEndIf OpenConsole() If OpenSerialPort(0, Port$, 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 2048, 2048) PrintN("open port "+port$+" done") Else PrintN("Erreur port "+port$) Delay(2000) End EndIf If InitNetwork() = 0 PrintN("Error : Can't initialize the network !") Delay(2000) End EndIf Port = 8080 *BSin = AllocateMemory(4096) *BSout = AllocateMemory(4096) *BNin = AllocateMemory(4096) *BNout = AllocateMemory(4096) NewList Client.i() If CreateNetworkServer(0, Port) PrintN("Listening on Ethernet port : "+Str(port)) Repeat SEvent = NetworkServerEvent() If SEvent ClientID = EventClient() Select SEvent Case #PB_NetworkEvent_Connect ; new client connected AddElement(Client()) Client() = ClientID IP$=IPString(GetClientIP(ClientID)) PrintN("Opening Connexion ID "+Str(Client())+" for "+ip$+" (Client Number : "+Str(ListSize(Client()))+")") Case #PB_NetworkEvent_Data ; clientID has sent packet RXLen = ReceiveNetworkData(ClientID, *BNin, 1024) Err = WriteSerialPortData(0, *BNin, RXLen) ; Each Client but ClientID receive frame transmit by ClientID ForEach Client() If Client() <> ClientID Err = SendNetworkData(Client(), *BNin, RXLen) EndIf Next PrintN("Net --> "+port$+" ("+Str(RXLen)+" bytes)") Delay(RXLen*10) Case #PB_NetworkEvent_Disconnect ForEach Client() If Client() = ClientID DeleteElement(Client(),1) PrintN("Closing Connexion ID "+Str(Client())+" (Client Number : "+Str(ListSize(Client()))+")") EndIf Next EndSelect EndIf Serial = AvailableSerialPortInput(0) If Serial RXLen = ReadSerialPortData(0,*BSin,2048) ForEach Client() Err = SendNetworkData(ClientID, *BSin, RXLen) PrintN(port$+"--> Net ("+Str(RXLen)+" bytes)") Next EndIf Until Quit = 1 CloseNetworkServer(0) Else PrintN("Error : Can't create the server (port in use ?).") EndIf End ``` Bus OFF and Buffer FULL not managed for now but hey… it midnight, I’ve to sleep 🙂 ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [December 26, 2011, 8:08pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/2 "2011-12-26T20:08:29Z")
Working hard on a Purebasic Velbus server and trying VelbusLink through it… and do you know ? I’ve see a frame like this : ```auto 65 6c 62 75 73 4c 69 6e 6b 20 38 2e 34 2e..... ``` This frame is received at VelbusLink startup : it probably mean “VelbusLink 8.4.61687” (even if I’ve loose de ‘V’) **But now, here is the PureBasic Velbus-Server** [code]; Velbus server 1.0 by Golfy (Purebasic 4.60) ; v2 -\> try to delay message from Ethernet -\> Velbus ; Default parameters : COM4 and 8080 CompilerIf #PB\_Compiler\_OS = #PB\_OS\_Windows Port$ = “COM4” CompilerElse Port$ = “/dev/ttyS0” CompilerEndIf Port = 8080 OpenConsole() EnableGraphicalConsole(1) ; declare useful procedures Declare.i AnalyseMessage(\*bus,Len.i) Declare.s Hexa2(\*B,longueur.i) Declare.i LectureNet() Declare.i CheckSum(\*B,longueur.i) ; if parameter are transmit after commandline If FindString(UCase(ProgramParameter(0)),“H”,1) Or FindString(UCase(ProgramParameter(0)),"?",1) PrintN(“PB\_Velbus-server.exe SERIALport NETWORKport (ex: PB\_Velbus-server.exe COM4 8131)”) PrintN(“PB\_Velbus-server.exe default = COM4 and 8080”) Input() End EndIf If ProgramParameter(0) : port$ = ProgramParameter(0) : EndIf If ProgramParameter(1) : port = Val(ProgramParameter(1)) : EndIf If OpenSerialPort(0, Port$, 9600, #PB\_SerialPort\_NoParity, 8, 1, #PB\_SerialPort\_NoHandshake, 2048, 2048) PrintN(“PB\_Velbus-Server v2.0 : open port “+port$+” done”) Else PrintN("Erreur port "+port$) Delay(2000) End EndIf If InitNetwork() = 0 PrintN(“Error : Can’t initialize the network !”) Delay(2000) End EndIf \*BSin = AllocateMemory(4096) \*BNin = AllocateMemory(4096) \*BFull = AllocateMemory(7) \*BReady = AllocateMemory(7) PokeB(\*BFull+0,$0F) PokeB(\*BFull+1,$F8) PokeB(\*BFull+2,$00) PokeB(\*BFull+3,$01) PokeB(\*BFull+4,$0B) PokeB(\*BFull+5,$ED) PokeB(\*BFull+6,$04) PokeB(\*BReady+0,$0F) PokeB(\*BReady+1,$F8) PokeB(\*BReady+2,$00) PokeB(\*BReady+3,$01) PokeB(\*BReady+4,$0C) PokeB(\*BReady+5,$EC) PokeB(\*BReady+6,$04) Structure Vmsg Len.i \*cmd EndStructure Global NewList messages.Vmsg() Global NewList Client.i() Global TXNET.q Global TXBUS.q If CreateNetworkServer(0, Port) PrintN(" ] Listening on Ethernet port : "+Str(port)) HauteurCurseur = 0 d = ElapsedMilliseconds() Repeat ; server is alive : show date (french format) If Date() \<\> dd dd = Date() ConsoleLocate(60,2) PrintN(FormatDate("%dd/%mm%/%yyyy %hh:%ii:%ss",Date())) EndIf ``` ; Send bufferised messages with 60ms delay If ListSize(messages()) And ElapsedMilliseconds()-d > 40 Err = FirstElement(messages()) Err = WriteSerialPortData(0, messages()\cmd, messages()\len) err = FreeMemory(messages()\cmd) Err = DeleteElement(messages(),1) d = ElapsedMilliseconds() EndIf SEvent = NetworkServerEvent() If SEvent ConsoleLocate(0,2) PrintN("[N]") ClientID = EventClient() Select SEvent Case #PB_NetworkEvent_Connect ; new client connected ConsoleLocate(0,3) AddElement(Client()) Client() = ClientID IP$=IPString(GetClientIP(ClientID)) PrintN("Opening Connexion ID "+Str(Client())+" for "+ip$+" (Client Number : "+Str(ListSize(Client()))+")") Case #PB_NetworkEvent_Data RXLen = ReceiveNetworkData(ClientID, *BNin, 4096) If RXLen > 5 N = AnalyseMessage(*BNin,RXLen) Locate(30,2) PrintN("Ethernet-> "+Str(RXLen)+" ") ;PrintN("NET --> VelBUS : "+Str(N)+" messages received ("+Str(RXLen)+" bytes received)") EndIf Case #PB_NetworkEvent_Disconnect ; client has diconnected ConsoleLocate(0,3) ForEach Client() If Client() = ClientID DeleteElement(Client(),1) PrintN("Closing Connexion ID "+Str(ClientID)+" (Client Number : "+Str(ListSize(Client()))+")") EndIf Next EndSelect EndIf ; SERIAL TO NETWORK ========================================================================== Serial = AvailableSerialPortInput(0) If Serial ConsoleLocate(0,2) PrintN("[S]") RXLen = ReadSerialPortData(0,*BSin,Serial) If RXlen = Serial ForEach Client() Err = SendNetworkData(Client(), *BSin, RXLen) Next Else Locate(45,2) PrintN("Velbus-> "+Str(RXLen)+" ") EndIf EndIf ``` Until Quit = 1 CloseNetworkServer(0) Else PrintN(“Error : Can’t create the server (port in use ?).”) EndIf End ; ------ ; Procedure for Network/BUS command ; \_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_ Procedure.i AnalyseMessage(\*bus,full.i) ; Format de trame : ; OF FB \*\* RL xx xx xx CK 04 - 0F FB \*\* … ; 12 34 56 78 9A … stx = 0 etx = 0 lng = 0 counter = 0 t = 0 Repeat If PeekB(\*bus+t) & $FF = $0F counter+1 fixlen = 4 varlen = PeekB(\*bus+t+3) & $0F fintrame = t+fixlen+varlen+1 crcloc = fintrame-1 tlen = fixlen+varlen+2 crc = checksum(\*bus+t,tlen-3) If PeekB(\*bus+fintrame) = $04 And (PeekB(\*bus+crcloc) & $FF)=crc AddElement(messages()) messages()\len = tlen messages()\Cmd = AllocateMemory(messages()\len) CopyMemory(\*bus+t,messages()\cmd,messages()\len) t = t+(messages()\len-2) EndIf EndIf t = t + 1 ``` Until t=>full ProcedureReturn ListSize(messages()) ``` EndProcedure ; \_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_ Procedure.i CheckSum(\*B,longueur.i) somme=0 ; Initialize Counter For tr=0 To longueur ; Loop from 0 to checksum byte -1 Somme=Somme+PeekB(\*B+tr) & $FF ; Adding each byte from the packet Next tr Somme = (Somme & $FF) ! $FF ; As PureBasic use signed integer, need to remove higher value Somme = Somme + 1 ; (AND operation) and inverse with XOR (!), them add ‘1’ ProcedureReturn Somme ; Return the checksum value EndProcedure [/code] ---
**Author:** ![VEL448](https://forum.velbus.eu/user_avatar/forum.velbus.eu/vel448/32/4186_2.png) [@VEL448](https://forum.velbus.eu/u/VEL448)\ **Post date:** [December 28, 2011, 8:58am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/3 "2011-12-28T08:58:02Z")
[quote=“Golfy”]Working hard on a Purebasic Velbus server and trying VelbusLink through it… and do you know ? I’ve see a frame like this : ```auto 65 6c 62 75 73 4c 69 6e 6b 20 38 2e 34 2e..... ``` This frame is received at VelbusLink startup : it probably mean “VelbusLink 8.4.61687” (even if I’ve loose de ‘V’) [/quote] That is a requirement for HomeCenter; I will remove this in the next version for the ‘Network connection’ option since it is not strictly needed there When parsing you should check if you really have a packet: - Does it start with 0F? - Is the checksum correct? - Does it end with 04? The way I parse with VelbusLink is: - Search for a start-of-packet (0F) - Wait until I have 4 bytes in the buffer (so we have all header bytes, including the byte that tells us the number of data bytes) - Perform some checks on the 4 bytes that I already have - Wait until I have 4 bytes + number of databytes + 2 (checksum and ETX) = the entire packet - Check if the checksum is correct and the packet ends with ETX - Continue doing the above until we no longer have 4 bytes in the buffer (= nothing useable until the next read) If something doesn’t check out, we discard the first byte and keep on going ---
**Author:** ![jeroends](https://forum.velbus.eu/letter_avatar_proxy/v4/letter/j/ea5d25/32.png) [@jeroends](https://forum.velbus.eu/u/jeroends)\ **Post date:** [December 28, 2011, 2:22pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/4 "2011-12-28T14:22:45Z")
Golfy, check the following dir. In this dir you’ll find my C code of a velbus gateway. Also is there a code for reading out my temp sensors (temp.pl) written in perl. In the perl script you’ll find a routine “check\_valid”. This is a possible way to check the message. [velbus dir](http://leachy.homeip.net/velbus/) greets ps: in the dir graph you’'ll find my read outs of my sensors, the red background is when the heating is on. ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [December 28, 2011, 10:26pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/5 "2011-12-28T22:26:08Z")
Thanks VEL448, check are done here (find $04 at end of frame (calculation for the len) and check CRC) : ```auto If PeekB(*bus+fintrame) = $04 And (PeekB(*bus+crcloc) & $FF)=crc ``` In my case serial port always send me at least one full message. Since long time with purebasic, I try to find a non complete frame without success : maybe it’s the way that Purebasic works with buffer… never a truncated frame at present time 🙂 However, I found more big frame (like 0F…04 _00 00 00 00_) The best advantage of my Velbus-server, is sending packet from Ethernet network to Velbus network : each message is delayed in the time while Ethernet buffer works at full speed. I’ve to do that because VelbusLink 8.4 isn’t able to synchronize full modules (66 on my network) or scan Velbus network when configured with velbus-server and Ethernet ☹ If I understand, discard first byte is enough ? ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [December 30, 2011, 9:15pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/6 "2011-12-30T21:15:56Z")
Here are my PureBasic Velbus-Server 2.0 🙂 [golfy.free.fr/Velbus/PB\_Velbus-server.exe](http://golfy.free.fr/Velbus/PB_Velbus-server.exe) And here, is a picture on how it works : PB\_Velbus-server COMx YYYY (where x is a valid COM port on PC and YYYY is an ethernet port number) below, you can see an example with : PB\_Velbus-server COM4 8080 [![](http://golfy.free.fr/Velbus/PB_Velbus-server.jpg) ](http://golfy.free.fr/Velbus/PB_Velbus-server.jpg) And for all coders, here is the source code : [golfy.free.fr/Velbus/PB\_Velbus-server.pb](http://golfy.free.fr/Velbus/PB_Velbus-server.pb) Basic functions are : - PB\_Velbus-server manage speed (each message from Ethernet to Velbus are delayed to avoid full buffer or bus down) - Each messages from Ethernet are checked (lengh, checksum, …) - Multiples Ethernet clients are supported (they all receive frame from Velbus bus but from other clients too) - Could be launch with parameter (possible to create a shortcut in start menu) \*\*Happy new year to all enjoyed guys which are working on programing nice applications with Velbus and (of course) to all Velbus employees who works hard to help us \*\* 🙂 Edit : [size=85] V2.1 : manage programs that are making too much errors on transmitting (rate : 10 errors/mn) V2.2 : checksum calculation correction (could block “Quick Read” message on some modules) [/size] ---
**Author:** ![GertSt](https://forum.velbus.eu/user_avatar/forum.velbus.eu/gertst/32/3966_2.png) [@GertSt](https://forum.velbus.eu/u/GertSt)\ **Post date:** [December 31, 2011, 9:07am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/7 "2011-12-31T09:07:29Z")
Thanks a lot for sharing this! I’ll check it out soon. ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [January 12, 2012, 10:16pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/8 "2012-01-12T22:16:46Z")
Hey guys : Velbus bandwidth isn’t use in same way for each module ! My VMB4RY can transmits up to 10-12kbps My VMB8PB can transmits at around 6 kbps if build \> 0649, else 1 kbps etc… very funny to see 🕶 ---
**Author:** ![jeroends](https://forum.velbus.eu/letter_avatar_proxy/v4/letter/j/ea5d25/32.png) [@jeroends](https://forum.velbus.eu/u/jeroends)\ **Post date:** [January 12, 2012, 11:46pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/9 "2012-01-12T23:46:00Z")
idd, noticed this also a time ago:-). Even with 2 relay modules but other software version. ---
**Author:** ![VEL448](https://forum.velbus.eu/user_avatar/forum.velbus.eu/vel448/32/4186_2.png) [@VEL448](https://forum.velbus.eu/u/VEL448)\ **Post date:** [January 17, 2012, 3:03pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/10 "2012-01-17T15:03:10Z")
When reading there are two possibilities: - Ask for a memory dump, receive memory in blocks of four bytes (fastest) - Ask for each memory block, receive each memory block (slowest) When writing there are two possibilities - Write four bytes at a time, verify four bytes at a time (fastest) - Write each byte, verify each byte (slowest) ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [August 11, 2012, 10:46pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/11 "2012-08-11T22:46:10Z")
By the way, the PB\_Velbus-server has been upgraded : for those who want to see before try : [http://golfy.olympe.in/PB\_Velbus-server.jpg](http://golfy.olympe.in/PB_Velbus-server.jpg) EXE file is here (DOS mode) : [golfy.olympe.in/PB\_Velbus-server.exe](http://golfy.olympe.in/PB_Velbus-server.exe) (27 kB) Purebasic code is here : [golfy.olympe.in/PB\_Velbus-server.pb](http://golfy.olympe.in/PB_Velbus-server.pb) To start with windows, you can create an INI file like this : [golfy.olympe.in/PB\_Velbus-server.ini](http://golfy.olympe.in/PB_Velbus-server.ini) (and put a link in Start menu of Windows) Hope this will help you ! my goal is to promote VELBUS as a great open domotic system 🙂 ---
**Author:** ![DJ-Jam](https://forum.velbus.eu/letter_avatar_proxy/v4/letter/d/a3d4f5/32.png) [@DJ-Jam](https://forum.velbus.eu/u/DJ-Jam)\ **Post date:** [August 12, 2012, 10:01pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/12 "2012-08-12T22:01:31Z")
Hi There, I’m new at this and I got a little problem. I have set up the server and it is connected with my velbus. when i try to controll with the velbus plex tool everyting works perfectly. now, I want to controll my system with Openremote. so i send a raw package over TCP/IP (0ff8100400080000dd04) from Openremote. the server receives the package but it’s not transfered to the velbus… What am i doing wrong? Thanks!!! ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [August 13, 2012, 6:53am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/13 "2012-08-13T06:53:39Z")
The server include a checksum control : if your checksum is bad, it wouldn’t transmit it (and should write in red that there is a problem). ---
**Author:** ![VEL448](https://forum.velbus.eu/user_avatar/forum.velbus.eu/vel448/32/4186_2.png) [@VEL448](https://forum.velbus.eu/u/VEL448)\ **Post date:** [August 13, 2012, 7:11am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/14 "2012-08-13T07:11:26Z")
The checksum is correct Make sure that the packet is understood by the module that you are sending it to (test it in VelbusLink first) Make sure that the packet is sent correctly in its raw form by your OpenRemote ---
**Author:** ![DJ-Jam](https://forum.velbus.eu/letter_avatar_proxy/v4/letter/d/a3d4f5/32.png) [@DJ-Jam](https://forum.velbus.eu/u/DJ-Jam)\ **Post date:** [August 13, 2012, 7:54am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/15 "2012-08-13T07:54:07Z")
The data I send is copied from the flex application and it works perfectly from there… the “eth -\>” counter counts the same amount of data as I send it from flex. but it isn’t transfered to the bus… is there a way for monitorring my input? Thanks! ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [August 13, 2012, 8:17am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/16 "2012-08-13T08:17:35Z")
[quote=“Golfy”] I’ve to develop it but it would not be to hard… thanks for your feedback ! I would probably publish it tonight (with -debug parameter…)[/quote] Well, I’m working a little bit more than previous… because console mode take around 50% of CPU… will try to use Window GUI application (still able to compile on Linux or Windows but would be more expressive with frames and logs). Not for tonight, sorry… but will be better than Console version [http://golfy.olympe.in/PB\_Velbus-server\_init.jpg](http://golfy.olympe.in/PB_Velbus-server_init.jpg) ---
**Author:** ![DJ-Jam](https://forum.velbus.eu/letter_avatar_proxy/v4/letter/d/a3d4f5/32.png) [@DJ-Jam](https://forum.velbus.eu/u/DJ-Jam)\ **Post date:** [August 13, 2012, 9:19am UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/17 "2012-08-13T09:19:46Z")
I’m trying to make it work with openremote… this is android compatible and easy to design… problem is poor feedback capabillaties but they are working on this… ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [August 21, 2012, 9:59pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/18 "2012-08-21T21:59:38Z")
[size=150] **Hey ! PB Velbus-Server 3.0 is out !** [/size] [http://golfy.olympe.in/PB\_Velbus-server\_3.0.jpg](http://golfy.olympe.in/PB_Velbus-server_3.0.jpg) 1. Less CPU consumption rather old console version (old = around 50%, new = around 2%) !!! 2. Now you can save the log list as TXT file (PB\_Velbus-server.log in current directory)… log list is limited to 250 events (for now… could be enhanced in future) 3. Error messages will be shown in red (with the right icon From/To Velbus) 4. You can filter unwanted message (see image for example, [Filter] button must be Toggle) 5. You know IP addresses connected to the server 6. You can… exit ! Ok this version isn’t fully functional but all the needed are present… I will improve it as soon as possible. Please give me your feedback ! Download link : [golfy.olympe.in/PB\_Velbus-server.exe](http://golfy.olympe.in/PB_Velbus-server.exe) ini file is (for example) : `COMx 8080` ---
**Author:** ![Daweb](https://forum.velbus.eu/user_avatar/forum.velbus.eu/daweb/32/31_2.png) [@Daweb](https://forum.velbus.eu/u/Daweb)\ **Post date:** [August 22, 2012, 2:59pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/19 "2012-08-22T14:59:22Z")
Et en français ça sert à quoi en fait ? J’ai essayé de m’y connecter en rentrant Com3 qui correspond à mon branchement USB, ca se connecte, mais rien n’apparait dedans ☹ Je me connecte sur mon navigateur ensuite en [localhost:8080/](http://localhost:8080/) Mon ip local apparait alors dans le programme, mais au niveau du navigateur ca charge en boucle. Et rien ne se passe. Bion je débute en Velbus, sur une petite install de test, le gros ne va arriver que dans les mois à venir (construction en cours) Donc je ne comprend pas encore tout ^^ ---
**Author:** ![Golfy](https://forum.velbus.eu/user_avatar/forum.velbus.eu/golfy/32/4985_2.png) [@Golfy](https://forum.velbus.eu/u/Golfy)\ **Post date:** [August 23, 2012, 1:18pm UTC](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523/20 "2012-08-23T13:18:29Z")
[quote=“Daweb”]Et en français ça sert à quoi en fait ? J’ai essayé de m’y connecter en rentrant Com3 qui correspond à mon branchement USB, ca se connecte, mais rien n’apparait dedans ☹ Je me connecte sur mon navigateur ensuite en [localhost:8080/](http://localhost:8080/) Mon ip local apparait alors dans le programme, mais au niveau du navigateur ca charge en boucle. Et rien ne se passe. Bion je débute en Velbus, sur une petite install de test, le gros ne va arriver que dans les mois à venir (construction en cours) Donc je ne comprend pas encore tout ^^[/quote] Ce programme n’est qu’un pont (bridge) entre le monde IP et le monde BUS CAN VELBUS : il n’est utile que pour permettre à plusieurs programmes d’accéder à un seul module VMB1USB ou VMB1RS. Pour comprendre, vous pouvez connecter le programme VelbusLink (choisir “Network connection (TCP/IP)” à la place de “Direct cable connection”) Vous pouvez aussi télécharger le programme décrit dans ce topic : [Velbus via command line](https://forumtest.velbus.eu/t/velbus-via-command-line/4525/11) L’intérêt est de pouvoir l’utiliser sur un PC allumé en permanence (devient ‘serveur’) et donc d’accéder aux fonctions Velbus depuis n’importe quel autre ordinateur de votre réseau (LAN ou WiFi). Il est même possible l’utiliser via Internet (WAN) mais pour cela il faut modifier la table NAT de votre routeur/firewall/box ADSL… [Next page](https://forum.velbus.eu/t/an-other-velbus-server-purebasic/5523.md?page=2)