Latihan_07_46110022

05.24 by Unknown

DESKRIPSI FORM




  •       Hitam = objek label
  •       Merah = objek textbox (status input) ==> Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan.
  •       Biru = objek textbox (status Read Only) ==> status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.
  •       Hijau = button ==> terdapat 3 object button.Button 1 digunakan untuk menampilkan hasil perhitungan dari nilai” yang telah dimasukkan pada textbox yang berstatus read only. Button 2 dan Button 3 digunakan untuk menampilakn perubahan nilai pada textbox ke 6,7,29 dan 30 disebabkan rumus yang digunakan berbeda dengan yg sebelumnya.
Script Unique :
Terdapat Script unik pada form ini yaitu “Private Sub noldi()” script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.

Even :
Button click

Properti :
Property TextBox ==> ReadOnly=True

Langkah-Langkah Membuat Latihan 07 

1. Klik “START” lalu pilih Microsoft Visual Studio 2008

 


2. Kemudian pilih kumpulan latihan seperti berikut



3. Pilih menu Project lalu klik "add windows form"

 


4. Ketik nama form "Latihan_07_46110007" pada name kemudian click add

 


5. Kemudian buat form seperti berikut ini

 


6. Setelah selesai membuat form, masukan rumus seperti berikut ini

Public Class Latihan_07_46110022

    Private Sub noldi()
        TB846110022.Text = Val(TB346110022.Text) + Val(TB246110022.Text)
        TB946110022.Text = Val(TB146110022.Text) - Val(TB546110022.Text)
        TB1046110022.Text = Val(TB546110022.Text) / Val(TB346110022.Text)
        TB1146110022.Text = Val(TB246110022.Text) * Val(TB546110022.Text) / Val(TB346110022.Text)
        TB1246110022.Text = Val(TB146110022.Text) + Val(TB446110022.Text)
        TB1346110022.Text = Val(TB246110022.Text) + Val(TB546110022.Text) * Val(TB346110022.Text)
        TB1446110022.Text = Val(TB346110022.Text) / Val(TB246110022.Text)
        TB1546110022.Text = Val(TB546110022.Text) - Val(TB446110022.Text) + Val(TB146110022.Text)
        TB1646110022.Text = Val(TB346110022.Text) + Val(TB446110022.Text)
        TB1746110022.Text = Val(TB546110022.Text) * Val(TB546110022.Text)
        TB1846110022.Text = Val(TB346110022.Text) + Val(TB246110022.Text) - Val(TB446110022.Text)
        TB1946110022.Text = Val(TB546110022.Text) * Val(TB446110022.Text)
        TB2046110022.Text = Val(TB146110022.Text) + Val(TB246110022.Text)
        TB2146110022.Text = Val(TB346110022.Text) - Val(TB446110022.Text)
        TB2246110022.Text = Val(TB546110022.Text) / Val(TB146110022.Text) * Val(TB246110022.Text)
        TB2346110022.Text = Val(TB446110022.Text) * Val(TB446110022.Text) + Val(TB146110022.Text)
        TB2446110022.Text = Val(TB546110022.Text) - Val(TB146110022.Text)
        TB2546110022.Text = Val(TB246110022.Text) + Val(TB246110022.Text)
        TB2646110022.Text = Val(TB346110022.Text) - Val(TB346110022.Text) * Val(TB546110022.Text)
        TB2746110022.Text = Val(TB446110022.Text) * Val(TB446110022.Text)
        TB2846110022.Text = Val(TB546110022.Text) - Val(TB346110022.Text) / Val(TB246110022.Text)
    End Sub
   
    Private Sub HITUNG146110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HITUNG146110022.Click
        TB646110022.Text = Val(TB146110022.Text) + Val(TB246110022.Text)
        TB746110022.Text = Val(TB346110022.Text) - Val(TB446110022.Text)
        TB2946110022.Text = Val(TB446110022.Text) / Val(TB546110022.Text)
        TB3046110022.Text = Val(TB546110022.Text) * Val(TB346110022.Text)
        noldi()
    End Sub

    Private Sub HITUNG246110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HITUNG246110022.Click
        TB646110022.Text = Val(TB146110022.Text) + Val(TB246110022.Text) - Val(TB346110022.Text)
        TB746110022.Text = Val(TB346110022.Text) - Val(TB446110022.Text) / Val(TB446110022.Text)
        TB2946110022.Text = Val(TB446110022.Text) / Val(TB546110022.Text) * Val(TB446110022.Text)
        TB3046110022.Text = Val(TB546110022.Text) * Val(TB346110022.Text) + Val(TB246110022.Text)
        noldi()
    End Sub

    Private Sub HITUNG346110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HITUNG346110022.Click
        TB646110022.Text = Val(TB146110022.Text) * Val(TB146110022.Text)
        TB746110022.Text = Val(TB246110022.Text) * Val(TB246110022.Text)
        TB2946110022.Text = Val(TB346110022.Text) - Val(TB346110022.Text)
        TB3046110022.Text = Val(TB446110022.Text) + Val(TB446110022.Text)
        noldi()
    End Sub
End Class

 7. Untuk menjalankan form ini, klik tombol debugging seperti berikut ini

 


Langkah-Langkah Menjalankan Latihan 07
 
  •       Klik simbol debugging.
  •       Isi textbox yang berstatus input, sesuai dengan angka pilihan anda.
  •       Untuk mengetahui hasil perhitungan, klik hitung1 atau hitung2 atau hitung3 sesuai dengan yang diinginkan.
  •       Good luck... 

0 komentar
0 Responses

Langganan: Posting Komentar (Atom)