24.01.2015 Views

C - U-netSURF

C - U-netSURF

C - U-netSURF

SHOW MORE
SHOW LESS
  • No tags were found...

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

#include "binary.h"<br />

/* メ゜ンル 関 数 */<br />

int main()<br />

{<br />

/* SCIの 初 期 化 */<br />

// Sci_Initialize(SCI_19200);<br />

Sci_Initialize(SCI_38400);<br />

//Cで2 進 数 表 示 をを 使 う(00000000<br />

(00000000-11111111)<br />

C で 2 進 数 表 現 を 使 え<br />

るように, 東朁 洋泒 リンクス<br />

作 成 の 定 義 ファイルを<br />

インクルードする。<br />

/* 開 始 メッセセーヴジ */<br />

Sci_PutChar('H');<br />

Sci_PutChar('O');<br />

Sci_PutChar('S');<br />

Sci_PutChar('\r');<br />

Sci_PutChar('\n');<br />

ボーレートを 38400 ボー<br />

に 変 更暬 する。<br />

sta_hos();<br />

}<br />

return 0;<br />

/* 初 期 化 デンルチラ */<br />

void Initialize(VP_INT exinf)<br />

{<br />

/* act_tsk(TSKID_SAMPLE1);*/<br />

}<br />

/* サキンルハルタスク */<br />

void Task1(VP_INT exinf)<br />

{<br />

SYSTIM st;<br />

for ( ; ; )<br />

{<br />

/* タ゜マ 値 取 得 */<br />

get_tim(&st);<br />

/* タ゜マ 値 出 力 */<br />

Sci_PutChar('0' + (st.ltime / 10000) % 10);<br />

Sci_PutChar('0' + (st.ltime / 1000) % 10);<br />

Sci_PutChar('0' + (st.ltime / 100) % 10);<br />

Sci_PutChar('0' + (st.ltime / 10) % 10);<br />

Sci_PutChar('0' + (st.ltime / 1) % 10);<br />

Sci_PutChar(':');<br />

/* タスクメッセセーヴジ */<br />

Sci_PutChar('T');<br />

Sci_PutChar('a');<br />

Sci_PutChar('s');<br />

Sci_PutChar('k');<br />

Sci_PutChar('1');<br />

Sci_PutChar('\r');<br />

Sci_PutChar('\n');<br />

134<br />

TK-3687mini ユーザーズマニュアル C 言 語 版

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!