TODOPIC
Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: kamisama en 05 de Mayo de 2012, 20:03:18
-
Hola, estuve probando estos dias las librerias para el SPI ENC28J60 de Mikrobasic.
Al margen de que WinPcap no me anduvo de ninguna forma en Win7, logre que corran en XP los ejemplos que trae Proteus para la linea 24F y el stack de microchip. Sin embargo no puedo hacer funcionar de ninguna manera los ejemplos de MKB.
He probado varias versiones de los compiladores en diferentes maquinas, y para los PIC 16F887, 16F877A y para el 18F420
Me esta sacando canas verdes esto, no logro que tenga IP usar el ARP ni mucho menos obtener las respuesta HTTP que el ejemplo indica que da, el circuito esta en la misma ayuda... veo las cosas titilar pero no hace nada.
Si alguno lo hizo funcionar que me oriente un poco, saludos y gracias.
PD: Estoy probando ahora el ejemplo del 16F887 que viene en la version 3.2 de MKB y la 18F420 que viene en la 5.4
-
Hola, tambien estoy probando un ejemplo que viene en el mikrobaisc 5.0 para modulo enc28j60, es el siguiente:
program enc28j60
' ***********************************
' * RAM variables
' *
dim myMacAddr as byte[6] ' my MAC address
myIpAddr as byte[4] ' my IP address
' mE ehternet NIC pinout
SPI_Ethernet_Rst as sbit at RC0_bit
SPI_Ethernet_CS as sbit at RC1_bit
SPI_Ethernet_Rst_Direction as sbit at TRISC0_bit
SPI_Ethernet_CS_Direction as sbit at TRISC1_bit
' end ethernet NIC definitions
' ************************************************************
' * ROM constant strings
' *
const httpHeader as string[31] = "HTTP/1.1 200 OK"+chr(10)+"Content-type: " ' HTTP header
const httpMimeTypeHTML as string[13] = "text/html"+chr(10)+chr(10) ' HTML MIME type
const httpMimeTypeScript as string[14] = "text/plain"+chr(10)+chr(10) ' TEXT MIME type
const httpMethod as string[5] = "GET /"
' *
' * web page, splited into 2 parts :
' * when coming short of ROM, fragmented data is handled more efficiently by linker
' *
' * this HTML page calls the boards to get its status, and builds itself with javascript
' *
const indexPage as string[763] =
"<meta http-equiv=" + Chr(34) + "refresh" + Chr(34) + " content=" + Chr(34) + "3;url=http://192.168.20.60" + Chr(34) + ">" +
"<HTML><HEAD></HEAD><BODY>"+
"<h1>PIC + ENC28J60 Mini Web Server</h1>"+
"<a href=/>Reload[/url]"+
"<script src=/s></script>"+
"<table><tr><td valign=top><table border=1 style="+chr(34)+"font-size:20px ;font-family: terminal ;"+chr(34)+"> "+
"<tr><th colspan=2>ADC</th></tr>"+
"<tr><td>AN2</td><td><script>document.write(AN2)</script></td></tr>"+
"<tr><td>AN3</td><td><script>document.write(AN3)</script></td></tr>"+
"</table></td><td><table border=1 style="+chr(34)+"font-size:20px ;font-family: terminal ;"+chr(34)+"> "+
"<tr><th colspan=2>PORTB</th></tr>"+
"<script>"+
"var str,i;"+
"str="+chr(34)+chr(34)+"; "+
"for(i=0;i<8;i++)"+
"{str+="+chr(34)+"<tr><td bgcolor=pink>BUTTON #"+chr(34)+"+i+"+chr(34)+"</td>"+chr(34)+"; "+
"if(PORTB&(1<<i)){str+="+chr(34)+"<td bgcolor=red>ON"+chr(34)+";}"+
"else {str+="+chr(34)+"<td bgcolor=#cccccc>OFF"+chr(34)+";}"+
"str+="+chr(34)+"</td></tr>"+chr(34)+";}"+
"document.write(str) ;"+
"</script>"
const indexPage2 as string[470] =
"</table></td><td>"+
"<table border=1 style="+chr(34)+"font-size:20px ;font-family: terminal ;"+chr(34)+"> "+
"<tr><th colspan=3>PORTD</th></tr>"+
"<script>"+
"var str,i;"+
"str="+chr(34)+chr(34)+"; "+
"for(i=0;i<8;i++)"+
"{str+="+chr(34)+"<tr><td bgcolor=yellow>LED #"+chr(34)+"+i+"+chr(34)+"</td>"+chr(34)+"; "+
"if(PORTD&(1<<i)){str+="+chr(34)+"<td bgcolor=red>ON"+chr(34)+";}"+
"else {str+="+chr(34)+"<td bgcolor=#cccccc>OFF"+chr(34)+";}"+
"str+="+chr(34)+"</td><td><a href=/t"+chr(34)+"+i+"+chr(34)+">Toggle[/url]</td></tr>"+chr(34)+";}"+
"document.write(str) ;"+
"</script>"+
"</table></td></tr></table>"+
"This is HTTP request #<script>document.write(REQ)</script></BODY></HTML>"
dim getRequest as byte[15] ' HTTP request buffer
dyna as char[30] ' buffer for dynamic response
httpCounter as word ' counter of HTTP requests
tmp as string[11]
' *******************************************
' * user defined sub functions
' *
' *
' * this sub function is called by the library
' * the user accesses to the HTTP request by successive calls to SPI_Ethernet_getByte()
' * the user puts data in the transmit buffer by successive calls to SPI_Ethernet_putByte()
' * the sub function must return the length in bytes of the HTTP reply, or 0 if nothing to transmit
' *
' * if you don"t need to reply to HTTP requests,
' * just define this sub function with a return(0) as single statement
' *
' *
sub function Spi_Ethernet_UserTCP(dim byref remoteHost as byte[4], dim remotePort, localPort, reqLength as word, dim byref flags as TEthPktFlags) as word
dim i as word ' general purpose integer
bitMask as byte ' for bit mask
result = 0
' should we close tcp socket after response is sent?
' library closes tcp socket by default if canClose flag is not reset here
' canClose = 0 ' 0 - do not close socket
' otherwise - close socket
if(localPort <> 80) then ' I listen only to web request on port 80
result = 0
exit
end if
' get 10 first bytes only of the request, the rest does not matter here
for i = 0 to 10
getRequest = Spi_Ethernet_getByte()
next i
getRequest = 0
' copy httpMethod to ram for use in memcmp routine
for i = 0 to 4
tmp = httpMethod
next i
if(memcmp(@getRequest, @tmp, 5) <> 0) then ' only GET method is supported here
result = 0
exit
end if
Inc(httpCounter) ' one more request done
if(getRequest[5] = "s") then ' if request path name starts with s, store dynamic data in transmit buffer
' the text string replied by this request can be interpreted as javascript statements
' by browsers
result = SPI_Ethernet_putConstString(@httpHeader) ' HTTP header
result = result + SPI_Ethernet_putConstString(@httpMimeTypeScript) ' with text MIME type
' add AN2 value to reply
WordToStr(ADC_Read(2), dyna)
tmp = "var AN2="
result = result + SPI_Ethernet_putString(@tmp)
result = result + SPI_Ethernet_putString(@dyna)
tmp = ";"
result = result + SPI_Ethernet_putString(@tmp)
' add AN3 value to reply
WordToStr(ADC_Read(3), dyna)
tmp = "var AN3="
result = result + SPI_Ethernet_putString(@tmp)
result = result + SPI_Ethernet_putString(@dyna)
tmp = ";"
result = result + SPI_Ethernet_putString(@tmp)
' add PORTB value (buttons) to reply
tmp = "var PORTB= "
result = result + SPI_Ethernet_putString(@tmp)
WordToStr(PORTB, dyna)
result = result + SPI_Ethernet_putString(@dyna)
tmp = ";"
result = result + SPI_Ethernet_putString(@tmp)
' add PORTD value (LEDs) to reply
tmp = "var PORTD= "
result = result + SPI_Ethernet_putString(@tmp)
WordToStr(PORTD, dyna)
result = result + SPI_Ethernet_putString(@dyna)
tmp = ";"
result = result + SPI_Ethernet_putString(@tmp)
' add HTTP requests counter to reply
WordToStr(httpCounter, dyna)
tmp = "var REQ= "
result = result + SPI_Ethernet_putString(@tmp)
result = result + SPI_Ethernet_putString(@dyna)
tmp = ";"
result = result + SPI_Ethernet_putString(@tmp)
else
if(getRequest[5] = "t") then ' if request path name starts with t, toggle PORTD (LED) bit number that comes after
bitMask = 0
if(isdigit(getRequest[6]) <> 0) then ' if 0 <= bit number <= 9, bits 8 & 9 does not exist but does not matter
bitMask = getRequest[6] - "0" ' convert ASCII to integer
bitMask = 1 << bitMask ' create bit mask
PORTD = PORTD xor bitMask ' toggle PORTD with xor operator
end if
end if
end if
if(result = 0) then ' what do to by default
result = SPI_Ethernet_putConstString(@httpHeader) ' HTTP header
result = result + SPI_Ethernet_putConstString(@httpMimeTypeHTML) ' with HTML MIME type
result = result + SPI_Ethernet_putConstString(@indexPage) ' HTML page first part
result = result + SPI_Ethernet_putConstString(@indexPage2) ' HTML page second part
end if
' return to the library with the number of bytes to transmit
end sub
' *
' * this sub function is called by the library
' * the user accesses to the UDP request by successive calls to SPI_Ethernet_getByte()
' * the user puts data in the transmit buffer by successive calls to SPI_Ethernet_putByte()
' * the sub function must return the length in bytes of the UDP reply, or 0 if nothing to transmit
' *
' * if you don"t need to reply to UDP requests,
' * just define this sub function with a return(0) as single statement
' *
' *
sub function Spi_Ethernet_UserUDP(dim byref remoteHost as byte[4],
dim remotePort, destPort, reqLength as word, dim byref flags as TEthPktFlags) as word
result = 0
' reply is made of the remote host IP address in human readable format
byteToStr(remoteHost[0], dyna) ' first IP address byte
dyna[3] = "."
byteToStr(remoteHost[1], tmp) ' second
dyna[4] = tmp[0]
dyna[5] = tmp[1]
dyna[6] = tmp[2]
dyna[7] = "."
byteToStr(remoteHost[2], tmp) ' second
dyna[8] = tmp[0]
dyna[9] = tmp[1]
dyna[10] = tmp[2]
dyna[11] = "."
byteToStr(remoteHost[3], tmp) ' second
dyna[12] = tmp[0]
dyna[13] = tmp[1]
dyna[14] = tmp[2]
dyna[15] = ":" ' add separator
' then remote host port number
WordToStr(remotePort, tmp)
dyna[16] = tmp[0]
dyna[17] = tmp[1]
dyna[18] = tmp[2]
dyna[19] = tmp[3]
dyna[20] = tmp[4]
dyna[21] = "["
WordToStr(destPort, tmp)
dyna[22] = tmp[0]
dyna[23] = tmp[1]
dyna[24] = tmp[2]
dyna[25] = tmp[3]
dyna[26] = tmp[4]
dyna[27] = "]"
dyna[28] = 0
' the total length of the request is the length of the dynamic string plus the text of the request
result = 28 + reqLength
' puts the dynamic string into the transmit buffer
SPI_Ethernet_putBytes(@dyna, 28)
' then puts the request string converted into upper char into the transmit buffer
while(reqLength <> 0)
SPI_Ethernet_putByte(SPI_Ethernet_getByte())
reqLength = reqLength - 1
wend
' back to the library with the length of the UDP reply
end sub
main:
ANSEL = 0x0C ' AN2 and AN3 convertors will be used
PORTA = 0
TRISA = 0xff ' set PORTA as input for ADC
ANSELH = 0 ' Configure other AN pins as digital I/O
PORTB = 0
TRISB = 0xff ' set PORTB as input for buttons
PORTD = 0
TRISD = 0 ' set PORTD as output
httpCounter = 0
' set mac address
myMacAddr[0] = 0x00
myMacAddr[1] = 0x14
myMacAddr[2] = 0xA5
myMacAddr[3] = 0x76
myMacAddr[4] = 0x19
myMacAddr[5] = 0x3F
' set IP address
myIpAddr[0] = 192
myIpAddr[1] = 168
myIpAddr[2] = 20
myIpAddr[3] = 60
' *
' * starts ENC28J60 with :
' * reset bit on PORTC.B0
' * CS bit on PORTC.B1
' * my MAC & IP address
' * full duplex
' *
SPI1_Init() ' init spi module
SPI_Ethernet_Init(myMacAddr, myIpAddr, _SPI_Ethernet_FULLDUPLEX) ' init ethernet module
SPI_Ethernet_setUserHandlers(@SPI_Ethernet_UserTCP, @SPI_Ethernet_UserUDP) ' set user handlers
while TRUE ' endless loop
SPI_Ethernet_doPacket() ' process incoming Ethernet packets
' *
' * add your stuff here if needed
' * SPI_Ethernet_doPacket() must be called as often as possible
' * otherwise packets could be lost
' *
wend
end.
y al compilar me da el siguiente error :
unknown type "TethPktFlags"
Syntax error: expected "end" but "dim" found
Syntax error: expected "sub" but "i" found
Syntax error: expected "end" but "as" found
Syntax error: expected "." but "word" found
Si alguien puede ayudar con el tema, dado que no comprendo porque un ejemplo da este error.
-
El tema de los errores que comente antes estan solucionados, pero sigo sin que me funcione el ejemplo dado que tira otro error, asiendo mencion a una supuesta llamada de SPI_Ehternet_readPHY, la cual no figura en ninguna linea del programa.
Por favor si alguien puede brindarme un ejemplo que probo y sepa que funciona utilizando el modulo ENC28j60, mikrobasic pro.