udp_tester 1 -- S.MG, 2018
udp_tester 2
udp_tester 3 with UDP_Tester;
udp_tester 4
udp_tester 5 procedure UDP_Sender is
udp_tester 6 -- Sender and Receiver addresses + ports
udp_tester 7 Receiver_IP : constant String := "127.0.0.1"; --SET THIS to your address!
udp_tester 8 Receiver_Port : constant := 9000;
udp_tester 9
udp_tester 10 Sender_Port : constant := 8000;
udp_tester 11
udp_tester 12 begin
udp_tester 13
udp_tester 14 UDP_Tester.Sender( Receiver_IP, Receiver_Port, Sender_Port) ;
udp_tester 15
udp_tester 16 end UDP_Sender;