Jumat, 21 September 2012

Latihan_7_36110052

  -->
Latihan_07_36110052

  1. Object-object dalam Latihan_07_36110052 :

1.                          Object Label
Terdapat dua label (yang bertuliskan masukkan angka dan hasil perhitungan).

2.                          Object Textbox
Terdapat tiga puluh textbox (lima status input; dua puluh lima status read only). Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

3.                          Object Button
Terdapat tiga object button (Hasil 1, Hasil 2, dan Hasil). Untuk TextBox 6, 7, 29, dan 30 memiliki rumus yang berbeda tiap button hasil. Sedangkan TextBox 8 sampai 28 memilik rumus yang sama tiap button hitung. Jadi hanya TextBox 6, 7, 29, dan 30 yang hasilnya nanti berbeda untuk tiap button hasil karena rumusnya berbeda.

B.     Script Unique
Untuk button Hasil 1:
TextBox6_36110052.Text = Val(TextBox4_36110052.Text) * Val(TextBox3_36110052.Text) - Val(TextBox2_36110052.Text)
TextBox7_36110052.Text = Val(TextBox1_36110052.Text) / Val(TextBox4_36110052.Text) ^ Val(TextBox3_36110052.Text)
hasfiah()
TextBox29_36110052.Text = Val(TextBox14_36110052.Text) / Val(TextBox14_36110052.Text) ^ Val(TextBox1_36110052.Text)
TextBox30_36110052.Text = Val(TextBox12_36110052.Text) * Val(TextBox13_36110052.Text) / Val(TextBox8_36110052.Text)

Untuk button Hitung 2:
TextBox6_36110052.Text = Val(TextBox1_36110052.Text) + Val(TextBox3_36110052.Text) - Val(TextBox2_36110052.Text)
TextBox7_36110052.Text = Val(TextBox2_36110052.Text) / Val(TextBox3_36110052.Text) ^ Val(TextBox2_36110052.Text)
hasfiah()
TextBox29_36110052.Text = Val(TextBox20_36110052.Text) / Val(TextBox11_36110052.Text) ^ Val(TextBox25_36110052.Text)
TextBox30_36110052.Text = Val(TextBox26_36110052.Text) * Val(TextBox13_36110052.Text) / Val(TextBox16_36110052.Text)

Untuk button Hitung 3:

TextBox6_36110052.Text = Val(TextBox4_36110052.Text) ^ Val(TextBox3_36110052.Text) / Val(TextBox5_36110052.Text)
TextBox7_36110052.Text = Val(TextBox2_36110052.Text) / Val(TextBox4_36110052.Text) ^ Val(TextBox5_36110052.Text)
hasfiah()
TextBox29_36110052.Text = Val(TextBox13_36110052.Text) / Val(TextBox25_36110052.Text) ^ Val(TextBox26_36110052.Text)
TextBox30_36110052.Text = Val(TextBox23_36110052.Text) * Val(TextBox17_36110052.Text) / Val(TextBox16_36110052.Text)


C.     Even
Hasil1_36110048_Click

D.    Property
Property TextBox ==> ReadOnly=True



Langkah-langkah kerja latihan_7_36110052
  1. Buat new windows form dengan cara ketik project add windows form pada project yang telah dibuat dan berikan nama form yang diinginkan
Contoh: latihan_7_36110052
  1. Design form dengan menggunakan tools pada toolbox
  2. Buat 2 label yang dapat diambil pada toolbox dan ubah teksnya menjadi “masukkan angka” dan “hasil perhitungan
  3. Buat 30 textbox dan ubah nama masing-masing textbox, contoh saya berikan nama
Textbox1_36110052,Textbox2_36110052 sampai dengan Textbox30_36110052
  1. Ubah status 25 textbox menjadi read only di atas dengan cara klik kanan propertiescari kalimat read onlyubah statusnya menjadi true sedangkan 5 lainnya tetap pada status input
  2. Buat 3 button yang dan ubah teksnya menjadi hasil 1,hasil 2 dan hasil 3
  3. Ubah nama setiap button di atas, contoh saya berikan nama HASIL1_36110052, HASIL2_36110052, HASIL3_36110052
  4. Setelah selesai form, masuk ke lembar Vb dan masukkan scipt
Script untuk latihan 7 ini adalah “Public Class LATIHAN_7_36110052
Private Sub hasfiah()
TextBox8_36110052.Text = Val(TextBox2_36110052.Text) + Val(TextBox5_36110052.Text) * Val(TextBox3_36110052.Text)
TextBox9_36110052.Text = Val(TextBox4_36110052.Text) + Val(TextBox1_36110052.Text) * Val(TextBox2_36110052.Text)
TextBox10_36110052.Text = Val(TextBox3_36110052.Text) / Val(TextBox8_36110052.Text) * Val(TextBox1_36110052.Text)
TextBox14_36110052.Text = Val(TextBox1_36110052.Text) + Val(TextBox13_36110052.Text) * Val(TextBox11_36110052.Text)
TextBox15_36110052.Text = Val(TextBox3_36110052.Text) / Val(TextBox2_36110052.Text) * Val(TextBox9_36110052.Text)
TextBox13_36110052.Text = Val(TextBox2_36110052.Text) / Val(TextBox10_36110052.Text) * Val(TextBox9_36110052.Text)
TextBox12_36110052.Text = Val(TextBox3_36110052.Text) * Val(TextBox15_36110052.Text) - Val(TextBox10_36110052.Text)
TextBox20_36110052.Text = Val(TextBox4_36110052.Text) * Val(TextBox15_36110052.Text) - Val(TextBox9_36110052.Text)
TextBox11_36110052.Text = Val(TextBox1_36110052.Text) * Val(TextBox1_36110052.Text) - Val(TextBox10_36110052.Text)
TextBox12_36110052.Text = Val(TextBox2_36110052.Text) * Val(TextBox15_36110052.Text) + Val(TextBox10_36110052.Text)
TextBox19_36110052.Text = Val(TextBox3_36110052.Text) * Val(TextBox15_36110052.Text) / Val(TextBox14_36110052.Text)
TextBox18_36110052.Text = Val(TextBox4_36110052.Text) * Val(TextBox10_36110052.Text) / Val(TextBox14_36110052.Text)
TextBox17_36110052.Text = Val(TextBox1_36110052.Text) / Val(TextBox15_36110052.Text) + Val(TextBox14_36110052.Text)
TextBox16_36110052.Text = Val(TextBox2_36110052.Text) + Val(TextBox1_36110052.Text) / Val(TextBox15_36110052.Text)
TextBox26_36110052.Text = Val(TextBox3_36110052.Text) / Val(TextBox14_36110052.Text) + Val(TextBox1_36110052.Text)
TextBox25_36110052.Text = Val(TextBox4_36110052.Text) / Val(TextBox10_36110052.Text) + Val(TextBox1_36110052.Text)
TextBox24_36110052.Text = Val(TextBox4_36110052.Text) + Val(TextBox14_36110052.Text) + Val(TextBox10_36110052.Text)
TextBox23_36110052.Text = Val(TextBox5_36110052.Text) * Val(TextBox10_36110052.Text) + Val(TextBox18_36110052.Text)
TextBox22_36110052.Text = Val(TextBox1_36110052.Text) / Val(TextBox4_36110052.Text) ^ Val(TextBox9_36110052.Text)
TextBox21_36110052.Text = Val(TextBox3_36110052.Text) ^ Val(TextBox14_36110052.Text) + Val(TextBox3_36110052.Text)
TextBox28_36110052.Text = Val(TextBox1_36110052.Text) ^ Val(TextBox14_36110052.Text) * Val(TextBox4_36110052.Text)
TextBox27_36110052.Text = Val(TextBox4_36110052.Text) ^ Val(TextBox1_36110052.Text) / Val(TextBox5_36110052.Text)

End Sub

Private Sub HASIL1_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HASIL1_36110052.Click
TextBox6_36110052.Text = Val(TextBox4_36110052.Text) * Val(TextBox3_36110052.Text) - Val(TextBox2_36110052.Text)
TextBox7_36110052.Text = Val(TextBox1_36110052.Text) / Val(TextBox4_36110052.Text) ^ Val(TextBox3_36110052.Text)
hasfiah()
TextBox29_36110052.Text = Val(TextBox14_36110052.Text) / Val(TextBox14_36110052.Text) ^ Val(TextBox1_36110052.Text)
TextBox30_36110052.Text = Val(TextBox12_36110052.Text) * Val(TextBox13_36110052.Text) / Val(TextBox8_36110052.Text)


End Sub

Private Sub HASIL2_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HASIL2_36110052.Click
TextBox6_36110052.Text = Val(TextBox1_36110052.Text) + Val(TextBox3_36110052.Text) - Val(TextBox2_36110052.Text)
TextBox7_36110052.Text = Val(TextBox2_36110052.Text) / Val(TextBox3_36110052.Text) ^ Val(TextBox2_36110052.Text)
hasfiah()
TextBox29_36110052.Text = Val(TextBox20_36110052.Text) / Val(TextBox11_36110052.Text) ^ Val(TextBox25_36110052.Text)
TextBox30_36110052.Text = Val(TextBox26_36110052.Text) * Val(TextBox13_36110052.Text) / Val(TextBox16_36110052.Text)

End Sub

Private Sub HASIL_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HASIL_36110052.Click
TextBox6_36110052.Text = Val(TextBox4_36110052.Text) ^ Val(TextBox3_36110052.Text) / Val(TextBox5_36110052.Text)
TextBox7_36110052.Text = Val(TextBox2_36110052.Text) / Val(TextBox4_36110052.Text) ^ Val(TextBox5_36110052.Text)
hasfiah()
TextBox29_36110052.Text = Val(TextBox13_36110052.Text) / Val(TextBox25_36110052.Text) ^ Val(TextBox26_36110052.Text)
TextBox30_36110052.Text = Val(TextBox23_36110052.Text) * Val(TextBox17_36110052.Text) / Val(TextBox16_36110052.Text)


End Sub
End Class
  1. Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik “Save”.
  2. Selesai
Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)