개발자 Q&A - 비주얼 베이직 소스 변경 문의 드립니다.

Home

새로운 글

새로운 덧글

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

제품설치/등록 오류 문의: 설치/등록 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 54580
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97987

999 [공유] VCL 스타일을 사용해 보니 폼이 전체적으로 이뻐지는데요. 강조하고 싶은 특정 버튼의 스타일만 바꿀 수 있나요? [1] Humphery 2015.03.27 762
998 Troubleshooting: Cannot Deploy an Application for Android [1] 민돌이 2015.01.27 764
997 DCU 파일을 어떻하면 오픈할 수 있는지 몰라서, 바보스럽게 질문드립니다- 친절한 답변 부탁드려요~ (꾸벅^^) [1] 유박사 2018.10.29 766
996 부팅시 자동실행(브로드캐스트 리시버)예제를 따라하니 앱이 강제 종료됩니다. [1] 김태윤 2016.06.01 767
995 AES 암호화 관련 [1] 다콜 2015.06.12 768
994 카메라 실행 오류문의 [2] kim 2015.11.16 772
993 xe8에서 iphone device 연결방법문의? [2] silkroad99 2015.05.19 774
992 ToolBar Command Error(View) [2] 우석이 2014.12.07 774
991 델파이 7버전 다운로드 문의 [1] 정보개발팀 2017.06.26 776
990 델파이의 intraweb은 ASP.NET과 비교해 어떤 장점이 있나요? [1] 베스트드레곤 2015.04.10 776
989 XE7에서는 개선이 되었는지 궁금합니다. [1] ScorpioM 2014.12.22 777
988 글자 짤림문제 델펀맨 2016.09.20 778
987 [REST 웨비나] JWT(JSON Web Token) 을 통한 인증 방법 험프리 2020.09.17 779
986 dll(.net assembley) 추가 [2] bugfix 2015.01.02 779
985 xe7 앱개발 [1] 사랑남 2015.02.25 780
984 xe7로 DataSnap 사용하여 3티어로 작성 한 프로그램 remort error: Error reading servermethods2.clientheight: property clientheight does not exist오류가 납니다 [3] delphi 2016.03.29 781
983 TBitmap.Savetofile 관련 질문 [1] hsson 2016.04.05 782
982 [질문] XE7에서 CPORT 컴파일 후 인스톨 시 에러 신지 2015.02.09 782
981 [질문] 험프리님 말씀하신대로 제가 작성한 내용 댓글 붙였습니다. 어떻게 수정하면 원하는 결과가 나오는지요? 델파이 정규식에서 어떻게 검색조건을 줘야 원하는 결과가 나올까요? [3] delphi 2016.04.05 784
980 iphone 생성된 Provisioning profile 아이폰6에 등록 방법문의 사랑남 2015.05.15 786

첫 페이지 110 111 112 113 114 115 116 117 118 119 끝 페이지

쓰기

태그

데브기어 홈페이지
다운로드
제품소개
회사소개
개인정보보호방침