자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15759
공지 유용한 관련 사이트 관리자2 2014.03.20 54576
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97973
1119 android API file leejh 2015.12.14 118
1118 cannot resolve unit name 'Winapi. windows' file charlesseo 2015.12.15 829
1117 OPEN API 를 이용하여 개발하려고 합니다. [2] 카이로스 2015.12.12 509
1116 컴포넌트 문의 드립니다. [1] secret sue 2015.12.11 4
1115 서비스명을 알수 있나요? [1] kim 2015.12.11 109
1114 파일복사 관련 문의입니다. [1] 굿네이처스 2015.12.11 312
1113 DB Express관련입니다 [1] secret 호로록 2015.12.11 4
1112 WebBrowser에서 메모리를 줄일수 있나요? kim 2015.12.11 143
1111 release에서 Run하면 에러발생합니다. kim 2015.12.10 315
1110 ClientDataSet을 XML로 저장시 [1] 라시드 2015.10.26 372
1109 [XE8] 세로고정모드에서 가로 풀화면 만들기 [1] 가을이다 2015.12.08 559
1108 Delphi 10 Seattle 에서 DevExpress v15.1.5 버전이 설치가 되지 않습니다. [3] 도사 2015.12.08 821
1107 BindingsList 에 LinkList 를 추가하는 방법을 알고 싶습니다. [2] file 거북이 2015.12.05 152
1106 Webbrowser에서 텍스트나 html 소스를 가져오고 싶습니다. [1] 다서짱 2015.12.04 1196
1105 sns공유 기능문의 [1] 사랑남 2015.12.07 342
1104 DBX에러..긴급 답변요청합니다. [1] secret kjm 2015.12.07 9
1103 안드로이드에서 Free 가 안되는 이유가 왜인가요? [1] 거북이 2015.12.05 180
1102 [재문의]seattle 버전 ios9 "External Exception 434C4E47432B2B00" 에러 [3] 사랑남 2015.11.20 647
1101 롤리팝에서 프로그램이 구동되지 않습니다 [4] 위드유 2015.12.02 418
1100 [질문]FastReport 리소스 파일을 한글로 바꿨는데, 이 리소스를 어떻게 적용을 시키는 거죠? [2] file 바람돌이 2015.12.01 863
쓰기
태그