Private Sub CommandButton1_Click()
    For j = 1 To 25                               'これから表示する欄をクリアしておく
      Worksheets("Sheet1").Cells(j, 5).Value = ""
    Next

    ec.COMn = 5                                   'ポートは5番
    ec.Setting = "19200,n,8,1"                    'ボーレイト、パリティ、データビット、ストップビット
    ec.Delimiter = ec.DELIMs.CrLf                 'デリミタ
    n = 1
End Sub

Private Sub CommandButton2_Click()
  While (1 = 1)                                   '表示を無限に繰り返す　wendまで
    ec.InBufferClear                              '古いデータは捨てて
    a$ = ec.AsciiLine                             'MCUから受け取り
    Worksheets("Sheet1").Cells(n, 5).Value = a$   'セルに書き込む
    n = n + 1                                     'カラムを一段下げて
    If n = 25 Then                                '25行に達したら測定値を消して最初の行に戻って
      For j = 1 To 25                             '表示する
        Worksheets("Sheet1").Cells(j, 5).Value = ""
      Next
      n = 1
    End If
  Wend                                             '繰り返しの終わり
End Sub

Private Sub CommandButton3_Click()
    ec.COMn = -1                                  '通信終了
    End                                           'プログラムの終了
End Sub

dim i,n as integer

/* USART設定 */
UBRR0 = 38;                                          /* ﾎﾞｰﾚｰﾄ設定 19200bsp 12MHz   */
UCSR0B = _BV(RXEN0)|_BV(TXEN0)|_BV(RXCIE0);          /* 送受信許可 受信割込許可  */
UCSR0C = 6;                                          /* ﾌﾚｰﾑ形式設定(8ﾋﾞｯﾄ,1ｽﾄｯﾌﾟﾋﾞｯﾄ) */

/* 受信割込ルーチン   */
ISR(USART_RX_vect){                   
  rflg=1;                             /* フラグを立てて */
  rdat=UDR0;                          /* データを読み出すとクリアされる rdat:char変数 */
  while(!(UCSR0A & _BV(UDRE0))); UDR0 = 0x0d; delay_ms1(6);    /* 送信ﾊﾞｯﾌｧの空きを待ってﾃﾞｰﾀをｾｯﾄ CRLF送信*/
  while(!(UCSR0A & _BV(UDRE0))); UDR0 = 0x0a; delay_ms1(6);    /* 送信ﾊﾞｯﾌｧの空きを待ってﾃﾞｰﾀをｾｯﾄ */
}

/* 文字列送信ルーチン */
void string_out (char *msg_string){   /* "*"で受けると、呼び出し側の配列の番地を受け取る */ 
  uint8_t i;                   
  i=0;
  while (msg_string[i]  !='\0'){
    while ( !(UCSR0A & _BV(UDRE0)) );   //送信バッファの空きを待って
    UDR0 = msg_string[i];               //送信データをセットします
    i++;
    delay_ms1(6);
  }
}

/* タイマ１の設定  １秒割り込み */
TCCR1A=0;
TCCR1B=_BV(WGM12)|_BV(CS12)|_BV(CS10);              //CTC動作 1024分周
OCR1A=11719;                                        //12MHz/1024のカウント
TIMSK1=_BV(OCIE1A);                                 //compA一致割り込み
  
/* タイマ１割り込みルーチン  フラグを立てるだけ  処理場所でフラッグポーリング */
ISR(TIMER1_COMPA_vect) {                              //１秒フラグ       CTC動作 
  t1s=1;                                              //処理場所でフラグを倒すこと
}

/* ADコンバータ設定  ADC7使用 割り込み不使用 */
ADMUX= _BV(REFS1)|_BV(REFS0)|                         /* 内部1.1V */
       _BV(ADLAR)|                                    /* 左揃え */
       _BV(MUX2)|_BV(MUX1)|_BV(MUX0);                 /* ADC7選択 */
ADCSRA=_BV(ADEN)|                                     /* 変換許可 */
       _BV(ADSC)|                                     /* スタート */
       _BV(ADPS2)|_BV(ADPS1);                         /* 64分周 12MHz/64＝187.5kHz */

/* 変換 */
cli();
ADCSRA|=_BV(ADSC);                             /* スタート */
data=ADCH;                                     /* 変換 ８ビットだからHだけ */
sei();