Exterminio

APLICACIONES CON TECLADO MATRICIAL

On Int0 Int0_int On Int1 Int1_int Enable Interrupts Enable Int0 Enable Int1 P1 = 0 Inicio: 'PROGRAMA PRINCIPAL If P3.7 = 0 Then P1 = 48 End If Goto Inicio Int0_int: P1 = 49 Return Int1_int: P1 = 50 Return

'apaga motor

'motor derecha

'motor izquierda

TECLADO MATRICIAL

Leer Teclado matricial en el puerto P1 se muestra el valor binariode la tecla presionada.

Dim Tecla As Byte Dim T As Byte Poke 100 Poke 101 Poke 102 Poke 103 Poke 104 Poke 105 Poke 106 Poke 107 Poke 108 Poke 109 Poke 110 Poke 111 Poke 112 Poke 113 Poke 114 Poke 115 , , , , , , , , , , , , , , , , 1 6 7 14 2 5 8 0 3 4 9 15 10 11 12 13

On Int0 Int0_int Enable Interrupts Enable Int0

P2 = 15 'P2.0 AL P2.3 SON ENTRADAS
Inicio: 'PROGRAMA PRINCIPAL P3.0 = 1Goto Inicio Int0_int: T = P2 + 100 Tecla = Peek(t) P1 = Not Tecla P3.0 = 0 Wait 1 Return

Leer teclado matricial, visualizar en un LCD la tecla presionada.

Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.2 , Rs = P1.3 Config Lcd = 16 * 2 Dim Tecla As Byte Dim T As Byte Poke 100 , 49 Poke 101 , 54 Poke 102 , 55 Poke 103 , 42 Poke 104 , 50 Poke 105 , 53 Poke106 , 56 Poke 107 , 48 Poke 108 , 51 Poke 109 , 52 Poke 110 , 57 Poke 111 , 35 Poke 112 , 65 Poke 113 , 66 Poke 114 , 67 Poke 115 , 68

On Int0 Int0_int Enable Interrupts Enable Int0 P2 = 15 'P2.0 AL P2.3 SON ENTRADAS Cls Lcd " Press Tecla" Waitms 10 Lowerline Lcd " MICROPRO 2009" Waitms 10 Inicio: 'PROGRAMA PRINCIPAL P3.0 = 1 Goto Inicio Int0_int: T = P2 + 100 Tecla = Peek(t) P3.0 = 0 Cls Lcd "TECLA = " ; Chr(tecla) Wait 1 Return

La Tecla 1,2,3 controla motor 1 (OFF, Giro Izq., Giro Der.). La Tecla 6,5,4 controla motor 2(OFF, Giro Izq., Giro Der.). La Tecla 7,8,9 controla motor 1y 2 a la vez (OFF, Giro Izq., Giro Der.).

Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.2 , Rs = P1.3 Config Lcd = 16 * 2 Dim Tecla As Byte Dim T As Byte Poke 100 Poke101 Poke 102 Poke 103 Poke 104 Poke 105 Poke 106 Poke 107 Poke 108 Poke 109 Poke 110 Poke 111 Poke 112 Poke 113 Poke 114 Poke 115 , , , , , , , , , , , , , , , , 49 54 55 42 50 53 56 48 51 52 57 35 65 66 67 68 'TECLA 1 'TECLA 6 'TECLA 7 'TECLA * 'TECLA 2 'TECLA 5 'TECLA 8 'TECLA 0 'TECLA 3 'TECLA 4 'TECLA 9 'TECLA # 'TECLA A 'TECLA B 'TECLA C 'TECLA D

On Int0 Int0_int Enable Interrupts EnableInt0 P0 = 0 P2 = 15 ' P2.0-P2.3 SON ENTRADAS Cls Lcd " Press Tecla" Waitms 10 Lowerline Lcd " MICROPRO 2009" Waitms 10

Int0_int: T = P2 + 100 Tecla = Peek(t) Cls Lcd " TECLA = " ; Chr(tecla) Waitms 10 Return

Inicio: Select Case T 'MOTOR 1 Case 100: P0 = 48 Case 104: P0 = 50 Case 108: P0 = 49 'MOTOR 2 Case 101: P0 = 48 Case 105: P0 = 56 Case 109: P0 = 52 'MOTOR 1 Y 2 Case 102: P0 = 48 Case106: P0 = 58 Case 110: P0 = 53 End Select Goto Inicio

Lee el canal analógico seleccionado por teclado (1-8), El valor digital se visualiza en un LCD.

Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.2 , Rs = P1.3 Config Lcd = 16 * 2 Dim Tecla As Byte Dim T As Byte Dim Mux As Byte Dim I As Word Poke 100 , 49 'TECLA 1 Poke 101 , 54 'TECLA 6 Poke 102 , 55 'TECLA7 Poke 103 , 42 'TECLA * Poke 104 , 50 'TECLA 2 Poke 105 , 53 'TECLA 5 Poke 106 , 56 'TECLA 8 Poke 107 , 48 'TECLA 0 Poke 108 , 51 'TECLA 3 Poke 109 , 52 'TECLA 4 Poke 110 , 57 'TECLA 9 Poke 111 , 35 'TECLA # Poke 112 , 65 'TECLA A Poke 113 , 66 'TECLA B Poke 114 , 67 'TECLA C Poke 115 , 68 'TECLA D

On Int0 Int0_int Enable Interrupts Enable Int0 P0 = 0 P2 = 15 ' P2.0-P2.3 SON ENTRADAS Cls Lcd "Press Tecla" Waitms 10 Lowerline Lcd " MICROPRO 2009" Waitms 10 Mux = 1 Inicio: 'PROGRAMA PRINCIPAL P3.7 = 0 Shiftin P1.0 , P1.1 , I , 0 P3.7 = 1 I = I / 128 Cls Lcd "CANAL " ; Mux ; "= " ; I Waitms 100 Goto Inicio

Int0_int: T = P2 + 100 Tecla = Peek(t) Mux = Tecla - 48 If Mux > 8 Then P0 = 0 Mux = 1 End If If Mux = 0 Then P0 = 0 Mux = 1 End If

P0 = Mux - 1
Return

Mediante el...