OpenGL 3D Roket Cinta Menusuk Hatimu ala YULIANA...........:)

=============================SRICP FORM =======================
==============================================================

Sub Inisialisasi_Awal()
'========== Inisialisasi ==========
EnableOpenGL Me.hDC

hrc = wglCreateContext(hDC)
wglMakeCurrent hDC, hrc

'Inisilisasi Koordinat Bidang Dimensi-2
xmin = -20: ymin = -20
xmax = 20: ymax = 20
zmin = 20: zmax = -20
glOrtho xmin, xmax, ymin, ymax, zmin, zmax

glClearColor 2.5, 0.5, 2.5, 0
glClear GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT

glClear clrColorBufferBit
glMatrixMode GL_PROJECTION
glLoadIdentity
End Sub

Sub Bersihkan_Layar()
glClearColor 0.6, 0.6, 0.6, 0
glClear GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT
End Sub

Sub Tampilkan_Gambar()
'Menampilkan Hasil
glFlush
SwapBuffers Me.hDC
End Sub

'=====Sisi Depan ====='
'======================='

Sub Membuat_Titik()
'titik 1 bagian depan
With Objek.Sisi_Depan(1)
.x = 0
.y = 0
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Depan(2)
.x = 5
.y = 0
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Depan(3)
.x = 5
.y = 5
.z = 0
End With
'titik 4 bagian depan
With Objek.Sisi_Depan(4)
.x = 0
.y = 5
.z = 0
End With

'======================================'
'=====Sisi Kanan ======'
'======================================'


'titik 1 bagian Kanan
With Objek.Sisi_Kanan(1)
.x = 5
.y = 0
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Kanan(2)
.x = 5
.y = 0
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Kanan(3)
.x = 5
.y = 5
.z = 5
End With
'titik 4 bagian depan
With Objek.Sisi_Kanan(4)
.x = 5
.y = 5
.z = 0
End With


'======================================'
'=====Sisi Kiri ======'
'======================================'


'titik 1 bagian depan
With Objek.Sisi_Kiri(1)
.x = 0
.y = 0
.z = 5
End With

'titik 2 bagian depan
With Objek.Sisi_Kiri(2)
.x = 0
.y = 0
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Kiri(3)
.x = 0
.y = 5
.z = 0
End With
'titik 4 bagian depan
With Objek.Sisi_Kiri(4)
.x = 0
.y = 5
.z = 5
End With

'======================================'
'=====Sisi Belakang ======'
'======================================'


'titik 1 bagian depan
With Objek.Sisi_Belakang(1)
.x = 5
.y = 0
.z = 5
End With

'titik 2 bagian depan
With Objek.Sisi_Belakang(2)
.x = 0
.y = 0
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Belakang(3)
.x = 0
.y = 5
.z = 5
End With
'titik 4 bagian depan
With Objek.Sisi_Belakang(4)
.x = 5
.y = 5
.z = 5
End With


'======================================'
'=====Sisi Atas ======'
'======================================'


'titik 1 bagian depan
With Objek.Sisi_Atas(1)
.x = 0
.y = 5
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Atas(2)
.x = 5
.y = 5
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Atas(3)
.x = 5
.y = 5
.z = 5
End With
'titik 4 bagian depan
With Objek.Sisi_Atas(4)
.x = 0
.y = 5
.z = 5
End With




'======================================'
'=====Sisi Bawah ======'
'======================================'


'titik 1 bagian depan
With Objek.Sisi_Bawah(1)
.x = 0
.y = 0
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Bawah(2)
.x = 5
.y = 0
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Bawah(3)
.x = 5
.y = 0
.z = 5
End With
'titik 4 bagian depan
With Objek.Sisi_Bawah(4)
.x = 0
.y = 0
.z = 5
End With




'=========================================================='
'================PRISMA ATAS================================='
'==========================================================='

'===================pRISMA depan ==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_Depan(1)
.x = 0
.y = 5
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_Depan(2)
.x = 5
.y = 5
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_Depan(3)
.x = 2.5
.y = 10
.z = 2.5
End With

'===================pRISMA kanan ==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_Kanan(1)
.x = 5
.y = 5
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_Kanan(2)
.x = 5
.y = 5
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_Kanan(3)
.x = 2.5
.y = 10
.z = 2.5
End With

'===================pRISMA kiri ==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_Kiri(1)
.x = 0
.y = 5
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_Kiri(2)
.x = 0
.y = 5
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_Kiri(3)
.x = 2.5
.y = 10
.z = 2.5
End With

'===================pRISMA BELAKANG==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_Belakang(1)
.x = 0
.y = 5
.z = 5
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_Belakang(2)
.x = 5
.y = 5
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_Belakang(3)
.x = 2.5
.y = 10
.z = 2.5
End With



'====================================='
'===========PRISMA BAWAH ====================='
'======================================'

'===================pRISMA bawah kanan==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_Bawah_kanan(1)
.x = 0
.y = 0
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_Bawah_kanan(2)
.x = 0
.y = 0
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_Bawah_kanan(3)
.x = 2.5
.y = -10
.z = 2.5
End With

'==================pRISMA bawah depan ==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_Bawah_Depan(1)
.x = 0
.y = 0
.z = 5
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_Bawah_Depan(2)
.x = 5
.y = 0
.z = 5
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_Bawah_Depan(3)
.x = 2.5
.y = -10
.z = 2.5
End With

'===================pRISMA bawah belakang==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_bawah_Belakang(1)
.x = 0
.y = 0
.z = 0
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_bawah_Belakang(2)
.x = 5
.y = 0
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_bawah_Belakang(3)
.x = 2.5
.y = -10
.z = 2.5
End With

'===================pRISMA bawah kiri==============='

'titik 1 bagian depan
With Objek.Sisi_Primas_bawah_kiri(1)
.x = 5
.y = 0
.z = 5
End With

'titik 2 bagian depan
With Objek.Sisi_Primas_bawah_kiri(2)
.x = 5
.y = 0
.z = 0
End With

'titik 3 bagian depan
With Objek.Sisi_Primas_bawah_kiri(3)
.x = 2.5
.y = -10
.z = 2.5
End With



End Sub

Private Sub Command1_Click()
Call Membuat_Titik
Call Inisialisasi_Awal


glRotatef -45, 0, 1, 1

'================kiri============================'


glColor3f 1, 1, 0.4
glBegin bmPolygon
For ttk = 1 To 4
With Objek.Sisi_Kiri(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd




'===============atas============================'


glColor3f 1, 1, 1
glBegin bmPolygon
For ttk = 1 To 4
With Objek.Sisi_Atas(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd





'===============bawah============================'


glColor3f 1, 0, 1
glBegin bmPolygon
For ttk = 1 To 4
With Objek.Sisi_Bawah(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd





'==============depan========================='
glColor3f 1, 0, 0.5
glBegin bmPolygon
For ttk = 1 To 4
With Objek.Sisi_Depan(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd

'================kanan============================'


glColor3f 1, 0, 2.5
glBegin bmPolygon
For ttk = 1 To 4
With Objek.Sisi_Kanan(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd



'================belakang============================'


glColor3f 1, 0.2, 0.4
glBegin bmPolygon
For ttk = 1 To 4
With Objek.Sisi_Belakang(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd



'==========================================================='
'============PRISMA ATAS============================'
'====================================================='

'============Sisi_Primas_Kiri=========================='
glColor3f 0.5, 0, 0.5
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_Kiri(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd

'============Primas dEPAN========================='
glColor3f 0.5, 0, 2.5
glBegin bmTriangles



For ttk = 1 To 3
With Objek.Sisi_Primas_Depan(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd

'============Primas kanan=========================='
glColor3f 0.5, 0, 2.5
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_Kanan(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd

'===========Sisi_Primas_Belakang=========================='
glColor3f 0.5, 0, 0.5
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_Belakang(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd




'========================================='
'=============PRISMA BAWAH================='
'============================================='

'===========Sisi_Primas_ bawah _ belakang========================='
glColor3f 1, 0.2, 0.4
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_bawah_Belakang(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd




'===========Sisi_Primas_ bawah _ kanan=========================='
glColor3f 1, 0.2, 0.4
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_Bawah_kanan(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd

'===========Sisi_Primas_ bawah _ kiri=========================='
glColor3f 0.5, 0, 2.5
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_bawah_kiri(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd



'===========Sisi_Primas_ bawah _ depan=========================='
glColor3f 0.5, 0, 0.5
glBegin bmTriangles


For ttk = 1 To 3
With Objek.Sisi_Primas_Bawah_Depan(ttk)
glVertex3f .x, .y, .z
End With
Next ttk
glEnd


Call Tampilkan_Gambar

End Sub



=====================SCRIP MODUL ===============================
===============================================================


'VARIABEL Buatan
Public Type Titik3D
x As Single
y As Single
z As Single
End Type

Public Type Sisi
Sisi_Depan(1 To 4) As Titik3D
Sisi_Kanan(1 To 4) As Titik3D
Sisi_Belakang(1 To 4) As Titik3D
Sisi_Kiri(1 To 4) As Titik3D
Sisi_Atas(1 To 4) As Titik3D
Sisi_Bawah(1 To 4) As Titik3D
Sisi_Primas_Depan(1 To 4) As Titik3D
Sisi_Primas_Kanan(1 To 3) As Titik3D
Sisi_Primas_Kiri(1 To 3) As Titik3D
Sisi_Primas_Belakang(1 To 3) As Titik3D
Sisi_Primas_Bawah_Depan(1 To 3) As Titik3D
Sisi_Primas_bawah_Belakang(1 To 3) As Titik3D
Sisi_Primas_bawah_kiri(1 To 3) As Titik3D
Sisi_Primas_Bawah_kanan(1 To 3) As Titik3D
End Type


Public Objek As Sisi


Sub EnableOpenGL(ghDC As Long)
Dim pfd As PIXELFORMATDESCRIPTOR

ZeroMemory pfd, Len(pfd)
pfd.nSize = Len(pfd)
pfd.nVersion = 1
pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER
pfd.iPixelType = PFD_TYPE_RGBA
pfd.cColorBits = 24
pfd.cDepthBits = 32
pfd.iLayerType = PFD_MAIN_PLANE

PixFormat = ChoosePixelFormat(ghDC, pfd)
If PixFormat = 0 Then GoTo ee
SetPixelFormat ghDC, PixFormat, pfd
hrc = wglCreateContext(ghDC)
wglMakeCurrent ghDC, hrc

Exit Sub
ee: MsgBox "Nelze nastavit parametry pro zobrazení grafiky!"
End
End Sub

Sub DisableOpenGL()
wglMakeCurrent 0, 0
wglDeleteContext hrc
End Sub

Kalkulator BLUE ala YULIANA .....

Dim angka, Hasil As Double
Dim Operator As String
Private Sub Command1_Click()
If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub


Private Sub Command10_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka + Val(Text1.Text)

End If
Operator = "+"
Text1.Text = 0
End Sub

Private Sub Command11_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka - Val(Text1.Text)

End If
Operator = "-"
Text1.Text = 0
End Sub

Private Sub Command12_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka * Val(Text1.Text)

End If
Operator = "*"
Text1.Text = 0
End Sub

Private Sub Command13_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka / Val(Text1.Text)

End If
Operator = "/"
Text1.Text = 0
End Sub

Private Sub Command14_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka ^ Val(Text1.Text)

End If
Operator = "^"
Text1.Text = 0
End Sub

Private Sub Command15_Click()
End
End Sub

Private Sub Command16_Click()
If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Private Sub Command17_Click()
If Operator = "+" Then
Hasil = angka + Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "-" Then
Hasil = angka - Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "*" Then
Hasil = angka * Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "/" Then
Hasil = angka / Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "^" Then
Hasil = angka ^ Val(Text1.Text)
Text1.Text = Hasil
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If
End Sub

Private Sub Command3_Click()
If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If
End Sub

Private Sub Command4_Click()
If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If
End Sub

Private Sub Command5_Click()
If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If
End Sub

Private Sub Command6_Click()
If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If
End Sub

Private Sub Command7_Click()
If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If
End Sub

Private Sub Command8_Click()
If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If
End Sub

Private Sub Command9_Click()
If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If
End Sub


Private Sub Form_Load()
Form1.BackColor = vbBlue
End Sub

OpenGL BOneka 2D aLaaaa Yuliana.......:)

====================SCRIP FORM====================

Sub INISIALISASI()
'========== Inisialisasi ==========
EnableOpenGL Me.hDC

hrc = wglCreateContext(hDC)
wglMakeCurrent hDC, hrc

'Inisilisasi Koordinat D2
xmin = -30: ymin = -30
xmax = 30: ymax = 30
gluOrtho2D xmin, xmax, ymin, ymax

glClearColor 0, 0, 0, 0
glClear GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT
glClear clrColorBufferBit
glMatrixMode GL_PROJECTION
glLoadIdentity

'=============================================
' ========Menggambar boneka tengah ========
'========Menggambar Garis=============
'=============================================

glColor3f 0, 0, 0
glBegin bmLines
'Titik ke 1
glVertex2f -30, 0
'Titik k2 2
glVertex2f 30, 0
glEnd

glColor3f 0, 0, 0
glBegin bmLines
'Titik ke 1
glVertex2f 0, 30
'Titik ke 2
glVertex2f 0, -30
glEnd

'=====Menggambar badan ==========

glColor3f 0.5, 0, 0.5
glBegin bmPolygon
glVertex2f -2, 0
glVertex2f 2, 0
glVertex2f 4, -8
glVertex2f -4, -8

glEnd

'=====Menggambar kaki 1==========
glColor3f 1, 0.2, 0.4
glBegin bmQuads
glVertex2f 1, -8
glVertex2f 3, -8
glVertex2f 3, -12
glVertex2f 1, -12

glEnd

'=====Menggambar kaki2 ==========
glColor3f 1, 0.2, 0.4
glBegin bmQuads
glVertex2f -3, -8
glVertex2f -1, -8
glVertex2f -1, -12
glVertex2f -3, -12
glEnd




'=====Menggambar tangan 1 ==========
glColor3f 1, 0.2, 0.4
glBegin bmQuads
glVertex2f 2, -1
glVertex2f 6, 2
glVertex2f 6, -3
glVertex2f 3, -4

glEnd

'=====Menggambar tangan 2 ==========
glColor3f 1, 0.2, 0.4
glBegin bmQuads
glVertex2f -2, -1
glVertex2f -6, 2
glVertex2f -6, -3
glVertex2f -3, -4

glEnd


End Sub


Private Sub Command1_Click()
Call INISIALISASI

End Sub

Private Sub Command2_Click()
Dim x As Single, y As GLfloat
Dim rad2Derajad As Single, R As Single
rad2Derajad = 3.14 / 180
R = 4
glBegin bmPolygon
glColor3f 1, 0, 1
For teta = 1 To 360
x = R * Cos(teta * rad2Derajad)
y = R * Sin(teta * rad2Derajad)

glVertex2f x, y + 4

Next
glEnd

'========Menggambar Telinga =======
glBegin bmPolygon
glColor3f 1, 0.2, 0.4
For teta = 1 To 360
x = 2 * Cos(teta * rad2Derajad)
y = 2 * Sin(teta * rad2Derajad)

glVertex2f x + 4, y + 8

Next
glEnd

'========Menggambar Telinga2 =======
glBegin bmPolygon
glColor3f 1, 0.2, 0.4
For teta = 1 To 360
x = 2 * Cos(teta * rad2Derajad)
y = 2 * Sin(teta * rad2Derajad)

glVertex2f x + -4, y + 8

Next
glEnd

'========Menggambar mata =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + -2, y + 4

Next
glEnd

'========Menggambar mata 2 =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + 2, y + 4

Next
glEnd

'======Menggambar segitiga mulut =========
glColor3f 0.5, 0, 0.5
glBegin bmTriangles
'Titik ke 1
glVertex2f -1, 2
'Titik ke 2
glVertex2f 0, 3
'Titik ke 3
glVertex2f 1, 2
glEnd

'========Menggambar bola TANGAN =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 2 * Cos(teta * rad2Derajad)
y = 3 * Sin(teta * rad2Derajad)

glVertex2f x + 6, y + -1

Next
glEnd

'========Menggambar bola TANGAN =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 2 * Cos(teta * rad2Derajad)
y = 3 * Sin(teta * rad2Derajad)

glVertex2f x + -6, y + -1

Next
glEnd



'=======================================
'=====BONEKA KOTAK BARU KANAN =========
'=====Menggambar Garis Kotak kepala=======
'====================================

glColor3f 1, 0.2, 0.4
glBegin bmQuads
'Titik ke 1
glVertex2f 12, 0
'Titik ke 2
glVertex2f 12, 8
'Titik ke 3
glVertex2f 20, 8
'Titik ke 4
glVertex2f 20, 0
glEnd

'=====Menggambar Garis Kotak telinga kiri=======
glColor3f 1, 1, 1
glBegin bmQuads
'Titik ke 1
glVertex2f 11, 0
'Titik ke 2
glVertex2f 11, 8
'Titik ke 3
glVertex2f 12, 8
'Titik ke 4
glVertex2f 12, 0
glEnd

'=====Menggambar Garis Kotak telinga kanan=======
glColor3f 1, 1, 1
glBegin bmQuads
'Titik ke 1
glVertex2f 20, 0
'Titik ke 2
glVertex2f 20, 8
'Titik ke 3
glVertex2f 21, 8
'Titik ke 4
glVertex2f 21, 0
glEnd

'=====Menggambar Garis Kotak badan=======
glColor3f 1, 1, 0
glBegin bmQuads
'Titik ke 1
glVertex2f 13, -6
'Titik ke 2
glVertex2f 13, 0
'Titik ke 3
glVertex2f 19, 0
'Titik ke 4
glVertex2f 19, -6
glEnd

'=====Menggambar Garis Kotak kaki=======
glColor3f 1, 1, 0
glBegin bmQuads
'Titik ke 1
glVertex2f 14, -10
'Titik ke 2
glVertex2f 14, -6
'Titik ke 3
glVertex2f 15, -6
'Titik ke 4
glVertex2f 15, -10
glEnd

'=====Menggambar Garis Kotak kaki=======
glColor3f 1, 1, 0
glBegin bmQuads
'Titik ke 1
glVertex2f 17, -10
'Titik ke 2
glVertex2f 17, -6
'Titik ke 3
glVertex2f 18, -6
'Titik ke 4
glVertex2f 18, -10
glEnd

'======Menggambar segitiga kepala topi=========
glColor3f 0, 0.2, 1
glBegin bmTriangles
'Titik ke 1
glVertex2f 12, 8
'Titik ke 2
glVertex2f 16, 13
'Titik ke 3
glVertex2f 20, 8
glEnd

'========Menggambar kotak mata kanan =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + 14, y + 6

Next
glEnd

'========Menggambar kotak mata kiri =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + 18, y + 6

Next
glEnd

'======Menggambar kotak segitiga mulut =========
glColor3f 0, 1, 1
glBegin bmTriangles
'Titik ke 1
glVertex2f 15, 3
'Titik ke 2
glVertex2f 16, 4
'Titik ke 3
glVertex2f 17, 3
glEnd

'=====Menggambar kotak tangan 1==========
glColor3f 1, 1, 0
glBegin bmQuads
glVertex2f 20, -5
glVertex2f 20, 0
glVertex2f 21, 0
glVertex2f 21, -5

glEnd
'=====Menggambar kotak tangan 2==========
glColor3f 1, 1, 0
glBegin bmQuads
glVertex2f 11, -5
glVertex2f 11, 0
glVertex2f 12, 0
glVertex2f 12, -5

glEnd

'========Menggambar kotak mata kanan =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + 16, y + 13

Next
glEnd

'============================================
'====BONEKA KOTAK BARU KIRI =============
'=====Menggambar Garis Kotak kepala=======
'=========================================
glColor3f 1, 0.2, 0.4
glBegin bmQuads
'Titik ke 1
glVertex2f -12, 0
'Titik ke 2
glVertex2f -12, 8
'Titik ke 3
glVertex2f -20, 8
'Titik ke 4
glVertex2f -20, 0
glEnd

'=====Menggambar Garis Kotak telinga kiri=======
glColor3f 1, 1, 1
glBegin bmQuads
'Titik ke 1
glVertex2f -11, 0
'Titik ke 2
glVertex2f -11, 8
'Titik ke 3
glVertex2f -12, 8
'Titik ke 4
glVertex2f -12, 0
glEnd

'=====Menggambar Garis Kotak telinga kanan=======
glColor3f 1, 1, 1
glBegin bmQuads
'Titik ke 1
glVertex2f -20, 0
'Titik ke 2
glVertex2f -20, 8
'Titik ke 3
glVertex2f -21, 8
'Titik ke 4
glVertex2f -21, 0
glEnd

'=====Menggambar Garis Kotak badan=======
glColor3f 1, 1, 0
glBegin bmQuads
'Titik ke 1
glVertex2f -13, -6
'Titik ke 2
glVertex2f -13, 0
'Titik ke 3
glVertex2f -19, 0
'Titik ke 4
glVertex2f -19, -6
glEnd

'=====Menggambar Garis Kotak kaki=======
glColor3f 1, 1, 0
glBegin bmQuads
'Titik ke 1
glVertex2f -14, -10
'Titik ke 2
glVertex2f -14, -6
'Titik ke 3
glVertex2f -15, -6
'Titik ke 4
glVertex2f -15, -10
glEnd

'=====Menggambar Garis Kotak kaki=======
glColor3f 1, 1, 0
glBegin bmQuads
'Titik ke 1
glVertex2f -17, -10
'Titik ke 2
glVertex2f -17, -6
'Titik ke 3
glVertex2f -18, -6
'Titik ke 4
glVertex2f -18, -10
glEnd
'======Menggambar segitiga kepala topi=========
glColor3f 0, 0.2, 1
glBegin bmTriangles
'Titik ke 1
glVertex2f -12, 8
'Titik ke 2
glVertex2f -16, 13
'Titik ke 3
glVertex2f -20, 8
glEnd

'========Menggambar kotak mata kanan =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + -14, y + 6

Next
glEnd

'========Menggambar kotak mata kiri =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + -18, y + 6

Next
glEnd

'======Menggambar kotak segitiga mulut =========
glColor3f 0, 1, 1
glBegin bmTriangles
'Titik ke 1
glVertex2f -15, 3
'Titik ke 2
glVertex2f -16, 4
'Titik ke 3
glVertex2f -17, 3
glEnd

'=====Menggambar kotak tangan 1==========
glColor3f 1, 1, 0
glBegin bmQuads
glVertex2f -20, -5
glVertex2f -20, 0
glVertex2f -21, 0
glVertex2f -21, -5

glEnd
'=====Menggambar kotak tangan 2==========
glColor3f 1, 1, 0
glBegin bmQuads
glVertex2f -11, -5
glVertex2f -11, 0
glVertex2f -12, 0
glVertex2f -12, -5

glEnd

'========Menggambar kotak mata kanan =======
glBegin bmPolygon
glColor3f 1, 1, 1
For teta = 1 To 360
x = 1 * Cos(teta * rad2Derajad)
y = 1 * Sin(teta * rad2Derajad)

glVertex2f x + -16, y + 13

Next
glEnd
glFlush
SwapBuffers Me.hDC

End Sub



==========================SCRIP MODUL====================

Sub EnableOpenGL(ghDC As Long)
Dim pfd As PIXELFORMATDESCRIPTOR

ZeroMemory pfd, Len(pfd)
pfd.nSize = Len(pfd)
pfd.nVersion = 1
pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER
pfd.iPixelType = PFD_TYPE_RGBA
pfd.cColorBits = 24
pfd.cDepthBits = 32
pfd.iLayerType = PFD_MAIN_PLANE

PixFormat = ChoosePixelFormat(ghDC, pfd)
If PixFormat = 0 Then GoTo ee
SetPixelFormat ghDC, PixFormat, pfd
hrc = wglCreateContext(ghDC)
wglMakeCurrent ghDC, hrc

Exit Sub
ee: MsgBox "Nelze nastavit parametry pro zobrazení grafiky!"
End
End Sub

Sub DisableOpenGL()
wglMakeCurrent 0, 0
wglDeleteContext hrc
End Sub

Contoh Kurikilum Vitae

Photo

DAFTAR RIWAYAT HIDUP

Curriculum Vitae

Data Pribadi / Personal Details

Nama / Name : ..................................................

Alamat / Address : ..................................................

..................................................

..................................................

Kode Post / Postal Code : ..................................................

Nomor Telepon / Phone : ..................................................

Email : ..................................................

Jenis Kelamin / Gender : ..................................................

Tanggal Kelahiran / Date of Birth : ..................................................

Status Marital / Marital Status : ..................................................

Warga Negara / Nationality : ..................................................

Agama / Religion : ..................................................

Preferensi Pekerjaan / Job Preference

Bidang Pekerjaan yang diminati :

Career Interest

Gaji yang dikehendaki : Rp.

Expected Salary

Ketersediaan waktu : · Senantiasa tersedia

Availability · Setelah tanggal : ......../........./.........

· Selama : ........ bulan

Riwayat Pendidikan dan Pelatihan

Educational and Professional Qualification

Jenjang Pendidikan :

Education Information

Periode			Sekolah / Institusi / Universitas	Jurusan	Jenjang	IPK
	-

Pendidikan Non Formal / Training – Seminar

Riwayat Pengalaman Kerja

Summary of Working Experience

1

Tahun :

Instansi / Perusahaan :

Posisi :

Penghasilan Terakhir :

Job Deskripsi :

2

Tahun :

Instansi / Perusahaan :

Posisi :

Penghasilan Terakhir :

Job Deskripsi :

3

Tahun :

Instansi / Perusahaan :

Posisi :

Penghasilan Terakhir :

Job Deskripsi :

4

Tahun :

Instansi / Perusahaan :

Posisi :

Penghasilan Terakhir :

Job Deskripsi :

Kecakapan Berbahasa

Language Proficiency

No	Bahasa	Kemampuan
		Membaca	Menulis	Berbicara	Mendengar

Kesimpulan / Executive Summary

(Penjelasan singkat mengenai kualifikasi, kemampuan dalam pekerjaan, dan data personal lainnya)

Demikian CV ini saya buat dengan sebenarnya.

(......................................)

DAFTAR RIWAYAT HIDUP

Ä Data Pribadi

· Nama : ...........

· Tempat/Tgl lahir : ...........

· Alamat asal : ...............

· Status : ...........

· Jenis kelamin : ............

· Agama : ...........

· No. Hp : ............

Ä Pendidikan Formal

· SDN ….........

· SLTPN ..............

· SMUN ..............

· S1 , .................

- Jurusan: Informatika Dan Tehnik Komputer

Ä Pengalaman Kerja

· ..................................................

· Kerja di PT.Bumi Persada Properti (Ray White Denpasar – Bali ) Sebagai

( IT + Design ) Selama 2,7 Tahun.

Ä Seminar

· Seminar .................................................

· Seminar.................................................
Ketut Suarsa

---

Tempat, tanggal lahir	: Jakarta, 8 Januari 1975
Jenis kelamin	: Laki-laki
Status	: Menikah
Agama	: Hindu
Kewarganegaraan	: Indonesia
Alamat	: Jl. Kebon Jeruk IX No.15
	: Jakarta Barat 17355
Telepon	: (021) 5846789, 08170954554
e-mail	: ksuarsa75@yahoo.co.idThis e-mail address is being protected from spam bots, you need JavaScript enabled to view it

---

Ringkasan:

Manajer Sirkulasi yang berpengalaman menangani sirkulasi untuk penerbitan media massa dalam bidang perdagangan, bisnis dan konsumen. Pengalaman sebagai manajer sirkulasi mencakup semua bidang yang berhubungan, seperti strategi promosi, penjualan melalui agen dan kios, serta penjualan langsung di wilayah Jabotabek.

Pengalaman Kerja:

PT. Tutur Tinular Press, Jakarta (9/97- saat ini)

Senior Manajer Sirkulasi. Sekaligus menjabat sebagai anggota Badan Manajemen Perencanaan. Bertanggung jawab atas usulan, pengembangan dan penerapan semua program yang berhubungan dengan sirkulasi.

PT. Majalah Kita, Jakarta (1/94-8/97)

Asisten Manajer Sirkulasi. Bertanggung jawab atas semua bidang yang berhubungan dengan sirkulasi dan anggarannya, seperti promosi, penjualan langsung, koordinasi dengan agen-agen penjualan besar di Jakarta, Tangerang dan Bekasi.

PT. Koran Kita, Jakarta (2/92-12/93)

Supervisor Sirkulasi. Bertanggung jawab untuk mengkoordinir agen-agen penjualan besar di Jabotabek.

PT. Majalah Swara, Jakarta (8/85-1/92)

Supervisor Sirkulasi. Bertanggung jawab atas sirkulasi di wilayah DKI Jakarta.

Pendidikan:

Universitas Pembangunan Nasional (UPN) ‘Veteran’, Jakarta (1990-1992)

Akademi Manajamen Perusahaan (AMP), Jakarta (1982-1985)

Kursus:

Desain Grafis di Astra Graphica Learning Center, Jakarta (1994)

Urban Photography di ‘Blitz’ Institut of Photography, Jakarta (1993

RANDY WANSYAH
Alamat : Jl. Tenggilis Mejoyo W-24 Surabaya Telepon: 2981000
HP : 081330245751
Email : nick_rands2011@yahoo.com

Tanggal Lahir : 27 Januari 1980
Agama : Islam
Tinggi/Berat Badan : 160 cm/60 kg
Status : belum menikah

Pendidikan Formal
1998 – 2002 Universitas Surabaya Fakultas Teknik Jurusan Teknik Informatika, IPK 3.20
1995 – 1998 SMA Ciputra (Kelas III bidang studi IPA)

Pendidikan Non Formal
2003 Web Design Studio Sertifikasi
2002 Linux Chip Sertifikasi
2002 Cisco System Info Komputer Sertifikasi
2002 Bahasa Jepang NICE Center Intermediate
2000 Bahasa Inggris English First (EF) Intermediate
1998 Bahasa Mandarin Kursus privat Kelas conversation

Pengalaman Organisasi
2001 – 2002 Karang Taruna Kampung Bedug, sebagai wakil ketua Tugas
: menggalang dana kegiatan warga, menyusun rencana kegiatan, mengkoordinir acara warga.

2000 – 2001 UKM Bowling, sebagai ketua
Tugas
: menyusun AD/ART, membuat rencana kegiatan,

2000 Kontes Band Kampus se-Indonesia, sebagai Steering Comitee
Tugas
: mengarahkan kegiatan sesuai visi misi organisasi

1999 – 2000 Senat Fakultas, sebagai ketua
Tugas: mengkoordinir unit kegiatan mahasiswa fakultas

Pengalaman Kerja
Agustus 2003 – Juli 2004,
Web administrator PT Jude Kekar Bertanggungjawab kepada IT Manager
Lingkup tugas:
- Koordinator web designer
- membuat konsep tampilan web
- mengkoordinasi lalu lintas informasi web
- mengembangkan e-commerce perusahaan

Mei 2003 – September 2003,
Web designer PT Bhoiem Jaya Sekali Bertanggungjawab kepada IT Manager
Lingkup tugas:
- Membuat desain situs dilengkapi dengan pengembangan database interaktif,
- pengelolaan tampilan situs sesuai kebutuhan.

Hobi dan Minat
Sepak bola, renang dan Jogging
Pembuatan game pc dan pembuatan desain grafis.
Mencari info terbaru di internet

Referensi
Judith E. Dwijanti, Direktur PT Jude Kekar: (031) 2981067 Bobby Meidrie Levianto, Direktur PT Bhoiem Jaya Sekali: (031) 2981066

Contoh CV untuk Finance & Accounting

DAFTAR RIWAYAT HIDUP


Data Pribadi

Nama: Setyarini Rahayu
Tempat, Tanggal Lahir : Surabaya, 06 Nopember 1982
Jenis Kelamin : Perempuan
Agama : Katholik
Kewarganegaraan : Indonesia
Alamat : Jl. Kebagusan III/20
: Pal Merah, Jakarta Selatan 12220
Telephon: 021-7665239 (rumah)
021-5249972 (kantor)
0812-590590 (HP)

Latarbelakang Pendidikan
Formal
1991 – 1994 : SMP 624, Jakarta
1994 – 1997 : SMEA 804 Jakarta
1997 – 2001 : Yayasan Administrasi Indonesia (YAI), Jakarta

Non Formal
1994 – 1996 : Kursus Komputer di Bina Informatika Nusantara, Jakarta
1996 – 1997 : Kursus Bahasa Inggris di Berlitz English, Jakarta
2003 – 2003 : Kursus Pajak (Brevet A & B)

Kemampuan

* Kemampuan Akuntansi dan Administrasi (Accounting & Administration Skills) Journal printing & Calculation, Ledger, Project Data Updating, Teller, Salary Calculation, Petty Cash Payroll & Calculation, Inventory Controls)
* Kemampuan Komputer (MS Word, MS Excel, MS PowerPoint, MS Access, MS Outlook dan Internet)
* Sistem Perpajakan

Pengalaman Kerja

* Praktek Kerja Lapangan:

Praktek Kerja di PT. ARJUNA CARGO, Jakarta
Periode: April 1997 - June 1997
Tujuan : Persyaratan kelulusan SMEA 804 Jakarta
Posisi : Operator Administrasi
Rincian Pekerjaan:

- Mengupdate data konsumen
- Mengatur jadwal pertemuan dengan konsumen
- Menyiapkan surat-surat pernawaran untuk konsumen
- Menyiapkan tagihan

* Bekerja di PT. SAMUDRA SEDAYA CARGO, Jakarta

Periode : Januari 2002 - Mei 2005
Status : Karyawan Tetap
Posisi : Staf bagian Finance
Rincian pekerjaan :

- Mengelola kas kecil
- Melakukan surat menyurat bisnis
- Mengontrol persediaan peralatan kantor
- Menerbitkan dan menerima faktur dari pemasok
- Penggajian (payroll)