Membuat Gambar Bola 3 Dimensi Dengan Visual Basic 6.0

Membuat Gambar Bola 3D Dengan Visual Basic 6.0

Membuat Gambar Bola 3 Dimensi Dengan Visual Basic 6.0 | Visual Basic Magazine - Pada posting kali ini, kita akan mencoba metode pemrograman grafis dengan Visual Basic 6.0. Lebih tepatnya lagi kita akan membuat sebuah gambar bola 3 Dimensi (3D) dengan sistem koordinat.

Pada Visual Basic 6.0, setiap form memiliki sistem koordinat dimana titik awal koordinat berada di sudut kiri atas form. Setiap koordinat disusun oleh sumbu x dan y dengan satuan twip (1 twip = 1/20 point atau 1/1440 inci).

Sekarang kita akan mencoba membuat gambar bola 3D dengan Visual Basic 6.0. Ikuti langkah-langkah berikut ini :

1. Buka sebuah form dan atur di properties nya sebagai berikut agar tampak proposional :

Width = 12060
Height = 8835
Startup Position = 2 - CenterScreen

2. Buka disain code pada form tersebut dan masukkan script berikut :

3. Kemudian tambahkan sebuah module dengan cara, klik Project dan pilih Add Module. Kemudian masukkan script berikut di module tersebut.

Option Explicit

Public Const pi = 3.1415926
Public Const sudutn = 5
Public Const diameterling = 6000

Type Dot
X As Double
Y As Double
Z As Double
End Type

Public objek(1 To sudutn + 1) As Dot
Public bola_h, bola_v
Public X, Y, Z
Public me_to_obj
Public obj_to_me
Public r_poligon
Public sudutputar As Double

Function CRad(Deg)
CRad = Deg * pi / 180
End Function

Function CDeg(Rad)
CDeg = Rad * 180 / pi
End Function

Public Sub buatpoligon()
Dim sudut
Dim n As Double
sudut = 360 / sudutn

For n = 1 To UBound(objek())
objek(n).X = Sin(CRad(202.5 + (n - 1) * sudut)) * r_poligon
objek(n).Y = Cos(CRad(202.5 + (n - 1) * sudut)) * r_poligon
objek(n).Z = diameterling / 2
Next n

n = 1 - ((r_poligon * 2) ^ 2) / (2 * ((diameterling / 2) ^ 2))
n = n ^ 2
n = Sqr(1 / n - 1)
sudutputar = Atn(n)
End Sub

Public Sub putar(obj() As Dot, suduth, sudutv)
Dim X, Y, Z, c As Double
Dim suduthorizontal, sudutvertikal As Double
suduthorizontal = suduth + CRad(bola_h)
sudutvertikal = sudutv + CRad(bola_v)

For c = 1 To UBound(obj())
If suduthorizontal <> 0 Then
X = obj(c).X
Y = obj(c).Y
Z = obj(c).Z
obj(c).Z = Z * Cos(suduthorizontal) - X * Sin(suduthorizontal)
obj(c).X = X * Cos(suduthorizontal) + Z * Sin(suduthorizontal)
End If

If sudutvertikal <> 0 Then
X = obj(c).X
Y = obj(c).Y
Z = obj(c).Z
obj(c).Y = Y * Cos(sudutvertikal) - Z * Sin(sudutvertikal)
obj(c).Z = Z * Cos(sudutvertikal) + Y * Sin(sudutvertikal)
End If
Next c
End Sub

Public Sub arraygambar(obj() As Dot)
On Error Resume Next
Dim n, d, dz
Dim r, x1, x2, y1, y2
d = me_to_obj
dz = d + obj_to_me
x2 = (obj(1).X) * d / (obj(1).Z + dz) + X
y2 = (obj(1).Y) * d / (obj(1).Z + dz) + Y

For n = 0 To UBound(obj()) - 1
x1 = x2
y1 = y2
x2 = (obj(n + 1).X) * d / (obj(n + 1).Z + dz) + X
y2 = (obj(n + 1).Y) * d / (obj(n + 1).Z + dz) + Y
If obj(n + 1).Z < 0 Then Form1.Line (x1, y1)-(x2, y2)
Next n
End Sub

Public Sub bentuk()
Form1.Cls
Dim H, V, A, n
A = sudutputar
n = Val(2 * pi / sudutputar)
For H = 1 To n / 2
For V = 1 To n
arraygambar objek
putar objek, A, 0
Next V
putar objek, 0, A
Next H
End Sub

4. Cobalah running program tersebut, jika berhasil maka hasilnya akan seperti gambar dibawah ini :