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 :

Aplikasi Lelang Virtual

Untuk tujuan tugas UTS, kali ini penulis akan menjelaskan cara membuat lelang secara virtual. Anda pasti pernah melihat proses pelelangan bukan? Nah, kali ini penulis terinspirasi dari proses pelelangan tersebut akan membuat aplikasi lelang secara virtual. Disini penulis menggunakan Visual Studio 2010. Pertama - tama anda buat dulu project baru berbasis visual basic. Setelah itu masukkan komponen - komponen berikut, dan sesuaikan namanya supaya tidak error setelah anda copy paste.

KOMPONEN	TEXT	NAMA
Form	LELANG VIRTUAL	Form1
PictureBox		PictureBox1
GroupBox	Hitung Mundur	GroupBox1
Label	-	DetikLabel
Button	Cari Gambar	TombolGambar
TextBox		HargaTextBox
Button	Buka Harga	TombolBuka
Button	Rp. 500.000	TombolGope
Button	Rp. 1.000.000	TombolSatuJt
Button	Rp. 2.000.000	TombolDuaJt
Button	Rp. 5.000.000	TombolLimaJt
Button	Rp. 10.000.000	TombolSepuluhJt

Atur SizeMode PictureBox-nya jadi StretchImage dan atur TextAlign TextBox-nya jadi Center. Setelah itu anda false-kan status Enabled dari komponen HargaTextBox, TombolBuka, TombolGope,  TombolSatuJt,  TombolDuaJt,  TombolLimaJt,  dan TombolSepuluhJt.

Sekarang kita masuk ke koding. Klik dua kali tombol Cari Gambar, sekarang kita buat tombol ini untuk mencari sumber gambar yang anda inginkan dan ekstensi gambar yang anda inginkan.  Selanjutnya anda masukkan kode berikut ini :

Private Sub TombolGambar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolGambar.Click

        OpenFileDialog1.Filter = "All Files|*.*|Image Files|*.jpg;*.gif;*.png;*.bmp;*.tiff"

        OpenFileDialog1.ShowDialog()

        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

        HargaTextBox.Enabled = True

        TombolBuka.Enabled = True

End Sub

Setelah itu  anda klik dua kali tombol Buka Harga, sekarang kita buat tombol ini saat di klik akan mengaktifkan timer dan tombol - tombol dibawahnya kecuali kalau harganya belum dipasang. Caranya, anda masukkan kode berikut ini :

Private Sub TombolBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolBuka.Click

        If HargaTextBox.Text = "" Then

            TombolGope.Enabled = False

            TombolSatuJt.Enabled = False

            TombolDuaJt.Enabled = False

            TombolLimaJt.Enabled = False

            TombolSepuluhJt.Enabled = False

        Else

            TombolGope.Enabled = True

            TombolSatuJt.Enabled = True

            TombolDuaJt.Enabled = True

            TombolLimaJt.Enabled = True

            TombolSepuluhJt.Enabled = True

            DetikLabel.Text = "15"

            Timer1.Enabled = True

        End If

    End Sub

Sekarang kita atur tombol Rp. 500.000 supaya bisa mengembalikan timer ke 15 detik dan menambah 500.000 ke harga yang dipasang. Caranya, anda masukkan kode berikut ini :

Private Sub TombolGope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolGope.Click

        HargaTextBox.Text = Val(HargaTextBox.Text) + 500000

        DetikLabel.Text = "15"

    End Sub

Untuk tombol menaikkan harga yang lain juga sebenarnya sama prinsip kerjanya. Anda hanya perlu mengganti angka 500000 menjadi 1000000, 2000000, 5000000, dan 10000000. Untuk contoh penulis tampilkan kode dari tombol Rp.  10.000.000 :

Private Sub TombolGope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolGope.Click

        HargaTextBox.Text = Val(HargaTextBox.Text) + 10000000

        DetikLabel.Text = "15"

    End Sub

Selanjutnya kita masuk ke koding timer-nya. Disini timer-nya kita set akan muncul di Label1 dan saat mencapai angka 0 maka barang kita anggap sudah terjual pada Bidder (penulis tidak tahu bahasa Indonesianya) terakhir yang memasang harga. Caranya, klik dua kali pada komponen timer lalu masukkan kode berikut :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Interval = 1000

        DetikLabel.Text = DetikLabel.Text - 1

        If DetikLabel.Text = "0" Then

            Timer1.Enabled = False

            MsgBox("Barang Telah Terjual")

        End If

    End Sub

Setelah selesai saatnya kita test program ini....

(TUTORIAL) CARA MEMBUAT APLIKASI PENGHITUNG LUAS TRAPESIUM

Kali ini saya akan menjelaskan tentang cara membuat aplikasi penghitung luas trapesium dengan menggunakan Visual Studio 2010 berbasis Visual Basic.



Pertama – tama buatlah project baru dengan mengklik File>New>Project dan masukkanlah komponen – komponen berikut ini melalui Toolbox.

Setelah itu gantilah nama (Text) dari label dan button yang sudah dibuat tadi.

Sekarang kita masuk ke tahap Coding. Pertama kita mulai dulu dari bagian yang mudah, yaitu KOSONGKAN. Klik dua kali di Button KOSONGKAN dan tulislah kode berikut :

Setelah itu klik dua kali Button HITUNG dan masukkan kode berikut (yang di blok) :

Setelah itu coba di Debug atau tekan F5