Program visual basic menentukan luas, keliling lingkaran dan jumlah, rata-rata nilai


Program visual basic menentukan luas, keliling lingkaran dan jumlah, rata-rata nilai - Anda pasti
kenal apa itu visal basic? Jika udah tau tinggla mempelajarinya. Yang saya kali ini adalah tutorial Visual
Basic. Jika anda berminat dengan judul postingan kali ini, berikut caranya :

1. Buka Visual Basic anda (versi berapapun)

2. Buat form

3. Buatlah sama seperti gambar di bawah ini :




Code programnya :

Dim jar As Single
Dim luas As Single
Dim kel As Single
Dim nilai1 As Single
Dim nilai2 As Single
Dim nilai3 As Single
Dim jml As Single
Dim rata2 As Single

Private Sub Command1_Click()
jar = Text1.Text
luas = 3.14 * jar * jar
kel = 2 * 3.14 * jar
Text2.Text = luas
Text3.Text = kel
End Sub

Private Sub Command2_Click()
nilai1 = Text4.Text
nilai2 = Text5.Text
nilai3 = Text6.Text
jml = nilai1 + nilai2 + nilai3
rata2 = jml / 3
Text7.Text = jml
Text8.Text = rata2
End Sub

0 komentar:

Post a Comment