Latihan_07_46110024

DESKRIPSI FORM LATIHAN 7

Form latihan 7 terdapat tiga object yaitu label, textbox, dan button 

Object Label

Terdapat  dua  label ( yang bertuliskan Masukkan Anggka dan Hasil Perhitungan)

Object  Textbox

Terdapat tiga puluh textbox (lima berstatus input digunakan untuk memasukkan angka sedangkan dua puluh lima berstatus readonly digunakan untuk hasil perhitungan yang rumusnya dibuat sendiri)

Object Button

Terdapat tiga button yang bertuliskan hitung1, hitung2, dan hitung3 digunakan untuk menampilkan hasil perhitungan. dimana rumus dari ketiga tombol itu memiliki kesamaan kecuali pada textbox ke 1,2,24 dan 25 yang berstatus ReadOnly

 Script Unique

Private sub abc()

Scrip ini digunakan sebagai prosedur yang dapat digunakan setiap saat fungsi itu ingin digunakan tanpa mengulangi rumus yang sama yang ada dalam prosedur tersebut

Even

ButtenClick

Property

Property Textbox --> Readonl = True

Langkah-Langkah Membuat form 7

1.    Buka File Microsoft Visual Studio Anda  lalu pilih project, Add windows form 

2.   Ganti nama sesuai dengan nama latihan anda ingingkan

3.   Lalu pilih object yang ada di latihan 7 yaitu label,textbox dan button

 

4.  Buat form sampai menghasilkan form seperti dibawah

5. Pilih menu view, click code

6. Masukkan scrift seperti berikut
Public Class Latihan_07_46110024

    Private Sub abc()
        t3_46110024.Text = Val(angka3_46110024.Text) * Val(angka4_46110024.Text)
        t4_46110024.Text = Val(angka4_46110024.Text) + Val(angka1_46110024.Text)
        t5_46110024.Text = Val(angka1_46110024.Text) - Val(angka4_46110024.Text)
        t6_46110024.Text = Val(angka5_46110024.Text) / Val(angka2_46110024.Text)
        t7_46110024.Text = Val(angka2_46110024.Text) - Val(angka4_46110024.Text)
        t8_46110024.Text = Val(angka2_46110024.Text) * Val(angka5_46110024.Text)
        t9_46110024.Text = Val(angka4_46110024.Text) + Val(angka5_46110024.Text)
        t10_46110024.Text = Val(angka5_46110024.Text) / Val(angka3_46110024.Text)
        t11_46110024.Text = Val(angka3_46110024.Text) * Val(angka1_46110024.Text)
        t12_46110024.Text = Val(angka1_46110024.Text) + Val(angka2_46110024.Text)
        t13_46110024.Text = Val(angka2_46110024.Text) - Val(angka5_46110024.Text)
        t14_46110024.Text = Val(angka4_46110024.Text) / Val(angka2_46110024.Text)
        t15_46110024.Text = Val(angka4_46110024.Text) * Val(angka2_46110024.Text)
        t16_46110024.Text = Val(angka3_46110024.Text) + Val(angka4_46110024.Text)
        t17_46110024.Text = Val(angka2_46110024.Text) - Val(angka1_46110024.Text)
        t18_46110024.Text = Val(angka1_46110024.Text) / Val(angka4_46110024.Text)
        t20_46110024.Text = Val(angka5_46110024.Text) * Val(angka2_46110024.Text)
        t21_46110024.Text = Val(angka3_46110024.Text) + Val(angka2_46110024.Text)
        t22_46110024.Text = Val(angka3_46110024.Text) - Val(angka1_46110024.Text)
        t23_46110024.Text = Val(angka5_46110024.Text) / Val(angka2_46110024.Text)

    End Sub
   
    Private Sub hitung1_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung1_46110024.Click
        t1_46110024.Text = Val(angka1_46110024.Text) + Val(angka3_46110024.Text) - Val(angka5_46110024.Text)
        t2_46110024.Text = Val(angka2_46110024.Text) * Val(angka4_46110024.Text) / 100
        t24_46110024.Text = Val(angka4_46110024.Text) - Val(angka5_46110024.Text)
        t25_46110024.Text = Val(angka5_46110024.Text) / Val(angka1_46110024.Text)
        abc()

    End Sub

    Private Sub hitung2_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung2_46110024.Click
        t1_46110024.Text = Val(angka3_46110024.Text) + Val(angka5_46110024.Text) * Val(angka4_46110024.Text)
        t2_46110024.Text = Val(angka5_46110024.Text) * Val(angka2_46110024.Text)
        t24_46110024.Text = Val(angka4_46110024.Text) / Val(angka1_46110024.Text) - Val(angka5_46110024.Text)
        t25_46110024.Text = Val(angka2_46110024.Text) - Val(angka4_46110024.Text)
        abc()
    End Sub

    Private Sub hitung3_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung3_46110024.Click
        t1_46110024.Text = Val(angka5_46110024.Text) * Val(angka2_46110024.Text) / 100
        t2_46110024.Text = Val(angka4_46110024.Text) / Val(angka1_46110024.Text) + Val(angka5_46110024.Text)
        t24_46110024.Text = Val(angka1_46110024.Text) + Val(angka3_46110024.Text) * Val(angka5_46110024.Text)
        t25_46110024.Text = Val(angka5_46110024.Text) - Val(angka1_46110024.Text)
        abc()
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 7

1.      Input angka pada textbox input

2.      Click tombol yang bertuliskan “hitung1, atau hitung2, ataupun hitung3” maka akan menampilkan hasil perhitungan dari rumus yang telah dimasukkan dalm scrift