Matlab-Prologix-scripts/Equipment/prologix_discovery.m

function ipaddress = prologix_discovery()
%% PROLOGIX_DISCOVERY Find your prologix GPIB device.
%   ipaddress = PROLOGIX_DISCOVERY() finds prologix on your 
%   local network. When your prologix device is detected
%   string with ip address is returned. 
%   
%   Function uses persistent ipaddress: when ipaddress is 
%   changed use CLEAR ALL to find the current ipaddress.
%   See also CLEAR

%% setup correct variables.
% if location of prologix is known: just return stored ip address
% if nargin < 1
%     localhostcellarray = getLocalIP();
% else
%     localhostcellarray{1} = localhost;
% end
persistent stored_ipaddress;
if ~isempty(stored_ipaddress)
    ipaddress = stored_ipaddress;
    return
end
local_port = randi([49152 65535]);
remote_port = 3040;

%%Magic
udpmagic = udp('10.255.255.255',12345);
fopen(udpmagic);
fwrite(udpmagic,'windows moet dood');
fclose(udpmagic);
delete udpmagic

%% setup dsp to send and recieve udp packets.
    udpconnection = udp('255.255.255.255',3040);
    %hudpr = dsp.UDPReceiver('LocalIPPort',local_port);
    % hudps = dsp.UDPSender('RemoteIPAddress','255.255.255.255','RemoteIPPort',remote_port,'LocalIPPortSource','Property','LocalIPPort',local_port);
    % start recieving udp packets
    % setup(hudpr);
    fopen(udpconnection);


    %% Discover prologix.
    % magic string to request ipaddress from prologix: ['5a' '00' '5b' 'db' 'ff' 'ff' 'ff' 'ff' 'ff' 'ff' '00' '00']
    magic_msg = uint8([90 0 91 219 255 255 255 255 255 255 00 00]);
    % Sending packet.
    % hudps(magic_msg);
    fwrite(udpconnection,magic_msg);
    % Recieving packet or resend.
    for i = 1:100
        pause(0.1);
        msg = fread(udpconnection);
        if numel(msg)>0
            break;
        elseif mod(i,10) == 0
            %waiting dot and resending of string
            fprintf('.')
            fwrite(udpconnection,magic_msg);
    %         step(hudps,magic_msg);
        end
    end
    fclose(udpconnection);

if isempty(msg)
    error('No prologix found on network');
end
%ipaddress string is extracted from recieved UDP message. array position 21
%till 24.
ipaddress = num2str(msg(21:24)','%d.%d.%d.%d');
stored_ipaddress = ipaddress;