Deskripsi_Latihan_07_36110054

Cara Membuat Progam/Apliaksi Latihan 07

Dengan Software Microsoft Visual Basic 2008

Langkah 1:
Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah Kedua :

 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	Properties
Form	Text : Latihan_07_36110054
Label	Text : Masukkan Angka
Label	Text : Hasil Perhitungan
Label	Text : Hitung 1
Label	Text : Hitung 2
Label	Text : Hitung 3
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)
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)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)

 

     Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public NotInheritable Class Latihan_07_36110054

  
    Private Sub hitung1_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung1_36110054.Click
        F6_36110054.Text = Val(A1_36110054.Text) + Val(B2_36110054.Text)
        G7_3611054.Text = Val(A1_36110054.Text) + Val(C3_36110054.Text)
        H8_36110054.Text = Val(A1_36110054.Text) + Val(D4_36110054.Text)
        I9_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text)
        J10_36110054.Text = Val(B2_36110054.Text) + Val(C3_36110054.Text)
        K11_36110054.Text = Val(B2_36110054.Text) + Val(D4_36110054.Text)
        M12_36110054.Text = Val(B2_36110054.Text) + Val(E5_36110054.Text)
        N13_36110054.Text = Val(C3_36110054.Text) + Val(D4_36110054.Text)
        O14_36110054.Text = Val(C3_36110054.Text) + Val(E5_36110054.Text)
        P15_36110054.Text = Val(D4_36110054.Text) + Val(E5_36110054.Text)
        Q16_36110054.Text = Val(A1_36110054.Text) - Val(B2_36110054.Text)
        R17_36110054.Text = Val(A1_36110054.Text) - Val(C3_36110054.Text)
        S18_36110054.Text=Val(A1_36110054.Text) - Val(D4_36110054.Text)
        T19_36110054.Text = Val(A1_36110054.Text) - Val(E5_36110054.Text)
        U20_36110054.Text = Val(B2_36110054.Text) - Val(C3_36110054.Text)
        V21_36110054.Text = Val(B2_36110054.Text) - Val(D4_36110054.Text)
        W22_36110054.Text = Val(B2_36110054.Text) - Val(E5_36110054.Text)
        X23_36110054.Text = Val(C3_36110054.Text) - Val(D4_36110054.Text)
        Y24_36110064.Text = Val(C3_36110054.Text) - Val(E5_36110054.Text)
        Z25_36110054.Text = Val(D4_36110054.Text) - Val(E5_36110054.Text)
        H26_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(C3_36110054.Text)
        U20_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(D4_36110054.text)
        H27_36110054.Text= Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(e5_36110054.text)
        H28_36110054.Text = Val(A1_36110054.Text)+ Val(B2_36110054.Text) + Val(C3_36110054.Text)
        H29_36110054.Text = Val(A1_36110054.Text) + Val(B2_36110054.Text) + Val(D4_36110054.Text)
        H30_36110054.Text = Val(A1_36110054.Text) + Val(B2_36110054.Text) + Val(E5_36110054.Text)

    End Sub

    Private Sub hitung2_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung2_36110054.Click
        F6_36110054.Text = Val(A1_36110054.Text) * Val(B2_36110054.Text)
        G7_3611054.Text = Val(A1_36110054.Text) * Val(C3_36110054.Text)
        H8_36110054.Text = Val(A1_36110054.Text) + Val(D4_36110054.Text)
        I9_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text)
        J10_36110054.Text = Val(B2_36110054.Text) + Val(C3_36110054.Text)
        K11_36110054.Text = Val(B2_36110054.Text) + Val(D4_36110054.Text)
        M12_36110054.Text = Val(B2_36110054.Text) + Val(E5_36110054.Text)
        N13_36110054.Text = Val(C3_36110054.Text) + Val(D4_36110054.Text)
        O14_36110054.Text = Val(C3_36110054.Text) + Val(E5_36110054.Text)
        P15_36110054.Text = Val(D4_36110054.Text) + Val(E5_36110054.Text)
        Q16_36110054.Text = Val(A1_36110054.Text) - Val(B2_36110054.Text)
        R17_36110054.Text = Val(A1_36110054.Text) - Val(C3_36110054.Text)
        S18_36110054.Text = Val(A1_36110054.Text) - Val(D4_36110054.Text)
        T19_36110054.Text = Val(A1_36110054.Text) - Val(E5_36110054.Text)
        U20_36110054.Text = Val(B2_36110054.Text) - Val(C3_36110054.Text)
        V21_36110054.Text = Val(B2_36110054.Text) - Val(D4_36110054.Text)
        W22_36110054.Text = Val(B2_36110054.Text) - Val(E5_36110054.Text)
        X23_36110054.Text = Val(C3_36110054.Text) - Val(D4_36110054.Text)
        Y24_36110064.Text = Val(C3_36110054.Text) - Val(E5_36110054.Text)
        Z25_36110054.Text = Val(D4_36110054.Text) - Val(E5_36110054.Text)
        H26_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(C3_36110054.Text)
        U20_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(D4_36110054.Text)
        H27_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(E5_36110054.Text)
        H28_36110054.Text = Val(A1_36110054.Text) + Val(B2_36110054.Text) + Val(C3_36110054.Text)
        H29_36110054.Text = Val(A1_36110054.Text) * Val(B2_36110054.Text) + Val(D4_36110054.Text)
        H30_36110054.Text = Val(A1_36110054.Text) * Val(B2_36110054.Text) + Val(E5_36110054.Text)

    End Sub

    Private Sub hitung3_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hitung3_36110054.Click
        F6_36110054.Text = Val(A1_36110054.Text) / Val(B2_36110054.Text)
        G7_3611054.Text = Val(A1_36110054.Text) / Val(C3_36110054.Text)
        H8_36110054.Text = Val(A1_36110054.Text) + Val(D4_36110054.Text)
        I9_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text)
        J10_36110054.Text = Val(B2_36110054.Text) + Val(C3_36110054.Text)
        K11_36110054.Text = Val(B2_36110054.Text) + Val(D4_36110054.Text)
        M12_36110054.Text = Val(B2_36110054.Text) + Val(E5_36110054.Text)
        N13_36110054.Text = Val(C3_36110054.Text) + Val(D4_36110054.Text)
        O14_36110054.Text = Val(C3_36110054.Text) + Val(E5_36110054.Text)
        P15_36110054.Text = Val(D4_36110054.Text) + Val(E5_36110054.Text)
        Q16_36110054.Text = Val(A1_36110054.Text) - Val(B2_36110054.Text)
        R17_36110054.Text = Val(A1_36110054.Text) - Val(C3_36110054.Text)
        S18_36110054.Text = Val(A1_36110054.Text) - Val(D4_36110054.Text)
        T19_36110054.Text = Val(A1_36110054.Text) - Val(E5_36110054.Text)
        U20_36110054.Text = Val(B2_36110054.Text) - Val(C3_36110054.Text)
        V21_36110054.Text = Val(B2_36110054.Text) - Val(D4_36110054.Text)
        W22_36110054.Text = Val(B2_36110054.Text) - Val(E5_36110054.Text)
        X23_36110054.Text = Val(C3_36110054.Text) - Val(D4_36110054.Text)
        Y24_36110064.Text = Val(C3_36110054.Text) - Val(E5_36110054.Text)
        Z25_36110054.Text = Val(D4_36110054.Text) - Val(E5_36110054.Text)
        H26_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(C3_36110054.Text)
        U20_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(D4_36110054.Text)
        H27_36110054.Text = Val(A1_36110054.Text) + Val(E5_36110054.Text) + Val(E5_36110054.Text)
        H28_36110054.Text = Val(A1_36110054.Text) + Val(B2_36110054.Text) + Val(C3_36110054.Text)
        H29_36110054.Text = Val(A1_36110054.Text) / Val(B2_36110054.Text) + Val(D4_36110054.Text)
        H30_36110054.Text = Val(A1_36110054.Text) / Val(B2_36110054.Text) + Val(E5_36110054.Text)

    End Sub
End Class