MEMBUAT RUMUS SEGITIGA DAN VOLUME BALOK

BELAJAR PEMROGRAMAN DASAR VISUAL BASIC/STUDIO 2010

                Berikut ini saya akan membuat sebuah aplikasi yang sangat dasar/sederhana menggunakan Visual basic/Studio 2010 yaitu “MEMBUAT RUMUS SEGITIGA DAN VOLUME BALOK”.

Assalamualaikum War.Wab

Sebelum kita mulai membuat TUTORIALNYA, akan lebih barokahnya apabila kita memulai dengan membaca Bismillahirrohmaanirrohiimm.

Langkah pertama membuka aplikasi Visual Studio 2010. Klik Dua Kali Icon VB 2010 pada  desktop.

Contoh:

Atau bisa melalui start                     All Program                       Microsoft Visual Studio 2010

Contoh:

Langkah kedua. Sebelum masuk kedalam VB 2010 maka akan tampil gambar seperti dibawah ini kemudian pilih pada menu “New Project...”

Setelah menekan New Project... maka akan tampil tampilan seperti gambar dibawah ini, kemudian klik/tekan OK

Setelah anda masuk kedalam VB 2010 maka tampilannya akan seperti ini, disana akan ada tampilan Form1 yang berfungsi untuk tempat memasukkan menu yang digunakan pada toolbox, jika toolbox pada layar tidak tampil dan hanya properties saja yang tampil maka ketik pada keyboard anda “Ctrl+Alt+ X

Jika ingin mengganti nama “form1” bisa anda melakukannya dengan mengganti dari properties dengan menggantinya dalam menu “text” dan anda bisa melakukannya dengan menggunakan “koding” agar lebih pasih dalam menggunakan rumus pada VB 2010.

CARANYA dengan mengklik dua kali pada “form1” yang kosong tersebut kemudian ketik rumus atau formulanya.

Dan anda bisa memperbesar lembar kerja/”form1” dengan mengarahkan kursor kearah pojok dari “form1” dan menariknya lebih besar.

Cara mengubah nama “form1” menggunakan nama lain seperti “Hitungan” adalah:

Masukkan rumus ditengah-tengah antara “private sub” dengan “End Sub” seperti dibawah ini:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Hitungan"       Koding yang benar.

End Sub

Lalu Masukan Koding Seperti Dibawah Ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "hitungan"

        Me.BackColor = Color.PaleGreen

        Label1.Text = "RUMUS HITUNGAN"

        Label1.ForeColor = Color.Maroon

        GroupBox1.Text = "luas segitiga"

        Label2.Text = "alas"

        Label2.ForeColor = Color.OrangeRed

        Label3.Text = "tinggi"

        Label3.ForeColor = Color.OrangeRed

        Label4.Text = "hasil"

        Label4.ForeColor = Color.OrangeRed

        Button1.Text = "proses"

        Button2.Text = "remove"

        GroupBox2.Text = "volume balok"

        Label5.Text = "panjang"

        Label5.ForeColor = Color.OrangeRed

        Label6.Text = "lebar"

        Label6.ForeColor = Color.OrangeRed

        Label7.Text = "tinggi"

        Label7.ForeColor = Color.OrangeRed

        Label8.Text = "hasil"

        Label8.ForeColor = Color.Aquamarine

        Button3.Text = "proses"

        Button4.Text = "remove"

        Button5.Text = "keluar"

    End Sub

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

        TextBox3.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) / 2

    End Sub

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

        TextBox7.Text = Val(TextBox4.Text) * Val(TextBox5.Text) * Val(TextBox6.Text)

    End Sub

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

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Me.Close()

    End Sub

End Class

Setelah Itu Lalu RUN Atau F5 Maka Hasilnya Akan Seperti Dibawah Ini:

Kemudian Masukan Nilai Pada TextBox Yang Telah Dibuat Misalnya Seperti Dibawah Ini:

Simpan Program Dengan Mengklik Save All.

Sekian tutorial dari saya, semoga bermanfaat bagi kita semua.

Terima Kasih,Wassalamualaikum War.Wab

“SELAMAT MENCOBA”

GOOD LUCK

MASUJAM

14.MI.089