Zaenal Arif: Membuat Gambar Bola 3D Dengan Visual Basic 6.0

Membuat Gambar Bola 3D Dengan Visual Basic 6.0 | Gho Blog's - 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 :