OneTronic

Conexión 

Programación de un teclado matricial del 1-9 en Pic Simulator Ide, ademas de la simulación en un Pic 16F877A en Proteus: Programa: TRISA = 0 TRISC = 255 TRISD = 0 PORTD = 255 main: PORTA.0 = 1 tres: If PORTC.0 = 1 Then PORTD = 110000 Goto tres Else seis: If PORTC.1 = 1 Then PORTD = 000010 Goto seis Else nueve: If PORTC.2 = 1 Then PORTD = 010000 Goto nueve Endif Endif Endif PORTA.0 = 0 PORTA.1 = 1 dos: If PORTC.0 = 1 Then PORTD = %10100100 Goto dos Else cinco: If PORTC.1 = 1 Then PORTD = %10010010 Goto cinco Else ocho: If PORTC.2 = 1 Then PORTD = %10000000 Goto ocho Endif Endif Endif PORTA.1 = 0 PORTA.2 = 1 uno: If PORTC.0 = 1 Then PORTD = %11111001 Goto uno Else cuatro: If PORTC.1 = 1 Then PORTD = %10011001 Goto cuatro Else siete: If PORTC.2 = 1 Then PORTD = %11111000 Goto siete Endif Endif Endif PORTA.2 = 0 PORTD = 255 Goto main End Sim