Добавил:

fench Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Сумский государственный университет

Предмет:

Микроконтроллеры ЭВМ

Файл:

BASCOM AVR, help reference (2007).PDF

Скачиваний:

286

Добавлен:

12.08.2013

Размер:

17.02 Mб

Скачать

☆

<<< < Предыдущая 134 135 136 137 138 139 140 141 142 143 144 145146 / 163146 147 148 149 150 151 152 153 154 155 156 157 158 > Следующая >>>

'note that for UDP we specify sock_dgram

Idx = Getsocket(idx , Sock_dgram , 5000 , 0) ' get socket for UDP mode, specify port 5000

Print "Socket " ; Idx ; " " ; Idx

'UDP is a connection less protocol which means that you can not listen, connect or can get the status

'You can just use send and receive the same way as for TCP/IP. 'But since there is no connection protocol, you need to specify the destination IP address and port

'So compare to TCP/IP you send exactly the same, but with the addition of the IP and PORT

Temp = Inkey()	' wait for
terminal input	' ESC pressed
If Temp = 27 Then	' ESC pressed
Sstr = "Hello"
Result = Udpwritestr(192.168.0.3 , 5000 , Idx , Sstr , 255)
End If	' get number of
Result = Socketstat(idx , Sel_recv)	' get number of
bytes waiting
If Result > 0 Then
Print "Bytes waiting : " ; Result	'the first 8 bytes
Temp2 = Result - 8	'the first 8 bytes
are always the UDP header which consist of the length, IP number and port
address	' read the result
Temp = Udpread(idx , S(1) , Result)	' read the result
For Temp = 1 To Temp2	' print result
Print S(temp) ; " " ;	' print result
Next
Print	' these are
Print Peersize ; " " ; Peeraddress ; " " ; Peerport	' these are
assigned when you use UDPREAD	' print IP in
Print Ipnum(peeraddress)	' print IP in
usual format		'
Result = Udpwrite(192.168.0.3 , Peerport , Idx , S(1) , Temp2)		'
write the received data back
End If
Loop

'the sample above waits for data and send the data back for that reason temp2 is subtracted with 8, the header size

'this function can be used to display an IP number in normal format

Function Ipnum(ip As Long) As String

Local T As Byte , J As Byte

Ipnum = ""

For J = 1 To 4 T = Ip And 255

Ipnum = Ipnum + Str(t)

If J < 4 Then Ipnum = Ipnum + "."

Shift Ip , Right , 8

End Function End

UDPWRITE

Action

Write UDP data to a socket.

page -704-

Syntax

Result = UDPwrite( IP, port, socket , var , bytes)

Result = UDPwrite( IP, port, socket , EPROM, address , bytes)

Remarks

Result	A word variable that will be assigned with the number of bytes actually
	written to the socket.
	When the free transmission buffer is large enough to accept all the data, the
	result will be the same as BYTES. When there is not enough space, the
	number of written bytes will be returned.
	When there is no space, 0 will be returned.
IP	The IP number you want to send data to.
	Use the format 192.168.0.5 or use a LONG variable that contains the IP
	number.
Port	The port number you want to send data too.
Socket	The socket number you want to send data to(0-3).
Var	A constant string like "test" or a variable.
	When you send a constant string, the number of bytes to send does not need
	to be specified.
Bytes	A word variable or numeric constant that specifies how many bytes must be
	send.
Address	The address of the data stored in the chips internal EEPROM. You need to
	specify EPROM too in that case.
EPROM	An indication for the compiler so it knows that you will send data from
	EPROM.

The UDPwrite function can be used to write data to a socket that is stored in EEPROM or in memory.

When you want to send data from an array, you need to specify the element : var(idx) for example.

Note that UDPwrite is almost the same as TCPwrite. Since UDP is a connection-less protocol, you need to specify the IP address and the port number.

UDP only requires an opened socket. The is no connect or close needed.

UDPWRITESTR

Action

Sends a string via UDP.

Syntax

Result = UDPwriteStr( IP, port, socket , var , param)

Remarks

Result	A word variable that will be assigned with the number of bytes actually
	written to the socket.
	When the free transmission buffer is large enough to accept all the data,
	the result will be the same as BYTES. When there is not enough space, the
	number of written bytes will be returned.
	When there is no space, 0 will be returned.
IP	The IP number you want to send data to.
	Use the format 192.168.0.5 or use a LONG variable that contains the IP
	number.
Port	The port number you want to send data too.
Socket	The socket number you want to send data to (0-3).
Var	The name of a string variable.
Param	A parameter that might be 0 to send only the string or 255, to send the
	string with an additional CR + LF
	This option was added because many protocols expect CR + LF after the
	string.

The UDPwriteStr function is a special variant of the UDPwrite function. It will use UDPWrite to send the data.

See also

CONFIG TCPIP, GETSOCKET , SOCKETCONNECT, SOCKETSTAT , TCPWRITE, TCPREAD, CLOSESOCKET , SOCKETLISTEN , UDPWRITE, UDPREAD

Example

'-----------------------------------------------------------------------------
------------	: udptest.bas
'name	: udptest.bas
'copyright	: (c) 1995-2005, MCS Electronics
'purpose	: start the easytcp.exe program after the chip is
programmed and	press UDP button
'	press UDP button
'micro	: Mega161
'suited for demo	: no
'commercial addon needed	: yes
'-----------------------------------------------------------------------------
------------

page -706-

$regfile = "m161def.dat" micro

$crystal = 4000000 frequency

$baud = 19200 $hwstack = 32

for the hardware stack $swstack = 10

for the SW stack $framesize = 40

for the frame space

Const Sock_stream = $01

Const Sock_dgram = $02

Const Sock_ipl_raw = $03

Sock

Const Sock_macl_raw = $04

Sock

Const Sel_control = 0

Status

Const Sel_send = 1

Buffer Size

Const Sel_recv = 2

Size

'socket status

Const Sock_closed = $00 Connection Closed Const Sock_arp = $01 Const Sock_listen = $02

Waiting For Tcp Connection Setup Const Sock_synsent = $03

Setting Up Tcp Connection Const Sock_synsent_ack = $04 Setting Up Tcp Connection Const Sock_synrecv = $05 Setting Up Tcp Connection Const Sock_established = $06 Connection Established Const Sock_close_wait = $07 Closing Tcp Connection Const Sock_last_ack = $08 Closing Tcp Connection Const Sock_fin_wait1 = $09 Closing Tcp Connection Const Sock_fin_wait2 = $0a Closing Tcp Connection Const Sock_closing = $0b Closing Tcp Connection Const Sock_time_wait = $0c Closing Tcp Connection Const Sock_reset = $0d Closing Tcp Connection Const Sock_init = $0e Initialization

Const Sock_udp = $0f

Const Sock_raw = $10

$lib "tcpip.lbx" tcpip library

Print "Init , set IP to 192.168.0.8" message

Enable Interrupts

'specify the used

'used crystal

'use baud rate

'default use 32

'default use 10

'default use 40

'Tcp

'Udp

'Ip Layer Raw

'Mac Layer Raw

'Confirm Socket

'Confirm Tx Free

'Confirm Rx Data

'Status Of

'Status Of Arp

'Status Of

'Status Of Tcp

'Status Of

'Status Of Socket

'Status Of Udp

'Status of IP RAW

'specify the

'display a

'before we use

page -707-

config tcpip , we need to enable the interrupts

Config Tcpip = Int0 , Mac = 12.128.12.34.56.78 , Ip = 192.168.0.8 , Submask = 255.255.255.0 , Gateway = 0.0.0.0 , Localport = 1000 , Tx = $55 , Rx = $55

'Use the line below if you have a gate way

'Config Tcpip = Int0 , Mac = 12.128.12.34.56.78 , Ip = 192.168.0.8 , Submask = 255.255.255.0 , Gateway = 192.168.0.1 , Localport = 1000 , Tx = $55 , Rx = $55

Dim Idx As Byte	' socket number
Dim Result As Word	' result
Dim S(80) As Byte
Dim Sstr As String * 20	' temp bytes
Dim Temp As Byte , Temp2 As Byte	' temp bytes
'-----------------------------------------------------------------------------

---------------

'When you use UDP, you need to dimension the following variables in exactly the same order !

Dim Peersize As Integer , Peeraddress As Long , Peerport As Word '-----------------------------------------------------------------------------

---------------	' a handy function
Declare Function Ipnum(ip As Long) As String	' a handy function
'like with TCP, we need to get a socket first
'note that for UDP we specify sock_dgram	' get socket for
Idx = Getsocket(idx , Sock_dgram , 5000 , 0)	' get socket for
UDP mode, specify port 5000
Print "Socket " ; Idx ; " " ; Idx

'UDP is a connection less protocol which means that you can not listen, connect or can get the status

'You can just use send and receive the same way as for TCP/IP. 'But since there is no connection protocol, you need to specify the destination IP address and port

'So compare to TCP/IP you send exactly the same, but with the addition of the IP and PORT

Temp = Inkey()	' wait for
terminal input	' ESC pressed
If Temp = 27 Then	' ESC pressed
Sstr = "Hello"
Result = Udpwritestr(192.168.0.3 , 5000 , Idx , Sstr , 255)
End If	' get number of
Result = Socketstat(idx , Sel_recv)	' get number of
bytes waiting
If Result > 0 Then
Print "Bytes waiting : " ; Result	'the first 8 bytes
Temp2 = Result - 8	'the first 8 bytes
are always the UDP header which consist of the length, IP number and port
address	' read the result
Temp = Udpread(idx , S(1) , Result)	' read the result
For Temp = 1 To Temp2	' print result
Print S(temp) ; " " ;	' print result
Next
Print	' these are
Print Peersize ; " " ; Peeraddress ; " " ; Peerport	' these are
assigned when you use UDPREAD	' print IP in
Print Ipnum(peeraddress)	' print IP in
usual format		'
Result = Udpwrite(192.168.0.3 , Peerport , Idx , S(1) , Temp2)		'
write the received data back
End If
Loop

'the sample above waits for data and send the data back for that reason temp2 is subtracted with 8, the header size

page -708-

<<< < Предыдущая 134 135 136 137 138 139 140 141 142 143 144 145146 / 163146 147 148 149 150 151 152 153 154 155 156 157 158 > Следующая >>>

Соседние файлы в предмете Микроконтроллеры ЭВМ

#
12.08.20132.71 Mб166Advanced control engineering (S.R. Burns, 2001).pdf
#
12.08.201322.95 Mб103Advanced Digital Design with the Verilog HDL (M.D.Cilett)i.djvu
#
12.08.20138.13 Mб136Advanced Robotics with the Toddler (Paralax, student guide, v1.3, 2004).pdf
#
12.08.20138.85 Mб115ARM cross development with Eclipse, version 2 (J.P. Lynch, 2005).pdf
#
12.08.201317.02 Mб286BASCOM AVR, help reference (2007).PDF
#
12.08.20132.61 Mб163Basic Analog and Digital (Students guide, v13).pdf
#
12.08.20132.46 Mб132Basic for PIC Microcontrollers ( M. Nebojsa, 2000).pdf
#
12.08.20131.35 Mб169Basic for PIC Microcontrollers (M. Nebojsa, 2001).PDF
#
12.08.2013962.21 Кб100Beginers introduction to the Assebly Language of ATMEL-AVR Microprocessors (Gerhard Schmidt,2003, англ).pdf
#
12.08.20131.1 Mб128Beginers introduction to the Assebly Language of ATMEL-AVR Microprocessors (Gerhard Schmidt,2004, англ).pdf