Membuat Aplikasi Petisi

Kali ini saya akan menjelaskan cara membuat aplikasi sederhana yang berguna untuk membuat petisi. Jadi nanti pengguna bisa memilih mau membuat petisi baru, atau mau membuka petisinya yang sudah mereka buat. Mungkin memang aplikasi yang saya buat ini tidak kompleks dan agak melenceng dari materi yang baru diajarkan (karena ini tugas UAS :) ), tapi lumayan untuk memperluas pengetahuan.

Oke, jadi pertama saya menggunakan Microsoft Visual Studio 2010, lalu buatlah project baru yang berbasis bahasa Visual Basic.

Buatlah 2 form lain sebagai tempat loncatnya nanti.

Setelah itu masukkan komponen berikut ke form1, 2 radiobutton, dan 1 button:

Ganti namanya terserah anda, lewat properti text yang sudah saya blok di gambar.

Sekarang kita lanjut ke form 2. Di form ini, pengguna bisa membuat petisinya sendiri dan nanti akan tersimpan di desktop. Masukkanlah komponen-komponen berikut kedalam form2, 1 label, 1 richtextbox, dan 1 button :

Ganti nama button terserah anda.

Sekarang kita akan mendesain form3. Di form ini, pengguna bisa membuka petisi yang sudah pernah mereka tulis, dan bisa diedit kembali disini. Masukkanlah komponen-komponen berikut kedalam form3, 2 button, 1 richtextbox, dan 1 textbox, dan 1 openfiledialog :

Ganti nama button terserah anda.

Sekarang kita masuk ke coding. Pertama - tama kita berikan kode berikut pada button di form 1 dengan cara mengklik 2 kali di button tersebut, fdan masukkan kode berikut :

If RadioButton1.Checked Then

            Form2.Show()

        ElseIf RadioButton2.Checked Then

            Form3.Show()

        End If

Maksud dari kode ini adalah, saat kita memilih radiobutton “Buat Petisi Baru”, dan mengklik button LANJUTKAN, maka nanti akan terbuka form2. Pada saat kita memilih radiobutton “Buka Dan Edit Petisi Lama”, maka akan terbuka form3.

Sekarang kita akan mengcoding form2. Caranya adalah, masukkan kode berikut pada button “Buat Petisi Baru” :

Dim FileWriter As New System.IO.StreamWriter("C:\Users\user\Desktop\Petisi.txt")

        FileWriter.WriteLine(RichTextBox1.Text)

        FileWriter.Close()

Dan tambahkan juga Imports System.IO . Untuk penempatannya, bisa dilihat digambar berikut :

Maksud dari koding tersebut adalah, setelah pengguna menulis sendiri petisi mereka, maka nanti petisinya akan tersimpan di desktop dengan nama “Petisi.txt”.

Selanjutnya kita akan mengcoding form3. Caranya adalah, pertama,  masukkan kode berikut pada button “Buka File”:

OpenFileDialog1.Filter = "Text.files |*.txt|Document File|*.Doc"

        OpenFileDialog1.DefaultExt = "*.txt"

        OpenFileDialog1.ShowDialog()

        TextBox1.Text = OpenFileDialog1.FileName

        Dim noFile As Integer

        noFile = FreeFile()

        FileOpen(noFile, TextBox1.Text, OpenMode.Input)

        RichTextBox1.Text = InputString(noFile, LOF(noFile))

        FileClose(noFile)

Lalu masukkan kode berikut pada button “Simpan Petisi” :

On Error GoTo salah

        Dim noFile As Short

        noFile = FreeFile()

        FileOpen(noFile, TextBox1.Text, OpenMode.Output)

        PrintLine(noFile, RichTextBox1.Text)

        FileClose(noFile)

        MsgBox("Petisi Anda Telah Disimpan")

salah:

        MsgBox("Apakah File Anda Read-Only?")

Nah Sekarang Tinggal kita debug program tadi, hasilnya akan seperti ini :