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

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

2013.03.15 23:37

memc 조회 수:9510

안녕하세요?

아래 것은 비주얼 베이직 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 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58977
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102605
199 dbxconnections.ini 보안 cdrd 2013.04.30 6027
198 FireMonkey 2 버그 및 업데이트 계획 WR-Dev 2013.04.23 6209
197 http post 한글만깨짐 [1] 별밤지기 2013.04.12 9265
196 DBEXPRESS 와 MySQL5 처리시 한글문제.... [1] 파란하늘 2013.04.10 6497
195 Paserver에서 에러 [1] file 진이한이 2013.04.19 6192
194 BDE administrator에 대한 문의입니다. [3] 오상헌 2013.03.14 10623
193 dbxora.dll 파일을 찾지 못합니다. [1] file 허지승 2013.03.20 10520
192 Form Button 클릭 이벤트에서 IE 실행 문의 [1] drpark 2013.01.28 7984
191 Tmemo 컨트롤에 대해서 sumily 2013.03.27 7016
190 TCalendarEdit 기능 확인 [1] Feelple(고재철) 2012.10.29 7250
189 XE3 TTreeView에서 마지막 아이템이 선택안되는 버그 [1] Feelple(고재철) 2013.03.18 8173
188 OSX 에서 파라미터 값을 받는 방법이 없을까요? sumily 2013.03.26 8380
187 \Devic\Harddisk2\DR2 에러 file 명진 2013.03.21 6921
186 AQTime을 제거하지 않고 사용하지 않도록 하는 방법을 알고 싶습니다. file 관리자 2013.03.20 8797
185 XE3 버전에서 class constructor, destrtuctor 와 initialization 섹션 사이에서 문제 발생.. Feelple(고재철) 2013.03.18 8479
» 비주얼 베이직 소스 변경 문의 드립니다. memc 2013.03.15 9510
183 FM의 Grid의 타이틀을 멀티로 사용할려면? memc 2013.03.06 7840
182 한글 관련 질문 입니다 탄돌이 2013.02.20 7351
181 Dll 안에 있는 폼에서 SpeedButton을 누르면 포커스가 사라지는 문제 file Accounting 2013.02.20 10237
180 미치겠어요.... XE line too long? 버그? file 이한 2013.02.19 8598
쓰기
태그