Haz una pregunta
  Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

19/02/2010 #1


duda con teclado 4x4
Hola
Estoy haciendo practicas con un teclado para capturar una cifra y grabarla en la eeprom, para eso cuento con un comando usado en proton que es el inkey, pero a la hora de llevarlo a la practica tengo una duda, en el programa de teoria uso un solo puerto b , pero en la practica por diseño de uso de otros puertos, utilizo tanto el puerto los puertos b y c, al hacer las declaraciones no se como decir que utilizo esos dos puertos, ya que tendria que poner keypad_port portb ademas de keypad_port portc y duplicarlas no seria correcto.
alguna solucion?.
aqui os dejo el programa utilizado.

Código:
Device = 18F452
XTAL
= 20
ALL_DIGITAL
=true
KEYPAD_PORT
PORTB
PORTB_PULLUPS
true
LCD_DTPIN
PORTD.4
LCD_RSPIN
PORTD.3
LCD_ENPIN
PORTD.2
Print Cls
Dim x As Byte
Dim mynumber As Word
start:
Print Cls mynumber=0
loop: x=InKey x=
LookUp x, [1,2,3,255,4,5,6,255,7,8,9,255,"*",0,"#",255,255]
If
x="*" Then GoTo Exit_loop
If
x <> 255 Then
DelayMS 500
mynumber=mynumber *10 + x
Print Cls
, At 1,1, Dec mynumber
EndIf
GoTo loop
Exit_loop:
Print Cls
Print At 1,1,"Has pulsado:" Print At
2,1,Dec mynumber
DelayMS
5000 GoTo start
perdonad pero al enviar el mensaje ha "trozeado" el programa

Código:
Device = 18F452 XTAL = 20 ALL_DIGITAL=true KEYPAD_PORT PORTB PORTB_PULLUPS true LCD_DTPIN PORTD.4 LCD_RSPIN PORTD.3 LCD_ENPIN PORTD.2 Print Cls Dim x As Byte Dim mynumber As Word start: Print Cls mynumber=0 loop: x=InKey x= LookUp x, [1,2,3,255,4,5,6,255,7,8,9,255,"*",0,"#",255,255] If x="*" Then GoTo Exit_loop If x <> 255 Then DelayMS 500 mynumber=mynumber *10 + x Print Cls, At 1,1, Dec mynumber EndIf GoTo loop Exit_loop: Print Cls Print At 1,1,"You Entered:" Print At 2,1,Dec mynumber DelayMS 5000 GoTo start
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.