자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Delphi 비주얼 베이직 소스 변경 문의 드립니다.

2013.03.15 23:37

memc 조회 수:9465

안녕하세요?

아래 것은 비주얼 베이직 6 소스인데 델파이 XE로 변경 할려 합니다.

제가 비베는 잘 몰라서 그러는데  노란색 부분을 델파이XE로 변경할려는데 어떻게 해야 하나요?

 

변경 좀 부탁 드립니다.

감사합니다.

 


Private Sub Form_Load()

Dim max As Double
Dim min As Double
Dim matrix_dim As Double
Dim graph_data As ART_Graph

 

On Error GoTo Err:

graph_status = True

ade.WaferGraph graph_style, graph_file_name
graph_data = ade.Graph

Me.Caption = graph_data.path & graph_data.Name & "   " & graph_data.Content

matrix_dim = UBound(graph_data.data, 1)

If Not no_error Then
    SCALE_MAX = 2
End If

ReDim p(0 To matrix_dim, 0 To matrix_dim) As Variant

For t = 0 To matrix_dim
    For W = 0 To matrix_dim
        If (graph_data.data(t, W) = "-1,#IND") Or (graph_data.data(t, W) = "-1.#IND") Then
            p(t, matrix_dim - W) = 0
        Else
            p(t, matrix_dim - W) = Format(graph_data.data(t, W) - graph_data.min, "0.000")
                      '?necessario il format, altrimenti F1 lascia dei buchi nella mappa se il numero ?troppo spinto
        End If
    Next W
Next t

 

 

 

 


                             
With Me.WaferGraph
    .chartType = VtChChartType3dSurface
    .ChartData = p()
    .Backdrop.Frame.style = VtFrameStyleNull
    .Backdrop.Fill.style = VtFillStyleNull
    .Plot.Wall.Pen.style = VtPenStyleNull
    If graph_data.max - graph_data.min > SCALE_MAX Then
        SCALE_MAX = graph_data.max - graph_data.min
    End If
    .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
    .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0
    .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = SCALE_MAX
    .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10
    .Plot.Axis(VtChAxisIdX).AxisScale.Hide = True
    .Plot.Axis(VtChAxisIdY).AxisScale.Hide = False
    .Plot.Axis(VtChAxisIdZ).AxisScale.Hide = True
    .Plot.Axis(VtChAxisIdY2).AxisScale.Hide = True
    .Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.style = VtPenStyleNull
    .Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.style = VtPenStyleNull
    .Plot.Axis(VtChAxisIdZ).AxisGrid.MajorPen.style = VtPenStyleNull
    .Plot.Axis(VtChAxisIdY2).AxisGrid.MajorPen.style = VtPenStyleNull
                 
    .Plot.Elevation.Surface.RowWireframe = VtChSurfaceWireframeTypeMajor
    .Plot.Elevation.Surface.ColWireframe = VtChSurfaceWireframeTypeNone
    .Plot.PlotBase.BaseHeight = 0
    .Plot.View3d.Rotation = 210
    .Plot.View3d.Elevation = 30
    .Plot.WidthToHeightRatio = 2.5
    .Plot.DepthToHeightRatio = 2.5
    .Plot.Elevation.Surface.DisplayType = VtChSurfaceDisplayTypeCBands
    .Plot.Elevation.Contour.DisplayType = VtChContourDisplayTypeCBands
    .Plot.Elevation.ColorType = VtChContourColorTypeManual
    .Plot.Elevation.AutoValues = False

    If graph_data.max - graph_data.min <= SCALE_MAX Then
        Do While .Plot.Elevation.Attributes.count > 0
            .Plot.Elevation.Attributes.Remove 1
        Loop
        For t = 0 To SCALE_MAX Step (SCALE_MAX / .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision)
            .Plot.Elevation.Attributes.Add t
        Next t
        For t = 1 To .Plot.Elevation.Attributes.count
            .Plot.Elevation.Attributes.Item(t).Brush.FillColor.Set 255, 255, 255
            .Plot.Elevation.Attributes.Item(t).Brush.style = VtBrushStyleSolid
            Debug.Print .Plot.Elevation.Attributes.Item(t).Value
        Next t
    End If
                 
    .Visible = True
                 
End With
Exit Sub
Err:
    If no_error Then
        graph_status = False
        Unload Me
    Else
        If ade.ErrorCode > 0 Then
            Unload Me
        Else
            Err.Raise Err.Number
            Resume
        End If
    End If

End Sub

Private Sub Form_Resize()
WaferGraph.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54580
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97988
199 dbxconnections.ini 보안 cdrd 2013.04.30 6014
198 FireMonkey 2 버그 및 업데이트 계획 WR-Dev 2013.04.23 6189
197 http post 한글만깨짐 [1] 별밤지기 2013.04.12 9241
196 DBEXPRESS 와 MySQL5 처리시 한글문제.... [1] 파란하늘 2013.04.10 6480
195 Paserver에서 에러 [1] file 진이한이 2013.04.19 6164
194 BDE administrator에 대한 문의입니다. [3] 오상헌 2013.03.14 10569
193 dbxora.dll 파일을 찾지 못합니다. [1] file 허지승 2013.03.20 10485
192 Form Button 클릭 이벤트에서 IE 실행 문의 [1] drpark 2013.01.28 7923
191 Tmemo 컨트롤에 대해서 sumily 2013.03.27 6992
190 TCalendarEdit 기능 확인 [1] Feelple(고재철) 2012.10.29 7203
189 XE3 TTreeView에서 마지막 아이템이 선택안되는 버그 [1] Feelple(고재철) 2013.03.18 8127
188 OSX 에서 파라미터 값을 받는 방법이 없을까요? sumily 2013.03.26 8355
187 \Devic\Harddisk2\DR2 에러 file 명진 2013.03.21 6889
186 AQTime을 제거하지 않고 사용하지 않도록 하는 방법을 알고 싶습니다. file 관리자 2013.03.20 8776
185 XE3 버전에서 class constructor, destrtuctor 와 initialization 섹션 사이에서 문제 발생.. Feelple(고재철) 2013.03.18 8458
» 비주얼 베이직 소스 변경 문의 드립니다. memc 2013.03.15 9465
183 FM의 Grid의 타이틀을 멀티로 사용할려면? memc 2013.03.06 7710
182 한글 관련 질문 입니다 탄돌이 2013.02.20 7329
181 Dll 안에 있는 폼에서 SpeedButton을 누르면 포커스가 사라지는 문제 file Accounting 2013.02.20 10185
180 미치겠어요.... XE line too long? 버그? file 이한 2013.02.19 8545
쓰기
태그