Assalamualaikum Wr. Wb
Selamat datang di A.R.T, kita masih membahas bagaimana membuat Interface di ARToolkit dengan Visual Basic 6.0. saya berasumsi kalian sudah berhasil mengikuti tutorial Sebelumnya DISINI. jika belum mengikuti tutorial sebelumnya, saya wajibkan dan harus untuk membaca tutorial sebelumnya, agar paham dan mengerti konsep awal programnya.
Tutorial 3: Setting Model Data
- Oke.. di tutorial sebelumnya kita sudah mengcompile ulang simpleVRML, sehingga memiliki dua model file, yaitu object_data_vrml_1 dan object_data_vrml_2, seperti gambar dibawah ini:
 |
| Gambar 1. Model Data |
- selanjutnya, buka object_data_vrml_1 dan object_data_vrml_2 dengan wordpad atau notepad++, lalu isikan model tersebut objek 3D yang mau di render di ARToolkit. contohnya seperti di gambar berikut:
 | ||
| Gambar 2. Model untuk object_data_vrml_1 |
 |
| Gambar 2. Model untuk object_data_vrml_2 |
- nah jika sudah siap model yang dirender, maka selanjutnya tinggal kita buat Interfacenya, dengan visual basic 6.0 .. get ready..
Tutorial 4: Membuat Interface dengan Visual Basic 6.0
pada dasarnya, interface ini sangatlah sederhana. tapi bisa menjadi bahan acuan dan referensi kalian juga ide segar untuk membuat dan mengembangkan Interface ARToolkit, yang hanya dibutuhkan kemauan dan kreatifitas untuk membuatnya. oke, langsung saja tutorialnya:
- Buka Visual Basic 6.0
- Pilih Standard Exe, maka akan keluar layar form Baru
 |
| Gambar 1. Standard Exe |
- selanjutnya, rubah bentuk form agar panjang lurus vertical. seperti gambar 2.
 |
| Gambar 2. Layar Form |
- next, kita buat tombol command 1, command 2 dan command 3 dengan menu command button di menu bagian sebelah kanan. ingat, jangan copy-paste tombol command button, dibuat satu per-satu.
 |
| Gambar 3. Command Button |
- selanjutnya, kita coding command button supaya memanggil AR kita. double klik tombol command 1, sehingga keluar layar coding. kemudian kettikan coding dibawah ini, jika sudah selesai klik CLOSE. coding dibawah untuk memanggil AR mobil.exe
Private Sub Command1_Click()
patok = Shell("mobil.exe", vbNormalFocus)
End Sub
 |
| Gambar 4. Source Code Command 1 |
- lanjut di command 2. double klik dan masukkan source code dibawah ini. coding dibawah untuk memanggil AR mobil2.exe
Private Sub Command1_Click()
patok = Shell("mobil2.exe", vbNormalFocus)
End Sub
 |
| Gambar 5. Source Code Command 2 |
- terakhir untuk button 3 digunakan untuk keluar dari program
Private Sub Command1_Click()
Unload Me
End Sub
 |
| Gambar 6. Source Code Command 3 |
- source code sudah jadi sekarang kita tinggal merubah tulisan di button. caranya, kamu lihat di menu sebelah kanan bawah visual basic, cari menu namanya caption, kemudian rubah namanya sesuai dengan kehendak kalian.
 |
| Gambar 7. Caption |
- nah selesai, sekarang tinggal kita jadikan executable. klik file kemudian pilih make project1.exe .. lalu simpan di ARToolkit/Bin/ .. dengan nama sesuka kalian.
 |
| Gambar 8. Make Project |
 |
| Gambar 9. Simpan |
- beres.. sekarang tinggal dijalankan, apakah berhasil atau tidak. selamat mencoba dan semoga berhasil. sekali lagi, ini adalah contoh interface sederhana, silahkan kalian gunakan dasar ini untuk pengembangan interface selanjutnya.
 |
| Gambar 10. Interface |
Sekian tutorial ini, untuk mendownload project visual basic-nya.. klik DISINI. dan untuk melihat contoh Interface AR lainnya klik DISINI. selamat mencoba dan semoga berhasil.
List Tutorial:
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
