Файл: BASCOM AVR, help reference (2007).pdf

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 12.06.2025

Просмотров: 8330

Скачиваний: 1

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

© MCS Electronics, 1995-2007

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.

See also

CONFIG TCPIP, GETSOCKET , SOCKETCONNECT, SOCKETSTAT , TCPWRITESTR, TCPREAD, CLOSESOCKET , SOCKETLISTEN , UDPWRITESTR , UDPREAD

Example

See UDPwriteStr

page -705-

© MCS Electronics, 1995-2007

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

'copyright

: (c) 1995-2005, MCS Electronics

'purpose

: start the easytcp.exe program after the chip is

programmed and

press UDP button

'

'micro

: Mega161

'suited for demo

: no

'commercial addon needed

: yes

'-----------------------------------------------------------------------------

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

page -706-

© MCS Electronics, 1995-2007

$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

'Status Of

'Status Of

'Status Of Tcp

'Status Of

'Status Of

'Status Of

'Status Of

'Status Of

'Status Of

'Status Of

'Status Of Socket

'Status Of Udp

'Status of IP RAW

'specify the

'display a

'before we use

page -707-

© MCS Electronics, 1995-2007

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

'-----------------------------------------------------------------------------

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

'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

'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)

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

Do

Temp = Inkey()

' wait for

terminal input

' ESC pressed

If Temp = 27 Then

Sstr = "Hello"

Result = Udpwritestr(192.168.0.3 , 5000 , Idx , Sstr , 255)

End If

' get number of

Result = Socketstat(idx , Sel_recv)

bytes waiting

If Result > 0 Then

Print "Bytes waiting : " ; Result

'the first 8 bytes

Temp2 = Result - 8

are always the UDP header which consist of the length, IP number and port

address

' read the result

Temp = Udpread(idx , S(1) , Result)

For Temp = 1 To Temp2

' print result

Print S(temp) ; " " ;

Next

Print

' these are

Print Peersize ; " " ; Peeraddress ; " " ; Peerport

assigned when you use UDPREAD

' print IP in

Print Ipnum(peeraddress)

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-

Смотрите также файлы