Contoh Aplikasi Vb.Net Sederhana Menghitung Luas Dan Keliling Persegi
Hai sobat, mungkin anda sedang membutuhkan kiprah wacana mencari koding luas dan keliling persegi di vb.net atau buat reverensi saja , maka sempurna sekali. berikut ini aku akan membagikan koding mencari luas dan keliling persegi, disini aku membuatnya di vb.net 2008 Simak baik-baik.
- Buat tampilan menyerupai gambar dibawah ini :
- Sesuaikan propertinya :
- Masukkan koding tiap event, sebagai berikut :
- cmdhitungl - Click "koding menghitung luas persegi"
- cmdhitungk - Click "koding menghitung keliling persegi"
- cmdkosongkan - Click
- cmdkeluar - Click
- Form1 - Load
- tbsisi - KeyPress
- Kalau sudah tinggal jalankan programnya.
| Object | Properti | Nilai Properti |
| TextBox1 TextBox2 | Name Name | tbsisi tbhasil |
| Button1 Button2 Button3 Button4 | Name Text Name Text Name Text Name Text | cmdhitungl Hitung luas cmdhitungk Hitung keliling cmdkosongkan Kosongkan cmdkeluar Keluar |
'' deklarasi variabel
Dim s As New Integer
Dim h As New Double
'' jikalau textbox sisi belum di isi akan tampil peringatan
If tbsisi.Text = "" Then
MsgBox("Masukkan Sisinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' kalau textbox sisi diisi kemudian menekan hitung luas maka akan melaksanakan proses penghitungan dan akan di tampilkan di textbox hasil
s = Val(tbsisi.Text)
h = s * s
tbhasil.Text = h
End If
Dim s As New Integer
Dim h As New Double
'' jikalau textbox sisi belum di isi akan tampil peringatan
If tbsisi.Text = "" Then
MsgBox("Masukkan Sisinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' kalau textbox sisi diisi kemudian menekan hitung luas maka akan melaksanakan proses penghitungan dan akan di tampilkan di textbox hasil
s = Val(tbsisi.Text)
h = s * s
tbhasil.Text = h
End If
'' deklarasi variabel
Dim s As New Integer
Dim h As New Double
'' jikalau textbox sisi belum di isi akan tampil peringatan
If tbsisi.Text = "" Then
MsgBox("Masukkan Sisinya!", MsgBoxStyle.Critical, "Peringatan")
'' kalau textbox sisi diisi kemudian menekan hitung keliling maka akan melaksanakan proses penghitungan dan akan di tampilkan di textbox hasil
s = Val(tbsisi.Text)
h = 4 * s
tbhasil.Text = h
End If
Dim s As New Integer
Dim h As New Double
'' jikalau textbox sisi belum di isi akan tampil peringatan
If tbsisi.Text = "" Then
MsgBox("Masukkan Sisinya!", MsgBoxStyle.Critical, "Peringatan")
Else
'' kalau textbox sisi diisi kemudian menekan hitung keliling maka akan melaksanakan proses penghitungan dan akan di tampilkan di textbox hasil
s = Val(tbsisi.Text)
h = 4 * s
tbhasil.Text = h
End If
'' mengkosongkan textbox sisi,hasil dan mematikan textbox hasil
tbsisi.Text = ""
tbhasil.Text = ""
tbhasil.Enabled = False
tbsisi.Text = ""
tbhasil.Text = ""
tbhasil.Enabled = False
'' menutup program
Close()
Close()
'' ketika kegiatan dijalankan akan otomatis mematikan textbok hasil
tbhasil.Enabled = False
tbhasil.Enabled = False
'' TextBox ketika diketik, hanya sanggup angka saja 0-9
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
Kalau masih belum pahan anda sanggup mendownload projectnya
Download
Semoga gosip ini sanggup membantu anda dan bermanfaat bagi anda.
Terima kasih!
Sumber https://ferygg.blogspot.com/
