Program Untuk Menghitung Keliling, Luas dan Volume Silinder dengan menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Langkah - langkah pembuatan program:

· Buka proyek Standard EXE yang baru

· Disain tampilan form seperti gambar berikut dengan menggunakan objek Label dan TextBox dan CommandButton

· Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Text	txt_jarijari [dikosongkan]
TextBox2	Name        Text	txt_tinggi [dikosongkan]
Label1	Name Caption Appearance Border Style	lbl_luas [dikosongkan] 0 - Flat 1 - Fixed Single
Label2	Name Caption Appearance Border Style	lbl_volume [dikosongkan] 0 - Flat 1 - Fixed Single
Label3	Caption	Jari - Jari  ( r )
Label3	Caption	Tinggai  ( h )
Label4	Caption	Luas
Label5	Caption	Volume
CommandButton1	Name Caption	cmd_exit E&xit

Form1

Name Caption

Frm_Silinder Program untuk mencari Volume dan Luas Silinder

· Klik menu View => Code, lalu kode program di bawah ini :

Const Pi = 3.14159265
Private Sub cmd_exit_Click()
End
End Sub
Private Sub Form_Load()
Me.txt_tinggi.Enabled = False
End Sub
Private Sub txt_jarijari_Change()
On Error Resume Next
If Me.txt_jarijari.Text = "" Then
Me.lbl_luas.Caption = ""
Me.lbl_volume.Caption = ""
Else
Me.lbl_volume.Caption = Format((Pi * ((Val(Me.txt_jarijari.Text) ^ 2) * (Val(Me.txt_tinggi.Text)))), "###,###.##0")
Me.lbl_luas.Caption = Format(((2 * (Pi * (Me.txt_jarijari.Text ^ 2))) + ((2 * Pi * Me.txt_jarijari.Text) * Me.txt_tinggi.Text)), "###,###.##0")
End If
End Sub
Private Sub txt_jarijari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.txt_jarijari.Text = "" Then
MsgBox "Data tidak boleh kosong ", vbInformation + vbOKOnly, "Data Kosong"
Else
Me.txt_tinggi.Enabled = True
Me.txt_tinggi.SetFocus
End If
End If
End Sub
Private Sub txt_tinggi_Change()
On Error Resume Next
If Me.txt_tinggi.Text = "" Then
Me.lbl_luas.Caption = ""
Me.lbl_volume.Caption = ""
Else
Me.lbl_volume.Caption = Format((Pi * ((Val(Me.txt_jarijari.Text) ^ 2) * (Val(Me.txt_tinggi.Text)))), "###,###.##0")
Me.lbl_luas.Caption = Format(((2 * (Pi * (Val(Me.txt_jarijari.Text) ^ 2))) + ((2 * Pi * Val(Me.txt_jarijari.Text)) * Val(Me.txt_tinggi.Text))), "###,###.##0")
End If
End Sub
Private Sub txt_tinggi_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.txt_tinggi.Text = "" Then
MsgBox "Data tidak boleh kosong ", vbInformation + vbOKOnly, "Data Kosong"
Else
Me.lbl_volume.Caption = Format((Pi * ((Val(Me.txt_jarijari.Text) ^ 2) * (Val(Me.txt_tinggi.Text)))), "###,###.##0")
Me.lbl_luas.Caption = Format(((2 * (Pi * (Val(Me.txt_jarijari.Text) ^ 2))) + ((2 * Pi * Val(Me.txt_jarijari.Text)) * Val(Me.txt_tinggi.Text))), "###,###.##0")
Me.cmd_exit.SetFocus
End If
End If
End Sub

· Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run => Start

· Hasilnya ketika program dijalankan :

Download Source Code-nya disini atau disini