전체 글 썸네일형 리스트형 Long-term 측정 시 발생 오차 감쇠 알고리즘 3차원 변위 시스템의 핵심 기술인 배열 연산을 통한 변위측정 기술을 기반으로 스마트 재난 안전 대응시스템 구축을 위해 요구되는 재난/재해 시 지반과 구조물의 안전진단 관리를 통한 선제적 대응기술의 고도화 개발로서 온도·진동 센서 보상 기술, 변위 데이터 시각화 기술을 통해 실시간으로 변위를 측정하여 시각화할 수 있는 고분해능 및 고정밀도의 3차원 변위 시스템 (가) 오차 원인분석 ① 온도 변화 장기간 현장 변위 측정 시 오차 발생 원인의 대부분은 온도에 의한 변화이다. Array 변위센서는 시작단부터 센서가 측정한 변위를 계산해 나가는 방식이다. 계산해 나간다는 것은 각 센서 관절의 변위값을 더해 나간다는 것이다. 각 관절에 있는 센서는 오차를 가지고 있는데 이 오차도 같이 누적이 된다. 아래 그림은 누.. 더보기 Ultrasonic sensor module sensitivity measurement(초음파 센서 모듈 감도 측정) This is a basic test method to predict an object detection range by setting the following selection conditions and measuring them using a newly manufactured ultrasonic beam pattern measuring device to select a sensor suitable for an ultrasonic collision prevention device. 초음파 충돌방지장치에 적합한 센서를 선정하기위하여 다음과 같은 선정 조건을 설정한 후 이를 새로 제작된 초음파 빔패턴 측정 장치를 이용하여 측정하여 물체 감지 범위를 예측하기 위한 기초 시험 방법이다. [ Selection .. 더보기 Polyfit - 다차항 보상 When you make measured data from Excel into a line chart and identify the characteristics of this data, you can create a trend line to analyze it and predict what the result value will look like when there is a value between the measured data. At this time, there are multiple-order terms among the functions of the trend line. This can be obtained by Delphi code. 측정된 데이터를 엑셀에서 라인차트로 만들고 이 데이터의 특성.. 더보기 stringgrid를 마우스로 드레그하여 선택한 다음 병합하는 코드 마우스로 StringGrid 드래그를 구현한 다음 선택한 셀을 병합하려면 OnMouseDown, OnMouseMove 및 OnMouseUp 이벤트를 사용하여 마우스 이동을 추적하고 사용자가 선택한 셀을 확인할 수 있다. var Dragging: Boolean; DragRect: TRect; MergeLeft, MergeTop: Integer; MergeText: string; procedure TForm1.GridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Button = mbLeft) and not (ssShift in Shift) then begin Dragging := Tru.. 더보기 stringgrid의 셀 병합하는 코드 Delphi StringGrid에서 셀을 병합하려면 OnDrawCell 이벤트를 사용하여 셀의 모양을 사용자 지정하고 병합된 셀처럼 보이게 할 수 있다. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Grid: TStringGrid; Text: string; R: TRect; I, J: Integer; begin Grid := Sender as TStringGrid; if (ACol = 1) and (ARow = 1) then begin // Draw the merged cell Grid.Canvas.Font := Grid.Font; Grid.C.. 더보기 stringgrid에 체크박스 삽입하는 코드 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Grid: TStringGrid; CheckBoxRect: TRect; begin Grid := Sender as TStringGrid; // Set checkbox for cell in column 2 if ACol = 2 then begin CheckBoxRect.Left := Rect.Left + ((Rect.Right - Rect.Left) - 13) div 2; CheckBoxRect.Top := Rect.Top + ((Rect.Bottom - Rect.Top) - 13) div 2; Che.. 더보기 stringgrid의 특정 셀의 색상을 변경하는 코드 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Grid: TStringGrid; begin Grid := Sender as TStringGrid; // Set color for cell in row 2 and column 3 if (ACol = 3) and (ARow = 2) then begin Grid.Canvas.Brush.Color := clRed; Grid.Canvas.FillRect(Rect); end; // Draw cell contents Grid.Canvas.Font := Grid.Font; Grid.Canvas.TextRect(R.. 더보기 Stringgrid의 숫자 포멧 설정 stringgrid의 셀에서 숫자의 실수형의 포멧을 지정하는 방법 procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string); begin // Set format for real numbers in column 2 if (ACol = 2) and TryStrToFloat(Value, Value) then Value := FormatFloat('#,##0.00', StrToFloat(Value)); end; 더보기 이전 1 2 3 다음
