Deksripsi_Latihan_06_36110054

Cara Membuat Progam/Apliaksi Latihan 06

Dengan Software Microsoft Visual Basic 2008

Langkah 1 :

 Buka Aplikasi Visual Basic 2008/Visual Studio 2008

 

 Langkah 2 : 

Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

    Langkah Ke 3 : 

Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_06_36110054
Label	Text : Makanan Khas Makassar
Label	Text : Makanan
Label	Text : Harga
Label	Text : Qty
Label	Text : Jumlah
Checkbox	Text : Coto
Checkbox	Text : Pallubasa
Checkbox	Text : Sopkonro
Checkbox	Text : Sopsaudara
Checkbox	Text : Konro Bakar
Checkbox	Text : Ulu Juku’
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Label	Text : Total
Label	Text : Jumlah Bersih
RadioButton	Text : Pot. Member
RadioButton	Text : Non-Member
Button	Text : Exit

Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form  

Public NotInheritable Class Latihan_06_36110054

    Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        c_36110054.Text = 6000


    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        p_36110054.Text = 10000


    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        sk_36110054.Text = 7000
       
    End Sub

    Private Sub CheckBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox4.Click

        ss_36110054.Text = 6000
      
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        kb_36110054.Text = 15000

    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        uj_36110054.Text = 12000

    End Sub

    Private Sub Qc_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Qc_36110054.TextChanged
        COTO_36110054.Text = Val(c_36110054.Text) * Val(Qc_36110054.Text)


    End Sub

    Private Sub Qp_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Qp_36110054.TextChanged
        PALLUBASA_36110054.Text = Val(p_36110054.Text) * Val(Qp_36110054.Text)


    End Sub



    Private Sub Qsk_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Qsk_36110054.TextChanged
        sopkonro_36110054.Text = Val(sk_36110054.Text) * Val(Qsk_36110054.Text)
       
    End Sub

    Private Sub Qss_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Qss_36110054.TextChanged
        sopsaudara_36110054.Text = Val(ss_36110054.Text) * Val(Qss_36110054.Text)

    End Sub

    Private Sub QKb_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles QKb_36110054.TextChanged
        konrobakar_36110054.Text = Val(kb_36110054.Text) * Val(QKb_36110054.Text)

    End Sub

    Private Sub Quj_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Quj_36110054.TextChanged
        ulujuku_36110054.Text = Val(uj_36110054.Text) * Val(Quj_36110054.Text)

    End Sub


    Private Sub COTO_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles COTO_36110054.TextChanged, PALLUBASA_36110054.TextChanged, sopkonro_36110054.TextChanged, sopsaudara_36110054.TextChanged, konrobakar_36110054.TextChanged, ulujuku_36110054.TextChanged

        total_36110054.Text = Val(COTO_36110054.Text) + Val(PALLUBASA_36110054.Text) + Val(sopkonro_36110054.Text) + Val(sopsaudara_36110054.Text) + Val(konrobakar_36110054.Text) + Val(ulujuku_36110054.Text)

    End Sub


    Private Sub member_36110054_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles member_36110054.CheckedChanged
        pot_36110054.Text = Val(total_36110054.Text * 10 / 100)
        jb_36110054.Text = Val(total_36110054.Text) - Val(pot_36110054.Text)
        jb_36110054.Text = FormatCurrency(jb_36110054.Text, 2)


    End Sub

    Private Sub nonmember_36110054_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nonmember_36110054.CheckedChanged
        pot_36110054.Text = 0
        jb_36110054.Text = Val(total_36110054.Text) - Val(pot_36110054.Text)
        jb_36110054.Text = FormatCurrency(jb_36110054.Text, 2)

    End Sub


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