Cara Membuat Code Debugger di Visual Basic.net

Code debugger adalah sebuah aplikasi yang dirancang untuk mendebug sebuah kode pemrograman sehingga kita dapat mengetahui kesalahan sebuah kode. Aplikasi ini berbentuk seperti text editor yang dilengkapi dengan mesin penerjemah kode yang dapat menjalankan sebuah kode program. Dengan kode debugger ini kita dapat mendebug kode Visual Basic  dan Java Script. Untuk membuat mesinya dibutuhkan sebuah kontrol axscriptcontrol atau msscriptcontrol yang dapat diaktifkan di windows choose items... (klik kanan pada toolbox > Choose items... > COM control)

Choose Items Windows

Setelah itu axscriptcontrol akan muncul di toolbox seperti dibawah ini. Anda perlu mencarinya di Search Toolbox.

Cara membuat aplikasi

1.       Pastikan axscriptcontrol sudah aktif di panel tool box

2.       Anda memerlukan komponen seperti axscriptcontrol, menu, textbox, savedialog,  dan listbox

Letak komponenya bisa diatur sesuai yang anda inginkan. Listbox digunakan untuk menampilkan hasil debug. Pengaturan properti:

a.    Textbox

Multiline  =  true (supaya textboxnya menampilkan banyak baris)

Dock = fill

Scrollbar = vertikal

b.    Listbox

Dock = top

c.    Savedialog

Filter = Text file|*.txt

          Anda sebenarnya bisa mengganti textbox dengan richtext supaya bisa membuatnya lebih Advence. Yang  jelas komponenya harus support variabel string.

3.       Buat menu File dan edit pada menu. Kemudian buat sub menu seperti ini:

File>Run , Save, Close.

Edit>Undo, Language>(Java, Visual Basic), Clear all.

*Cara membuat Shortcut Alt dengan membuat nama diawali dengan karakter “&”, contoh:

File = &File

Undo = &Undo

*Cara menggunakanya dengan menekan alt + F(nama huruf yang digaris bawahi)

*Cara membuat Shortcut langsung dengan mengatur di properties Shortcut

4.       Doubleclick pada sub menu Run dan tuliskan kode berikut:

  Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click

        On Error GoTo errorhandler

        Dim code As String

        code = TextBox1.Text

        AxScriptControl1.AddCode(code)

        Exit Sub

errorhandler:

        ListBox1.Items.Add("Error: " & Err.Description)

    End Sub

*Pada kode  On Error GoTo errorhandler Tersebut digunakan apabila terjadi Error pada kode yang kita buat. Pesan error akan keluar di listbox dengan perincian “Error: “ & deskripsi error . error handler bisa ditukar dengan variabel lain.

*Pada kode Axscriptcontrol1.AddCode(code) tersebut digunakan untuk menambahkan kode yang akan didebug. Apabila kode benar akan mengeluarkan output program. Variabel code merupakan variabel dari textbox .text

5.       Pada baris paling awal buat kode berikut untuk mengimpor system.io:

Imports System.IO

Tujuanya untuk mempermudah mengetikan variable StreamWriter yang berfungsi menyimpan file. Sehingga tidak perlu menuliskan

Dim simpanfile As System.IO.StreamWriter

Bisa dituliskan menjadi

Dim simpanfile As StreamWriter

6.       Buat Variabel berikut ini dibawah Public Class Form1:

   Dim simpanfile As StreamWriter

   Dim namafile As String

*simpanfile untuk menghasilkan file text

*namafile digunakan untuk menunjukan lokasi file disimpan

7.       Tuliskan kode berikut untuk sub menu Save:

  Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

        On Error GoTo errorhandler

        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            namafile = SaveFileDialog1.FileName

            simpanfile = File.CreateText(namafile)

            simpanfile.Write(TextBox1.Text)

            simpanfile.Close()

        End If

        Exit Sub

errorhandler:

        MsgBox("Error ketika menciptakan file")

    End Sub

*Pada kode  On Error GoTo errorhandler Tersebut digunakan apabila terjadi Error pada proses penciptaan file. error handler bisa ditukar dengan variabel lain.

*Pada kode If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then digunakan apabila savedialog muncul dan ditekan OK maka kode dibawahnya akan di eksekusi.

*Pada kode simpanfile = File.CreateText(namafile)  file akan disimpan pada lokasi namafile yang merupakan lokasi pilihan dari savedialog( namafile = SaveFileDialog1.FileName).

*Pada kode simpanfile.Write(TextBox1.Text) isi dari file textnya diambil dari textbox1.text.

*Pada kode simpanfile.Close() merupakan pengakiran dari proses penyimpanan. Jika tidak dibuat maka file yang disimpan tidak akan menyimpan text apapun.

8.       Tuliskan End pada sub menu Close untuk menutup aplikasi.

9.       Tulis Textbox1.Undo pada sub menu Undo untuk membatalkan perubahan.

10.   Tuliskode berikut untuk sub menu Java di sub menu language:

Private Sub JavaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JavaToolStripMenuItem.Click

        AxScriptControl1.Language = "JScript"

        ListBox1.Items.Add("Change to Java Script")

    End Sub

*Pada kode tersebut AxScriptControl1.Language = "JScript" digunakan untuk menukar bahasa compile menjadi Java Script

*Untuk sub menu Visual Basic silakan Language nya ditukar menjadi “VBScript”

11.   Buat kode textbox1.text = “” pada Clear all untuk menghapus semua text

Cara menggunakan code debugger

                Anda yang mengerti bahasa vbscript atau java dapat mencoba menuliskan kode pada Text box nya. Dengan menekan run akan terjadi proses kompilasi kode.

Selain itu bisa juga untuk menghitung

Sebenanya masih banyak yang bisa dilakukan aplikasi satu ini. Anda bisa mengembangkanya sesuai kreasi Anda. Selain itu code debugger ini juga bisa menggunakan Bahasa Java Script dalam mengompiasikanya. Selamat berkreasi!

Output:

Imports System.IO

Public Class Form1

    Dim simpanfile As StreamWriter

    Dim namafile As String

    Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click

        On Error GoTo errorhandler

        Dim code As String

        code = TextBox1.Text

        AxScriptControl1.AddCode(code)

        Exit Sub

errorhandler:

        ListBox1.Items.Add("Error: " & Err.Description)

    End Sub

    Private Sub JavaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JavaToolStripMenuItem.Click

        AxScriptControl1.Language = "JScript"

        ListBox1.Items.Add("Change to Java Script")

    End Sub

    Private Sub VisualBasicToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VisualBasicToolStripMenuItem.Click

        AxScriptControl1.Language = "VBScript"

        ListBox1.Items.Add("Change to Visual Basic Script")

    End Sub

    Private Sub CloseToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem1.Click

        End

    End Sub

    Private Sub ClearAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearAllToolStripMenuItem.Click

        TextBox1.Clear()

    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

        On Error GoTo errorhandler

        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            namafile = SaveFileDialog1.FileName

            simpanfile = File.CreateText(namafile)

            simpanfile.Write(TextBox1.Text)

            simpanfile.Close()

        End If

        Exit Sub

errorhandler:

        MsgBox("Error ketika menciptakan file")

    End Sub

    Private Sub UndoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UndoToolStripMenuItem.Click

        TextBox1.Undo()

    End Sub

End Class

Aplikasi sederhana ini masih perlu pengembangan. Anda bisa mengembangkanya sebagus mungkin.