전체 글 썸네일형 리스트형 변위 시스템용 3D visualization 프로그램 3D Visualization 프로그램은 Embacdeo社 의 Delphi프로그램의 firemonkey 3D 기능을 이용하여 개발하였다. FireMonkey는 Windows, macOS, iOS 및 Android용 크로스 플랫폼 애플리케이션을 빌드하기 위해 오브젝트 파스칼 또는 C++를 사용하여 Delphi 또는 C++Builder에서 사용하기 위해 Embarcadero Technologies에서 개발한 크로스 플랫폼이다. 3D 프로그램 개발에 필요한 컴포넌트를 이용하여 윈도우 화면에서 3D 구현이 가능하게 하였다. Firemonkey는 크로스플랫폼으로 OS 환경 설정과 약간의 수정으로 안드로이드나 iOS, 리눅스 등에서도 사용할 수 있어서 매우 효율 적이다. 현장에 설치된 센서 값이 LTE 모뎀을 통해.. 더보기 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.. 더보기 이전 1 2 3 다음