1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
function udp_send_demo(fun,host,port)
% UDP_SEND_DEMO - a demo that sends a squence of doubles in network byte order to local or remote host
%
% Syntax:
% UDP_SEND_DEMO
% or
% UDP_SEND_DEMO function_string
% or
% UDP_SEND_DEMO function_string hostname
% or
% UDP_SEND_DEMO function_string hostname portnumber
%
% Default values:
% function_string is by default sin(0:0.1:6) that will be evaluated and transmitted
% as a sequence of network byte ordered doubles (or generated datatype)
%
% hostname is by default localhost but can be any hostname if you whant to send
% the packet to an other host.
%
% portnumber is by default 3333.
%
%
% The purpose of this demo is to illustrate how a udp packat can be created, filled with numbers
% and then transmitted to any host and udp port. Use this demo together with udp_plotter_demo
% that receives and plott the packets of numbers.
%
% Example:
%
% udp_send_demo sin(0:0.1:50)./(0:0.1:50) plotterhost 33333
%
if ~exist('fun', 'var') || isempty(fun),
myval=round(1+rand*69);
fun=['sin(0:0.1:' num2str(myval) ')./(1:0.1:' num2str(myval+1) ')']; end
if ~exist('host', 'var') || isempty(host), host='localhost'; end
if ~exist('port', 'var') || isempty(port), port='3333'; end
data=evalin('caller',fun);
udp=pnet('udpsocket',1111);
%udp=pnet('udpsocket',str2num(port));
udp;
if udp~=-1,
try, % Failsafe
pnet(udp,'udpconnect',host,port);
[ip,port]=pnet(udp,'gethost');
stat=pnet(udp,'status');
pnet(udp,'write',data); % Write to write buffer
pnet(udp,'writepacket',host,port); % Send buffer as UDP packet
catch,
pnet('closeall');
disp(lasterr)
end
[ip,port]=pnet(udp,'gethost');
stat=pnet(udp,'status');
pnet(udp,'close');
end
|
