Mohon tunggu...
Wawan Supriadi
Wawan Supriadi Mohon Tunggu... lainnya -

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

Selanjutnya

Tutup

Pendidikan

Membuat VRML Viewer dengan VB6

27 Agustus 2013   11:36 Diperbarui: 24 Juni 2015   08:45 238
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.

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
1377573367351032318
kemudian kita susun kontrol sebagai berikut
1377573515296433241
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

Baca konten-konten menarik Kompasiana langsung dari smartphone kamu. Follow channel WhatsApp Kompasiana sekarang di sini: https://whatsapp.com/channel/0029VaYjYaL4Spk7WflFYJ2H

Mohon tunggu...

Lihat Konten Pendidikan Selengkapnya
Lihat Pendidikan Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun