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.
