اطلاعیه

Collapse
No announcement yet.

میکرو avrو lanبه وسیله بسکام

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    میکرو avrو lanبه وسیله بسکام

    با عرض سلام خدمت تمامی دوستان
    تو زمینه اتصال میکرو avrبه LANتوی نت مطالب زیادی در رابطه با زبان c هست اما منبع راجع به بسکام نیست از دوستان گرامی میخواستم کمک کنن تا بتونیم پروتکل های شبکه را توی بسکام هم پیاده سازی کنیم تا بتونه مرجعی برای سایر دوستان هم باشه با توجه به گسترش شبکه های کامپیوتری احتمال زیاد مورد نیاز برای همه توی پروژهامون هست مدار مورد استفاده هم اگه دوستان موافق باشن همون مدار مورد استفاده که توی مجله نویز قرار بدیم با ENC28J60
    با تشکر از تمامی دوستانی که کمک به جمع آوری مطالب مورد نیاز برای این قسمت انجام میدن
    برچسب ها: avrو, lanبه, بسكام, ميكرو, وسيله
    #2
    پاسخ : میکرو avrو lanبه وسیله بسکام

    دوستان گرامی با گشتن تو نت تونستم مطلب زیر رو پیدا کنم که در مورد بسکام هست از دوستان کمک کنن تا با هم بتونیم پروتکل های مورد استفاده رو از توش بکشیم بیرون البته توی شماتیک برد از تبدیل سریال هم استفاده شده بود خروجی سریال روی برد بود دوستان
    $
    regfile = "m161def.dat" ' used processor
    $crystal = 3579545 ' used crystal
    $baud = 19200 ' baud rate
    $lib "tcpip.lib" ' specify the name of the tcp ip lib

    'W3100A constants
    Const Sock_stream = $01 ' Tcp
    Const Sock_dgram = $02 ' Udp
    Const Sock_ipl_raw = $03 ' Ip Layer Raw Sock
    Const Sock_macl_raw = $04 ' Mac Layer Raw Sock
    Const Sel_control = 0 ' Confirm Socket Status
    Const Sel_send = 1 ' Confirm Tx Free Buffer Size
    Const Sel_recv = 2 ' Confirm Rx Data Size

    'socket status
    Const Sock_closed = $00 ' Status Of Connection Closed
    Const Sock_arp = $01 ' Status Of Arp
    Const Sock_listen = $02 ' Status Of Waiting For Tcp Connection Setup
    Const Sock_synsent = $03 ' Status Of Setting Up Tcp Connection
    Const Sock_synsent_ack = $04 ' Status Of Setting Up Tcp Connection
    Const Sock_synrecv = $05 ' Status Of Setting Up Tcp Connection
    Const Sock_established = $06 ' Status Of Tcp Connection Established
    Const Sock_close_wait = $07 ' Status Of Closing Tcp Connection
    Const Sock_last_ack = $08 ' Status Of Closing Tcp Connection
    Const Sock_fin_wait1 = $09 ' Status Of Closing Tcp Connection
    Const Sock_fin_wait2 = $0a ' Status Of Closing Tcp Connection
    Const Sock_closing = $0b ' Status Of Closing Tcp Connection
    Const Sock_time_wait = $0c ' Status Of Closing Tcp Connection
    Const Sock_reset = $0d ' Status Of Closing Tcp Connection
    Const Sock_init = $0e ' Status Of Socket Initialization
    Const Sock_udp = $0f ' Status Of Udp
    Const Sock_raw = $10 ' Status of IP RAW

    Const Debug = -1 ' for sending feeback to the terminal


    #if Debug
    Print "Start of SMTP demo"
    #endif

    Enable Interrupts ' enable interrupts
    'specify MAC, IP, submask and gateway
    'local port value will be used when you do not specify a port value while creating a connection
    'TX and RX are setup to use 4 connections each with a 2KB buffer
    Config Tcpip = Int0 , Mac = 00.00.12.34.56.78 , Ip = 192.168.0.10 , Submask = 255.255.255.0 , Gateway = 192.168.0.0 , Localport = 1000 , Tx = $55 , Rx = $55

    'dim the used variables
    Dim S As String * 150 , I As Byte , J As Byte , Tempw As Word
    #if Debug
    Print "setup of W3100A complete"
    #endif

    'First we need a socket
    I = Getsocket(0 , Sock_stream , 5000 , 0)
    ' ^ socket numer ^ port
    #if Debug
    Print "Socket : " ; I
    'the socket must return the asked socket number. It returns 255 if there was an error
    #endif

    If I = 0 Then ' all ok
    'connect to smtp server
    J = Socketconnect(i , 194.109.0.0 , 25) ' smtp server and SMTP port 25
    ' ^socket
    ' ^ ip address of the smtp server
    ' ^ port 25 for smtp
    #if Debug
    Print "Connection : " ; J
    Print S_status(1)
    #endif
    If J = 0 Then ' all ok
    #if Debug
    Print "Connected"
    #endif
    ' now depending on the smtp server, it can take some time until a reply is received
    Do
    Tempw = Socketstat(i , 0) ' get status
    Select Case Tempw
    Case Sock_established ' connection established
    Tempw = Tcpread(i , S) ' read line
    #if Debug
    Print S ' show info from smtp server
    #endif
    If Left(s , 3) = "220" Then ' ok
    Tempw = Tcpwrite(i , "HELO user{013}{010}" ) ' send username
    #if Debug
    Print Tempw ; " bytes written" ' number of bytes actual send
    #endif
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S ' show response
    #endif
    If Left(s , 3) = "250" Then ' ok
    Tempw = Tcpwrite(i , "MAIL FROM:<tcpip@mcselec.com>{013}{010}&quot ' send from address
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "250" Then ' ok
    Tempw = Tcpwrite(i , "RCPT TO:<tcpip@mcselec.com>{013}{010}&quot ' send TO address
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "250" Then ' ok
    Tempw = Tcpwrite(i , "DATA{013}{010}&quot ' speicfy that we are going to send data
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "354" Then ' ok
    Tempw = Tcpwrite(i , "From: tcpip@mcselec.com{013}{010}&quot
    Tempw = Tcpwrite(i , "To: tcpip@mcselec.com{013}{010}&quot
    Tempw = Tcpwrite(i , "Subject: BASCOM SMTP test{013}{010}&quot
    Tempw = Tcpwrite(i , "X-Mailer: BASCOM SMTP{013}{010}&quot
    Tempw = Tcpwrite(i , "{013}{010}&quot
    Tempw = Tcpwrite(i , "This is a test email from BASCOM SMTP{013}{010}&quot
    Tempw = Tcpwrite(i , "Add more lines as needed{013}{010}&quot
    Tempw = Tcpwrite(i , ".{013}{010}&quot ' end with a single dot

    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "250" Then ' ok
    Tempw = Tcpwrite(i , "QUIT{013}{010}&quot ' quit connection
    Tempw = Tcpread(i , S)
    #if Debug
    Print S
    #endif
    End If
    End If
    End If
    End If
    End If
    End If
    Case Sock_close_wait
    Print "CLOSE_WAIT"
    Closesocket I ' close the connection
    Case Sock_closed
    Print "Socket CLOSED" ' socket is closed
    End
    End Select
    Loop
    End If
    End If
    End 'end program

    A simple POP3 read program:

    '-------------------------------------------------------------------------------
    ' POP3.BAS
    ' (c) 2002 MCS Electronics
    ' sample that show how to read an email with POP3 protocol
    '-------------------------------------------------------------------------------

    $regfile = "m161def.dat"
    $crystal = 3579545
    $baud = 19200
    $lib "tcpip.lib"

    Const Sock_stream = $01 ' Tcp
    Const Sock_dgram = $02 ' Udp
    Const Sock_ipl_raw = $03 ' Ip Layer Raw Sock
    Const Sock_macl_raw = $04 ' Mac Layer Raw Sock
    Const Sel_control = 0 ' Confirm Socket Status
    Const Sel_send = 1 ' Confirm Tx Free Buffer Size
    Const Sel_recv = 2 ' Confirm Rx Data Size

    'socket status
    Const Sock_closed = $00 ' Status Of Connection Closed
    Const Sock_arp = $01 ' Status Of Arp
    Const Sock_listen = $02 ' Status Of Waiting For Tcp Connection Setup
    Const Sock_synsent = $03 ' Status Of Setting Up Tcp Connection
    Const Sock_synsent_ack = $04 ' Status Of Setting Up Tcp Connection
    Const Sock_synrecv = $05 ' Status Of Setting Up Tcp Connection
    Const Sock_established = $06 ' Status Of Tcp Connection Established
    Const Sock_close_wait = $07 ' Status Of Closing Tcp Connection
    Const Sock_last_ack = $08 ' Status Of Closing Tcp Connection
    Const Sock_fin_wait1 = $09 ' Status Of Closing Tcp Connection
    Const Sock_fin_wait2 = $0a ' Status Of Closing Tcp Connection
    Const Sock_closing = $0b ' Status Of Closing Tcp Connection
    Const Sock_time_wait = $0c ' Status Of Closing Tcp Connection
    Const Sock_reset = $0d ' Status Of Closing Tcp Connection
    Const Sock_init = $0e ' Status Of Socket Initialization
    Const Sock_udp = $0f ' Status Of Udp
    Const Sock_raw = $10 ' Status of IP RAW

    Const Debug = 1


    #if Debug
    Print "Init system"
    #endif

    Config Lcd = 16 * 2 ' lcd we use
    Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
    Cls ' clear LCD

    Enable Interrupts
    Config Tcpip = Int0 , Mac = 00.00.12.34.56.78 , Ip = 192.168.0.10 , Submask = 255.255.255.0 , Gateway = 192.168.0.0 , Localport = 1000 , Tx = $55 , Rx = $55

    'dim variables
    Dim S As String * 150 , I As Byte , J As Byte , Tempw As Word , P As Byte , Ilp As Word , Imsg As Word
    #if Debug
    Print "Ready"
    #endif

    'get a socket
    I = Getsocket(0 , Sock_stream , 5000 , 0)
    #if Debug
    Print "socket : " ; I
    #endif

    If I <> 255 Then ' all ok
    'connect to pop3 server
    J = Socketconnect(i , 64.77.0.0 , 110) ' smtp server and POP3 port 110
    #if Debug
    Print "Connection : " ; J
    Print S_status(1)
    #endif
    If J = 0 Then ' all ok
    #if Debug
    Print "Connected"
    #endif
    Do
    Tempw = Socketstat(i , 0) ' get status
    Select Case Tempw
    Case Sock_established
    Tempw = Tcpread(i , S) ' get line
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "+OK" Then ' ok
    Tempw = Tcpwrite(i , "USER user{013}{010}" ) ' send username
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "+OK" Then ' ok
    Tempw = Tcpwrite(i , "PASS pwd{013}{010}&quot ' send password
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "+OK" Then ' ok
    Do
    Tempw = Socketstat(i , 2) ' get number of received bytes
    If Tempw > 0 Then
    Tempw = Tcpread(i , S) ' get response
    #if Debug
    Print S
    #endif
    Else
    Exit Do ' no more data
    End If
    Loop
    Tempw = Tcpwrite(i , "STAT{013}{010}&quot 'get stats
    Tempw = Tcpread(i , S)
    #if Debug
    Print S
    #endif
    If Left(s , 3) = "+OK" Then ' ok
    '+OK 10 1204
    S = Mid(s , 5) ' stop +ok
    P = Instr(s , " &quot
    P = P - 1 ' find space
    S = Left(s , P)
    Cls ' clear LCD
    Lcd "Emails : " ; S
    Imsg = Val(s) ' number of messages
    For Ilp = 1 To Imsg
    S = "TOP " + Str(ilp) + " 0{013}{010}"
    J = Len(s)
    Tempw = Tcpwrite(i , S , J) ' ask for top lines(0) which will respond with only the header
    Do
    Tempw = Tcpread(i , S)
    If Left(s , 8) = "Subject:" Then ' check for subject
    S = Mid(s , 10)
    Home Lower : Lcd S ' show header
    #if Debug
    Print S
    #endif
    End If
    Loop Until S = "." ' end of data
    Waitms 1000 'some time to read the display
    Next
    Tempw = Tcpwrite(i , "QUIT{013}{010}&quot ' quit
    Tempw = Tcpread(i , S)
    End If
    End If
    End If
    End If
    Case Sock_close_wait
    #if Debug
    Print "CLOSE_WAIT"
    #endif
    Closesocket I ' close connection
    Case Sock_closed
    #if Debug
    Print "CLOSED" ' we are done
    #endif
    End
    End Select
    Loop
    End If
    End If
    End 'end program



    A simple HTTP server program:

    '------------------------------------------------------------------------------
    ' webserver.bas
    ' simple webserver demo
    ' (c) 2002 MCS Electronics
    ' You can access the server via http://213.84.110.248:5000/index.htm
    ' http://213.84.110.248:5000/post.htm
    ' http://213.84.110.248:5000/notfound.htm
    ' any other name will return the not found page
    'Note that the server is not always active
    '------------------------------------------------------------------------------
    $regfile = "m161def.dat"
    $crystal = 3579545
    $baud = 19200

    'used constants
    Const Sock_stream = $01 ' Tcp
    Const Sock_dgram = $02 ' Udp
    Const Sock_ipl_raw = $03 ' Ip Layer Raw Sock
    Const Sock_macl_raw = $04 ' Mac Layer Raw Sock
    Const Sel_control = 0 ' Confirm Socket Status
    Const Sel_send = 1 ' Confirm Tx Free Buffer Size
    Const Sel_recv = 2 ' Confirm Rx Data Size

    'socket status
    Const Sock_closed = $00 ' Status Of Connection Closed
    Const Sock_arp = $01 ' Status Of Arp
    Const Sock_listen = $02 ' Status Of Waiting For Tcp Connection Setup
    Const Sock_synsent = $03 ' Status Of Setting Up Tcp Connection
    Const Sock_synsent_ack = $04 ' Status Of Setting Up Tcp Connection
    Const Sock_synrecv = $05 ' Status Of Setting Up Tcp Connection
    Const Sock_established = $06 ' Status Of Tcp Connection Established
    Const Sock_close_wait = $07 ' Status Of Closing Tcp Connection
    Const Sock_last_ack = $08 ' Status Of Closing Tcp Connection
    Const Sock_fin_wait1 = $09 ' Status Of Closing Tcp Connection
    Const Sock_fin_wait2 = $0a ' Status Of Closing Tcp Connection
    Const Sock_closing = $0b ' Status Of Closing Tcp Connection
    Const Sock_time_wait = $0c ' Status Of Closing Tcp Connection
    Const Sock_reset = $0d ' Status Of Closing Tcp Connection
    Const Sock_init = $0e ' Status Of Socket Initialization
    Const Sock_udp = $0f ' Status Of Udp
    Const Sock_raw = $10 ' Status of IP RAW

    'in debug mode to send some info to the terminal
    Const Debug = 1

    $lib "tcpip.lib"
    $eepleave ' do not delete the EEP file since we generated it with the converter tool

    #if Debug
    Print "init W3100A"
    #endif
    Enable Interrupts
    Config Tcpip = Int0 , Mac = 00.00.12.34.56.78 , Ip = 192.168.0.10 , Submask = 255.255.255.0 , Gateway = 192.168.0.1 , Localport = 1000 , Tx = $55 , Rx = $55

    'dim used variables
    Dim S As String * 140 At &H100 , Shtml As String * 15 , Sheader As String * 30
    Dim Buf(120) As Byte At &H100 Overlay ' this is the same data as S but we can treat it as an array now
    Dim Tempw As Word
    Dim I As Byte , Bcmd As Byte , P1 As Byte , P2 As Byte , Size As Word
    Dim Bcontent As Byte

    I = Getsocket(0 , Sock_stream , 5000 , 0) 'get a socket
    #if Debug
    Print "socket : " ; I
    #endif

    Socketlisten I ' server mode

    #if Debug
    Print "listening"
    #endif

    Do
    Tempw = Socketstat(i , 0) ' get status
    Select Case Tempw
    Case Sock_established
    #if Debug
    Print "sock_est"
    #endif
    Tempw = Socketstat(i , Sel_recv) ' get received bytes
    #if Debug
    Print "receive buffer size : " ; Tempw
    #endif
    If Tempw > 0 Then ' if there is something received
    Bcmd = 0
    Do
    Tempw = Tcpread(i , S) ' read a line
    If Left(s , 3) = "GET" Then '
    Bcmd = 1 ' GET /index.htm HTTP/1.1
    Gosub Page
    Elseif Left(s , 4) = "HEAD" Then
    Bcmd = 2
    Gosub Page
    Elseif Left(s , 4) = "POST" Then
    Bcmd = 3
    Elseif Left(s , 15) = "Content-Length:" Then ' for post
    S = Mid(s , 16) : Bcontent = Val(s)
    Else
    #if Debug
    Print S
    #endif
    End If
    Loop Until S = "" ' wait until we get an empty line
    Tempw = Tcpwrite(i , "HTTP/1.0 200 OK{013}{010}&quot
    If Bcmd = 3 Then
    #if Debug
    Print "Posted data"
    #endif
    Tempw = Tcpread(i , Buf(1) , Bcontent) ' read data
    #if Debug
    Bcontent = Bcontent + 1
    Buf(bcontent) = 0 ' put string terminator at end of data so we can handle it as a string
    Print S
    #endif
    Shtml = "/redirect.htm" ' redirect to www.mcselec.com
    End If
    Gosub Stuur ' GET or HEAD or POST feedback so send it
    Print "closing socket"
    Closesocket I ' close the connection
    Print "done"
    End If
    Case Sock_close_wait
    #if Debug
    Print "CLOSE_WAIT"
    #endif
    Closesocket I ' we need to close
    Case Sock_closed
    #if Debug
    Print "CLOSED"
    #endif
    I = Getsocket(0 , Sock_stream , 5000 , 0) ' get a new socket
    Socketlisten I ' listen
    #if Debug
    Print "Listening on socket : " ; I
    #endif
    End Select
    Loop
    End

    'get html page out of data
    Page:
    P1 = Instr(s , " &quot ' find first space
    P1 = P1 + 1 ' 4
    P2 = Instr(p1 , S , " &quot ' find second space
    P2 = P2 - P1
    Shtml = Mid(s , P1 , P2) ' dont use too long page names
    Shtml = Lcase(shtml) ' make lower case
    #if Debug
    Print "HTML page:" ; Shtml
    #endif
    Return


    'send data
    Stuur:
    Dim Woffset As Word , Bcontenttype As Byte , Wsize As Word , Bgenerate As Bit , Ihitcounter As Integer
    Bgenerate = 0 ' by default
    Select Case Shtml
    Case "/index.htm"
    Bcontenttype = 0 : Bgenerate = 1
    Case "/redirect.htm"
    Bcontenttype = 0 : Bgenerate = 1
    Case "/post.htm" : Wsize = 277
    bContentType = 0 : wOffset = 0
    Case "/notfound.htm" : Wsize = 123
    Bcontenttype = 0 : Woffset = 277
    Case Else ' not found
    Bcontenttype = 0 : Woffset = 277 : Wsize = 123
    End Select

    Select Case Bcontenttype
    Case 0: ' text
    Tempw = Tcpwrite(i , "Content-Type: text/html{013}{010}&quot
    Case 1: ' gif
    End Select
    If Bgenerate = 0 Then ' data from eeprom
    S = "Content-Length: " + Str(wsize) + "{013}{010}"
    Tempw = Tcpwritestr(i , S , 255) ' add additional CR and LF
    Tempw = Tcpwrite(i , Eeprom , Woffset , Wsize) ' write data
    Else ' we generate the data
    If Shtml = "/index.htm" Then
    S = "<html><head><title>Easy TCP/IP</title></head><body><p><b>MCS webserver test<br></b>Hits : " + Str(ihitcounter) + "</p><p> </p><p> </p></body></html>"
    Incr Ihitcounter 'increase hitcounter
    Else
    S = "<html><head><title</title></head><body onload='window.location.href=" + Chr(34) + "http://www.mcselec.com" + Chr(34) + "'></body></html>"
    End If
    Wsize = Len(s) ' size of body
    Sheader = "Content-Length: " + Str(wsize) + "{013}{010}"
    Tempw = Tcpwritestr(i , Sheader , 255) ' add additional CR and LF
    Tempw = Tcpwrite(i , S , Wsize) ' send body
    End If
    Return

    دیدگاه

    قبلی template بعدی
    لطفا صبر کنید...
    X