Contoh Aplikasi Vb.Net Sederhana Menghitung Luas Dan Keliling Lingkaran

Sekarang aku akan memperlihatkan tutorial menciptakan aktivitas sederhana penghitungan luas dan keliling bundar simak baik-baik:

Buat tampilan menyerupai gambar di bawah ini.

Sesuaikan Propertinya :

Object	Properti	Nilai Properti
TextBox1 TextBox2	Name Name	tbjari tbhasil
Button1 Button2 Button3 Button4	Name Text Name Text Name Text Name Text	cmdluas Hitung Luas cmdkeliling Hitung Keliling cmdkosongkan Kosongkan cmdkeluar Keluar

Masukkan koding tiap event, sebagai berikut :

1. cmdluas - Click "Koding menghitung luas lingkaran"
'' deklarasi variabel
Dim j, h As Double

'' bila jari-jari belum di isi akan tampil peringatan
If tbjari.Text = "" Then
MsgBox("Masukkan Jari-jarinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' kalau textbox jari-jari diisi kemudian menekan hitung luas maka akan melaksanakan proses penghitungan dan akan di tampilkan di textbox hasil
j = Val(tbjari.Text)
h = 3.14 * j * j
tbhasil.Text = h
End If


2. cmdkeliling - Click "Koding menghitung keliling lingkaran"
'' deklarasi variabel
Dim j, h As Double

'' bila jari-jari belum di isi akan tampil peringatan
If tbjari.Text = "" Then
MsgBox("Masukkan Jari-jarinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' kalau textbox jari-jari diisi kemudian menekan hitung keliling maka akan melaksanakan proses penghitungan dan akan di tampilkan di textbox hasil
j = Val(tbjari.Text)
h = 2 * 3.14 * j
tbhasil.Text = h
End If


3. cmdkosongkan - Click
'' megkosongkan textbox jari-jari, hasil dan mematikan textbox hasil
tbhasil.Text = ""
tbjari.Text = ""
tbhasil.Enabled = False


4. cmdkeluar - Click
'' saat diklik keluar akan menutup program
Close()


5. Form1 - Load
'' saat aktivitas dibuka textbox hasil akan mati(tidak dapat digunakan)
tbhasil.Enabled = False

Tinggal jalankan programnya.
Kalau masih belum paham ini projectnya. Saya memakai vb.net 2008
Download

Semoga membantu
Terima kasih!
Sumber https://ferygg.blogspot.com/

Berbagi :