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

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

2013.03.15 23:37

memc 조회 수:9724

안녕하세요?

아래 것은 비주얼 베이직 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 50016
공지 유용한 관련 사이트 관리자2 2014.03.20 91049
192 dbxora.dll 파일을 찾지 못합니다. [1] file 허지승 2013.03.20 10724
191 Form Button 클릭 이벤트에서 IE 실행 문의 [1] drpark 2013.01.28 8192
190 Tmemo 컨트롤에 대해서 sumily 2013.03.27 7217
189 TCalendarEdit 기능 확인 [1] Feelple(고재철) 2012.10.29 7516
188 XE3 TTreeView에서 마지막 아이템이 선택안되는 버그 [1] Feelple(고재철) 2013.03.18 8362
187 OSX 에서 파라미터 값을 받는 방법이 없을까요? sumily 2013.03.26 8571
186 \Devic\Harddisk2\DR2 에러 file 명진 2013.03.21 7106
185 AQTime을 제거하지 않고 사용하지 않도록 하는 방법을 알고 싶습니다. file 관리자 2013.03.20 8983
184 XE3 버전에서 class constructor, destrtuctor 와 initialization 섹션 사이에서 문제 발생.. Feelple(고재철) 2013.03.18 8711
» 비주얼 베이직 소스 변경 문의 드립니다. memc 2013.03.15 9724
182 FM의 Grid의 타이틀을 멀티로 사용할려면? memc 2013.03.06 8202
181 한글 관련 질문 입니다 탄돌이 2013.02.20 7508
180 Dll 안에 있는 폼에서 SpeedButton을 누르면 포커스가 사라지는 문제 file Accounting 2013.02.20 10450
179 미치겠어요.... XE line too long? 버그? file 이한 2013.02.19 8843
178 DelphiXE2에서 이전버젼들에서 작동하던 Code Insight 기능 등이 작동하지 않습니다. 늦바람 2013.02.12 7525
177 WebDeploy관련 메뉴가 없나요?? 프릭스미디어 2013.02.01 8142
176 델파이에서 MIME mutipartRelated protocol를 사용하려면 어떻게 해야하나요? fromstog 2013.01.29 7156
175 XE3 터치 확대/축소 문의 barcode0 2013.01.29 8469
174 Begin-end 16장 한글깨짐 현상에 대한 질문 file funny 2013.01.28 7967
173 Component들이 보이지 않습니다. secret 변보언 2013.01.22 2
쓰기
태그