mbedを使用してdelphiからledを光らせてみます。

mbed側のソースは以下です。

#include “mbed.h”

Serial pc(USBTX, USBRX); // tx, rx
BusOut leds(p29,p30,LED1, LED2, LED3, LED4);
//0  1  2  3  4  5   6   7   8)
BusOut Left (p5, p6, p7, p8, p9,p10,p11,p12);
BusOut LandR(p13,p14,p15,p16,p17,p18,p19,p20);
BusOut Right(p21,p22,p23,p24,p25,p26,p27,p28);

int main() {
//    pc.baud(115200);
pc.printf(“Led Demo!\n”);
while(1) {
uint8_t ch = pc.getc();
pc.putc(ch );
Left = ch;

ch = pc.getc();
pc.putc(ch );
LandR = ch;

ch = pc.getc();
pc.putc(ch );
Right = ch;

ch = pc.getc();
pc.putc(ch );
leds = ch;
}
}

delphiで作成したexeと、mbed バイナリーはここより取得できます。