Aplikasi Perhitungan Nilai Di Visual Basic [Pertemuan: IV]

Ass.Wr.Wb, kali ini saya akan membuat sebuah aplikasi Perhitungan Nilai Mahasiswa menggunakan Visual Basic 2010

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

2. Design interface program yang akan kita buat menjadi seperti ini. Lihat gambar

3. Beberapa komponen toolbox yang dibutuhkan, antara lain :

2 Buah GroupBox
- GroupBox 1 : Text : Tiket
- GroupBox 2 : Text : Penghasilan
10 Buah Label
- Label 1 : Text : Class A
- Label 2 : Text : Class B
- Label 3 : Text : Class C
- Label 4 : Text : Class D
- Label 5 : Text : Total Kursi
- Label 6 : Text : Class A
- Label 7 : Text : Class B
- Label 8 : Text : Class C
- Label 9 : Text : Class D
- Label 10 : Text : Class Total Penghasilan
10 Buah TextBox
- TextBox1 : (Name) : TextBox1
- TextBox2 : (Name) : TextBox2
- TextBox3 : (Name) : TextBox3
- TextBox4 : (Name) : TextBox4
- TextBox5 : (Name) : TextBox5
- TextBox6 : (Name) : TextBox6 | ReadOnly : True
- TextBox7 : (Name) : TextBox7 | ReadOnly : True
- TextBox8 : (Name) : TextBox8 | ReadOnly : True
- TextBox9 : (Name) : TextBox9 | ReadOnly : True
- TextBox10 : (Name) :TextBox10 | ReadOnly : True
3 3 Buah Button
- Button 1 : Text : Hitung
- Button 2 : Text : Clear
- Button 3 : Text : Exit

4. Klik 2X pada Button1, lalu isikan koding seperti berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A, B, C, D As Integer
       
        A = TextBox1.Text
        B = TextBox2.Text
        C = TextBox3.Text
        D = TextBox4.Text

        TextBox10.Text = TextBox1.Text * 100000
        TextBox9.Text = TextBox2.Text * 80000
        TextBox8.Text = TextBox3.Text * 60000
        TextBox7.Text = TextBox4.Text * 40000
        TextBox5.Text = A + B + C + D
        TextBox6.Text = A * 100000 + B * 80000 + C * 60000 + D * 40000

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
End Sub

5. Klik 2X pada Button3, lalu isikan koding seperti berikut :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
End Sub

6. Klik 2X pada Button3, lalu isikan koding seperti berikut :

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

7. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.

Selesai dan terima kasih.

Monday, 2 March 2015

Aplikasi Perhitungan Nilai Di Visual Basic [Pertemuan: IV]