$B%j%9%H(B2-3-1.txt

$B"#%j%9%H(B2-3-1$B"#(B

#include "mbed.h"

Serial xbee(PA_2, PA_3);		// XBee$B%7%j%"%k%]!<%H$N%T%sDj5A(B

int hex_conv(int data) {		// $B<u$1$H$C$??tCM(B(0-15)$B$r(B16$B?JJ8;z$KJQ49(B
    data = data%16;
    switch(data){
        case 0: return(48);
        case 1: return(49);
        case 2: return(50);
        case 3: return(51);
        case 4: return(52);
        case 5: return(53);
        case 6: return(54);
        case 7: return(55);
        case 8: return(56);
        case 9: return(57);
        case 10: return(65);
        case 11: return(66);
        case 12: return(67);
        case 13: return(68);
        case 14: return(69);
        case 15: return(70);
    }
    return(0);
}

int hex_send(int data) {		// $B<u$1$H$C$??tCM(B(0-255)$B$r(BXBee$B$+$iAw?.(B
    data = data & 255;
    xbee.putc(hex_conv(data / 16));
    xbee.putc(hex_conv(data % 16));
    return(0);
}

int main() {
    int i = 0;
    int j = 0;
    xbee.baud(38400);		// XBee$B$N%9%T!<%I@_Dj(B
    while(1) { 
        j++;
        if(j > 1000000){		// 100$BK|2s$K0lEY$@$1=hM}$9$k(B
            j = 0;
            i = (i+1)%16777216;
            hex_send(i>>16 & 255);	//$B!!@hF,(B1$B%P%$%H$rAw?.(B
            hex_send(i>>8 & 255);	// $B<!$N(B1$B%P%$%H$rAw?.(B
            hex_send(i & 255);		// $B:G8e$N(B1$B%P%$%H$rAw?.(B
            xbee.putc(13);			// $BKvHx$N(B"cr"$B$rAw?.(B
        }
    }
}

========================
mbed$B%5%$%H(B
http://developer.mbed.org/users/nagasm/code/CQ_nagasm_01_speed_check/
$B$K$F8x3+Cf(B
========================
