Knight Rider PIO sample for teckBASIC, konashi.js

Dependencies:   BLE_API_Native_IRC mbed

Fork of BLE_konashi_PIO_test by Michio Ono

konashi.js mbed HRM1017でもナイトライダー!: http://jsdo.it/micutil/g1Hn

サンプル動画: https://www.youtube.com/watch?v=HSLdzS3sGLw

techBASICサンプル: https://www.dropbox.com/s/c1k25jlen7x3vqo/KnightRider.txt

Committer:
micono
Date:
Sun Jul 27 00:02:25 2014 +0000
Revision:
2:6a3257fffa8c
Parent:
1:6b1c4adfe165
PIO sample for teckBASIC, konashi.js

Who changed what in which revision?

UserRevisionLine numberNew contents of line
jksoft 0:8c643bfe55b7 1 #include "mbed.h"
jksoft 0:8c643bfe55b7 2 #include "nRF51822n.h"
jksoft 0:8c643bfe55b7 3
micono 1:6b1c4adfe165 4 #define DBG 1
jksoft 0:8c643bfe55b7 5
jksoft 0:8c643bfe55b7 6 nRF51822n nrf;
jksoft 0:8c643bfe55b7 7 Serial pc(USBTX, USBRX);
jksoft 0:8c643bfe55b7 8 /* LEDs for indication: */
micono 1:6b1c4adfe165 9 DigitalOut knsPio[]={P0_0,P0_1,P0_2,P0_3,P0_4,P0_5,P0_6,P0_7};
jksoft 0:8c643bfe55b7 10 DigitalOut ConnectStateLed(LED1);
micono 1:6b1c4adfe165 11
micono 1:6b1c4adfe165 12 static const uint16_t KONASHI_SERVICE_UUID = 0xFF00;
micono 2:6a3257fffa8c 13 GattService knsService (KONASHI_SERVICE_UUID);
jksoft 0:8c643bfe55b7 14
micono 1:6b1c4adfe165 15 /*
micono 2:6a3257fffa8c 16 static const uint16_t KONASHI_PIO_SETTING_UUID = 0x3000;
micono 1:6b1c4adfe165 17 GattCharacteristic knsPioSetting (KONASHI_PIO_SETTING_UUID,1, 1,
micono 2:6a3257fffa8c 18 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE |
micono 2:6a3257fffa8c 19 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE_WITHOUT_RESPONSE);
micono 2:6a3257fffa8c 20 */
micono 2:6a3257fffa8c 21 static const uint16_t KONASHI_PIO_OUTPUT_UUID = 0x3002;
micono 1:6b1c4adfe165 22 GattCharacteristic knsPioOut (KONASHI_PIO_OUTPUT_UUID,1, 1,
micono 2:6a3257fffa8c 23 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE |
micono 2:6a3257fffa8c 24 GattCharacteristic::BLE_GATT_CHAR_PROPERTIES_WRITE_WITHOUT_RESPONSE);
jksoft 0:8c643bfe55b7 25
jksoft 0:8c643bfe55b7 26 /* Advertising data and parameters */
jksoft 0:8c643bfe55b7 27 GapAdvertisingData advData;
jksoft 0:8c643bfe55b7 28 GapAdvertisingData scanResponse;
jksoft 0:8c643bfe55b7 29 GapAdvertisingParams advParams ( GapAdvertisingParams::ADV_CONNECTABLE_UNDIRECTED );
jksoft 0:8c643bfe55b7 30
micono 1:6b1c4adfe165 31 uint16_t uuid16_list[] = { KONASHI_SERVICE_UUID };
micono 2:6a3257fffa8c 32
micono 2:6a3257fffa8c 33 //==================================
micono 1:6b1c4adfe165 34 uint8_t pioSetting=0xFF;
micono 1:6b1c4adfe165 35 uint8_t pioOut=0;
jksoft 0:8c643bfe55b7 36
micono 1:6b1c4adfe165 37 void DoPio(void) {
micono 1:6b1c4adfe165 38 uint8_t b=1,vs,vo;
micono 1:6b1c4adfe165 39 for(int i=0;i<8;i++) {
micono 1:6b1c4adfe165 40 vs=(pioSetting & b);
micono 1:6b1c4adfe165 41 vo=(pioOut & b);
micono 1:6b1c4adfe165 42 knsPio[i]=(vs>0 && vo>0);
micono 1:6b1c4adfe165 43 b=(b<<1);
micono 1:6b1c4adfe165 44 }
micono 1:6b1c4adfe165 45 }
micono 2:6a3257fffa8c 46 //==================================
jksoft 0:8c643bfe55b7 47
jksoft 0:8c643bfe55b7 48 // GapEvent
jksoft 0:8c643bfe55b7 49 class GapEventHandler : public GapEvents
jksoft 0:8c643bfe55b7 50 {
jksoft 0:8c643bfe55b7 51
jksoft 0:8c643bfe55b7 52 virtual void onConnected(void)
jksoft 0:8c643bfe55b7 53 {
jksoft 0:8c643bfe55b7 54 ConnectStateLed = 0;
micono 1:6b1c4adfe165 55 knsPio[0]=0;
micono 1:6b1c4adfe165 56 knsPio[1]=0;
micono 1:6b1c4adfe165 57
jksoft 0:8c643bfe55b7 58 #if DBG
jksoft 0:8c643bfe55b7 59 pc.printf("Connected\n\r");
jksoft 0:8c643bfe55b7 60 #endif
jksoft 0:8c643bfe55b7 61 }
jksoft 0:8c643bfe55b7 62
jksoft 0:8c643bfe55b7 63 virtual void onDisconnected(void)
jksoft 0:8c643bfe55b7 64 {
jksoft 0:8c643bfe55b7 65 nrf.getGap().startAdvertising(advParams);
jksoft 0:8c643bfe55b7 66 ConnectStateLed = 1;
micono 1:6b1c4adfe165 67 knsPio[0]=1;
micono 1:6b1c4adfe165 68 knsPio[1]=1;
jksoft 0:8c643bfe55b7 69 #if DBG
jksoft 0:8c643bfe55b7 70 pc.printf("Disconnected\n\r");
jksoft 0:8c643bfe55b7 71 #endif
jksoft 0:8c643bfe55b7 72 }
jksoft 0:8c643bfe55b7 73 };
jksoft 0:8c643bfe55b7 74
jksoft 0:8c643bfe55b7 75 // GattEvent
jksoft 0:8c643bfe55b7 76 class GattServerEventHandler : public GattServerEvents
jksoft 0:8c643bfe55b7 77 {
jksoft 0:8c643bfe55b7 78 virtual void onDataWritten(uint16_t charHandle)
jksoft 0:8c643bfe55b7 79 {
micono 1:6b1c4adfe165 80 /*if (charHandle == knsPioSetting.handle) {
micono 1:6b1c4adfe165 81 uint8_t getPioSetting;
micono 1:6b1c4adfe165 82 nrf.getGattServer().readValue(knsPioSetting.handle, &getPioSetting, 1);
micono 1:6b1c4adfe165 83 if(getPioSetting!=pioSetting) {
micono 1:6b1c4adfe165 84 //DoPio();
micono 1:6b1c4adfe165 85 pioSetting=getPioSetting;
micono 1:6b1c4adfe165 86 }
micono 1:6b1c4adfe165 87
micono 2:6a3257fffa8c 88 } else */
micono 2:6a3257fffa8c 89 if (charHandle == knsPioOut.handle) {
micono 1:6b1c4adfe165 90 uint8_t getPioOut;
micono 1:6b1c4adfe165 91 nrf.getGattServer().readValue(knsPioOut.handle, &getPioOut, 1);
micono 1:6b1c4adfe165 92 #if DBG
micono 1:6b1c4adfe165 93 pc.printf("DATA: %d %d\n\r",getPioOut,pioOut);
micono 1:6b1c4adfe165 94 #endif
micono 1:6b1c4adfe165 95 if(getPioOut!=pioOut) {
micono 1:6b1c4adfe165 96 pioOut=getPioOut;
micono 1:6b1c4adfe165 97 DoPio();
micono 1:6b1c4adfe165 98 }
micono 2:6a3257fffa8c 99 }
jksoft 0:8c643bfe55b7 100 }
jksoft 0:8c643bfe55b7 101 };
jksoft 0:8c643bfe55b7 102
jksoft 0:8c643bfe55b7 103 /**************************************************************************/
jksoft 0:8c643bfe55b7 104 /*!
jksoft 0:8c643bfe55b7 105 @brief Program entry point
jksoft 0:8c643bfe55b7 106 */
jksoft 0:8c643bfe55b7 107 /**************************************************************************/
jksoft 0:8c643bfe55b7 108 int main(void)
jksoft 0:8c643bfe55b7 109 {
jksoft 0:8c643bfe55b7 110 #if DBG
jksoft 0:8c643bfe55b7 111 pc.printf("Start\n\r");
jksoft 0:8c643bfe55b7 112 #endif
jksoft 0:8c643bfe55b7 113 /* Setup an event handler for GAP events i.e. Client/Server connection events. */
jksoft 0:8c643bfe55b7 114 nrf.getGap().setEventHandler(new GapEventHandler());
jksoft 0:8c643bfe55b7 115
jksoft 0:8c643bfe55b7 116 /* Initialise the nRF51822 */
jksoft 0:8c643bfe55b7 117 nrf.init();
jksoft 0:8c643bfe55b7 118
jksoft 0:8c643bfe55b7 119 nrf.getGattServer().setEventHandler(new GattServerEventHandler());
jksoft 0:8c643bfe55b7 120
jksoft 0:8c643bfe55b7 121 /* Make sure we get a clean start */
jksoft 0:8c643bfe55b7 122 nrf.reset();
jksoft 0:8c643bfe55b7 123
jksoft 0:8c643bfe55b7 124 /* Add BLE-Only flag and complete service list to the advertising data */
jksoft 0:8c643bfe55b7 125 advData.addFlags(GapAdvertisingData::BREDR_NOT_SUPPORTED);
jksoft 0:8c643bfe55b7 126 advData.addData(GapAdvertisingData::COMPLETE_LIST_16BIT_SERVICE_IDS,
jksoft 0:8c643bfe55b7 127 (uint8_t*)uuid16_list, sizeof(uuid16_list));
jksoft 0:8c643bfe55b7 128 nrf.getGap().setAdvertisingData(advData, scanResponse);
jksoft 0:8c643bfe55b7 129
micono 1:6b1c4adfe165 130 /* Service */
micono 1:6b1c4adfe165 131 //knsService.addCharacteristic(knsPioSetting);
micono 1:6b1c4adfe165 132 knsService.addCharacteristic(knsPioOut);
micono 1:6b1c4adfe165 133 nrf.getGattServer().addService(knsService);
jksoft 0:8c643bfe55b7 134
jksoft 0:8c643bfe55b7 135 /* Start advertising (make sure you've added all your data first) */
jksoft 0:8c643bfe55b7 136 nrf.getGap().startAdvertising(advParams);
jksoft 0:8c643bfe55b7 137 ConnectStateLed = 1;
jksoft 0:8c643bfe55b7 138
jksoft 0:8c643bfe55b7 139 for (;;)
jksoft 0:8c643bfe55b7 140 {
jksoft 0:8c643bfe55b7 141 wait(1);
jksoft 0:8c643bfe55b7 142 }
jksoft 0:8c643bfe55b7 143 }
jksoft 0:8c643bfe55b7 144