LATIHAN_07_46110023

1. pada form latihan_07 terdapat object label, object textbox, dan object button
   
object label
terdapat 2 object label yang bertuliskan masukkan angka dan hasil perhitungan.

object textbox
terdapat 30 object textbox yang terdiri dari  5 status input dan 25 status read only. status input digunakan untuk memasukkan nilai pada textbox yang berada di bawah label yang bertuliskan masukkan angka. sedangkan status read only digunakan untuk menampilkan hasil perhitungan dari 5 textbox yang telah diinput.


object button
Selain dua buah object diatas, terdapat juga 3 buah object button yang bertuliskan Hitung 1, Hitung 2 dan Hitung 3. Button ini berfungsi untuk menampilkan hasil perhitungan pada textbox yang berstatus read only dari 5 buah textbox berstatus input. akan tetapi setiap button memiliki hasil perhitungan yang berbeda beda pada textbox 1,2,24 dan 25. 

script unik
private sub DIAN  ( )
 Digunakan untuk memudahkan kita dalam penggunaan rumus yang sama tanpa harus menuliskannya lagi di setiap even yang menggunakan rumus tersebut.   
 
event
buttonclick

property  
Property TextBox ==> ReadOnly=True 

langkah-langkah penyelesaian form latihan 07
1. buat desaign seperti pada gambar dibawah ini:

 

2.  Textbox yang berwarna        tersebut menunjukkan bahwa textbox tersebut berstatus input sedangkan yang berwarna         berstatus read only. 

3. rumus-rumus yang digunakan adalah sebagai berikut:

Public Class LATIHAN_07_46110023
    Private Sub DIAN()
        HP3_46110023.Text = Val(MA3_46110023.Text) * Val(MA4_46110023.Text) -    Val(MA5_46110023.Text)
        HP4_46110023.Text = Val(MA3_46110023.Text) + Val(MA3_46110023.Text)
        HP5_46110023.Text = Val(MA2_46110023.Text) + Val(MA4_46110023.Text) + Val(MA3_46110023.Text)
        HP6_46110023.Text = Val(MA3_46110023.Text) * Val(MA3_46110023.Text)
        HP7_46110023.Text = Val(MA1_46110023.Text) - Val(MA4_46110023.Text)
        HP8_46110023.Text = Val(MA3_46110023.Text) / Val(MA4_46110023.Text)
        HP9_46110023.Text = Val(MA4_46110023.Text) * Val(MA3_46110023.Text)
        HP10_46110023.Text = Val(MA1_46110023.Text) / Val(MA3_46110023.Text)
        HP11_46110023.Text = Val(MA3_46110023.Text) + Val(MA4_46110023.Text) * Val(MA3_46110023.Text)
        HP12_46110023.Text = Val(MA4_46110023.Text) * Val(MA3_46110023.Text)
        HP13_46110023.Text = Val(MA3_46110023.Text) / Val(MA4_46110023.Text) - Val(MA1_46110023.Text)
        HP14_46110023.Text = Val(MA3_46110023.Text) + Val(MA2_46110023.Text) / Val(MA1_46110023.Text)
        HP15_46110023.Text = Val(MA2_46110023.Text) + Val(MA3_46110023.Text) / Val(MA3_46110023.Text)
        HP16_46110023.Text = Val(MA3_46110023.Text) / Val(MA2_46110023.Text)
        HP17_46110023.Text = Val(MA4_46110023.Text) / Val(MA3_46110023.Text) + Val(MA1_46110023.Text) - Val(MA4_46110023.Text)
        HP18_46110023.Text = Val(MA2_46110023.Text) + Val(MA3_46110023.Text) + Val(MA2_46110023.Text)
        HP19_46110023.Text = Val(MA3_46110023.Text) / Val(MA2_46110023.Text)
        HP20_46110023.Text = Val(MA1_46110023.Text) + Val(MA3_46110023.Text) / Val(MA4_46110023.Text)
        HP21_46110023.Text = Val(MA4_46110023.Text) / Val(MA1_46110023.Text) + Val(MA2_46110023.Text)
        HP22_46110023.Text = Val(MA1_46110023.Text) * Val(MA3_46110023.Text) + Val(MA1_46110023.Text)
        HP23_46110023.Text = Val(MA3_46110023.Text) * Val(MA2_46110023.Text)

    End Sub

    Private Sub HITUNG1_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG1_46110023.Click
        HP1_46110023.Text = Val(MA1_46110023.Text) + Val(MA3_46110023.Text) * Val(MA1_46110023.Text)
        HP2_46110023.Text = Val(MA3_46110023.Text) / Val(MA1_46110023.Text) + Val(MA3_46110023.Text)
        HP24_46110023.Text = Val(MA4_46110023.Text) + Val(MA2_46110023.Text)
        HP25_46110023.Text = Val(MA5_46110023.Text) - Val(MA1_46110023.Text)
        DIAN()
    End Sub

    Private Sub HITUNG2_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG2_46110023.Click
        HP1_46110023.Text = Val(MA3_46110023.Text) - Val(MA5_46110023.Text) / Val(MA1_46110023.Text)
        HP2_46110023.Text = Val(MA5_46110023.Text) + Val(MA2_46110023.Text) * Val(MA5_46110023.Text)
        HP24_46110023.Text = Val(MA1_46110023.Text) - Val(MA5_46110023.Text) - Val(MA1_46110023.Text)
        HP25_46110023.Text = Val(MA2_46110023.Text) + Val(MA2_46110023.Text)
        DIAN()
    End Sub
   

 Private Sub HITUNG3_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG3_46110023.Click
        HP1_46110023.Text = Val(MA1_46110023.Text) - Val(MA2_46110023.Text) / Val(MA1_46110023.Text)
        HP2_46110023.Text = Val(MA4_46110023.Text) + Val(MA3_46110023.Text) * Val(MA2_46110023.Text)
        HP24_46110023.Text = Val(MA2_46110023.Text) - Val(MA1_46110023.Text) - Val(MA4_46110023.Text)
        HP25_46110023.Text = Val(MA3_46110023.Text) + Val(MA2_46110023.Text) + Val(MA1_46110023.Text)
        DIAN()
    End Sub

  End Class