Rihards Balass / 4DGL-mbed-32PTU

Important changes to repositories hosted on mbed.com

Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.

To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.

It is also possible to export all your personal repositories from the account settings page.

Picaso_4DGL-32PTU_main.cpp@21:ea68a8a3cea4, 2016-09-26 (annotated)

Committer:
CaptainR
Date:
Mon Sep 26 13:41:22 2016 +0000
Revision:
21:ea68a8a3cea4
Parent:
20:88e137b9ea46
Child:
22:cea582ea74c1
file error not checked yet, because MBED not working properly :)

Who changed what in which revision?

UserRevisionLine numberNew contents of line
CaptainR 0:a5ef6bc3c2e8 1 //
CaptainR 2:81eaaa491a02 2 // Picaso_4DGL-32PTU is a class to drive 4D Systems TFT touch screens with PICASO processor
CaptainR 2:81eaaa491a02 3 // Tested with NUCLEO L152RE development board
CaptainR 2:81eaaa491a02 4 // Copyright (C) <2016> Rihards Balass <rihards.balass@gmail.com>
CaptainR 0:a5ef6bc3c2e8 5 //
CaptainR 2:81eaaa491a02 6 // Picaso_4DGL-32PTU is free software: you can redistribute it and/or modify
CaptainR 2:81eaaa491a02 7 // it under the terms of the GNU General Public License as published by
CaptainR 2:81eaaa491a02 8 // the Free Software Foundation, either version 3 of the License, or
CaptainR 2:81eaaa491a02 9 // (at your option) any later version.
CaptainR 2:81eaaa491a02 10 //
CaptainR 2:81eaaa491a02 11 // Picaso_4DGL-32PTU is distributed in the hope that it will be useful,
CaptainR 2:81eaaa491a02 12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
CaptainR 2:81eaaa491a02 13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
CaptainR 2:81eaaa491a02 14 // GNU General Public License for more details.
CaptainR 2:81eaaa491a02 15 //
CaptainR 2:81eaaa491a02 16 // You can see GNU General Public License at <http://www.gnu.org/licenses/>.
CaptainR 0:a5ef6bc3c2e8 17 //
CaptainR 0:a5ef6bc3c2e8 18
CaptainR 0:a5ef6bc3c2e8 19 #include "mbed.h"
CaptainR 0:a5ef6bc3c2e8 20 #include "Picaso_4DGL-32PTU.h"
CaptainR 0:a5ef6bc3c2e8 21
CaptainR 4:50511ed54ab4 22 DigitalOut led1(LED1);
CaptainR 0:a5ef6bc3c2e8 23
CaptainR 0:a5ef6bc3c2e8 24 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 25 PICASO_4DGL :: PICASO_4DGL(PinName tx, PinName rx, PinName rst) : pc(USBTX, USBRX), _cmd(tx, rx), _rst(rst) { // Constructor
CaptainR 4:50511ed54ab4 26
CaptainR 13:1a0800957412 27 //rxBuf[RXBUFLEN] = 0; // create buffer
CaptainR 13:1a0800957412 28 //buffer[BUFFER_SIZE] = 0;
CaptainR 5:890ddd974624 29 index = 0;
CaptainR 12:29f5ad896382 30 _cmd.attach(this, &PICASO_4DGL::rxCallback, Serial::RxIrq);
CaptainR 4:50511ed54ab4 31
CaptainR 11:3ebd2263f3e9 32 pc.baud(115200);
CaptainR 0:a5ef6bc3c2e8 33 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 34 pc.printf("\n\n\n");
CaptainR 0:a5ef6bc3c2e8 35 pc.printf("********************\n\r");
CaptainR 3:dcfbceb81fef 36 pc.printf("PICASO_4DGL CONSTRUCTOR\n\r");
CaptainR 0:a5ef6bc3c2e8 37 pc.printf("********************\n\r");
CaptainR 0:a5ef6bc3c2e8 38 #endif
CaptainR 0:a5ef6bc3c2e8 39 _rst = 1; // put RESET pin to high to start TFT screen
CaptainR 12:29f5ad896382 40
CaptainR 0:a5ef6bc3c2e8 41 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 42 pc.printf("Wait 3 seconds for startup...\n\r");
CaptainR 3:dcfbceb81fef 43 #endif
CaptainR 0:a5ef6bc3c2e8 44 wait_ms(3000);
CaptainR 3:dcfbceb81fef 45
CaptainR 0:a5ef6bc3c2e8 46 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 47 pc.printf("set baudrate to 9600...\n\r");
CaptainR 0:a5ef6bc3c2e8 48 #endif
CaptainR 4:50511ed54ab4 49 baudrate(9600);
CaptainR 3:dcfbceb81fef 50
CaptainR 0:a5ef6bc3c2e8 51 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 52 pc.printf("clear screen...\n\r");
CaptainR 0:a5ef6bc3c2e8 53 #endif
CaptainR 3:dcfbceb81fef 54 wait_ms(1000);
CaptainR 12:29f5ad896382 55 screenMode(landscape);
CaptainR 12:29f5ad896382 56 setFont(font3);
CaptainR 12:29f5ad896382 57 cls();
CaptainR 0:a5ef6bc3c2e8 58
CaptainR 12:29f5ad896382 59 #if DEMO
CaptainR 3:dcfbceb81fef 60 //mainDemo();
CaptainR 0:a5ef6bc3c2e8 61 //textDemo();
CaptainR 12:29f5ad896382 62 //graphicsDemo();
CaptainR 20:88e137b9ea46 63 //mediaDemo();
CaptainR 20:88e137b9ea46 64 fileSystemDemo();
CaptainR 0:a5ef6bc3c2e8 65 #endif
CaptainR 0:a5ef6bc3c2e8 66 }
CaptainR 0:a5ef6bc3c2e8 67
CaptainR 0:a5ef6bc3c2e8 68 //******************************************************************************************************
CaptainR 5:890ddd974624 69 void PICASO_4DGL :: rxCallback() {
CaptainR 0:a5ef6bc3c2e8 70
CaptainR 13:1a0800957412 71 if(_cmd.readable()) rxBuf[index++] = _cmd.getc();
CaptainR 0:a5ef6bc3c2e8 72 }
CaptainR 0:a5ef6bc3c2e8 73
CaptainR 0:a5ef6bc3c2e8 74 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 75 void PICASO_4DGL :: writeBYTE(char c) { // send a BYTE command to screen
CaptainR 0:a5ef6bc3c2e8 76
CaptainR 0:a5ef6bc3c2e8 77 _cmd.putc(c);
CaptainR 0:a5ef6bc3c2e8 78
CaptainR 0:a5ef6bc3c2e8 79 #if DEBUGMODE
CaptainR 21:ea68a8a3cea4 80 //pc.printf(" Char sent : 0x%02X ",c);
CaptainR 21:ea68a8a3cea4 81 //pc.putc(c);
CaptainR 21:ea68a8a3cea4 82 //pc.printf(" \n\r");
CaptainR 0:a5ef6bc3c2e8 83 #endif
CaptainR 0:a5ef6bc3c2e8 84
CaptainR 0:a5ef6bc3c2e8 85 }
CaptainR 0:a5ef6bc3c2e8 86
CaptainR 0:a5ef6bc3c2e8 87 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 88 void PICASO_4DGL :: freeBUFFER(void) { // Clear serial buffer before writing command
CaptainR 0:a5ef6bc3c2e8 89
CaptainR 0:a5ef6bc3c2e8 90 while (_cmd.readable()) _cmd.getc(); // clear buffer garbage
CaptainR 0:a5ef6bc3c2e8 91 }
CaptainR 0:a5ef6bc3c2e8 92
CaptainR 0:a5ef6bc3c2e8 93 //******************************************************************************************************
CaptainR 3:dcfbceb81fef 94 void PICASO_4DGL :: writeCOMMAND(char *command, int number) { // send several BYTES making a command and return an answer
CaptainR 0:a5ef6bc3c2e8 95
CaptainR 0:a5ef6bc3c2e8 96 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 97 pc.printf("\n\r");
CaptainR 0:a5ef6bc3c2e8 98 pc.printf("New COMMAND : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 0:a5ef6bc3c2e8 99 #endif
CaptainR 0:a5ef6bc3c2e8 100 int i;
CaptainR 0:a5ef6bc3c2e8 101 freeBUFFER();
CaptainR 13:1a0800957412 102 //index = 0;
CaptainR 13:1a0800957412 103
CaptainR 0:a5ef6bc3c2e8 104 for (i = 0; i < number; i++) writeBYTE(command[i]); // send command to serial port
CaptainR 0:a5ef6bc3c2e8 105 }
CaptainR 0:a5ef6bc3c2e8 106
CaptainR 15:86bdf382e6f7 107 //******************************************************************************************************
CaptainR 15:86bdf382e6f7 108 void PICASO_4DGL :: writeCOMMAND_2(char *command, int number) { // send several BYTES making a command and return an answer
CaptainR 15:86bdf382e6f7 109
CaptainR 15:86bdf382e6f7 110 #if DEBUGMODE
CaptainR 15:86bdf382e6f7 111 pc.printf("\n\r");
CaptainR 15:86bdf382e6f7 112 pc.printf("New COMMAND : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 15:86bdf382e6f7 113 #endif
CaptainR 15:86bdf382e6f7 114 int i;
CaptainR 15:86bdf382e6f7 115 freeBUFFER();
CaptainR 15:86bdf382e6f7 116 //index = 0;
CaptainR 15:86bdf382e6f7 117
CaptainR 15:86bdf382e6f7 118 for (i = 0; i < number; i++) _cmd.putc(command[i]); // send command to serial port
CaptainR 15:86bdf382e6f7 119 }
CaptainR 15:86bdf382e6f7 120
CaptainR 0:a5ef6bc3c2e8 121 //**************************************************************************
CaptainR 3:dcfbceb81fef 122 void PICASO_4DGL :: reset() { // Reset Screen
CaptainR 0:a5ef6bc3c2e8 123
CaptainR 0:a5ef6bc3c2e8 124 _rst = 0; // put RESET pin to low
CaptainR 0:a5ef6bc3c2e8 125 wait_ms(TEMPO); // wait a few milliseconds for command reception
CaptainR 0:a5ef6bc3c2e8 126 _rst = 1; // put RESET back to high
CaptainR 0:a5ef6bc3c2e8 127 wait(3); // wait 3s for screen to restart
CaptainR 0:a5ef6bc3c2e8 128
CaptainR 0:a5ef6bc3c2e8 129 freeBUFFER(); // clean buffer from possible garbage
CaptainR 0:a5ef6bc3c2e8 130 }
CaptainR 0:a5ef6bc3c2e8 131
CaptainR 0:a5ef6bc3c2e8 132 //**************************************************************************
CaptainR 3:dcfbceb81fef 133 void PICASO_4DGL :: baudrate(long speed) { // set screen baud rate
CaptainR 0:a5ef6bc3c2e8 134
CaptainR 0:a5ef6bc3c2e8 135 char command[4]= "";
CaptainR 2:81eaaa491a02 136 command[0] = (BAUDRATE >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 137 command[1] = (BAUDRATE >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 138 switch (speed) {
CaptainR 0:a5ef6bc3c2e8 139 case 300 :
CaptainR 2:81eaaa491a02 140 command[2] = (BAUD_300 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 141 command[3] = (BAUD_300 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 142 break;
CaptainR 0:a5ef6bc3c2e8 143 case 600 :
CaptainR 2:81eaaa491a02 144 command[2] = (BAUD_600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 145 command[3] = (BAUD_600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 146 break;
CaptainR 0:a5ef6bc3c2e8 147 case 1200 :
CaptainR 2:81eaaa491a02 148 command[2] = (BAUD_1200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 149 command[3] = (BAUD_1200 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 150 break;
CaptainR 0:a5ef6bc3c2e8 151 case 2400 :
CaptainR 2:81eaaa491a02 152 command[2] = (BAUD_2400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 153 command[3] = (BAUD_2400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 154 break;
CaptainR 0:a5ef6bc3c2e8 155 case 4800 :
CaptainR 2:81eaaa491a02 156 command[2] = (BAUD_4800 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 157 command[3] = (BAUD_4800 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 158 break;
CaptainR 0:a5ef6bc3c2e8 159 case 9600 :
CaptainR 2:81eaaa491a02 160 command[2] = (BAUD_9600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 161 command[3] = (BAUD_9600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 162 break;
CaptainR 0:a5ef6bc3c2e8 163 case 14400 :
CaptainR 2:81eaaa491a02 164 command[2] = (BAUD_14400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 165 command[3] = (BAUD_14400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 166 break;
CaptainR 0:a5ef6bc3c2e8 167 case 19200 :
CaptainR 2:81eaaa491a02 168 command[2] = (BAUD_19200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 169 command[3] = (BAUD_19200 >> (8*0)) & 0xff;
CaptainR 2:81eaaa491a02 170 break;
CaptainR 2:81eaaa491a02 171 case 31250 :
CaptainR 2:81eaaa491a02 172 command[2] = (BAUD_31250 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 173 command[3] = (BAUD_31250 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 174 break;
CaptainR 0:a5ef6bc3c2e8 175 case 38400 :
CaptainR 2:81eaaa491a02 176 command[2] = (BAUD_38400 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 177 command[3] = (BAUD_38400 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 178 break;
CaptainR 0:a5ef6bc3c2e8 179 case 56000 :
CaptainR 2:81eaaa491a02 180 command[2] = (BAUD_56000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 181 command[3] = (BAUD_56000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 182 break;
CaptainR 0:a5ef6bc3c2e8 183 case 57600 :
CaptainR 2:81eaaa491a02 184 command[2] = (BAUD_57600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 185 command[3] = (BAUD_57600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 186 break;
CaptainR 0:a5ef6bc3c2e8 187 case 115200 :
CaptainR 2:81eaaa491a02 188 command[2] = (BAUD_115200 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 189 command[3] = (BAUD_115200 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 190 break;
CaptainR 0:a5ef6bc3c2e8 191 case 128000 :
CaptainR 2:81eaaa491a02 192 command[2] = (BAUD_128000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 193 command[3] = (BAUD_128000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 194 break;
CaptainR 0:a5ef6bc3c2e8 195 case 256000 :
CaptainR 2:81eaaa491a02 196 command[2] = (BAUD_256000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 197 command[3] = (BAUD_256000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 198 break;
CaptainR 0:a5ef6bc3c2e8 199 case 300000 :
CaptainR 2:81eaaa491a02 200 command[2] = (BAUD_300000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 201 command[3] = (BAUD_300000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 202 break;
CaptainR 0:a5ef6bc3c2e8 203 case 375000 :
CaptainR 2:81eaaa491a02 204 command[2] = (BAUD_375000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 205 command[3] = (BAUD_375000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 206 break;
CaptainR 0:a5ef6bc3c2e8 207 case 500000 :
CaptainR 2:81eaaa491a02 208 command[2] = (BAUD_500000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 209 command[3] = (BAUD_500000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 210 break;
CaptainR 0:a5ef6bc3c2e8 211 case 600000 :
CaptainR 2:81eaaa491a02 212 command[2] = (BAUD_600000 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 213 command[3] = (BAUD_600000 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 214 break;
CaptainR 0:a5ef6bc3c2e8 215 default :
CaptainR 2:81eaaa491a02 216 command[2] = (BAUD_9600 >> (8*1)) & 0xff;
CaptainR 2:81eaaa491a02 217 command[3] = (BAUD_9600 >> (8*0)) & 0xff;
CaptainR 0:a5ef6bc3c2e8 218 speed = 9600;
CaptainR 0:a5ef6bc3c2e8 219 break;
CaptainR 0:a5ef6bc3c2e8 220 }
CaptainR 0:a5ef6bc3c2e8 221
CaptainR 0:a5ef6bc3c2e8 222 #if DEBUGMODE
CaptainR 0:a5ef6bc3c2e8 223 pc.printf("\n\r");
CaptainR 13:1a0800957412 224 pc.printf("New BAUDRATE : 0x%02X%02X\n\r", command[0], command[1]);
CaptainR 0:a5ef6bc3c2e8 225 #endif
CaptainR 0:a5ef6bc3c2e8 226
CaptainR 0:a5ef6bc3c2e8 227 int i;
CaptainR 0:a5ef6bc3c2e8 228 freeBUFFER();
CaptainR 0:a5ef6bc3c2e8 229
CaptainR 0:a5ef6bc3c2e8 230 //Change baudrates - as instructed by 4DGL
CaptainR 12:29f5ad896382 231 if (speed == 128000) speed = 133929;
CaptainR 12:29f5ad896382 232 if (speed == 256000) speed = 281250;
CaptainR 0:a5ef6bc3c2e8 233 if (speed == 300000) speed = 312500;
CaptainR 12:29f5ad896382 234 if (speed == 375000) speed = 401786;
CaptainR 0:a5ef6bc3c2e8 235 if (speed == 500000) speed = 562500;
CaptainR 0:a5ef6bc3c2e8 236 if (speed == 600000) speed = 703125;
CaptainR 0:a5ef6bc3c2e8 237
CaptainR 0:a5ef6bc3c2e8 238 for (i = 0; i <4; i++) writeBYTE(command[i]); // send command to serial port
CaptainR 12:29f5ad896382 239 _cmd.baud(speed);
CaptainR 5:890ddd974624 240 getResponse(1);
CaptainR 0:a5ef6bc3c2e8 241 }