수다닷컴

제가 나뭇가지 그림을 만드려고 하는데요,자꾸 이상한 그림이 떠서요. 어디가 잘못됬나요?Const xsize = 5000, ysize = 4000, length = 1000
Const rad = 3.14159 / 180
Private Sub command1_click()
Dim n As Integer, m As Integer
Dim i As Integer, j As Integer
Dim lenn As Single
Dim th As Single, th1 As Single, th2 As Single
Dim kaido As Single
Dim x As Single, y As Single
Picture1.Cls
n = 4
kaido = 180 / n
x = xsize / 2: y = ysize / 3
lenn = length
th = 180 / 2
Picture1.Line (x, ysize)-(x, ysize - y)
tree x, y, lenn, th, kaido
End Sub
Private Sub tree(x As Single, y As Single, ByVal lenn As Single, th_ As Single, kaido As Single)
Dim x1 As Single, x2 As Single
Dim y1 As Single, y2 As Single
Dim th1 As Single, th2 As Single
If lenn = length / 15 Then Exit Sub
lenn = lenn * 0.75
th1 = th - kaido
th2 = th + kaido
x1 = x + lenn * Cos(th1 * rad)
y1 = y + lenn * Sin(th1 * rad)
x2 = x + lenn * Cos(th2 * rad)
y2 = y + lenn * Sin(th2 * rad)
Picture1.Line (x, ysize - y)-(x1, ysize - y1)
tree x1, y1, lenn, th1, kaido
Picture1.Line (x, ysize - y)-(x2, ysize - y2)
tree x2, y2, lenn, th2, kaido
End Sub

신청하기