sergio barrios / Mbed 2 deprecated teclado

teclado lcd

Dependencies:   TextLCD keypad mbed

TextLCD.cpp@0:9a67044d749e, 2017-02-25 (annotated)

Committer:
serbm
Date:
Sat Feb 25 14:21:11 2017 +0000
Revision:
0:9a67044d749e
teclado con lcd

Who changed what in which revision?

UserRevisionLine numberNew contents of line
serbm 0:9a67044d749e 1 /* mbed TextLCD Library, for a 4-bit LCD based on HD44780
serbm 0:9a67044d749e 2 * Copyright (c) 2007-2010, sford, http://mbed.org
serbm 0:9a67044d749e 3 *
serbm 0:9a67044d749e 4 * Permission is hereby granted, free of charge, to any person obtaining a copy
serbm 0:9a67044d749e 5 * of this software and associated documentation files (the "Software"), to deal
serbm 0:9a67044d749e 6 * in the Software without restriction, including without limitation the rights
serbm 0:9a67044d749e 7 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
serbm 0:9a67044d749e 8 * copies of the Software, and to permit persons to whom the Software is
serbm 0:9a67044d749e 9 * furnished to do so, subject to the following conditions:
serbm 0:9a67044d749e 10 *
serbm 0:9a67044d749e 11 * The above copyright notice and this permission notice shall be included in
serbm 0:9a67044d749e 12 * all copies or substantial portions of the Software.
serbm 0:9a67044d749e 13 *
serbm 0:9a67044d749e 14 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
serbm 0:9a67044d749e 15 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
serbm 0:9a67044d749e 16 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
serbm 0:9a67044d749e 17 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
serbm 0:9a67044d749e 18 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
serbm 0:9a67044d749e 19 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
serbm 0:9a67044d749e 20 * THE SOFTWARE.
serbm 0:9a67044d749e 21 */
serbm 0:9a67044d749e 22
serbm 0:9a67044d749e 23 /*
serbm 0:9a67044d749e 24 * Comment: Added support for LCD40x2 and LCD8x2
serbm 0:9a67044d749e 25 * Name: davervw
serbm 0:9a67044d749e 26 * Date: 02/26/2011
serbm 0:9a67044d749e 27 */
serbm 0:9a67044d749e 28
serbm 0:9a67044d749e 29 #include "TextLCD.h"
serbm 0:9a67044d749e 30 #include "mbed.h"
serbm 0:9a67044d749e 31
serbm 0:9a67044d749e 32 TextLCD::TextLCD(PinName rs, PinName e, PinName d4, PinName d5,
serbm 0:9a67044d749e 33 PinName d6, PinName d7, LCDType type) : _rs(rs),
serbm 0:9a67044d749e 34 _e(e), _d(d4, d5, d6, d7),
serbm 0:9a67044d749e 35 _type(type) {
serbm 0:9a67044d749e 36
serbm 0:9a67044d749e 37 _e = 1;
serbm 0:9a67044d749e 38 _rs = 0; // command mode
serbm 0:9a67044d749e 39
serbm 0:9a67044d749e 40 wait(0.015); // Wait 15ms to ensure powered up
serbm 0:9a67044d749e 41
serbm 0:9a67044d749e 42 // send "Display Settings" 3 times (Only top nibble of 0x30 as we've got 4-bit bus)
serbm 0:9a67044d749e 43 for (int i=0; i<3; i++) {
serbm 0:9a67044d749e 44 writeByte(0x3);
serbm 0:9a67044d749e 45 wait(0.00164); // this command takes 1.64ms, so wait for it
serbm 0:9a67044d749e 46 }
serbm 0:9a67044d749e 47 writeByte(0x2); // 4-bit mode
serbm 0:9a67044d749e 48 wait(0.000040f); // most instructions take 40us
serbm 0:9a67044d749e 49
serbm 0:9a67044d749e 50 writeCommand(0x28); // Function set 001 BW N F - -
serbm 0:9a67044d749e 51 writeCommand(0x0C);
serbm 0:9a67044d749e 52 writeCommand(0x6); // Cursor Direction and Display Shift : 0000 01 CD S (CD 0-left, 1-right S(hift) 0-no, 1-yes
serbm 0:9a67044d749e 53 cls();
serbm 0:9a67044d749e 54 }
serbm 0:9a67044d749e 55
serbm 0:9a67044d749e 56 void TextLCD::character(int column, int row, int c) {
serbm 0:9a67044d749e 57 int a = address(column, row);
serbm 0:9a67044d749e 58 writeCommand(a);
serbm 0:9a67044d749e 59 writeData(c);
serbm 0:9a67044d749e 60 }
serbm 0:9a67044d749e 61
serbm 0:9a67044d749e 62 void TextLCD::cls() {
serbm 0:9a67044d749e 63 writeCommand(0x01); // cls, and set cursor to 0
serbm 0:9a67044d749e 64 wait(0.00164f); // This command takes 1.64 ms
serbm 0:9a67044d749e 65 locate(0, 0);
serbm 0:9a67044d749e 66 }
serbm 0:9a67044d749e 67
serbm 0:9a67044d749e 68 void TextLCD::locate(int column, int row) {
serbm 0:9a67044d749e 69 _column = column;
serbm 0:9a67044d749e 70 _row = row;
serbm 0:9a67044d749e 71 }
serbm 0:9a67044d749e 72
serbm 0:9a67044d749e 73 int TextLCD::_putc(int value) {
serbm 0:9a67044d749e 74 if (value == '\n') {
serbm 0:9a67044d749e 75 _column = 0;
serbm 0:9a67044d749e 76 _row++;
serbm 0:9a67044d749e 77 if (_row >= rows()) {
serbm 0:9a67044d749e 78 _row = 0;
serbm 0:9a67044d749e 79 }
serbm 0:9a67044d749e 80 } else {
serbm 0:9a67044d749e 81 character(_column, _row, value);
serbm 0:9a67044d749e 82 _column++;
serbm 0:9a67044d749e 83 if (_column >= columns()) {
serbm 0:9a67044d749e 84 _column = 0;
serbm 0:9a67044d749e 85 _row++;
serbm 0:9a67044d749e 86 if (_row >= rows()) {
serbm 0:9a67044d749e 87 _row = 0;
serbm 0:9a67044d749e 88 }
serbm 0:9a67044d749e 89 }
serbm 0:9a67044d749e 90 }
serbm 0:9a67044d749e 91 return value;
serbm 0:9a67044d749e 92 }
serbm 0:9a67044d749e 93
serbm 0:9a67044d749e 94 int TextLCD::_getc() {
serbm 0:9a67044d749e 95 return -1;
serbm 0:9a67044d749e 96 }
serbm 0:9a67044d749e 97
serbm 0:9a67044d749e 98 void TextLCD::writeByte(int value) {
serbm 0:9a67044d749e 99 _d = value >> 4;
serbm 0:9a67044d749e 100 wait(0.000040f); // most instructions take 40us
serbm 0:9a67044d749e 101 _e = 0;
serbm 0:9a67044d749e 102 wait(0.000040f);
serbm 0:9a67044d749e 103 _e = 1;
serbm 0:9a67044d749e 104 _d = value >> 0;
serbm 0:9a67044d749e 105 wait(0.000040f);
serbm 0:9a67044d749e 106 _e = 0;
serbm 0:9a67044d749e 107 wait(0.000040f); // most instructions take 40us
serbm 0:9a67044d749e 108 _e = 1;
serbm 0:9a67044d749e 109 }
serbm 0:9a67044d749e 110
serbm 0:9a67044d749e 111 void TextLCD::writeCommand(int command) {
serbm 0:9a67044d749e 112 _rs = 0;
serbm 0:9a67044d749e 113 writeByte(command);
serbm 0:9a67044d749e 114 }
serbm 0:9a67044d749e 115
serbm 0:9a67044d749e 116 void TextLCD::writeData(int data) {
serbm 0:9a67044d749e 117 _rs = 1;
serbm 0:9a67044d749e 118 writeByte(data);
serbm 0:9a67044d749e 119 }
serbm 0:9a67044d749e 120
serbm 0:9a67044d749e 121 int TextLCD::address(int column, int row) {
serbm 0:9a67044d749e 122 switch (_type) {
serbm 0:9a67044d749e 123 case LCD20x4:
serbm 0:9a67044d749e 124 switch (row) {
serbm 0:9a67044d749e 125 case 0:
serbm 0:9a67044d749e 126 return 0x80 + column;
serbm 0:9a67044d749e 127 case 1:
serbm 0:9a67044d749e 128 return 0xc0 + column;
serbm 0:9a67044d749e 129 case 2:
serbm 0:9a67044d749e 130 return 0x94 + column;
serbm 0:9a67044d749e 131 case 3:
serbm 0:9a67044d749e 132 return 0xd4 + column;
serbm 0:9a67044d749e 133 }
serbm 0:9a67044d749e 134 case LCD16x2B:
serbm 0:9a67044d749e 135 return 0x80 + (row * 40) + column;
serbm 0:9a67044d749e 136 case LCD16x2:
serbm 0:9a67044d749e 137 case LCD40x2:
serbm 0:9a67044d749e 138 case LCD20x2:
serbm 0:9a67044d749e 139 case LCD8x2:
serbm 0:9a67044d749e 140 default:
serbm 0:9a67044d749e 141 return 0x80 + (row * 0x40) + column;
serbm 0:9a67044d749e 142 }
serbm 0:9a67044d749e 143 }
serbm 0:9a67044d749e 144
serbm 0:9a67044d749e 145 int TextLCD::columns() {
serbm 0:9a67044d749e 146 switch (_type) {
serbm 0:9a67044d749e 147 case LCD20x4:
serbm 0:9a67044d749e 148 case LCD20x2:
serbm 0:9a67044d749e 149 return 20;
serbm 0:9a67044d749e 150 case LCD40x2:
serbm 0:9a67044d749e 151 return 40;
serbm 0:9a67044d749e 152 case LCD8x2:
serbm 0:9a67044d749e 153 return 8;
serbm 0:9a67044d749e 154 case LCD16x2:
serbm 0:9a67044d749e 155 case LCD16x2B:
serbm 0:9a67044d749e 156 default:
serbm 0:9a67044d749e 157 return 16;
serbm 0:9a67044d749e 158 }
serbm 0:9a67044d749e 159 }
serbm 0:9a67044d749e 160
serbm 0:9a67044d749e 161 int TextLCD::rows() {
serbm 0:9a67044d749e 162 switch (_type) {
serbm 0:9a67044d749e 163 case LCD20x4:
serbm 0:9a67044d749e 164 return 4;
serbm 0:9a67044d749e 165 case LCD8x2:
serbm 0:9a67044d749e 166 case LCD16x2:
serbm 0:9a67044d749e 167 case LCD16x2B:
serbm 0:9a67044d749e 168 case LCD20x2:
serbm 0:9a67044d749e 169 case LCD40x2:
serbm 0:9a67044d749e 170 default:
serbm 0:9a67044d749e 171 return 2;
serbm 0:9a67044d749e 172 }
serbm 0:9a67044d749e 173 }