Koding Pembuatan:

Private Sub CommandButton1_Click()
Range(“H5”) = Range(“H5”) + 1
Shapes(“air”).Height = (Range(“H5”) / 1) * Shapes(“gelas1”).Height
If Range(“H5”) > 1 Then
MsgBox “Volume Air Sudah Penuh”
Range(“H5”) = 1
Shapes(“air”).Height = Shapes(“gelas1”).Height
End If
End Sub
Private Sub CommandButton2_Click()
Range(“H5”) = Range(“H5”) – 1
Shapes(“air”).Height = (Range(“H5”) / 1) * Shapes(“gelas1”).Height
If Range(“H5”) < 0 Then
MsgBox “Sudah kosong”
Range(“H5”) = 0
Shapes(“air”).Height = 0
End If
End Sub
Private Sub CommandButton3_Click()
Range(“E5”) = Range(“E5”) + 1
Shapes(“air1”).Height = (Range(“E5”) / 1) * Shapes(“gelas2”).Height
If Range(“E5”) > 1 Then
MsgBox “Volume Air Sudah Penuh”
Range(“E5”) = 1
Shapes(“air1”).Height = Shapes(“gelas2”).Height
End If
End Sub
Private Sub CommandButton4_Click()
Range(“E5”) = Range(“E5”) – 1
Shapes(“air1”).Height = (Range(“E5”) / 1) * Shapes(“gelas2”).Height
If Range(“E5”) < 0 Then
MsgBox “Sudah kosong”
Range(“E5”) = 0
Shapes(“air1″).Height = 0
End If
End Sub
Private Sub CommandButton5_Click()

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Langkah-langkah-menggunakan-Aplikasi.docx”]
Range(“B5”) = Range(“B5”) – 1
Shapes(“air2”).Height = (Range(“B5”) / 1) * Shapes(“gelas3”).Height
If Range(“B5”) < 0 Then
MsgBox “Sudah kosong”
Range(“B5”) = 0
Shapes(“air2”).Height = 0
End If
End Sub
Private Sub CommandButton6_Click()
Range(“B5”) = Range(“B5”) + 1
Shapes(“air2”).Height = (Range(“B5”) / 1) * Shapes(“gelas3”).Height
If Range(“B5”) > 1 Then
MsgBox “Volume Air Sudah Penuh”
Range(“B5”) = 1
Shapes(“air2”).Height = Shapes(“gelas3”).Height
End If
End Sub