Pertemuan 3, 23 Februari 2015 : Membuat Aplikasi Penanggalan Sederhana Menggunakan Visual Basic 2010

Terdapat 2 Project Yaitu :

1. Program menghitung jarak yang bisa dicapai / Tankinya

2. Program menghitung penghasilan ticket

Program menghitung jarak yang bisa dicapai / Tankinya

 

Form1 terdiri dari 9 toolbox antara lain :

1.      Label 1 = Full Tank(Liter)

2.      Label 2=Jarak yang bias dicapai(km)

3.      Label 3 = Km/Liter

4.      TextBox1 =  txtBensin

5.      TextBox2 = txtJarak

6.      TextBox3 = txtHasil

7.      Button1 = Hasil ( untuk Namenya btnHasil )

8.      Button2 = Clear ( untuk Namenya btnClear )

9.      Button3= Exit ( untuk Namenya btnExit )

Keterangan : TextBox3 kenapa bisa seperti itu bentuknya, cari tulisan ReadOnly di tab properties ganti menjadi “ TRUE “.

NB : Untuk mengedit  seperti gambar di bawah ini terdapat di tab properties terdapat di pojok kanan bawa

Source Codenya :

Public Class Form1

    Private Sub btnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click

        txtHasil.Text = txtBensin.Text / txtJarak.Text

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txtBensin.Text = ""

        txtJarak.Text = ""

        txtHasil.Text = ""

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        End

    End Sub

End Class

Program Menghitung Penghasilan Ticket

Form2 terdiri dari 25 ToolBox :

1. GroupBox1 = Ticket
2. GroupBox2 = Penghasilan
3. Button1 = Textnya Hasil dan Namenya btnHasil
4. Button2 = Textnya Clear dan Namenya btnClear
5. Button3 = Textnya Exit dan Namenya btnExit

Didalam GroupBox1 terdiri 10 ToolBox:

1. Label 1 =  Class A(Ubah Textnya)
2. Label 2 = Class B(Ubah Textnya)
3. Label 3 = Class C(Ubah Textnya)
4. Label 4 = Class D(Ubah Textnya)
5. Label 5 = Total Kursi( Ubah Textnya)
6. TextBox 1 = txt1(Ubah Namenya)
7. TextBox 2 = txt2(Ubah Namenya)
8. TextBox 3 = txt3(Ubah Namenya)
9. TextBox 4 = txt4(Ubah Namenya)
10. TextBox 5 = txtTotal(Ubah Namenya)

Didalam GroupBox2 Terdiri 10 ToolBox :

1. Label 6 =  Class A(Ubah Textnya)
2. Label 7 = Class B(Ubah Textnya)
3. Label 8 = Class C(Ubah Textnya)
4. Label 9 = Class D( Ubah Textnya)
5. Label 10 = Total Penghasilan(Ubah Textnya)
6. TextBox 6 = txt6(Ubah Namenya)
7. TextBox 7 = txt7(Ubah Namenya)
8. TextBox 8 = txt8(Ubah Namenya)
9. TextBox 9 = txt9(Ubah Namenya)
10. TextBox 10 = txtPenghasilan(Ubah Namenya)

Source Codenya :

Public Class Form2

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        txt6.Text = Val(txt1.Text) * 500

        txt7.Text = Val(txt2.Text) * 250

        txt8.Text = Val(txt3.Text) * 150

        txt9.Text = Val(txt4.Text) * 100

        txtTotal.Text = Val(txt1.Text) + Val(txt2.Text) + Val(txt3.Text) + Val(txt4.Text)

        txtPenghasilan.Text = Val(txt6.Text) + Val(txt7.Text) + Val(txt8.Text) + Val(txt9.Text)

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        txt1.Text = ""

        txt2.Text = ""

        txt3.Text = ""

        txt4.Text = ""

        txt6.Text = ""

        txt7.Text = ""

        txt8.Text = ""

        txt9.Text = ""

        txtPenghasilan.Text = ""

        txtTotal.Text = ""

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

End Class