안녕하세요 고수님들 우선 제글을 봐주셔서 감사합니다.
다름이아니오라 현제 비줄얼베이직소스를 델파이로 변환할려구하는데 폼을 두개만들어서 제가해봤습니다. 그런데 메인폼에서 에디트박스에 숫자를 넣고 메인폼 확인버튼을 눌르면 두번째폼에서 숫자하고 결과값이나와야하는데 도저희 제머리로는 소스를변환하는것은 안됩니다. 고수님들 제발 도움을 주세요
ㅠ.ㅠ 부탁드립니다
비주얼베이직소스 입니다~
Function sum(a As Integer) As Integer
Form1.Cls
hap = 0
For i = 1 To a
Form1.Print i;
hap = hap + i
If i Mod 10 = 0 Then
Form1.Print
End If
Next i
Form1.Print
Form1.Print
sum = hap '함수명에 최종값을 대입
End Function
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim b As Integer
b = InputBox("목적치의 수를 입력하시오", "수 입력")
If b = 0 Then End
hap = sum(b) '함수 프로시저를 호출과 동시에 값을 받음
Print "1부터 "; b; "까지의 합은 "; hap; "이다."
End Sub
그리고 한가지만 더 물어보겠습니다. 델파이에서 원그리는거는 어떻게 하는건지....이것도 부탁드립니다.ㅠ.ㅠ 그럼 고수님들 좋은하루되시구요 행복하세요
델파이 문법을 조금만 공부하면 될거 같군요.
그리고 원그리는 방법은..
TCanvas 라는 클래스가 있습니다.
캔바스 안에 원이라든가 사각형, 둥근사각형 등을 그릴수
있는 프로시져(함수)가 있습니다.