Interference current stimulation program with kaji-lab ES device.

Dependencies:   mbed SerialInputReactionHandler AMPulseTrain SwArr16MOSFET StrCommandHandler KajiLabES

Committer:
aktk
Date:
Wed Nov 27 23:41:55 2019 +0000
Revision:
2:5cb68cc8ecaa
Parent:
1:b97639dad576
nov 27th 2019 digital sin works

Who changed what in which revision?

UserRevisionLine numberNew contents of line
aktk 0:19a67422961f 1 #include "mbed.h"
aktk 2:5cb68cc8ecaa 2 #include "subroutines.h"
aktk 0:19a67422961f 3
aktk 0:19a67422961f 4 DigitalOut myled1(LED1);
aktk 0:19a67422961f 5 DigitalOut myled2(LED2);
aktk 0:19a67422961f 6 DigitalOut myled3(LED3);
aktk 0:19a67422961f 7 DigitalOut myled4(LED4);
aktk 2:5cb68cc8ecaa 8 ProcessState pstate = WAIT_A_CERTAIN_KEY;
aktk 0:19a67422961f 9
aktk 0:19a67422961f 10 int main()
aktk 0:19a67422961f 11 {
aktk 2:5cb68cc8ecaa 12 printf("SystemCoreClock = %d Hz\n", SystemCoreClock);
aktk 2:5cb68cc8ecaa 13 myled1 = myled2 = myled3 = myled4 = 0;
aktk 2:5cb68cc8ecaa 14 init();
aktk 2:5cb68cc8ecaa 15
aktk 2:5cb68cc8ecaa 16 PRELOOP_POINT:
aktk 2:5cb68cc8ecaa 17 while (pstate == WAIT_A_CERTAIN_KEY) {
aktk 2:5cb68cc8ecaa 18 wait(0.5);
aktk 2:5cb68cc8ecaa 19 myled3 = (!myled3);
aktk 0:19a67422961f 20 }
aktk 2:5cb68cc8ecaa 21
aktk 2:5cb68cc8ecaa 22
aktk 2:5cb68cc8ecaa 23 myled3 = 1;
aktk 2:5cb68cc8ecaa 24 while(pstate == MAIN_ROUTINE) {
aktk 2:5cb68cc8ecaa 25 wait(.1);
aktk 2:5cb68cc8ecaa 26 myled3 = (!myled3);
aktk 0:19a67422961f 27 }
aktk 2:5cb68cc8ecaa 28
aktk 2:5cb68cc8ecaa 29
aktk 2:5cb68cc8ecaa 30 myled3 = 0;
aktk 2:5cb68cc8ecaa 31 goto PRELOOP_POINT;
aktk 2:5cb68cc8ecaa 32 }