Latihan 07

Deskripsi Form

1. objek label
terdapat dua label (bertuliskan "Masukkan angka" & "hasil perhitungan")

2. objek textbox
terdapat 30 textbox di dalam form ini. dimana 25 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil perhitungan dari angka-angka yang anda input di textbox yang tidak berstatus readonly.

3. objek button
objek button pada form ini berjumlah tiga (bertuliskan HITUNG 1, HITUNG 2, HITUNG 3). masing-masing tombol berfungsi untuk menampilkan hasil perhitungan berbeda pada textbox tertentu.

script unik :
Private Sub xxx ()
==> fungsi digunakan untuk mempersingkat penulisan script yang panjang (xxx bisa anda ganti sesuai dengan nama yang anda suka)

even :
Button

property :
property textbox ==> ReadOnly = True

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox, button, dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 

5. klik kanan pada form anda, lalu pilih view code

6. masukkan fungsi Private Sub xxx (). lalu pada fungsi tersebut masukkan rumus perhitungan dibawah fungsi tersebut. contohnya seperti script di bawah ini :

Private Sub xxx()

        HP346110008.Text = Val(MA246110008.Text) * Val(MA146110008.Text)
        HP446110008.Text = Val(MA546110008.Text) / Val(MA446110008.Text)
        HP546110008.Text = Val(HP1446110008.Text) + Val(HP446110008.Text)
        HP646110008.Text = Val(MA446110008.Text) * Val(MA146110008.Text)
        HP746110008.Text = Val(HP346110008.Text) - Val(HP346110008.Text)
        HP846110008.Text = Val(HP746110008.Text) + Val(HP746110008.Text)
        HP946110008.Text = Val(MA446110008.Text) - Val(MA446110008.Text)
        HP1046110008.Text = Val(MA446110008.Text) - Val(MA446110008.Text) + Val(MA146110008.Text)
        HP1146110008.Text = Val(MA346110008.Text) / 2
        HP1246110008.Text = Val(MA446110008.Text) / Val(MA146110008.Text)
        HP1346110008.Text = Val(MA546110008.Text) / Val(MA146110008.Text)
        HP1446110008.Text = Val(HP1246110008.Text) + Val(MA146110008.Text)
        HP1546110008.Text = Val(MA346110008.Text) - Val(HP1046110008.Text)
        HP1646110008.Text = Val(MA546110008.Text) * Val(HP846110008.Text)
        HP1746110008.Text = Val(MA446110008.Text) / Val(HP546110008.Text)
        HP1846110008.Text = Val(MA346110008.Text) * Val(HP346110008.Text)
        HP1946110008.Text = Val(MA146110008.Text) + Val(MA246110008.Text)
        HP2046110008.Text = Val(MA546110008.Text) - Val(MA146110008.Text)
        HP2146110008.Text = Val(MA346110008.Text) * Val(MA346110008.Text)
        HP2246110008.Text = Val(MA546110008.Text) - Val(MA246110008.Text)
        HP2346110008.Text = Val(MA446110008.Text) / Val(MA146110008.Text)

    End Sub

7. selanjutnya anda tinggal mengisi kode untuk tombol tersebut

8. untuk menjalankan, anda tekan debug