Membuat Form "Deret Aritmatika" pada Visual Studio 2008

Langkah-langkah membuat perhitungan fungsi deret aritmatika dengan menggunakan Visual Studio 2008:


1. Buka aplikasi Microsoft Visual Studio 2008.

2. Click "Create Project" lalu pilih "Windows Form Application" 

3. Setelah itu akan muncul Blank Form seperti berikut:

4. Setelah Blank Form muncul maka kita sudah dapat mengerjakan project. Saat ini saya akan membuat perhitungan fungsi aritmatika "Deret Aritmatika". Untuk mencari Jumlah Deret Aritmatika kita membutuhkan "a" sebagai suku pertama, "b" sebagai beda suku, "n" sebagai banyaknya suku, dan "Sn" sebagai Jumlah suku pertama Deret Aritmatika. Maka saya membuat 4 buah TextBox dan 3 buah Button untuk membuat Button Mulai, Hitung dan Selesai. Dengan cara men-drag TextBox dan Button dari ToolBox. Dan men-drag Label untuk memberi keterangan isi dari tiap TextBox. Setelah semua sudah di drag, maka akan tampilannya akan berubah seperti ini:

Lalu ubah Text dan Name dari Label, Textbox, dan Button pada bagian Properties.

Setelah Text dan Name diganti, maka tampilan Form akan menjadi seperti ini:

Lalu fungsikan Button Mulai, Hitung dan Selesai dengan cara membuat coding per Button. Klik kiri Button tersebut 2x lalu codingan per Button seperti ini:

6. setelah itu ketik F5 pada keyboard untuk men-debug hasil dari coding tersebut. Masukkan angka percobaan pada Form yang telah di buat. Misalnya a=1, b=2, n=10

setelah klik Hitung akan terlihat hasilnya adalah 100 seperti ini:

dan apabila kita klik Button Mulai, maka data tersebut akan terhapus dengan sendirinya seperti ini:

lalu apa bila Button Selesai di klik, maka akan muncul Message Box seperti ini:

apabila Button No di klik, maka akan kembali ke form. Tapi jika Button Yes di klik, maka form akan tertutup dengan sendirinya.




Sekian penjelasan dari saya apabila ada penjelasan yang salah atau yang lainnya silahkan isi comment.
Terima Kasih :)




Nb: Untuk membuat aplikasi seperti diatas gunakan source code sebagai berikut:

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'Deret Aritmatika

        TextSn.Text = Textn.Text / 2 * (2 * Texta.Text + (Textn.Text - 1) * Textb.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Texta.Text = "" 'menghapus suku pertama sebelumnya

        Textb.Text = "" 'menghapus beda suku sebelumnya

        Textn.Text = "" 'menghapus banyaknya suku sebelumnya

        TextSn.Text = "" 'menghpus jumlah deret pertamas sebelumnya

        Texta.Focus() 'memindahkan kursor ke TextBox a

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim y As Integer

        y = MsgBox("Yakin ingin keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")

        If y = vbYes Then

            Me.Close()

        End If
    End Sub
End Class