Jumat, 21 September 2012

latihan 07


DISKRIPSI LATIHAN 07
Form Latihan_07 terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label
Terdapat dua object Label (yang bertuliskan “Masukkan harga” dan “Hasil perhitungan”)

Object Textbox
Terdapat tiga puluh object textbox (lima status input; dua puluh lima status read only). Status input digunakan untuk memasukkan angka. Status Read Only digunakan untuk menampilkan hasil perhitungan.

Object Button
Terdapat tiga object button yaitu “HITUNG 1”, “HITUNG 2”, dan “HITUNG 3”
Object button ini digunakan untuk menghitung hasil perhitungan yang pertama, kedua, dan ketiga.
RUMUS PERHITUNGAN : untuk textbox 6,7,29,30 berbeda rumus perhitungannya untuk setiap button sedangkan 8-28 itu sama untuk setiap button.

Script Unique

Private Sub HITUNG1_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG1_36110043.Click
        T6_36110043.Text = Val(T3_36110043.Text) * Val(T2_36110043.Text) / Val(T3_36110043.Text) * Val(T4_36110043.Text) + Val(T5_36110043.Text)
        T7_36110043.Text = Val(T4_36110043.Text) / Val(T1_36110043.Text) + Val(T4_36110043.Text) / Val(T2_36110043.Text) - Val(T3_36110043.Text)
        T8_36110043.Text = Val(T4_36110043.Text) * Val(T2_36110043.Text)
Even
Button click

Property
Property TextBox ==> ReadOnly=True

LANGKAH-LANGKAH
1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008
2.      Click icon "Add new Item
3.       pilih Windows Form, lalu isi Name dengan Nama Latihan 07 dan click add.
4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}
5.      Ganti nama setiap object kecuali Label menggunakan "Properties Window"
6.      Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.
7.      Masukkkan Scrip di bawah ini.

SCRIPT LATIHAN 7
Public Class latihan_07_36110043

    Private Sub HITUNG1_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG1_36110043.Click
        T6_36110043.Text = Val(T3_36110043.Text) * Val(T2_36110043.Text) / Val(T3_36110043.Text) * Val(T4_36110043.Text) + Val(T5_36110043.Text)
        T7_36110043.Text = Val(T4_36110043.Text) / Val(T1_36110043.Text) + Val(T4_36110043.Text) / Val(T2_36110043.Text) - Val(T3_36110043.Text)
        T8_36110043.Text = Val(T4_36110043.Text) * Val(T2_36110043.Text)
        T9_36110043.Text = Val(T3_36110043.Text) / Val(T1_36110043.Text)
        T10_36110043.Text = Val(T5_36110043.Text) - Val(T4_36110043.Text) + Val(T3_36110043.Text)
        T11_36110043.Text = Val(T1_36110043.Text) / Val(T3_36110043.Text) - Val(T4_36110043.Text)
        T12_36110043.Text = Val(T2_36110043.Text) * Val(T2_36110043.Text)
        T13_36110043.Text = Val(T5_36110043.Text) + Val(T4_36110043.Text) + Val(T1_36110043.Text)
        T14_36110043.Text = Val(T4_36110043.Text) - Val(T3_36110043.Text)
        T15_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T16_36110043.Text = Val(T2_36110043.Text) / Val(T5_36110043.Text)
        T17_36110043.Text = Val(T1_36110043.Text) - Val(T3_36110043.Text)
        T18_36110043.Text = Val(T4_36110043.Text) + Val(T1_36110043.Text)
        T19_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T20_36110043.Text = Val(T3_36110043.Text) / Val(T5_36110043.Text)
        T21_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text)
        T22_36110043.Text = Val(T1_36110043.Text) - Val(T2_36110043.Text)
        T23_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T24_36110043.Text = Val(T4_36110043.Text) + Val(T5_36110043.Text) / Val(T2_36110043.Text)
        T25_36110043.Text = Val(T2_36110043.Text) * Val(T4_36110043.Text) - Val(T1_36110043.Text)
        T26_36110043.Text = Val(T2_36110043.Text) / Val(T5_36110043.Text) + Val(T4_36110043.Text)
        T27_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text) * Val(T3_36110043.Text)
        T28_36110043.Text = Val(T2_36110043.Text) / Val(T1_36110043.Text) * Val(T3_36110043.Text)
        T29_36110043.Text = Val(T3_36110043.Text) + Val(T4_36110043.Text) / Val(T5_36110043.Text)
        T30_36110043.Text = Val(T4_36110043.Text) - Val(T3_36110043.Text) + Val(T1_36110043.Text)




    End Sub

    Private Sub HITUNG2_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG2_36110043.Click
        T6_36110043.Text = Val(T1_36110043.Text) * Val(T2_36110043.Text) - Val(T3_36110043.Text) * Val(T4_36110043.Text) + Val(T5_36110043.Text)
        T7_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text) + Val(T4_36110043.Text) / Val(T2_36110043.Text) - Val(T3_36110043.Text)
        T8_36110043.Text = Val(T4_36110043.Text) * Val(T2_36110043.Text)
        T9_36110043.Text = Val(T3_36110043.Text) / Val(T1_36110043.Text)
        T10_36110043.Text = Val(T5_36110043.Text) - Val(T4_36110043.Text) + Val(T3_36110043.Text)
        T11_36110043.Text = Val(T1_36110043.Text) / Val(T3_36110043.Text) - Val(T4_36110043.Text)
        T12_36110043.Text = Val(T2_36110043.Text) * Val(T2_36110043.Text)
        T13_36110043.Text = Val(T5_36110043.Text) + Val(T4_36110043.Text) + Val(T1_36110043.Text)
        T14_36110043.Text = Val(T4_36110043.Text) - Val(T3_36110043.Text)
        T15_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T16_36110043.Text = Val(T2_36110043.Text) / Val(T5_36110043.Text)
        T17_36110043.Text = Val(T1_36110043.Text) - Val(T3_36110043.Text)
        T18_36110043.Text = Val(T4_36110043.Text) + Val(T1_36110043.Text)
        T19_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T20_36110043.Text = Val(T3_36110043.Text) / Val(T5_36110043.Text)
        T21_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text)
        T22_36110043.Text = Val(T1_36110043.Text) - Val(T2_36110043.Text)
        T23_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T24_36110043.Text = Val(T4_36110043.Text) + Val(T5_36110043.Text) / Val(T2_36110043.Text)
        T25_36110043.Text = Val(T2_36110043.Text) * Val(T4_36110043.Text) - Val(T1_36110043.Text)
        T26_36110043.Text = Val(T2_36110043.Text) / Val(T5_36110043.Text) + Val(T4_36110043.Text)
        T27_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text) * Val(T3_36110043.Text)
        T28_36110043.Text = Val(T2_36110043.Text) / Val(T1_36110043.Text) * Val(T3_36110043.Text)
        T29_36110043.Text = Val(T2_36110043.Text) * Val(T4_36110043.Text) / Val(T5_36110043.Text)
        T30_36110043.Text = Val(T2_36110043.Text) - Val(T5_36110043.Text) * Val(T2_36110043.Text)

    End Sub


    Private Sub HITUNG3_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG3_36110043.Click
        T6_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text) / Val(T3_36110043.Text) * Val(T4_36110043.Text) + Val(T5_36110043.Text)
        T7_36110043.Text = Val(T2_36110043.Text) - Val(T5_36110043.Text) * Val(T2_36110043.Text) / Val(T2_36110043.Text) - Val(T3_36110043.Text)
        T8_36110043.Text = Val(T4_36110043.Text) * Val(T2_36110043.Text)
        T9_36110043.Text = Val(T3_36110043.Text) / Val(T1_36110043.Text)
        T10_36110043.Text = Val(T5_36110043.Text) - Val(T4_36110043.Text) + Val(T3_36110043.Text)
        T11_36110043.Text = Val(T1_36110043.Text) / Val(T3_36110043.Text) - Val(T4_36110043.Text)
        T12_36110043.Text = Val(T2_36110043.Text) * Val(T2_36110043.Text)
        T13_36110043.Text = Val(T5_36110043.Text) + Val(T4_36110043.Text) + Val(T1_36110043.Text)
        T14_36110043.Text = Val(T4_36110043.Text) - Val(T3_36110043.Text)
        T15_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T16_36110043.Text = Val(T2_36110043.Text) / Val(T5_36110043.Text)
        T17_36110043.Text = Val(T1_36110043.Text) - Val(T3_36110043.Text)
        T18_36110043.Text = Val(T4_36110043.Text) + Val(T1_36110043.Text)
        T19_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T20_36110043.Text = Val(T3_36110043.Text) / Val(T5_36110043.Text)
        T21_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text)
        T22_36110043.Text = Val(T1_36110043.Text) - Val(T2_36110043.Text)
        T23_36110043.Text = Val(T5_36110043.Text) * Val(T1_36110043.Text)
        T24_36110043.Text = Val(T4_36110043.Text) + Val(T5_36110043.Text) / Val(T2_36110043.Text)
        T25_36110043.Text = Val(T2_36110043.Text) * Val(T4_36110043.Text) - Val(T1_36110043.Text)
        T26_36110043.Text = Val(T2_36110043.Text) / Val(T5_36110043.Text) + Val(T4_36110043.Text)
        T27_36110043.Text = Val(T3_36110043.Text) + Val(T2_36110043.Text) * Val(T3_36110043.Text)
        T28_36110043.Text = Val(T2_36110043.Text) / Val(T1_36110043.Text) * Val(T3_36110043.Text)
        T29_36110043.Text = Val(T3_36110043.Text) * Val(T1_36110043.Text) - Val(T4_36110043.Text)
        T30_36110043.Text = Val(T4_36110043.Text) / Val(T5_36110043.Text) + Val(T1_36110043.Text)

    End Sub

End Class
TERAKHIR,,,SAVE  
DAN UNTUK MENJALANKAN PROGRAM INI CLICK STAR DEBUGGING
 
SUKSES.......

Tidak ada komentar:

Posting Komentar