mencari luas lingkaran menggunakan konstanta

KONSTANTA

Konstanta sama dengan variabel tetapi konstanta mempunyai nilai tetap atau sifatnya konstan. Pendeklarasian konstanta dalam visual basic menggunakan Const [nama konstanta] As [tipe data dari konstanta] = [nilai konstanta].

Contoh pendeklarasian konstanta :

Const Phi As Integer = 3.14

Cara mencari luas lingkaran

1.       Deklarasi Variabel dan Konstanta, letakkan pada General

Const phi As Double = 3.14

Dim hasil As Double

2.       Object Command1, Event Click

Private Sub Command1_Click()

hasil = phi * (Val(Text1.Text) * Val(Text1.Text))

Text2.Text = hasil

End Sub

3.       Object Command2 , event Click

Private Sub Command2_Click()

Unload Me

End Sub

Hasil running

Sekian dan terimakasih.. :) :) semoga Bermanfaat.