Page 209 - 3-3

//FND a~dp
PORTC = 0xff; DDRC = 0xff;
//TR drive
PORTF = 0xff; DDRF = 0xff;

//TC0 설정
//normal mode, 1024 분주
TCCR0 = 0x07;
//10ms 맞추기 위해 TCNT 설정
TCNT0 = 99;
//TC0 OVF 인터럽트 허용
TIMSK = 0x01;
}

나. VB.NET
각 장치에서 보낸 신호를 PC 에서 처리하기 위해 VB.net 을 사용하여 GUI 를 구성했다. PC 의 시리
얼포트를 통해서 각 장치의 RF 수신모듈과 연결하고 포트를 설정한다 그리고 받아들이는 신호에.
맞게 데이터를 처리하고 엑셀에 데이터를 기록시킨다 또한 서버와 소켓 통신하여 서버로도 기록이, .
쌓이도록 코딩했다.

' 네임스페이스 선언
' 엑셀과 연동하기 위함
Imports Microsoft.Office.Interop
' 시리얼포트 사용하기 위함
Imports System.IO.Ports
' 스레딩 사용
Imports System.Threading
' 소켓 사용
Imports System.Net.Sockets
Imports System.Net

Public Class frmHealth

' 컨트롤의 Handle 이 호출 스레드와 다른 스레드에서 만들어져 호출 메서드를 통해 해당 컨트롤을
호출해야 하는 경우 true 이고 그렇지 않으면, false 입니다.
Delegate Sub SetTextBackCall(ByVal [text] As String)

' 학생 학번 저장 변수
Dim student As String
''50m''
' 스탑워치 생성
Dim Rstopwatch As New Stopwatch
' 초 저장

- 209 -