TECLADO

Ejemplo 1

Device  16F628A
Xtal 4

CMCON=7               
Dim fila  As Byte     
Dim colu  As Byte     
Dim tecla As Byte     
TRISA=0                
prog1:                 
    PORTB=0           
    TRISB=%11110000   
    If  (PORTB >> 4)!=%1111 Then prog1 
                                          
prog2:
    For fila = 0 To 3          PORTB=0       
        TRISB=(Dcd fila)^%11111111
        colu=PORTB >> 4            
    If colu!=%1111 Then numtecla         
  Next fila
    GoTo prog2         

numtecla:                               
    tecla = (fila*4)+(Ncd (colu^%1111))   
    PORTA=tecla  GoTo prog1
End