LAHIR DI SUMEDANG TANGGAL 20 NOVEMBER 1966 -. PERNAH JADI GURU DI SMP DAN SMK SEJAK TAHUN 1988 SAMPAI TAHUN 2013. PROGRAMMER DI RSU KABUPATEN SUMEDANG - SENANG MEMPELAJARI SOFTWARE 3D ANIMATION
E-Mail wulansoft.computindo@gmail.com Website :http://rsudsumedang.com
Menurut pendapat saya, Guru yang baik bukanlah Guru yang berpendidikan tinggi atau rajin menjual LKS.Tapi Guru yang baik adalah guru yang kreatif dan selalu mencari cara bagaimana proses pendidikan menjadi sangat menyenangkan bagi para siswanya. Tidak dapat disangkal keberhasilan suatu pendidikan diawali dengan suasana yang menyenagkan. Sebelum saya menguraikan bagaimana membuat VRMLViewer dengan ada baiknya mengetahui apa itu VRML ? VRML (virtual reality modeling language) Menupakan suatu bahasa komputer untuk membuat model objek 3 dimensi dalam dunia virtual. Prinsip yanh digunakanoleh VRML adalah OP (object oriented programmating) atau bahasa pemrograman yang berbasis oriented object . Vrml juga dapat digunakan untuk membuat modeling object yang bergerak. Walau sebelumnya diperkirakan akan mati, tapi ternyata makin banyak aplikasi lain yang mengintegrasikan dukungan format file VRML. Sebelum membuat aplikasi ini harus memiliki Active X yang bernama  blaxxuncc3d.ocx  yang bisa didiwnload DI SINI. Active X lain yang diperlukan adalah Microsoft Common Dialog (comdlg32.ocx).
1377573367351032318
kemudian kita susun kontrol sebagai berikut
1377573515296433241
Text1,text visiblenya di set menjadi False. Supaya tidak terlalu panjang saya namakan kontrol Commondialog1 menjadi CD dan blaxxunCC3D1 saya namakan B3D. Adapun listring programnya sebagai berikut Public Function ReadFile(strPath As String) As Variant Dim iFileNumber As Integer Dim blnOpen   As Boolean iFileNumber = FreeFile Open strPath For Input As #iFileNumber blnOpen = True ReadFile = Input(LOF(iFileNumber), iFileNumber)eHandler: If blnOpen Then Close #iFileNumberEnd FunctionPrivate Sub Command1_Click() On Error Resume Next CD.Filter = "VRML File (*.wrl)|*.wrl" CD.InitDir = App.Path & "wrl" CD.ShowOpen Text1.Text = CD.FileTitle Dim ks As Integer If Text1.Text = "" Then Exit Sub ks = 1 Dim iuyt As String iuyt = ReadFile(CD.FileName) B3D.url = CD.FileName Dim butt As Variant Set butt = B3D.createVrmlFromString(iuyt) B3D.addNode buttEnd SubPrivate Sub Command2_Click() B3D.navigationMode = "EXAMINE"End SubPrivate Sub Command3_Click() B3D.navigationMode = "JUMP"End SubPrivate Sub Command4_Click() B3D.headlight = TrueEnd SubPrivate Sub Command5_Click() B3D.headlight = FalseEnd SubPrivate Sub Command6_Click() EndEnd SubPrivate Sub Form_Load() B3D.Top = 0 B3D.Left = 0 B3D.Width = Me.Width B3D.Height = Me.Height - Picture1.HeightEnd SubPrivate Sub Form_Resize() On Error Resume Next B3D.Top = 0 B3D.Left = 0 B3D.Width = Me.Width B3D.Height = Me.Height - Picture1.HeightEnd Sub dan hasilnya adalah sebagai berikut