Sistema de Seguridad con un PIC

[firepic]

Gracias por la aclaratoria Navaismo!
Por cierto aj, si estás usando el bloc de notas para editar el código, fíjate bien que cuando guardes, en "Tipo de Archivo" cámbialo a "Todos los Archivos"... pues si lo guardas como documento de texto te va a agregar la extensión .txt, que no es la idea. La idea es que la extensión sea .bas....
Ok es todo por ahora, saludos!
Nos leemos! 

[AJ267]

un pregunta ???

se puede usar el mikroBASIC y los archios compilados (hex,asm ...) probarlos en proteus ??

[navaismo]

Pasate por aqui para que te des una idea rapida.

[firepic]

Excelente guía navaismo, muchas gracias! 
Guao, no sabía que ya basic soporta punto flotante! Fabuloso! 
Ok saludos, nos leemos! 

[firepic]

Vaya!
Ese microBasic 7.0 está de lujo! 
La ayuda del programa te explica la sintaxis y hasta trae circuitos de ejemplo... excelente! 
Saludos, nos leemos! 

[AJ267]

Gracias  navaismo

[AJ267]

  les comunico que no e podido seguir porque estoy buscando un compilador de BASIC ....

ya probe
mikorBasic

Este es bueno lo unico malo es que para usar por ejemplo

Código: [Seleccionar]

WaitUs 100 que normalmente es el pausa se usa

Código: [Seleccionar]

DELAY_MS(100) o algo asi y al usarlo me carag un monton de fuciones en ensamblador que no estoy usando y me dice 45% libre de memoria ROM y si no lo uso y lo copilo me dice 80% de memoria ROM libre ... por dar un ejemplo yme usa mas espacio del que en realidad uso

Proton Development Suite Lite

Este ni siquiera me abre por que me sale un mensaje diciendo " ..... . ..... mplab" que no se que diablos quiere decir
no se si es porque no tengo instalado el MPLAB o algo asi

 

[aitopes]

Hola!
Usa PIC SIMULATOR IDE...es bueno, bonito y barato. A pesar de que hay una version gratis, la registracion solo cuesta unos 29 euros. Y tiene hasta un simulador.

Saludos!

[navaismo]

En MKB se usa DELAY_MS() no la que comentas, por eso es bueno leer el manual de cada compiler. Lo de proton seguro no lo tienes instañado ya que no se requiere el mplab para trabajar con el. Empeñate un poquito mas en leer y en escoger un compilador que te funcione.

[AJ267]

 

podria alguien decirme que tiene de malo esto por favor



el LED azul que esta encendido no tendria que estarlo pues se enciende unicamente si se preciona una tecla, estoy programando en Proton IDE, esta super excelente aqui pondo el código, por cierto los cuatro led que estan a la par del azul son en realidad focos que se encienden cuando se preciona una tecla y se quedan prendidos por un rato el contador de xLuz en el código al llegar a 26 los apaga (son como los led de los celulares que cuando tu precionas una tecla se quedan prendidos por un periodo de tiempo),

Código: [Seleccionar]

Device 16F84A

ALL_DIGITAL = True

TRISA = %00000     'Todos los pines del puerto A como Salidas
TRISB = %00001111  '4 pines del puerto B como entrada y los otros 4 como salida

Symbol LedPss = PORTA.0     'Led Azul que se enciende cada ves que se preiona una tecla
Symbol Luz = PORTA.1        'Son los 4 focos que alumbran el teclado

dim xLuz as byte  'Temporizador de la luz

Dim Tecla As Byte
dim Opend as byte

'----------------------------------------------------------------------------------------
main:
  gosub setstart
ScanKeyPad:
  gosub leoteclado, tecla
  select tecla
    case 14
    case 12
    case 13
    case 15
    case 0,1,2,3,4,5,6,7,8,9
      xluz = 1
      if luz = 0 then luz = 1
  endselect
  if xluz >= 1 and xluz <= 25 then
    xluz = xluz + 1
  else
    xluz = 0
    if luz = 1 then luz = 0
  endif
  goto ScanKeyPad
end
'----------------------------------------------------------------------------------------
setStart:
  Tecla = 16 : LedPss = 0
  Luz = 0 : xLuz = 0
return
'----------------------------------------------------------------------------------------
LeoTeclado:
  tecla = 16  '16 = no hay tecla presionada
  PORTB = %10000000  'Leo la primer columna
  If PORTB.3 = 1 Then tecla = 1   'Tecla "1"
  If PORTB.2 = 1 Then tecla = 4   'Tecla "4"
  If PORTB.1 = 1 Then tecla = 7   'Tecla "7"
  If PORTB.0 = 1 Then tecla = 10  'Tecla "*"
  PORTB = %01000000  'Leo la segunda columna
  If PORTB.3 = 1 Then tecla = 2   'Tecla "2"
  If PORTB.2 = 1 Then tecla = 5   'Tecla "5"
  If PORTB.1 = 1 Then tecla = 8   'Tecla "8"
  If PORTB.0 = 1 Then tecla = 0   'Tecla "0"
  PORTB = %00100000  'Leo la tercer columna
  If PORTB.3 = 1 Then tecla = 3   'Tecla "3"
  If PORTB.2 = 1 Then tecla = 6   'Tecla "6"
  If PORTB.1 = 1 Then tecla = 9   'Tecla "9"
  If PORTB.0 = 1 Then tecla = 11  'Tecla "#"
  PORTB = %00010000  'Leo la cuarta columna
  If PORTB.3 = 1 Then tecla = 12  'Tecla "Cancelar"
  If PORTB.2 = 1 Then tecla = 13  'Tecla "Cerrar"
  If PORTB.1 = 1 Then tecla = 14  'Tecla "Aceptar"
  If PORTB.0 = 1 Then tecla = 15  'Tecla "D"
return
'----------------------------------------------------------------------------------------
El código esta en Proton

[firepic]

En tu código yo no veo ninguna parte donde hagas LedPss=1 para apagar el led 
Deberías colocar un condicional con algún

Código: [Seleccionar]

if (condicion) LedPss=0
else LedPss=1
Para que no se encienda cuando no debe... bueno no más es una sugerencia, yo no he trabajado en protón... pero me parece que debería ser así... 
Ok saludos, nos leemos! 

[aitopes]

Hola!
Respecto del hard: no te olvides agregar una resistencia limitadora en cada led, para no cargarte algun pin del puerto (o el led mismo). 

Y si, es como te ha dicho firepic: tal como has conectado el led azul, encenderá cuando el pin del puerto esté en cero. Por eso no se apaga.

Saludos!

[AJ267]

si esta puesta en el inicio del programa mando a llamar la subrutina setStart y ahi  esta la variable LedPss = 0  y eso es lo mas raro ...

si podria ser eso aitopes, voy a ver eso ... 

[aitopes]

si esta puesta en el inicio del programa mando a llamar la subrutina setStart y ahi  esta la variable LedPss = 0  y eso es lo mas raro ...

Justamente! El led ENCIENDE cuando poner el pin a cero.

Por eso es que enciende....y luego no apaga mas. (por que no haces, como dijo Firepic)  LedPss = 1 para APAGARLO.

Saludos!

[AJ267]

aitopes resistencias de cuantos k nesecito poner ???
y van en la salida del pic, que va a los led verdad ???