Deskripsi Form Latihan_07_46110038 :
Form Latihan_07_46110038 Terdapat tiga objeck
yaitu label, textbox, dan button.
Object
Label
Di Latihan_07_46110038 ada 2 label, yang
berisi teks Masukkan Angka dan Hasil perhitungan.
Object
TextBox
Di Latihan_07_46110038 ada 30 textbox, 5
status input, 25 berstatus readonly. Status input digunakan untuk memasukkan
nilai. Status ReadOnly digunakan untuk menampilkan hasil dari fungsi yang telah
di kerjakan.
Object
Button
Di Latihan_07_46110038 ada 3 buah button yaitu
HITUNG1,
HITUNG2, HITUNG3. Untuk TextBox 6, 7, 29, dan 30 memiliki rumus yang berbeda tiap
button, jadi hasil dari TextBox 6, 7, 29, dan 30 akan berbeda untuk tiap button
karena rumus berbeda pula. SedangkanTextBox 8 sampai 28 memilik
rumus yang sama tiap button.
Script Unique
Private Sub erma()..., digunakan sebagai Procedure yang
dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi
procedure tersebut.
Even
Button click
Property
Property TextBox => ReadOnly=True
Cara Membuat Form Latihan_07_46110038:
1.
Buka project yang telah dibuat.
2.
pilih Add New Item pada Microsoft Visual Studio 2005/ 2008
3.
Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.
4.
Kemudian buat form seperti di bawah ini:
5. Setelah form untuk Latihan_07_46110038 sudah dibuat maka selanjutnya membuat listing
program pada jendela code:
Public Class Latihan_07_46110038
Private Sub erma()
b346110038.Text = Val(a146110038.Text)
+ Val(a246110038.Text)
b446110038.Text = Val(a146110038.Text)
- Val(a246110038.Text)
b546110038.Text = Val(a146110038.Text)
* Val(a246110038.Text)
c146110038.Text = Val(a146110038.Text)
/ Val(a246110038.Text)
c246110038.Text = Val(a246110038.Text)
+ Val(a346110038.Text)
c346110038.Text = Val(a246110038.Text)
- Val(a346110038.Text)
c446110038.Text = Val(a246110038.Text)
* Val(a346110038.Text)
c546110038.Text = Val(a246110038.Text)
/ Val(a346110038.Text)
d146110038.Text = Val(a346110038.Text)
+ Val(a446110038.Text)
d246110038.Text = Val(a346110038.Text)
- Val(a446110038.Text)
d346110038.Text = Val(a346110038.Text)
* Val(a446110038.Text)
d446110038.Text = Val(a346110038.Text)
/ Val(a446110038.Text)
d546110038.Text = Val(a346110038.Text)
+ Val(a446110038.Text)
e146110038.Text = Val(a446110038.Text)
+ Val(a546110038.Text)
e246110038.Text = Val(a446110038.Text)
- Val(a546110038.Text)
e346110038.Text = Val(a446110038.Text)
* Val(a546110038.Text)
e446110038.Text = Val(a446110038.Text)
/ Val(a546110038.Text)
e546110038.Text = Val(a446110038.Text)
+ Val(a246110038.Text)
f146110038.Text = Val(a546110038.Text)
+ Val(a146110038.Text)
f246110038.Text = Val(a546110038.Text)
- Val(a146110038.Text)
f346110038.Text = Val(a546110038.Text)
* Val(a146110038.Text)
End Sub
Private Sub h146110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles h146110038.Click
b146110038.Text = Val(a146110038.Text)
- Val(a246110038.Text) + Val(a346110038.Text)
b246110038.Text = Val(a546110038.Text)
+ Val(a546110038.Text) - Val(a246110038.Text)
f446110038.Text = Val(a546110038.Text)
/ Val(a146110038.Text)
f546110038.Text = Val(a546110038.Text)
+ Val(a146110038.Text)
erma()
End Sub
Private Sub h246110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles h246110038.Click
b146110038.Text = Val(a446110038.Text)
* Val(a246110038.Text) - Val(a346110038.Text)
b246110038.Text = Val(a146110038.Text)
+ Val(a346110038.Text) / Val(a446110038.Text)
f446110038.Text = Val(a546110038.Text)
/ Val(a146110038.Text) + Val(a546110038.Text)
f546110038.Text = Val(a546110038.Text)
+ Val(a146110038.Text) - Val(a246110038.Text)
erma()
End Sub
Private Sub h346110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles h346110038.Click
b146110038.Text = Val(a446110038.Text)
* Val(a346110038.Text) - Val(a146110038.Text)
b246110038.Text = Val(a446110038.Text)
+ Val(a246110038.Text) / Val(a146110038.Text)
f446110038.Text = Val(a546110038.Text)
+ Val(a146110038.Text) * Val(a246110038.Text)
f546110038.Text = Val(a346110038.Text)
- Val(a146110038.Text) / Val(a246110038.Text)
erma()
End Sub
End Class
Langkah untuk menjalankan
Latihan_07_46110038:
1. Klik start debugging.
2. Isi textbox dengan angka
yang berstatus input.
3. Untuk menampilkan hasil
perhitungan, klik hitung1 atau hitung2 atau hitung3.
Tidak ada komentar:
Posting Komentar