자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 

• 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

• 전체
• Delphi
• C++ Builder
• RadPHP
• Firemonkey
• Interbase
• 도서

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

이 게시물을

• Twitter
• Me2day
• Facebook
• Delicious

목록

댓글 0

목록

번호	제목	글쓴이	날짜	조회 수
공지	[프로그래밍 강의] 2021.6~2021.12	관리자	2015.01.22	15767
공지	유용한 관련 사이트	관리자2	2014.03.20	54581
공지	본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.	관리자	2012.01.10	97989
1973	delphi..end 에서 84페이지 29번 [2]	도도마이	2012.12.11	6699
1972	begin end 책 227페이지 문제있습니다 [2]	도도마이	2012.12.13	6483
1971	TPopupActionBar.AutoHotKeys [1]	Feelple(고재철)	2012.12.24	4
1970	xe2 실행시	빛고을총각	2013.01.02	8836
1969	rxLib사용하기.	agbnielsen	2013.01.03	9680
1968	Delphi 동영상 강의 업로드를 기다립니다.	O-X	2013.01.05	7112
1967	폼과 에디터 전환문제 [2]	sdj	2013.01.11	6863
1966	Begin...End 14장 datasnap예제 에러 [1]	funny	2013.01.16	7515
1965	Form Button 클릭 이벤트에서 IE 실행 문의 [1]	drpark	2013.01.28	7923
1964	Begin-end 16장 한글깨짐 현상에 대한 질문	funny	2013.01.28	7733
1963	델파이에서 MIME mutipartRelated protocol를 사용하려면 어떻게 해야하나요?	fromstog	2013.01.29	6953
1962	WebDeploy관련 메뉴가 없나요??	프릭스미디어	2013.02.01	7903
1961	DelphiXE2에서 이전버젼들에서 작동하던 Code Insight 기능 등이 작동하지 않습니다.	늦바람	2013.02.12	7249
1960	미치겠어요.... XE line too long? 버그?	이한	2013.02.19	8545
1959	한글 관련 질문 입니다	탄돌이	2013.02.20	7329
1958	Dll 안에 있는 폼에서 SpeedButton을 누르면 포커스가 사라지는 문제	Accounting	2013.02.20	10185
»	비주얼 베이직 소스 변경 문의 드립니다.	memc	2013.03.15	9465
1956	XE3 버전에서 class constructor, destrtuctor 와 initialization 섹션 사이에서 문제 발생..	Feelple(고재철)	2013.03.18	8458
1955	dbxora.dll 파일을 찾지 못합니다. [1]	허지승	2013.03.20	10485
1954	AQTime을 제거하지 않고 사용하지 않도록 하는 방법을 알고 싶습니다.	관리자	2013.03.20	8776

첫 페이지 1 2 3 4 5 6 7 8 9 10 끝 페이지

쓰기

검색

제목+내용제목내용댓글이름닉네임태그 검색

태그