데이터 인코딩

임의의 숫자 3개를 받아 이진수로 변환한 다음 그 값을 6가지의 incoding 타입으로 그리는 프로그램입니다. 각 타입들은 각각 쌍을 이루어 같은 procedure를 거치게 되며 procedure Draw에 값을 전달하여 폼에 그리게 됩니다. NRZ-L , NRZI Bipolar - AMI, Pseudoternary Manchester, Differnal Manchester 값을 입력하여 이진수로 변환하고 그리기 이벤트를 발생시키면 switch 문을 거쳐 각 타입으로 입력된 이진수 값을 넘깁니다. procedure NRZ 에서는 NRZ-L에서는 이진수 그대로를 그리고 NRZI에서는 입력된 이진수를 변환하여 procedure NRZ 으로 전달합니다. 나머지 타입 역시 같은 방법으로 변환하여 각 procedure 에 전달하고 각각 procedure Draw에 값을 넘겨 그리게 됩니다. 타입별로 구분하여 이진수 값을 변환하는 부분 case i of 1 : Nrz(Value, 24,35); // NRZ-L 2 : begin // NRZI TempValue := Value; For j := 1 to 12 do begin if j = 1 then TempValue[j] := TempValue[j] else begin if TempValue[j] = `0` then // 0 이면 TempValue[j] := TempValue[j-1] else begin if TempValue[j-1] = `1` then TempValue[j] := `0` else TempValue[j] := `1`; end; end; end; Nrz(TempValue, 24, 95); end;