MCS Wiki - User contributions [en]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T14:23:59Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== What you need to run the example ==

For the following example you need:

*Email account which supportSMTP Authentication (AUTH LOGIN) on Port 25
*Username and password Base64 encoded (you can use the Easy TCP/IP tool in Bascom-AVR to encode and decode)
*IP address of your smtp server (if you do not know it just open in Windows the DOS command window and ping the server)
*Your sender Email address and the receiver Email address

Don't use the Email Sub in the Do...Loop until you know what you are doing (Your mail provider could ban you if you send too much emails) !

This example use the base structure from here: [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100) http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100)]

The focus of this article is Email and not other topics which are already descibed in other articels in this WIKI.

You need to change the  * (asterisk) !

When you send the Email as HTML (with the Link) it might end up in your spam folder. So check also your spam folder for this email sent in HMTL format !

 <source lang="bascomavr">

' Send Email with Arduino Ethernet (W5100)
' Tested with GMX

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example NTP Server = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

config submode = new

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Watchdog
'-------------------------------------------------------------------------------
config watchdog = 4096
Start watchdog

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2 'Time to start the Debug Terminal after flashing
reset watchdog
Print
Print "-----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit
dim second_counter as byte

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' SMTP Email Variables
'-------------------------------------------------------------------------------
Dim Smtp_sock As Byte
Dim Tcp_var As Byte
Dim email_string As String * 130
Dim length as byte

Const Smtp_email_socket = 1 'Socket Number for SMTP

'-------------------------------------------------------------------------------
' UDP Variables
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

Reset Watchdog

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' +
' + SUB NAME: Send_Email()
' +
' + DESCRIPTION: Send Email
' +
' +
' + RETURN: None
' +
' + NOTES: None
' +
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'

Sub Send_Email(byval Send_html As Byte) ' 0 = send Text, 1 = send HTML

'---------------------[SEND EMAIL SMTP]-----------------------------------------
'for SMTP Email first we need a socket
idx = Getsocket(smtp_email_socket , Sock_stream , 4086 , 0)
If idx = 255 Then print "SMTP Email Getsocket Error"
'(
result = Socketstat(idx , Sel_control)

Select Case result
Case Sock_closed : print "Sock_closedr"
Case Sock_arp : print "SOCK_ARP"
Case Sock_listen : print "SOCK_LISTEN"
Case Sock_synsent : print "SOCK_SYNSENT"
Case Sock_synrecv : print "SOCK_SYNRECV"
Case Sock_established : print "SOCK_ESTABLISHED"
Case Sock_close_wait : print "SOCK_CLOSE_WAIT"
Case Sock_last_ack : print "SOCK_LAST_ACK"
Case Sock_fin_wait : print "SOCK_FIN_WAIT"
Case Sock_closing : print "SOCK_CLOSING"
Case Sock_time_wait : print "SOCK_TIME_WAIT"
Case Sock_init : print "SOCK_INIT"
Case Sock_udp : print "SOCK_UDP"
Case Sock_raw : print "SOCK_RAW"
Case Sock_macraw : print "SOCK_MACRAW"
Case Sock_ppoe : print "SOCK_PPOE"
End Select
')

'connect to smtp server
result = Socketconnect(idx , 213.165.64.21 , 25) ' smtp server and SMTP port 25
' ^socket
' ^ ip address of the smtp server
' ^ port 25 for smtp
print "Connecting to GMX Email Server: " ; " 213.165.64.21 Port 25 "

print "Socketconnect Status = " ; result
If result = 1 Then print "ERROR connecting to 213.165.64.21 Port 25"

Reset Watchdog

Do
result = Socketstat(idx , 0) ' get socket status
Loop Until result = Sock_established

print "SMTP = " ; "SOCK_ESTABLISHED"

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "220" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "HELO Arduino Ethernet{013}{010}"
Tcp_var = Tcpwrite(idx , "HELO Arduino Ethernet{013}{010}" ) ' send username
print Tcp_var ; " bytes written" ' number of bytes actual send

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server

If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

print "Send " ; "AUTH LOGIN{013}{010}"

Tcp_var = Tcpwrite(idx , "AUTH LOGIN{013}{010}" ) 'authentication login

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The username must be Base64 encoded (and add the CR + LF)!
Tcp_var = Tcpwrite(idx , "**********************=={013}{010}" ) 'USERNAME

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The password must be Base64 encoded (and add the CR + LF) !
Tcp_var = Tcpwrite(idx , "********************=={013}{010}" ) 'PASSWORD

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "235" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'Your Email address
Tcp_var = Tcpwrite(idx , "MAIL FROM: *********@***.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The Email address you want to send the message to
Tcp_var = Tcpwrite(idx , "RCPT TO: ******@*****.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "DATA{013}{010}" )

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "354" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "FROM: ********@***.de{013}{010}")
Tcp_var = Tcpwrite(idx , "TO: *******@****.com{013}{010}")
Tcp_var = Tcpwrite(idx , "SUBJECT: Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "X-Mailer: BASCOM SMTP{013}{010}")

If Send_html = 1 Then
'----------------------Send the Email as HTML ---------------------------

Tcp_var = Tcpwrite(idx , "Mime-Version: 1.0;{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Type: text/html; charset={034}ISO-8859-1{034};{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Transfer-Encoding: 7bit;{013}{010}")

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch to body

Tcp_var = Tcpwrite(idx , "<html>{013}{010}")
Tcp_var = Tcpwrite(idx , "<body>{013}{010}")
Tcp_var = Tcpwrite(idx , "<h2>The Link to Bascom Forum !</h2>{013}{010}")
Tcp_var = Tcpwrite(idx , "Here is it: <a href={034}http://www.mcselec.com/index2.php?option=com_forum&Itemid=59{034}>Bascom Forum</a>{013}{010}")
Tcp_var = Tcpwrite(idx , "Best Regards,{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "</body>{013}{010}")
Tcp_var = Tcpwrite(idx , "</html>{013}{010}")
Tcp_var = Tcpwrite(idx , ".{013}{010}")
Else

'-----------------------Send only TEXT-----------------------------------

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch from subject to body
Tcp_var = Tcpwrite(idx , "This is a test email from BASCOM-AVR SMTP{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
email_string = "Timestamp = " + time$ + " / " + date$ + "{013}{010}"
length = len(email_string)
Tcp_var = Tcpwrite(idx , email_string, length)
Tcp_var = Tcpwrite(idx , ".{013}{010}") ' end with a single dot
end if

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string '--> 250 2.6.0 Message accepted
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "QUIT{013}{010}"
Tcp_var = Tcpwrite(idx , "QUIT{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "221" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Print "Close Socket"
Closesocket Idx ' close the server connection

End Sub

reset watchdog

'Here we send the email

call Send_Email(0) 'Send text Email
wait 2 : reset watchdog
call Send_Email(1) 'Send Email in HTML

Do
If New_second = 1 Then
Reset New_second
reset watchdog

'Do something every second ......

print "Tick"

incr second_counter
if second_counter = 180 then
second_counter = 0
'Do something every 3 minutes ......
end if
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Terminal Ouput of Example ==

 -----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416239374 10.03.13   15:02:54 Connecting to GMX Email Server:  213.165.64.21 Port 25 Socketconnect Status = 0 SMTP = SOCK_ESTABLISHED Server Answer = 220 mail.gmx.net GMX Mailservices ESMTP {mp033} Send HELO Arduino Ethernet 23  bytes written Server Answer = 250 mail.gmx.net GMX Mailservices {mp033} Send AUTH LOGIN Server Answer = 334 VXNlcm5hbWU6 Server Answer = 334 UGFzc3dvcmQ6 Server Answer = 235 2.7.0 Go ahead {mp033} Server Answer = 250 2.1.0 ok {mp033} Server Answer = 250 2.1.5 ok {mp033} Server Answer = 354 mail.gmx.net Go ahead {mp033} Server Answer = 250 2.6.0 Message accepted {mp033} Send QUIT Server Answer = 221 2.0.0 GMX Mailservices {mp033} Close Socket Connecting to GMX Email Server:  213.165.64.21 Port 25 Socketconnect Status = 0 SMTP = SOCK_ESTABLISHED Server Answer = 220 mail.gmx.net GMX Mailservices ESMTP {mp033} Send HELO Arduino Ethernet 23  bytes written Server Answer = 250 mail.gmx.net GMX Mailservices {mp033} Send AUTH LOGIN Server Answer = 334 VXNlcm5hbWU6 Server Answer = 334 UGFzc3dvcmQ6 Server Answer = 235 2.7.0 Go ahead {mp033} Server Answer = 250 2.1.0 ok {mp033} Server Answer = 250 2.1.5 ok {mp033} Server Answer = 354 mail.gmx.net Go ahead {mp033} Server Answer = 250 2.6.0 Message accepted {mp033} Send QUIT Server Answer = 221 2.0.0 GMX Mailservices {mp033} Close Socket Tick Tick Tick Tick Tick Tick Tick Tick Tick

== Telnet Exercise with sending an Email (if you encounter a problem) ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Author ==

MAK3

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T14:21:21Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== What you need to run the example ==

For the following example you need:

*Email account which supportSMTP Authentication (AUTH LOGIN) on Port 25
*Username and password Base64 encoded (you can use the Easy TCP/IP tool in Bascom-AVR to encode and decode)
*IP address of your smtp server (if you do not know it just open in Windows the DOS command window and ping the server)
*Your sender Email address and the receiver Email address

Don't use the Email Sub in the Do...Loop until you know what you are doing (Your mail provider could ban you if you send too much emails) !

This example use the base structure from here: [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100) http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100)]

The focus of this article is Email and not other topics which are already descibed in other articels in this WIKI.

You need to change the  * (asterisk) !

When you send the Email as HTML (with the Link) it might end up in your spam folder. So check also your spam folder for this email sent in HMTL format !

 <source lang="bascomavr">

' Send Email with Arduino Ethernet (W5100)
' Tested with GMX

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example NTP Server = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

config submode = new

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Watchdog
'-------------------------------------------------------------------------------
config watchdog = 4096
Start watchdog

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2 'Time to start the Debug Terminal after flashing
reset watchdog
Print
Print "-----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit
dim second_counter as byte

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' SMTP Email Variables
'-------------------------------------------------------------------------------
Dim Smtp_sock As Byte
Dim Tcp_var As Byte
Dim email_string As String * 130
Dim length as byte

Const Smtp_email_socket = 1 'Socket Number for SMTP

'-------------------------------------------------------------------------------
' UDP Variables
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

Reset Watchdog

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' +
' + SUB NAME: Send_Email()
' +
' + DESCRIPTION: Send Email
' +
' +
' + RETURN: None
' +
' + NOTES: None
' +
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'

Sub Send_Email(byval Send_html As Byte) ' 0 = send Text, 1 = send HTML

'---------------------[SEND EMAIL SMTP]-----------------------------------------
'for SMTP Email first we need a socket
idx = Getsocket(smtp_email_socket , Sock_stream , 4086 , 0)
If idx = 255 Then print "SMTP Email Getsocket Error"
'(
result = Socketstat(idx , Sel_control)

Select Case result
Case Sock_closed : print "Sock_closedr"
Case Sock_arp : print "SOCK_ARP"
Case Sock_listen : print "SOCK_LISTEN"
Case Sock_synsent : print "SOCK_SYNSENT"
Case Sock_synrecv : print "SOCK_SYNRECV"
Case Sock_established : print "SOCK_ESTABLISHED"
Case Sock_close_wait : print "SOCK_CLOSE_WAIT"
Case Sock_last_ack : print "SOCK_LAST_ACK"
Case Sock_fin_wait : print "SOCK_FIN_WAIT"
Case Sock_closing : print "SOCK_CLOSING"
Case Sock_time_wait : print "SOCK_TIME_WAIT"
Case Sock_init : print "SOCK_INIT"
Case Sock_udp : print "SOCK_UDP"
Case Sock_raw : print "SOCK_RAW"
Case Sock_macraw : print "SOCK_MACRAW"
Case Sock_ppoe : print "SOCK_PPOE"
End Select
')

'connect to smtp server
result = Socketconnect(idx , 213.165.64.21 , 25) ' smtp server and SMTP port 25
' ^socket
' ^ ip address of the smtp server
' ^ port 25 for smtp
print "Connecting to GMX Email Server: " ; " 213.165.64.21 Port 25 "

print "Socketconnect Status = " ; result
If result = 1 Then print "ERROR connecting to 213.165.64.21 Port 25"

Reset Watchdog

Do
result = Socketstat(idx , 0) ' get socket status
Loop Until result = Sock_established

print "SMTP = " ; "SOCK_ESTABLISHED"

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "220" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "HELO Arduino Ethernet{013}{010}"
Tcp_var = Tcpwrite(idx , "HELO Arduino Ethernet{013}{010}" ) ' send username
print Tcp_var ; " bytes written" ' number of bytes actual send

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server

If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

print "Send " ; "AUTH LOGIN{013}{010}"

Tcp_var = Tcpwrite(idx , "AUTH LOGIN{013}{010}" ) 'authentication login

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The username must be Base64 encoded (and add the CR + LF)!
Tcp_var = Tcpwrite(idx , "**********************=={013}{010}" ) 'USERNAME

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The password must be Base64 encoded (and add the CR + LF) !
Tcp_var = Tcpwrite(idx , "********************=={013}{010}" ) 'PASSWORD

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "235" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'Your Email address
Tcp_var = Tcpwrite(idx , "MAIL FROM: *********@***.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The Email address you want to send the message to
Tcp_var = Tcpwrite(idx , "RCPT TO: ******@*****.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "DATA{013}{010}" )

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "354" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "FROM: ********@***.de{013}{010}")
Tcp_var = Tcpwrite(idx , "TO: *******@****.com{013}{010}")
Tcp_var = Tcpwrite(idx , "SUBJECT: Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "X-Mailer: BASCOM SMTP{013}{010}")

If Send_html = 1 Then
'----------------------Send the Email as HTML ---------------------------

Tcp_var = Tcpwrite(idx , "Mime-Version: 1.0;{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Type: text/html; charset={034}ISO-8859-1{034};{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Transfer-Encoding: 7bit;{013}{010}")

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch to body

Tcp_var = Tcpwrite(idx , "<html>{013}{010}")
Tcp_var = Tcpwrite(idx , "<body>{013}{010}")
Tcp_var = Tcpwrite(idx , "<h2>The Link to Bascom Forum !</h2>{013}{010}")
Tcp_var = Tcpwrite(idx , "Here is it: <a href={034}http://www.mcselec.com/index2.php?option=com_forum&Itemid=59{034}>Bascom Forum</a>{013}{010}")
Tcp_var = Tcpwrite(idx , "Best Regards,{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "</body>{013}{010}")
Tcp_var = Tcpwrite(idx , "</html>{013}{010}")
Tcp_var = Tcpwrite(idx , ".{013}{010}")
Else

'-----------------------Send only TEXT-----------------------------------

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch from subject to body
Tcp_var = Tcpwrite(idx , "This is a test email from BASCOM-AVR SMTP{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
email_string = "Timestamp = " + time$ + " / " + date$ + "{013}{010}"
length = len(email_string)
Tcp_var = Tcpwrite(idx , email_string, length)
Tcp_var = Tcpwrite(idx , ".{013}{010}") ' end with a single dot
end if

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string '--> 250 2.6.0 Message accepted
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "QUIT{013}{010}"
Tcp_var = Tcpwrite(idx , "QUIT{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "221" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Print "Close Socket"
Closesocket Idx ' close the server connection

End Sub

reset watchdog

'Here we send the email

call Send_Email(0) 'Send text Email
wait 2 : reset watchdog
call Send_Email(1) 'Send Email in HTML

Do
If New_second = 1 Then
Reset New_second
reset watchdog

'Do something every second ......

print "Tick"

incr second_counter
if second_counter = 180 then
second_counter = 0
'Do something every 3 minutes ......
end if
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Terminal Ouput of Example ==

 -----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416239374 10.03.13   15:02:54 Connecting to GMX Email Server:  213.165.64.21 Port 25 Socketconnect Status = 0 SMTP = SOCK_ESTABLISHED Server Answer = 220 mail.gmx.net GMX Mailservices ESMTP {mp033} Send HELO Arduino Ethernet 23  bytes written Server Answer = 250 mail.gmx.net GMX Mailservices {mp033} Send AUTH LOGIN Server Answer = 334 VXNlcm5hbWU6 Server Answer = 334 UGFzc3dvcmQ6 Server Answer = 235 2.7.0 Go ahead {mp033} Server Answer = 250 2.1.0 ok {mp033} Server Answer = 250 2.1.5 ok {mp033} Server Answer = 354 mail.gmx.net Go ahead {mp033} Server Answer = 250 2.6.0 Message accepted {mp033} Send QUIT Server Answer = 221 2.0.0 GMX Mailservices {mp033} Close Socket Connecting to GMX Email Server:  213.165.64.21 Port 25 Socketconnect Status = 0 SMTP = SOCK_ESTABLISHED Server Answer = 220 mail.gmx.net GMX Mailservices ESMTP {mp033} Send HELO Arduino Ethernet 23  bytes written Server Answer = 250 mail.gmx.net GMX Mailservices {mp033} Send AUTH LOGIN Server Answer = 334 VXNlcm5hbWU6 Server Answer = 334 UGFzc3dvcmQ6 Server Answer = 235 2.7.0 Go ahead {mp033} Server Answer = 250 2.1.0 ok {mp033} Server Answer = 250 2.1.5 ok {mp033} Server Answer = 354 mail.gmx.net Go ahead {mp033} Server Answer = 250 2.6.0 Message accepted {mp033} Send QUIT Server Answer = 221 2.0.0 GMX Mailservices {mp033} Close Socket Tick Tick Tick Tick Tick Tick Tick Tick Tick 

== Telnet Exercise with sending an Email (if you encounter a problem) ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T14:19:47Z

MAK3: /* Under Construction */

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== What you need to run the example ==

For the following example you need:

*Email account which supportSMTP Authentication (AUTH LOGIN) on Port 25
*Username and password Base64 encoded (you can use the Easy TCP/IP tool in Bascom-AVR to encode and decode)
*IP address of your smtp server (if you do not know it just open in Windows the DOS command window and ping the server)
*Your sender Email address and the receiver Email address

Don't use the Email Sub in the Do...Loop until you know what you are doing (Your mail provider could ban you if you send too much emails) !

This example use the base structure from here: [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100) http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100)]

The focus of this article is Email and not other topics which are already descibed in other articels in this WIKI.

You need to change the  * (asterisk) !

When you send the Email as HTML (with the Link) it might end up in your spam folder. So check also your spam folder for this email sent in HMTL format !

 <source lang="bascomavr">

' Send Email with Arduino Ethernet (W5100)
' Tested with GMX

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example NTP Server = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

config submode = new

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Watchdog
'-------------------------------------------------------------------------------
config watchdog = 4096
Start watchdog

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2 'Time to start the Debug Terminal after flashing
reset watchdog
Print
Print "-----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit
dim second_counter as byte

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' SMTP Email Variables
'-------------------------------------------------------------------------------
Dim Smtp_sock As Byte
Dim Tcp_var As Byte
Dim email_string As String * 130
Dim length as byte

Const Smtp_email_socket = 1 'Socket Number for SMTP

'-------------------------------------------------------------------------------
' UDP Variables
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

Reset Watchdog

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' +
' + SUB NAME: Send_Email()
' +
' + DESCRIPTION: Send Email
' +
' +
' + RETURN: None
' +
' + NOTES: None
' +
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'

Sub Send_Email(byval Send_html As Byte) ' 0 = send Text, 1 = send HTML

'---------------------[SEND EMAIL SMTP]-----------------------------------------
'for SMTP Email first we need a socket
idx = Getsocket(smtp_email_socket , Sock_stream , 4086 , 0)
If idx = 255 Then print "SMTP Email Getsocket Error"
'(
result = Socketstat(idx , Sel_control)

Select Case result
Case Sock_closed : print "Sock_closedr"
Case Sock_arp : print "SOCK_ARP"
Case Sock_listen : print "SOCK_LISTEN"
Case Sock_synsent : print "SOCK_SYNSENT"
Case Sock_synrecv : print "SOCK_SYNRECV"
Case Sock_established : print "SOCK_ESTABLISHED"
Case Sock_close_wait : print "SOCK_CLOSE_WAIT"
Case Sock_last_ack : print "SOCK_LAST_ACK"
Case Sock_fin_wait : print "SOCK_FIN_WAIT"
Case Sock_closing : print "SOCK_CLOSING"
Case Sock_time_wait : print "SOCK_TIME_WAIT"
Case Sock_init : print "SOCK_INIT"
Case Sock_udp : print "SOCK_UDP"
Case Sock_raw : print "SOCK_RAW"
Case Sock_macraw : print "SOCK_MACRAW"
Case Sock_ppoe : print "SOCK_PPOE"
End Select
')

'connect to smtp server
result = Socketconnect(idx , 213.165.64.21 , 25) ' smtp server and SMTP port 25
' ^socket
' ^ ip address of the smtp server
' ^ port 25 for smtp
print "Connecting to GMX Email Server: " ; " 213.165.64.21 Port 25 "

print "Socketconnect Status = " ; result
If result = 1 Then print "ERROR connecting to 213.165.64.21 Port 25"

Reset Watchdog

Do
result = Socketstat(idx , 0) ' get socket status
Loop Until result = Sock_established

print "SMTP = " ; "SOCK_ESTABLISHED"

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "220" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "HELO Arduino Ethernet{013}{010}"
Tcp_var = Tcpwrite(idx , "HELO Arduino Ethernet{013}{010}" ) ' send username
print Tcp_var ; " bytes written" ' number of bytes actual send

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server

If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

print "Send " ; "AUTH LOGIN{013}{010}"

Tcp_var = Tcpwrite(idx , "AUTH LOGIN{013}{010}" ) 'authentication login

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The username must be Base64 encoded (and add the CR + LF)!
Tcp_var = Tcpwrite(idx , "**********************=={013}{010}" ) 'USERNAME

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The password must be Base64 encoded (and add the CR + LF) !
Tcp_var = Tcpwrite(idx , "********************=={013}{010}" ) 'PASSWORD

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "235" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'Your Email address
Tcp_var = Tcpwrite(idx , "MAIL FROM: *********@***.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The Email address you want to send the message to
Tcp_var = Tcpwrite(idx , "RCPT TO: ******@*****.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "DATA{013}{010}" )

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "354" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "FROM: ********@***.de{013}{010}")
Tcp_var = Tcpwrite(idx , "TO: *******@****.com{013}{010}")
Tcp_var = Tcpwrite(idx , "SUBJECT: Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "X-Mailer: BASCOM SMTP{013}{010}")

If Send_html = 1 Then
'----------------------Send the Email as HTML ---------------------------

Tcp_var = Tcpwrite(idx , "Mime-Version: 1.0;{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Type: text/html; charset={034}ISO-8859-1{034};{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Transfer-Encoding: 7bit;{013}{010}")

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch to body

Tcp_var = Tcpwrite(idx , "<html>{013}{010}")
Tcp_var = Tcpwrite(idx , "<body>{013}{010}")
Tcp_var = Tcpwrite(idx , "<h2>The Link to Bascom Forum !</h2>{013}{010}")
Tcp_var = Tcpwrite(idx , "Here is it: <a href={034}http://www.mcselec.com/index2.php?option=com_forum&Itemid=59{034}>Bascom Forum</a>{013}{010}")
Tcp_var = Tcpwrite(idx , "Best Regards,{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "</body>{013}{010}")
Tcp_var = Tcpwrite(idx , "</html>{013}{010}")
Tcp_var = Tcpwrite(idx , ".{013}{010}")
Else

'-----------------------Send only TEXT-----------------------------------

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch from subject to body
Tcp_var = Tcpwrite(idx , "This is a test email from BASCOM-AVR SMTP{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
email_string = "Timestamp = " + time$ + " / " + date$ + "{013}{010}"
length = len(email_string)
Tcp_var = Tcpwrite(idx , email_string, length)
Tcp_var = Tcpwrite(idx , ".{013}{010}") ' end with a single dot
end if

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string '--> 250 2.6.0 Message accepted
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "QUIT{013}{010}"
Tcp_var = Tcpwrite(idx , "QUIT{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "221" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Print "Close Socket"
Closesocket Idx ' close the server connection

End Sub

reset watchdog

'Here we send the email

call Send_Email(0) 'Send text Email
wait 2 : reset watchdog
call Send_Email(1) 'Send Email in HTML

Do
If New_second = 1 Then
Reset New_second
reset watchdog

'Do something every second ......

print "Tick"

incr second_counter
if second_counter = 180 then
second_counter = 0
'Do something every 3 minutes ......
end if
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Terminal Ouput of Example ==

 -----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416239374 10.03.13   15:02:54 Connecting to GMX Email Server:  213.165.64.21 Port 25 Socketconnect Status = 0 SMTP = SOCK_ESTABLISHED Server Answer = 220 mail.gmx.net GMX Mailservices ESMTP {mp033} Send HELO Arduino Ethernet 23  bytes written Server Answer = 250 mail.gmx.net GMX Mailservices {mp033} Send AUTH LOGIN Server Answer = 334 VXNlcm5hbWU6 Server Answer = 334 UGFzc3dvcmQ6 Server Answer = 235 2.7.0 Go ahead {mp033} Server Answer = 250 2.1.0 ok {mp033} Server Answer = 250 2.1.5 ok {mp033} Server Answer = 354 mail.gmx.net Go ahead {mp033} Server Answer = 250 2.6.0 Message accepted {mp033} Send QUIT Server Answer = 221 2.0.0 GMX Mailservices {mp033} Close Socket Connecting to GMX Email Server:  213.165.64.21 Port 25 Socketconnect Status = 0 SMTP = SOCK_ESTABLISHED Server Answer = 220 mail.gmx.net GMX Mailservices ESMTP {mp033} Send HELO Arduino Ethernet 23  bytes written Server Answer = 250 mail.gmx.net GMX Mailservices {mp033} Send AUTH LOGIN Server Answer = 334 VXNlcm5hbWU6 Server Answer = 334 UGFzc3dvcmQ6 Server Answer = 235 2.7.0 Go ahead {mp033} Server Answer = 250 2.1.0 ok {mp033} Server Answer = 250 2.1.5 ok {mp033} Server Answer = 354 mail.gmx.net Go ahead {mp033} Server Answer = 250 2.6.0 Message accepted {mp033} Send QUIT Server Answer = 221 2.0.0 GMX Mailservices {mp033} Close Socket Tick Tick Tick Tick Tick Tick Tick Tick Tick 

== Telnet Exercise with sending an Email (if you encounter a problem) ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T14:15:23Z

MAK3: /* What you need to run the example */

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== What you need to run the example ==

For the following example you need:

*Email account which supportSMTP Authentication (AUTH LOGIN) on Port 25
*Username and password Base64 encoded (you can use the Easy TCP/IP tool in Bascom-AVR to encode and decode)
*IP address of your smtp server (if you do not know it just open in Windows the DOS command window and ping the server)
*Your sender Email address and the receiver Email address

Don't use the Email Sub in the Do...Loop until you know what you are doing (Your mail provider could ban you if you send too much emails) !

This example use the base structure from here: [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100) http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100)]

The focus of this article is Email and not other topics which are already descibed in other articels in this WIKI.

You need to change the  * (asterisk) !

When you send the Email as HTML (with the Link) it might end up in your spam folder. So check also your spam folder for this email sent in HMTL format !

 <source lang="bascomavr">

' Send Email with Arduino Ethernet (W5100)
' Tested with GMX

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example NTP Server = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

config submode = new

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Watchdog
'-------------------------------------------------------------------------------
config watchdog = 4096
Start watchdog

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2 'Time to start the Debug Terminal after flashing
reset watchdog
Print
Print "-----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit
dim second_counter as byte

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' SMTP Email Variables
'-------------------------------------------------------------------------------
Dim Smtp_sock As Byte
Dim Tcp_var As Byte
Dim email_string As String * 130
Dim length as byte

Const Smtp_email_socket = 1 'Socket Number for SMTP

'-------------------------------------------------------------------------------
' UDP Variables
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

Reset Watchdog

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' +
' + SUB NAME: Send_Email()
' +
' + DESCRIPTION: Send Email
' +
' +
' + RETURN: None
' +
' + NOTES: None
' +
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'

Sub Send_Email(byval Send_html As Byte) ' 0 = send Text, 1 = send HTML

'---------------------[SEND EMAIL SMTP]-----------------------------------------
'for SMTP Email first we need a socket
idx = Getsocket(smtp_email_socket , Sock_stream , 4086 , 0)
If idx = 255 Then print "SMTP Email Getsocket Error"
'(
result = Socketstat(idx , Sel_control)

Select Case result
Case Sock_closed : print "Sock_closedr"
Case Sock_arp : print "SOCK_ARP"
Case Sock_listen : print "SOCK_LISTEN"
Case Sock_synsent : print "SOCK_SYNSENT"
Case Sock_synrecv : print "SOCK_SYNRECV"
Case Sock_established : print "SOCK_ESTABLISHED"
Case Sock_close_wait : print "SOCK_CLOSE_WAIT"
Case Sock_last_ack : print "SOCK_LAST_ACK"
Case Sock_fin_wait : print "SOCK_FIN_WAIT"
Case Sock_closing : print "SOCK_CLOSING"
Case Sock_time_wait : print "SOCK_TIME_WAIT"
Case Sock_init : print "SOCK_INIT"
Case Sock_udp : print "SOCK_UDP"
Case Sock_raw : print "SOCK_RAW"
Case Sock_macraw : print "SOCK_MACRAW"
Case Sock_ppoe : print "SOCK_PPOE"
End Select
')

'connect to smtp server
result = Socketconnect(idx , 213.165.64.21 , 25) ' smtp server and SMTP port 25
' ^socket
' ^ ip address of the smtp server
' ^ port 25 for smtp
print "Connecting to GMX Email Server: " ; " 213.165.64.21 Port 25 "

print "Socketconnect Status = " ; result
If result = 1 Then print "ERROR connecting to 213.165.64.21 Port 25"

Reset Watchdog

Do
result = Socketstat(idx , 0) ' get socket status
Loop Until result = Sock_established

print "SMTP = " ; "SOCK_ESTABLISHED"

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "220" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "HELO Arduino Ethernet{013}{010}"
Tcp_var = Tcpwrite(idx , "HELO Arduino Ethernet{013}{010}" ) ' send username
print Tcp_var ; " bytes written" ' number of bytes actual send

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server

If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

print "Send " ; "AUTH LOGIN{013}{010}"

Tcp_var = Tcpwrite(idx , "AUTH LOGIN{013}{010}" ) 'authentication login

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The username must be Base64 encoded (and add the CR + LF)!
Tcp_var = Tcpwrite(idx , "**********************=={013}{010}" ) 'USERNAME

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The password must be Base64 encoded (and add the CR + LF) !
Tcp_var = Tcpwrite(idx , "********************=={013}{010}" ) 'PASSWORD

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "235" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'Your Email address
Tcp_var = Tcpwrite(idx , "MAIL FROM: *********@***.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The Email address you want to send the message to
Tcp_var = Tcpwrite(idx , "RCPT TO: ******@*****.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "DATA{013}{010}" )

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "354" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "FROM: ********@***.de{013}{010}")
Tcp_var = Tcpwrite(idx , "TO: *******@****.com{013}{010}")
Tcp_var = Tcpwrite(idx , "SUBJECT: Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "X-Mailer: BASCOM SMTP{013}{010}")

If Send_html = 1 Then
'----------------------Send the Email as HTML ---------------------------

Tcp_var = Tcpwrite(idx , "Mime-Version: 1.0;{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Type: text/html; charset={034}ISO-8859-1{034};{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Transfer-Encoding: 7bit;{013}{010}")

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch to body

Tcp_var = Tcpwrite(idx , "<html>{013}{010}")
Tcp_var = Tcpwrite(idx , "<body>{013}{010}")
Tcp_var = Tcpwrite(idx , "<h2>The Link to Bascom Forum !</h2>{013}{010}")
Tcp_var = Tcpwrite(idx , "Here is it: <a href={034}http://www.mcselec.com/index2.php?option=com_forum&Itemid=59{034}>Bascom Forum</a>{013}{010}")
Tcp_var = Tcpwrite(idx , "Best Regards,{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "</body>{013}{010}")
Tcp_var = Tcpwrite(idx , "</html>{013}{010}")
Tcp_var = Tcpwrite(idx , ".{013}{010}")
Else

'-----------------------Send only TEXT-----------------------------------

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch from subject to body
Tcp_var = Tcpwrite(idx , "This is a test email from BASCOM-AVR SMTP{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
email_string = "Timestamp = " + time$ + " / " + date$ + "{013}{010}"
length = len(email_string)
Tcp_var = Tcpwrite(idx , email_string, length)
Tcp_var = Tcpwrite(idx , ".{013}{010}") ' end with a single dot
end if

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string '--> 250 2.6.0 Message accepted
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "QUIT{013}{010}"
Tcp_var = Tcpwrite(idx , "QUIT{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "221" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Print "Close Socket"
Closesocket Idx ' close the server connection

End Sub

reset watchdog

'Here we send the email

call Send_Email(0) 'Send text Email
wait 2 : reset watchdog
call Send_Email(1) 'Send Email in HTML

Do
If New_second = 1 Then
Reset New_second
reset watchdog

'Do something every second ......

print "Tick"

incr second_counter
if second_counter = 180 then
second_counter = 0
'Do something every 3 minutes ......
end if
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Under Construction ==

.....

== Telnet Exercise with sending an Email (if you encounter a problem) ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T14:11:28Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== What you need to run the example ==

For the following example you need:

*Email account which supportSMTP Authentication (AUTH LOGIN) on Port 25
*Username and password Base64 encoded (you can use the Easy TCP/IP tool in Bascom-AVR to encode and decode)
*IP address of your smtp server (if you do not know it just open in Windows the DOS command window and ping the server)
*Your sender Email address and the receiver Email address

Don't use the Email Sub in the Do...Loop until you know what you are doing (Your mail provider could ban you if you send too much emails) !

This example use the base structure from here: [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100) http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100)]

The focus of this article is Email and not other topics which are already descibed in other articels in this WIKI.

You need to change the  * (asterisk) !

 <source lang="bascomavr">

' Send Email with Arduino Ethernet (W5100)
' Tested with GMX

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example NTP Server = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

config submode = new

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Watchdog
'-------------------------------------------------------------------------------
config watchdog = 4096
Start watchdog

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2 'Time to start the Debug Terminal after flashing
reset watchdog
Print
Print "-----START Arduino UNO R3 + Ethernet Shield EMAIL DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit
dim second_counter as byte

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' SMTP Email Variables
'-------------------------------------------------------------------------------
Dim Smtp_sock As Byte
Dim Tcp_var As Byte
Dim email_string As String * 130
Dim length as byte

Const Smtp_email_socket = 1 'Socket Number for SMTP

'-------------------------------------------------------------------------------
' UDP Variables
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

Reset Watchdog

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' +
' + SUB NAME: Send_Email()
' +
' + DESCRIPTION: Send Email
' +
' +
' + RETURN: None
' +
' + NOTES: None
' +
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'

Sub Send_Email(byval Send_html As Byte) ' 0 = send Text, 1 = send HTML

'---------------------[SEND EMAIL SMTP]-----------------------------------------
'for SMTP Email first we need a socket
idx = Getsocket(smtp_email_socket , Sock_stream , 4086 , 0)
If idx = 255 Then print "SMTP Email Getsocket Error"
'(
result = Socketstat(idx , Sel_control)

Select Case result
Case Sock_closed : print "Sock_closedr"
Case Sock_arp : print "SOCK_ARP"
Case Sock_listen : print "SOCK_LISTEN"
Case Sock_synsent : print "SOCK_SYNSENT"
Case Sock_synrecv : print "SOCK_SYNRECV"
Case Sock_established : print "SOCK_ESTABLISHED"
Case Sock_close_wait : print "SOCK_CLOSE_WAIT"
Case Sock_last_ack : print "SOCK_LAST_ACK"
Case Sock_fin_wait : print "SOCK_FIN_WAIT"
Case Sock_closing : print "SOCK_CLOSING"
Case Sock_time_wait : print "SOCK_TIME_WAIT"
Case Sock_init : print "SOCK_INIT"
Case Sock_udp : print "SOCK_UDP"
Case Sock_raw : print "SOCK_RAW"
Case Sock_macraw : print "SOCK_MACRAW"
Case Sock_ppoe : print "SOCK_PPOE"
End Select
')

'connect to smtp server
result = Socketconnect(idx , 213.165.64.21 , 25) ' smtp server and SMTP port 25
' ^socket
' ^ ip address of the smtp server
' ^ port 25 for smtp
print "Connecting to GMX Email Server: " ; " 213.165.64.21 Port 25 "

print "Socketconnect Status = " ; result
If result = 1 Then print "ERROR connecting to 213.165.64.21 Port 25"

Reset Watchdog

Do
result = Socketstat(idx , 0) ' get socket status
Loop Until result = Sock_established

print "SMTP = " ; "SOCK_ESTABLISHED"

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "220" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "HELO Arduino Ethernet{013}{010}"
Tcp_var = Tcpwrite(idx , "HELO Arduino Ethernet{013}{010}" ) ' send username
print Tcp_var ; " bytes written" ' number of bytes actual send

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server

If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

print "Send " ; "AUTH LOGIN{013}{010}"

Tcp_var = Tcpwrite(idx , "AUTH LOGIN{013}{010}" ) 'authentication login

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The username must be Base64 encoded (and add the CR + LF)!
Tcp_var = Tcpwrite(idx , "**********************=={013}{010}" ) 'USERNAME

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "334" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The password must be Base64 encoded (and add the CR + LF) !
Tcp_var = Tcpwrite(idx , "********************=={013}{010}" ) 'PASSWORD

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "235" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'Your Email address
Tcp_var = Tcpwrite(idx , "MAIL FROM: *********@***.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

'The Email address you want to send the message to
Tcp_var = Tcpwrite(idx , "RCPT TO: ******@*****.com{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "DATA{013}{010}" )

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "354" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Reset Watchdog

Tcp_var = Tcpwrite(idx , "FROM: ********@***.de{013}{010}")
Tcp_var = Tcpwrite(idx , "TO: *******@****.com{013}{010}")
Tcp_var = Tcpwrite(idx , "SUBJECT: Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "X-Mailer: BASCOM SMTP{013}{010}")

If Send_html = 1 Then
'----------------------Send the Email as HTML ---------------------------

Tcp_var = Tcpwrite(idx , "Mime-Version: 1.0;{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Type: text/html; charset={034}ISO-8859-1{034};{013}{010}")
Tcp_var = Tcpwrite(idx , "Content-Transfer-Encoding: 7bit;{013}{010}")

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch to body

Tcp_var = Tcpwrite(idx , "<html>{013}{010}")
Tcp_var = Tcpwrite(idx , "<body>{013}{010}")
Tcp_var = Tcpwrite(idx , "<h2>The Link to Bascom Forum !</h2>{013}{010}")
Tcp_var = Tcpwrite(idx , "Here is it: <a href={034}http://www.mcselec.com/index2.php?option=com_forum&Itemid=59{034}>Bascom Forum</a>{013}{010}")
Tcp_var = Tcpwrite(idx , "Best Regards,{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
Tcp_var = Tcpwrite(idx , "</body>{013}{010}")
Tcp_var = Tcpwrite(idx , "</html>{013}{010}")
Tcp_var = Tcpwrite(idx , ".{013}{010}")
Else

'-----------------------Send only TEXT-----------------------------------

Tcp_var = Tcpwrite(idx , "{013}{010}") 'Empty line to switch from subject to body
Tcp_var = Tcpwrite(idx , "This is a test email from BASCOM-AVR SMTP{013}{010}")
Tcp_var = Tcpwrite(idx , "Arduino Ethernet Bascom{013}{010}")
email_string = "Timestamp = " + time$ + " / " + date$ + "{013}{010}"
length = len(email_string)
Tcp_var = Tcpwrite(idx , email_string, length)
Tcp_var = Tcpwrite(idx , ".{013}{010}") ' end with a single dot
end if

Reset Watchdog

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "250" Then
print "Server Answer = " ; email_string '--> 250 2.6.0 Message accepted
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

print "Send " ; "QUIT{013}{010}"
Tcp_var = Tcpwrite(idx , "QUIT{013}{010}")

Do
Tcp_var = Tcpread(idx , email_string) ' get response from SMTP server
If Left(email_string , 3) = "221" Then
print "Server Answer = " ; email_string
Exit Do
End If
'The Watchdog will restart the micro in case of no or wrong answer
Loop

Print "Close Socket"
Closesocket Idx ' close the server connection

End Sub

reset watchdog

'Here we send the email

call Send_Email(0) 'Send text Email
wait 2 : reset watchdog
call Send_Email(1) 'Send Email in HTML

Do
If New_second = 1 Then
Reset New_second
reset watchdog

'Do something every second ......

print "Tick"

incr second_counter
if second_counter = 180 then
second_counter = 0
'Do something every 3 minutes ......
end if
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Under Construction ==

.....

== Telnet Exercise with sending an Email (if you encounter a problem) ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T14:10:23Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T11:06:09Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T11:04:42Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T11:01:05Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T11:00:17Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T10:58:06Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T10:30:54Z

MAK3:

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-10T10:09:25Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== Telnet Exercise with sending an Email (if you encounter a problem) ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:46:02Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows7 or 8

== Telnet Exercise with sending an Email ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:44:22Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== Telnet Exercise with sending an Email ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:42:59Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== Telnet Exercise with sending an Email ==

The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encoded).

You can use the Easy TCP/IP Tool in Bascom-AVR to decode or encode Base64. You can check all the single steps of the SMTP server communication with TELNET in a manual procedure:

 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (we use as example GMX with Port 25):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> '''which is in Bascom {013}{010}.{013}{010}'''

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:37:43Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== Telnet Exercise with sending an Email ==

 The following example request the NTP from a time server and send an email by communicating with an SMTP server SMTP  = Simple Mail Transfer Protocol The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encrypted). If you encounter problems you can check all the single steps of the SMTP server communication with TELNET 1. Enabling Telnet Client in Windows 7    [http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx] 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (in case of GMX):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 8. If you decode the   VXNlcm5hbWU6   for example with the Easy TCP/IP Tool in Bascom-AVR     you will notice that the decoded text is Username: 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) 10. After this the SMTP server ask for the password (also Base64 encoded) 11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} 12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} 13. ... 14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> which is in Bascom {013}{010}.{013}{010} 

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:36:07Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== Telnet Exercise with sending an Email ==

 The following example request the NTP from a time server and send an email by communicating with an SMTP server SMTP  = Simple Mail Transfer Protocol The AUTH LOGIN smtp command is used to login to the smtp server with Username and password (both must be sent Base64 encrypted). If you encounter problems you can check all the single steps of the SMTP server communication with TELNET 1. Enabling Telnet Client in Windows 7    http://social.technet.microsoft.com/wiki/contents/articles/910.enabling-telnet-client-in-windows-7.aspx 2. Start the DOS command window in Windows 7 and type telnet and return 3. Then you see:         Microsoft Telnet>         in the DOS command window. 4. Now type (in case of GMX):             open smtp.gmx.net 25             (25 is the port number) 5. The answer from the SMTP server will be: 220 mail.gmx.net GMX Mailservices ESMTP {mpXXX} 6. Then type:         AUTH LOGIN ' 7. The answer from the SMTP server will be: 334 VXNlcm5hbWU6 ' 8. If you decode the   VXNlcm5hbWU6   for example here   http://www.base64decode.org/ '    you will notice that the decoded text is Username: ' 9. You need now to type in the username Base64 encoded (which is usually your Email address Base64 encoded) '10. After this the SMTP server ask for the password (also Base64 encoded) '11. If you type in the wrong username or password the server's answer is 535 5.7.0 Incorrect username or password {mpXXX} '12. The correct username and password will be answerd by:   235 2.7.0 Go ahead {mpXXX} '13. ... '14. You can start the Email content with DATA and end it with <CR><LF>.<CR><LF> which is in Bascom {013}{010}.{013}{010} 

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:32:31Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== Under Construction ==

.....

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:31:59Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== SMTP Server Reply Codes ==

Code Description

 211 System status, or system help reply. 214 Help message. 220 Domain service ready.Ready to start TLS. 221 Domain service closing transmission channel. 250 Ok , Queuing For Node Node Started.requested Mail Action Okay , Completed. 251 Ok , No Messages Waiting For Node Node.user Not Local , Will Forward To Forwardpath. 252 OK, pending messages for node node started.Cannot VRFY user (e.g., info is not local), but will take message for this user and attempt delivery. 253 OK, messages pending messages for node node started. 354 Start mail input; end with <CRLF>.<CRLF>. 355 Octet-offset is the transaction offset. 421 Domain Service Not Available , Closing Transmission Channel. 432 A password transition is needed. 450 Requested mail action not taken: mailbox unavailable.ATRN request refused. 451 Requested action aborted: local error in processing.Unable to process ATRN request now 452 Requested action not taken: insufficient system storage. 453 You have no mail. 454 TLS not available due to temporary reason.Encryption required for requested authentication mechanism. 458 Unable to queue messages for node node. 459 Node node not allowed: reason. 500 Command not recognized: command.Syntax error. 501 Syntax error, no parameters allowed. 502 Command not implemented. 503 Bad sequence of commands. 504 Command parameter not implemented. 521 Machine does not accept mail. 530 Must issue a STARTTLS command first.Encryption required for requested authentication mechanism. 534 Authentication mechanism is too weak. 538 Encryption required for requested authentication mechanism. 550 Requested action not taken: mailbox unavailable. 551 User not local; please try forwardpath. 552 Requested mail action aborted: exceeded storage allocation. 553 Requested action not taken: mailbox name not allowed. 554 Transaction failed.

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:24:51Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Used Software ==

Bascom-AVR 2.0.7.6

Windows8

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:23:36Z

MAK3:

== Used Hardware ==

*Arduino UNO R3
*Ethernet Shield with W5100 Wiznet Chip  

== Under Construction ==

......

[[Category:Arduino Ethernet with Bascom-AVR]]

How to send an Email with Arduino and Ethernet Shield (W5100)

2013-03-09T23:22:06Z

MAK3: Created page with "== Under Construction == Category:Arduino Ethernet with Bascom-AVR"

== Under Construction ==

[[Category:Arduino Ethernet with Bascom-AVR]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-09T08:31:09Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

The used Ethernet Shield is this here: [http://arduino.cc/en/Guide/ArduinoEthernetShield http://arduino.cc/en/Guide/ArduinoEthernetShield]

 Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

[[File:Arduino ethernet shield w5100.PNG|border|center|600x600px|Arduino ethernet shield w5100.PNG]]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>See Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

to know how to use this example code.

== Terminal Output of example: ==

When using Easy TCP/IP and sending the text "Hello".

----

START Arduino UNO R3 + Ethernet Shield DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416063775 08.03.13   14:16:15 Size= 5 By  Port= 50000 Sender IP= 192.168.2.100  Timestamp : 08.03.13 / 14:16:45 DATA = Hello

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-09T08:21:58Z

MAK3: /* Please read first this Article: */

== Please read first this Article: ==

Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

The used Ethernet Shield is this here: [http://arduino.cc/en/Guide/ArduinoEthernetShield http://arduino.cc/en/Guide/ArduinoEthernetShield]

 Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

[[File:Arduino ethernet shield w5100.PNG|border|center|600x600px|Arduino ethernet shield w5100.PNG]]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>See Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

to know how to use this example code.

== Terminal Output of example: ==

When using Easy TCP/IP and sending the text "Hello".

----

START Arduino UNO R3 + Ethernet Shield DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416063775 08.03.13   14:16:15 Size= 5 By  Port= 50000 Sender IP= 192.168.2.100  Timestamp : 08.03.13 / 14:16:45 DATA = Hello

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:56:30Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

[[File:Arduino ethernet shield w5100.PNG|border|center|600x600px]]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>See Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

to know how to use this example code.

== Terminal Output of example: ==

When using Easy TCP/IP and sending the text "Hello".

----

START Arduino UNO R3 + Ethernet Shield DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416063775 08.03.13   14:16:15 Size= 5 By  Port= 50000 Sender IP= 192.168.2.100  Timestamp : 08.03.13 / 14:16:45 DATA = Hello

== Author ==

MAK3

[[Category:Projects]]

File:Arduino ethernet shield w5100.PNG

2013-03-08T13:55:39Z

MAK3:

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:37:33Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>See Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

to know how to use this example code.

== Terminal Output of example: ==

When using Easy TCP/IP and sending the text "Hello".

----

START Arduino UNO R3 + Ethernet Shield DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416063775 08.03.13   14:16:15 Size= 5 By  Port= 50000 Sender IP= 192.168.2.100  Timestamp : 08.03.13 / 14:16:45 DATA = Hello

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:36:14Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>See Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

to know how to use this example code.

== Terminal Output of example: ==

-----START Arduino UNO R3 + Ethernet Shield DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416063775 08.03.13   14:16:15 Size= 5 By  Port= 50000 Sender IP= 192.168.2.100  Timestamp : 08.03.13 / 14:16:45 DATA = Hello 

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:35:23Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>See Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

to know how to use this example code.

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:34:27Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:33:44Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io --> [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io [1]]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

Another difference is that in this example we do not use the Bascom-AVR bootloader. We use here the existing Arduino bootloader.

To get started with this see here:  [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO http://wiki.mcselec.com/Getting_started_with_Arduino_UNO]

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:30:33Z

MAK3:

== Please read first this Article: ==

Getting started with Arduino and WIZ820io --> [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io [1]]

It uses the same source code exept we use here an Wiznet W5100 Chip intead of W5200 so only '''config TCPIP '''needs to be changed.

The usage of Easy TCP/IP in combination with that example is also the same.

== Source Code: ==

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

== Complete Source code: ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'

'Use Hardware:
' - Arduino UNO R3
' - Arduino Ethernet Shield with W5100 Wiznet Chip

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START Arduino UNO R3 + Ethernet Shield DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:29:24Z

MAK3:

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:25:38Z

MAK3:

See first this WIKI articel:

Getting started with Arduino and WIZ820io --> [http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io [1]]

The difference is only this part in the Bascom source code:

 <source lang="bascomavr">
'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Tx = $55 , Rx = $55 , _
Chip = W5100 , _
Spi = 1

</source>

afsdaasdf
[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:23:42Z

MAK3:

Getting started with Arduino and WIZ820io

2013-03-08T13:23:03Z

MAK3:

See also: [http://wiki.mcselec.com/Getting_started_with_Arduino_UNO_R3_and_Ethernet_Shield_(W5100)]

== Used Bascom-AVR Version ==

Bascom-AVR 2.0.7.6

Used OS = Windows8

== Used Hardware ==

To get started an Arduino Duemilanove board is used with an Arduino prototyping shield and prototyping jump wires.

To get the 3.3V for the WIZ820io power supply an voltage regulator is needed to transform the 5V from the Arduino board to 3.3V.

(The maximum current draw from FTDI chip on the Arduino Duemilanove is max. 50mA and therefore not usable to power the WIZ820io)

== Used Boot loader ==

You can use the Arduino boot loader but in this example an AVRISP MKII is used to flash an Bascom-AVR Bootloader.

For this you need an AVRISP MKII and AVR Studio to flash the bootloader on the Atmega328P on the Arduino.

Steps:

#Open AVR Studio 6
#Hit Tools >>> Device Programming
#Select AVRISP mkII under Tools and Select ATMEGA328P under devices and hit Apply button
#Check the BOORST fuse bit (see picture below)
#Flash the bootloader to Atmega328P

[[File:Avr sdudio 6 fuse bits bootloader.PNG|frame|center|600x600px]]

== How to flash the bootloader ==

#Goto Memories
#Select the Bootloader HEX file
#Hit the Program button

[[File:Avr sdudio 6 fuse bits bootloader flash.PNG|frame|center|600x600px|Avr sdudio 6 fuse bits bootloader flash.PNG]]

Following you can find the Bootloader written in Bascom-AVR which works with baud rate of 57600baud:

<source lang="bascomavr">
$crystal = 16000000 'Arduino is running at 16MHz
$baud = 57600 '57600 Baud
$timeout = 900000

$regfile = "m328pdef.dat"
$loader = $3c00 'sets the bootsize to 1024 words under flash size
Const Pagemsb = 6 '64 words in a page reguires 6 bits

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Dim Retries As Byte
Dim Receivedbyte As Byte
Dim Kindofdata As Byte
Dim Spmcsrvalue As Byte
Dim Calculatedchecksum As Byte
Dim Receivedblock As Byte
Dim Countedblock As Byte
Dim Invertedblock As Byte
Dim Receivedchecksum As Byte
Dim Receivedbytes(128) As Byte
Dim J As Byte
Dim Vl As Byte
Dim Vh As Byte
Dim Wrd As Word
Dim Page As Word
Dim Z As Long

Disable Interrupts

Const Maxword =(2 ^ Pagemsb) * 2
Const Zpagemsb = Pagemsb + 1
Const Soh = &H01
Const Stx = &H02
Const Eot = &H04
Const Ack = &H06
Const Nak = &H15
Const Can = &H18

Retries = 5
Testformagicbyte:
Receivedbyte = Waitkey()
Print Chr(receivedbyte);
If Receivedbyte = 123 Then
Kindofdata = 0
Goto Loader
Elseif Receivedbyte = 124 Then
Kindofdata = 1
Goto Loader
Elseif Receivedbyte <> 0 Then
Decr Retries
If Retries <> 0 Then Goto Testformagicbyte
End If
Goto _reset

Loader:
Do
Receivedbyte = Waitkey()
Loop Until Receivedbyte = 0

If Kindofdata = 0 Then
Spmcsrvalue = 3 : Gosub Do_spm
Spmcsrvalue = 17 : Gosub Do_spm
End If
Retries = 10

Do
Calculatedchecksum = 0
Print Chr(nak);
Do
Receivedbyte = Waitkey()
Select Case Receivedbyte
Case &H01: '<SOH>
Incr Countedblock
Calculatedchecksum = 1
Receivedblock = Waitkey()
Calculatedchecksum = Calculatedchecksum + Receivedblock
Invertedblock = Waitkey()
Calculatedchecksum = Calculatedchecksum + Invertedblock
For J = 1 To 128
Receivedbytes(j) = Waitkey()
Calculatedchecksum = Calculatedchecksum + Receivedbytes(j)
Next
Receivedchecksum = Waitkey()
If Countedblock = Receivedblock Then
If Receivedchecksum = Calculatedchecksum Then
Gosub Writepage
Print Chr(ack);
Else
Print Chr(nak);
End If
Else
Print Chr(nak);
End If
Case &H04: '<EOT>
If Wrd > 0 And Kindofdata = 0 Then
Wrd = 0
Spmcsrvalue = 5 : Gosub Do_spm
Spmcsrvalue = 17 : Gosub Do_spm
End If
Print Chr(ack);
Waitms 20
Goto _reset
Case &H18: '<CAN>
Goto _reset
Case Else
Exit Do
End Select
Loop

If Retries > 0 Then
Waitms 1000
Decr Retries
Else
Goto _reset
End If
Loop

Writepage:
If Kindofdata = 0 Then
For J = 1 To 128 Step 2
Vl = Receivedbytes(j)
Vh = Receivedbytes(j + 1)
lds r0, {vl}
lds r1, {vh}
Spmcsrvalue = 1 : Gosub Do_spm
Wrd = Wrd + 2
If Wrd = Maxword Then
Wrd = 0
Spmcsrvalue = 5 : Gosub Do_spm
Spmcsrvalue = 17 : Gosub Do_spm
Page = Page + 1
Spmcsrvalue = 3 : Gosub Do_spm
Spmcsrvalue = 17 : Gosub Do_spm
End If
Next
Else
For J = 1 To 128
Writeeeprom Receivedbytes(j) , Wrd
Wrd = Wrd + 1
Next
End If
Return

Do_spm:
Bitwait Spmcsr.0 , Reset
Bitwait Eecr.1 , Reset
Z = Page
Shift Z , Left , Zpagemsb
Z = Z + Wrd
lds r30, {Z}
lds r31, {Z + 1}
#if _romsize > 65536
lds r24, {Z + 2}
sts rampz, r24
#endif
Spmcsr = Spmcsrvalue
spm
nop
nop
Return

</source>

== First "Hello World" Program ==

Next Step is to flash a first Hello World program direct with Bascom-AVR:

 

#Goto Options >>> Programmer in Bascom-AVR
#Select MCS Bootloader
#Select the com port of Arduino (in this case com3) and baud rate = 57600 (the same as in the bootloader program)
#Write the first Hello World program

[[File:Arduino bootloader settings in bascom avr.PNG|border|center|600x600px|Arduino bootloader settings in bascom avr.PNG]]

Source code for Hello World program:

 <source lang="bascomavr">
$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 60
$swstack = 60
$framesize = 60

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Do

Print "Hello World"
Waitms 1000

Loop

End 'end program
</source>

Just compile this Hello World program and hit the Program Chip button or use shortcut F4 in Bascom-AVR (the programmer should be already configured before).

Then open an terminal program of your choice and connect with 57600 baud on the Arduino interface number (in this case COM3) and you will notice the

Hello World messages coming in.

Now it's time to start with WIZ820io.

== Hardware Connections for WIZ820io ==

HARDWARE CONNECTIONS:

{| border="1" cellpadding="1" cellspacing="1" width="500"
|-
| style="text-align: center" | '''WIZ820io''' 
| style="text-align: center" | '''Arduino''' 
|-
| style="text-align: center" | GND 
| style="text-align: center" | GND 
|-
| style="text-align: center" | MISO 
| style="text-align: center" | MISO 
|-
| style="text-align: center" | MOSI 
| style="text-align: center" | MOSI 
|-
| style="text-align: center" | SCK 
| style="text-align: center" | SCK 
|-
| style="text-align: center" | nSS 
| style="text-align: center" | Portd.7 
|-
| style="text-align: center" | nReset 
| style="text-align: center" | Portb.2 
|-
| style="text-align: center" | PWDN 
| style="text-align: center" | GND
|-
| style="text-align: center" | 3.3V (over additional voltage regulator) 
| style="text-align: center" | 5V input for additional voltage regulator 
|-
| style="text-align: center" | nINT 
| style="text-align: center" | not connected 
|}

== SPI and TCPIP Configuration for WIZ820io ==

At first we need to configure the SPI interface and initialize the SPI interface. Then we need a defined Reset of the WIZ820io before we configure the TCPIP Interface. Important is also the waitms 350 to give the WIZ820io time to be ready for the first command.

Needed infos are:

*We use noint. This is the preferred method.
*MAC address of WIZ820io
*IP address of WIZ820io
*Subnet Mask
*Gateway (e.g. Router adress)
*Local Port
*Chip is here W5200 which is used in the WIZ820io module
*SPI = 1. THe W5200 chip is connected with SPI.
*Chip select is connected with Portd.7

<source lang="bascomavr">
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Config Pinb.2 = Output
W5200_nreset Alias Portb.2
Reset W5200_nreset
Waitms 1
Set W5200_nreset
Waitms 350

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Chip = W5200 , _
Spi = 1 , _
Cs = Portd.7
</source>

== First Test Hardware ==

[[File:Wiz820io first test.jpg|border|none|800x800px|Wiz820io first test.jpg]]

== Easy TCP/IP ==

The following code can be used with the Easy TCP/IP tool in Bascom-AVR under Tools >>> Easy TCP/IP.

In the Easy TCP/IP tool you need:

*The IP address of WIZ820io (e.g. 192.168.2.254)
*Local Port (e.g. 50000)
*Remort Port (e.g. 1000)
*And a text (e.g. Hello)

Hit Setup UDP then you can send the text by klicking on SEND.

[[File:Easy tcp ip tool.PNG|border|center|600x600px|Easy tcp ip tool.PNG]]

And here the Terminal Output of the following source code in combination with Easy TCP/IP:

-----START WIZ820io Arduino Duemilanove DEMO----- PING NTP Server : 192.53.103.108 Ping Number : 1 PING OK --> Exit Do..Loop Socket 0 0 Local_time = 416047437 08.03.13   09:43:57 Size= 5 By  Port= 50000 Sender IP= 192.168.2.100  Timestamp : 08.03.13 / 09:44:14 DATA = Hello

Bascom-AVR source code of UDP Example which uses:

*Ping of NTP Server
*Get time from NTP Server
*Send back the text to sender IP address (sent by Easy TCP/IP)

== Demo Code ==

 <source lang="bascomavr">

' IP Address of Arduino = 192.168.2.254
' Port of Arduino = 1000
' We use UDP
'
' HARDWARE CONNECTIONS:
' WIZ820 <-------------> Arduino Duemilanove
' GND <-------------> GND
' MISO <-------------> MISO
' MOSI <-------------> MOSI
' SCK <-------------> SCK
' nSS <-------------> PortD.7
' nReset <-------------> PortB.2
' nINT
' PWDN <-------------> GND
' 3.3V <-------------> 3.3V over additional 3.3 V Low Dropouts (LDO)

' NTP Server IP address (here you can change the NTP server of your choice)
Const Ntp1 = 192 : Const Ntp2 = 53 : Const Ntp3 = 103 : Const Ntp4 = 108 ' Example = 192.53.103.108

Const Use_ping = 1 'use PING NTP server for checking NTP server availability before move on

$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 100
$swstack = 100
$framesize = 400

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------
' Server Variables
'-------------------------------------------------------------------------------
Dim Ip_sntp_server As Long
'assign the IP number of a SNTP server
Ip_sntp_server = Maketcp(ntp1 , Ntp2 , Ntp3 , Ntp4) 'assign IP of NTP SERVER

Wait 2
Print
Print "-----START WIZ820io Arduino Duemilanove DEMO-----"
'-------------------------------------------------------------------------------
' Network Hardware
'-------------------------------------------------------------------------------
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
Spiinit

Config Pinb.2 = Output
W5200_nreset Alias Portb.2
Reset W5200_nreset
Waitms 1
Set W5200_nreset
Waitms 350

Print
Enable Interrupts

'Here you need MAC address, the ip address you like to use, subnet mask, gateway and localport
Config Tcpip = Noint , _
Mac = 1.1.94.127.1.255 , _
Ip = 192.168.2.254 , _
Submask = 255.255.255.0 , _
Gateway = 192.168.2.1 , _
Localport = 1000 , _
Chip = W5200 , _
Spi = 1 , _
Cs = Portd.7

'-------------------------------------------------------------------------------
' Config Clock
'-------------------------------------------------------------------------------
Dim Local_time As Long
Dim New_second As Bit

Config Date = Dmy , Separator = .
Config Clock = User

Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_irq Saveall 'the SAVEALL option is NEEDED !
Const Timer_preload = 3036
Enable Timer1

'-------------------------------------------------------------------------------
' UDP
'-------------------------------------------------------------------------------
Dim Idx As Byte ' socket number
Dim Result As Word ' result
Dim S(255) As Byte
Dim R(255) As Byte
Dim Sstr As String * 255
Dim Temp As Byte , Temp2 As Byte ' temp bytes
Dim Ip As Long

'-------------------------------------------------------------------------------
' PING NTP SERVER to check if NTP server is available
'-------------------------------------------------------------------------------
#if Use_ping = 1
Dim J As Byte , Res As Byte
Dim Ii As Byte
Dim Ping_check_ok As Bit

' FILL PING ARRAY
S(1) = 8 'type is echo
S(2) = 0 'code

S(3) = 0 ' for checksum initialization
S(4) = 0 ' checksum
S(5) = 0 ' a signature can be any number
S(6) = 1 ' signature
S(7) = 0 ' sequence number - any number
S(8) = 1
S(9) = 65

Dim W As Word At S + 2 Overlay 'same as dta(3) and dta(4)
Dim B As Byte
W = Tcpchecksum(s(1) , 9) ' calculate checksum and store in dta(3) and dta(4)

'Ip = Maketcp(192.53.103.108) 'try to check this google server
Print "PING NTP Server : " ; Ip2str(ip_sntp_server)

'Print "Socket " ; Idx ; " " ; Idx
Setipprotocol Idx , 1 'set protocol to 1
'the protocol value must be set BEFORE the socket is openend

Idx = Getsocket(idx , Sock_ipl_raw , 5000 , 0) 'RAW Socket

' We try the PING 3 times (but if we get an answer we exit the for loop)
Do
Incr Ii

Result = Udpwrite(ip_sntp_server , 7 , Idx , S(1) , 9) 'write ping data '
Print "Ping Number : " ; ii
Waitms 200 ' depending on the hops, speed, etc
Result = Socketstat(idx , Sel_recv) 'check for data
' Print "REC:" ; Result
If Result >= 11 Then

Res = Tcpread(idx , R(1) , Result) 'get data with TCPREAD !!!

' Print "DATA RETURNED :" ; Res
'( '
For J = 1 To Result
Print R(j) ; " " ;
Next
Print
')
Print "PING OK --> Exit Do..Loop"

Set Ping_check_ok

Exit Do ' If we can an answer from NTP Server exit do ... loop

Else
Print "NTP Server not available"
End If
Waitms 100

Loop Until Ii = 3

Ii = 0
#else
Dim Ping_check_ok As Bit
Ping_check_ok = 1
#endif

'-------------------------------------------------------------------------------
' SNTP
'-------------------------------------------------------------------------------

If Ping_check_ok = 1 Then 'When the NTP Serverer responded to PING
'we need to get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
Print "Socket " ; Idx ; " " ; Idx

Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Local_time = " ; Local_time

If Local_time < 100 Then 'try it again
Wait 1
Local_time = Sntp(idx , Ip_sntp_server) ' get time from SNTP server
Print "Second try ; Local_time = " ; Local_time
End If

Local_time = Local_time + 3600 ' (UTC/GMT) time + 3600
Print Date(local_time) ; Spc(3) ; Time(local_time)
End If

'get a socket first
'note that for UDP we specify sock_dgram
Idx = Getsocket(idx , Sock_dgram , 1000 , 0) ' get socket for UDP mode, specify port
'Print "Socket " ; Idx ; " " ; Idx

Do
If New_second = 1 Then
Reset New_second
'Do something every second ......
End If

'The UDP header give us info about Peersize, Peerport and peeraddress
'which is the amount of data bytes received from peerport and peer ip address
Udpreadheader Idx ' read the udp header (only the first 8 Bytes)

If Peersize > 0 Then ' the actual number of bytes (without header bytes)
Print "Size= " ; Peersize ; " By" ; " Port= " ; Peerport ; " Sender IP= " ; Ip2str(peeraddress) ; " Timestamp : " ; Date$ ; " / " ; Time$
Temp = Udpread(idx , S(1) , Peersize) ' read the number of Bytes into Array S
Print "DATA = " ;
For Temp = 1 To Peersize
Print Chr(s(temp)) ; ' print what we have received over USART to debug interface
Next
Print
'Send it back to sender IP, Sender Port
Result = Udpwrite(peeraddress , Peerport , Idx , S(1) , Peersize) ' write the received data back
End If
Loop

End

Timer_irq:
Incr Local_time
Time$ = Time(local_time)
Date$ = Date(local_time)
Set New_second
Return

Getdatetime:
Return

Settime:
Return

Setdate:
Return
</source>

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:21:51Z

MAK3:

See first this WIKI articel:

[http://wiki.mcselec.com/Getting_started_with_Arduino_and_WIZ820io]

The difference is only this part:

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:20:53Z

MAK3:

See first thisWIKI articel:

[[Category:Projects]]

Getting started with Arduino UNO R3 and Ethernet Shield (W5100)

2013-03-08T13:19:02Z

MAK3: Created page with "See first thisWIKI articel:"

See first thisWIKI articel:

Getting started with Arduino UNO

2013-03-08T13:00:46Z

MAK3:

== Procedure for Getting started with Arduino UNO R3 ==

#Download Arduino Software (which includes the USB driver for Arduino UNO and AVRDUDE)
#[http://arduino.cc/en/main/software http://arduino.cc/en/main/software]
#Create an folder Arduino e.g. C:\arduino-1.0.3
#Copy the Arduino files into C:\arduino-1.0.3
#The drivers can be found under C:\arduino-1.0.3\drivers     ('''not '''the FTDI USB Drivers)
#If the Arduino UNO was already connected then use following help [http://arduino.cc/en/Guide/UnoDriversWindowsXP http://arduino.cc/en/Guide/UnoDriversWindowsXP] which is similar to Windows7 or Windows8 procedure.
#AVRDUDE can be found in folder:  C:\arduino-1.0.3\hardware\tools\avr\bin
#Configure the programmer in Bascom-AVR OPTIONS >>>> Programmer
#Select: External programmer
#Select: Hex
#Under Program: select the path to AVRDUDE.exe   -->  C:\arduino-1.0.3\hardware\tools\avr\bin\avrdude.exe
#Under Parameter use:   -v -F -C c:\arduino-1.0.3\hardware\tools\avr\etc\avrdude.conf -p m328p -P '''com8''' -c arduino -b 115200 -Uflash:w:{FILE}:a
#Change the comX port to the COM port of your Arduino UNO
#The avrdude.conf file can be found here: c:\arduino-1.0.3\hardware\tools\avr\etc\
#When you want to use an Arduino UNO (not R3) then you need to change arduino to stk500 (not tested info)

[[File:Arduino uno ext programmer.PNG|border|center|600x600px|Arduino uno ext programmer.PNG]]

== Easy Example Code ==

Source code for Hello World program:

 <source lang="bascomavr">
$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 60
$swstack = 60
$framesize = 60

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Do

Print "Hello World"
Waitms 1000

Loop

End 'end program
</source>

== Use Program Chip (F4) for download in Bascom-AVR ==

== Terminal Output of Example: ==

Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World

== Used Versions ==

Bascom-AVR 2.0.7.6

Windows8

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO

2013-03-08T12:58:48Z

MAK3:

== Procedure for Getting started with Arduino UNO R3 ==

#Download Arduino Software (which includes the USB driver for Arduino UNO and AVRDUDE)
#[http://arduino.cc/en/main/software http://arduino.cc/en/main/software]
#Create an folder Arduino e.g. C:\arduino-1.0.3
#Copy the Arduino files into C:\arduino-1.0.3
#The drivers can be found under C:\arduino-1.0.3\drivers     ('''not '''the FTDI USB Drivers)
#If the Arduino UNO was already connected then use following help [http://arduino.cc/en/Guide/UnoDriversWindowsXP http://arduino.cc/en/Guide/UnoDriversWindowsXP] which is similar to Windows7 or Windows8 procedure.
#AVRDUDE can be found in folder:  C:\arduino-1.0.3\hardware\tools\avr\bin
#Configure the programmer in Bascom-AVR OPTIONS >>>> Programmer
#Select: External programmer
#Select: Hex
#Under Program: select the path to AVRDUDE.exe   -->  C:\arduino-1.0.3\hardware\tools\avr\bin\avrdude.exe
#Under Parameter use:   -v -F -C c:\arduino-1.0.3\hardware\tools\avr\etc\avrdude.conf -p m328p -P '''com8''' -c arduino -b 115200 -Uflash:w:{FILE}:a
#Change the comX port to the COM port of your Arduino UNO
#The avrdude.conf file can be found here: c:\arduino-1.0.3\hardware\tools\avr\etc\
#When you want to use an Arduino UNO (not R3) then you need to change arduino to stk500 (not tested info)

[[File:Arduino uno ext programmer.PNG|border|center|600x600px|Arduino uno ext programmer.PNG]]

== Easy Example Code ==

Source code for Hello World program:

 <source lang="bascomavr">
$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 60
$swstack = 60
$framesize = 60

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Do

Print "Hello World"
Waitms 1000

Loop

End 'end program
</source>

== Terminal Output of Example: ==

Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World Hello World 

== Used Versions ==

Bascom-AVR 2.0.7.6

Windows8

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO

2013-03-08T12:56:30Z

MAK3:

== Procedure for Getting started with Arduino UNO R3 ==

#Download Arduino Software (which includes the USB driver for Arduino UNO and AVRDUDE)
#[http://arduino.cc/en/main/software http://arduino.cc/en/main/software]
#Create an folder Arduino e.g. C:\arduino-1.0.3
#Copy the Arduino files into C:\arduino-1.0.3
#The drivers can be found under C:\arduino-1.0.3\drivers     ('''not '''the FTDI USB Drivers)
#If the Arduino UNO was already connected then use following help [http://arduino.cc/en/Guide/UnoDriversWindowsXP http://arduino.cc/en/Guide/UnoDriversWindowsXP] which is similar to Windows7 or Windows8 procedure.
#AVRDUDE can be found in folder:  C:\arduino-1.0.3\hardware\tools\avr\bin
#Configure the programmer in Bascom-AVR OPTIONS >>>> Programmer
#Select: External programmer
#Select: Hex
#Under Program: select the path to AVRDUDE.exe   -->  C:\arduino-1.0.3\hardware\tools\avr\bin\avrdude.exe
#Under Parameter use:   -v -F -C c:\arduino-1.0.3\hardware\tools\avr\etc\avrdude.conf -p m328p -P '''com8''' -c arduino -b 115200 -Uflash:w:{FILE}:a
#Change the comX port to the COM port of your Arduino UNO
#The avrdude.conf file can be found here: c:\arduino-1.0.3\hardware\tools\avr\etc\
#When you want to use an Arduino UNO (not R3) then you need to change arduino to stk500 (not tested info)

[[File:Arduino uno ext programmer.PNG|border|center|600x600px|Arduino uno ext programmer.PNG]]

== Easy Example Code ==

Source code for Hello World program:

 <source lang="bascomavr">
$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 60
$swstack = 60
$framesize = 60

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Do

Print "Hello World"
Waitms 1000

Loop

End 'end program
</source>

== Used Versions ==

Bascom-AVR 2.0.7.6

Windows8

== Author ==

MAK3

[[Category:Projects]]

Getting started with Arduino UNO

2013-03-08T12:55:32Z

MAK3:

Getting started with Arduino UNO

2013-03-08T12:51:51Z

MAK3: /* Author */

== Procedure for Getting started with Arduino UNO R3 ==

#Download Arduino Software (which included the USB driver for Arduino UNO and AVRDUDE)
#[http://arduino.cc/en/main/software http://arduino.cc/en/main/software]
#Create an folder Arduino e.g. C:\arduino-1.0.3
#Copy the Arduino files into C:\arduino-1.0.3
#The drivers can be found under C:\arduino-1.0.3\drivers     ('''not '''the FTDI USB Drivers)
#If the Arduino UNO was already connected then use following help [http://arduino.cc/en/Guide/UnoDriversWindowsXP http://arduino.cc/en/Guide/UnoDriversWindowsXP] which is similar to Windows7 or Windows8 procedure.
#AVRDUDE can be found in folder:  C:\arduino-1.0.3\hardware\tools\avr\bin
#Configure the programmer in Bascom-AVR OPTIONS >>>> Programmer
#Select: External programmer
#Select: Hex
#Under Program: select the path to AVRDUDE.exe   -->  C:\arduino-1.0.3\hardware\tools\avr\bin\avrdude.exe
#Under Parameter use:   -v -F -C c:\arduino-1.0.3\hardware\tools\avr\etc\avrdude.conf -p m328p -P '''com8''' -c arduino -b 115200 -Uflash:w:{FILE}:a
#Change the comX port to the COM port of your Arduino UNO
#The avrdude.conf file can be found here: c:\arduino-1.0.3\hardware\tools\avr\etc\
#When you want to use an Arduino UNO (not R3) then you need to change arduino to stk500 (not tested info)

[[File:Arduino uno ext programmer.PNG|border|center|600x600px|Arduino uno ext programmer.PNG]]

== Easy Example Code ==

Source code for Hello World program:

 <source lang="bascomavr">
$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 60
$swstack = 60
$framesize = 60

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Do

Print "Hello World"
Waitms 1000

Loop

End 'end program
</source>

== Author ==

MAK3
[[Category:Projects]]

Getting started with Arduino UNO

2013-03-08T12:51:37Z

MAK3:

Getting started with Arduino UNO

2013-03-08T12:51:01Z

MAK3:

Getting started with Arduino UNO

2013-03-08T12:50:08Z

MAK3:

== Procedure for Getting started with Arduino UNO R3 ==

#Download Arduino Software (which included the USB driver for Arduino UNO and AVRDUDE)
#[http://arduino.cc/en/main/software http://arduino.cc/en/main/software]
#Create an folder Arduino e.g. C:\arduino-1.0.3
#Copy the Arduino files into C:\arduino-1.0.3
#The drivers can be found under C:\arduino-1.0.3\drivers     ('''not '''the FTDI USB Drivers)
#If the Arduino UNO was already connected then use following help [http://arduino.cc/en/Guide/UnoDriversWindowsXP http://arduino.cc/en/Guide/UnoDriversWindowsXP] which is similar to Windows7 or Windows8 procedure.
#AVRDUDE can be found in folder:  C:\arduino-1.0.3\hardware\tools\avr\bin
#Configure the programmer in Bascom-AVR OPTIONS >>>> Programmer
#Select: External programmer
#Select: Hex
#Under Program: select the path to AVRDUDE.exe   -->  C:\arduino-1.0.3\hardware\tools\avr\bin\avrdude.exe
#Under Parameter use:   -v -F -C c:\arduino-1.0.3\hardware\tools\avr\etc\avrdude.conf -p m328p -P '''com8''' -c arduino -b 115200 -Uflash:w:{FILE}:a
#Change the comX port to the COM port of your Arduino UNO
#The avrdude.conf file can be found here: c:\arduino-1.0.3\hardware\tools\avr\etc\
#When you want to use an Arduino UNO (not R3) then you need to change arduino to stk500 (not tested info)

[[File:Arduino uno ext programmer.PNG|border|center|600x600px|Arduino uno ext programmer.PNG]]

Easy Example Code:

Source code for Hello World program:

 <source lang="bascomavr">
$regfile = "m328pdef.dat"
$crystal = 16000000 '16MHz
$hwstack = 60
$swstack = 60
$framesize = 60

Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Do

Print "Hello World"
Waitms 1000

Loop

End 'end program
</source>

[[Category:Projects]]

Getting started with Arduino UNO

2013-03-08T12:48:43Z

MAK3:

== Procedure for Getting started with Arduino UNO R3 ==

#Download Arduino Software (which included the USB driver for Arduino UNO and AVRDUDE)
#[http://arduino.cc/en/main/software http://arduino.cc/en/main/software]
#Create an folder Arduino e.g. C:\arduino-1.0.3
#Copy the Arduino files into C:\arduino-1.0.3
#The drivers can be found under C:\arduino-1.0.3\drivers     ('''not '''the FTDI USB Drivers)
#If the Arduino UNO was already connected then use following help [http://arduino.cc/en/Guide/UnoDriversWindowsXP http://arduino.cc/en/Guide/UnoDriversWindowsXP] which is similar to Windows7 or Windows8 procedure.
#AVRDUDE can be found in folder:  C:\arduino-1.0.3\hardware\tools\avr\bin
#Configure the programmer in Bascom-AVR OPTIONS >>>> Programmer
#Select: External programmer
#Select: Hex
#Under Program: select the path to AVRDUDE.exe   -->  C:\arduino-1.0.3\hardware\tools\avr\bin\avrdude.exe
#Under Parameter use:   -v -F -C c:\arduino-1.0.3\hardware\tools\avr\etc\avrdude.conf -p m328p -P '''com8''' -c arduino -b 115200 -Uflash:w:{FILE}:a
#Change the comX port to the COM port of your Arduino UNO
#The avrdude.conf file can be found here: c:\arduino-1.0.3\hardware\tools\avr\etc\
#When you want to use an Arduino UNO (not R3) then you need to change arduino to stk500 (not tested info)

[[File:Arduino uno ext programmer.PNG|border|center|600x600px|Arduino uno ext programmer.PNG]]

Easy Example Code:

$regfile = "m328pdef.dat" $crystal = 16000000 '16MHz $hwstack = 60 $swstack = 60 $framesize = 60 Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Do  Print "Hello World"  Waitms 1000 Loop End 'end program

[[Category:Projects]]

Getting started with Arduino UNO

2013-03-08T12:47:55Z

MAK3:

File:Arduino uno ext programmer.PNG

2013-03-08T12:47:09Z

MAK3: