Membuat VRML Viewer dengan VB6

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 VRML Viewer 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 #iFileNumber End Function Private 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 butt End Sub Private Sub Command2_Click() B3D.navigationMode = "EXAMINE" End Sub Private Sub Command3_Click() B3D.navigationMode = "JUMP" End Sub Private Sub Command4_Click() B3D.headlight = True End Sub Private Sub Command5_Click() B3D.headlight = False End Sub Private Sub Command6_Click() End End Sub Private Sub Form_Load() B3D.Top = 0 B3D.Left = 0 B3D.Width = Me.Width B3D.Height = Me.Height - Picture1.Height End Sub Private Sub Form_Resize() On Error Resume Next B3D.Top = 0 B3D.Left = 0 B3D.Width = Me.Width B3D.Height = Me.Height - Picture1.Height End Sub dan hasilnya adalah sebagai berikut