Dim Dx as DirectX8
Objek yang dihubungkan kepada directx8

Dim D3D as Direct3D8
Memberikan kawalan terhadap objek dalam directx

Dim D3DDevice as Direct3DDevice8
Mewakili perkakasan untuk tujuan melukis pada skrin (render)

Public Function Initialise() as Boolean
On Error Goto ErrHandler:

Dim DispMode as D3DDISPLAYMODE '//Mewakili mode display contoh 640 x 480
Dim D3DWindow as D3DPRESENT_PARAMETERS '// Mewakili skrin yang kita lihat

Set Dx = New DirectX8 '// Membina object directx 8
Set D3D = Dx.Direct3DCreate() '//Dari objek directx kita buat antaramuka directx berkenaan

D3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, DispMode '// Mendapatkan mode resolusi komputer yang dipakai

D3DWindow.Windowed = 1 '// Menggunakan skrin dalam window
D3DWindow.SwapEffect = D3DSWAPEFFECT_COPY_VSYNC '//Refresh skrin
D3DWindow.BackBufferFormat = DispMode.Format '//Menggunakan resolusi yang sedia ada

// Membuat device pada permukaan directx, iaitu ruangan untuk rendering.
Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, FrmMain.Hwnd, _
                                                     _ D3DCREATE_SOFTWARE_VERTEXPROCESSING, _
                                                     _ D3DWindow)

Initialise = True
Exit Function
ErrHandler:
Initialise = False
End Function

Public Sub Render()
'//Padam segala lukisan yang terdapat pada skrin di ruangan device.
D3DDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, &HCCCCFF, 1#, 0

'//Memulakan senario game
D3DDevice.BeginScene
'//Disinilah kesetiap objek bagi directx dilukis contoh kotak, rumah, dan berbagai lagi
D3DDevice.EndScene

'//Perbaharui skrin untuk memaparkan objek yang baru.
D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub

Private Sub Form_Load()

Me.Show
bRunning = Initialise() //Memulakan driver directx


Do While bRunning
    Render '//Memanggil fungsi render dan memaparkan objek yang dilukis
    DoEvents '//Masa berhenti untuk cpu melakukan process yang dirender    

Loop


'//Padam directx

Set D3DDevice = Nothing
Set D3D = Nothing
Set Dx = Nothing

Unload Me
End
End Sub

//Memulakan irrlicht
#include <irrlicht.h>    
using namespace irr;

using namespace core;
using namespace scene;
using namespace video;
using namespace io;
using namespace gui;

//Menggunakan library irrlicht
#pragma comment(lib, "Irrlicht.lib")

int main()
{

//Menyediakan satu permukaan pada skrin untuk rendering
IrrlichtDevice *device =createDevice(EDT_SOFTWARE, dimension2d<s32>(512, 384), 16,false, false, false, 0);
device->setWindowCaption("Hello Dunia Putera");

//Menentukan resolusi skrin komputer
IVideoDriver* driver = device->getVideoDriver();

//Pengurusan dalam game
ISceneManager* smgr = device->getSceneManager();

//Antaramuka game
IGUIEnvironment* guienv = device->getGUIEnvironment();

//Letak text pada antaramuka iaitu pada guienv
guienv->addStaticText(L"Hello geng putera, jom rock",rect<int>(10,10,200,22), true);


//Menambahkah model ke dalam game
IAnimatedMesh* mesh = smgr->getMesh("../../media/kotak.md2");
IAnimatedMeshSceneNode* node = smgr->addAnimatedMeshSceneNode( mesh );

//Meletakkan texture pada model tadi
if (node)
{    
node->setMaterialFlag(EMF_LIGHTING, false);    
node->setFrameLoop(0, 310);        
node->setMaterialTexture( 0, driver->getTexture("../../media/kotak.bmp") );
}

//meletakkan camera dalam ruangan game, iaitu view player
smgr->addCameraSceneNode(0, vector3df(0,30,-40), vector3df(0,5,0));

// RENDER, lukis apa yang kita dah set ke dalam game
while(device->run()){
driver->beginScene(true, true, SColor(0,200,200,200));
    smgr->drawAll();     //Lukis 3 dimensi game
    guienv->drawAll();   //Lukis paparan 2d game
    driver->endScene();  //Bagitau driver takat tu je, pastu render
}

//Padam
device->drop();
return 0;
}

// Memasukkan model kotak yang kita lukis guna Anima8or atau Blender
scene::IAnimatedMesh* mesh = smgr->getMesh("kotak.3ds");

// Node ini mewakili view model yang hanya player nampak pada skrin
scene::ISceneNode* node = 0;

// Hanya model yang nampak pada skrin di clip kan.... cantas... supaya CPU laju
if (mesh)    node = smgr->addOctTreeSceneNode(mesh->getMesh(0));

// Meletakkan pegerakan FIRST PERSON SHOOTER... simple je.
smgr->addCameraSceneNodeFPS();

// Mouse punye icon dipadamkan.
device->getCursorControl()->setVisible(false);