CAS CI-1500A 시리얼통신

CAS CI-1500A 시리얼통신

 

1. 모듈 설정

용기버튼을 누르고 전원을 켠다

변환모드(Set표시)

 

F01 = 0

F02 = 0

F03 = 2 -> 시리얼사용시

F05 = 5 -> 무게재는속도

F06 = 0

F07 = 0

F08 = 0

F09 = 0

F10 = 48 -> 주고받는프로토콜 정해주는거 아스키코드값 0

F11 = 4 -> 통신속도 9600

F12 = 3 -> 시리얼통신 사용하겠다

F13 = 0

F14 = 0

 

---

 

2. D-SUB 커넥터 배선연결

CAS쪽 : 2번, 3번, 7번

PC쪽 : 2번, 3번, 5번

 

3. 프로그램 소스

 

procedure TForm1.OPENClick(Sender: TObject);
begin
  ComPort1.Open;
end;

 

procedure TForm1.ReadClick(Sender: TObject);
begin
  ComPort1.WriteStr('0');
end;

 

procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
  ComPort1.ClearBuffer(True, True);
end;

 

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  temp_buffer : string;
  cnt : Integer;
  str : string;
begin
  ComPort1.ReadStr(temp_buffer, count);

  ListBox1.ItemIndex := ListBox1.Items.Count - 1;
  for cnt := 1 to count do
  begin
    str := Copy(temp_buffer, cnt, 1);
    if str = #10 then   //LF
    begin
      ListBox1.Items.Add(copy(Result,11,7));

      Result := '';
    end else
    begin
      Result := Result + str;
    end;
  end;

 

// Device num. 48 일경우
// hex 30을 보내줘야 data수신 됨
// char 0을 보내줘도 됨
// CAS 연구소 직원도 모름(031-820-1334)
//  status := copy(str,0,2);            // 'ST' 'US' 'OL'이 들어오면 정상
//  etc := copy(str,3,7);              // ',GS,1?'
//  sign := copy(str,10,1);           // '-'  ' '
//  weight_str := copy(str,11,7);    // 'xxxx0.1'
//  unt := copy(str,19,2);          // 'kg'

end;

 

170719 정승주가 다 만듦

끝