Sub HITUNG1()
Range(“G13”) = (Range(“G9”) ^ 3)
If Range(“B18”) = Range(“G13”) Then
Range(“B21”) = “yes, kamu benar!!”
Range(“B21”).Interior.Color = vbGreen
Else
Range(“B21”) = “ops, coba lagi!”
Range(“B21”).Interior.Color = vbRed
End If
End Sub
Sub reset1()
Range(“G9″) = ” ”
Range(“G13″) = ” ”
Range(“B18″) = ” ”
Range(“B21″) = ” ”
Range(“B21”).Interior.Color = vbWhite
End Sub
Sub HITUNG2()
Range(“U15”) = ((Range(“R9”)) * (Range(“R13”)) * (Range(“R17”)))
If Range(“L17”) = Range(“U15”) Then
Range(“L20”) = “yes, kamu benar!!”
Range(“L20”).Interior.Color = vbGreen
Else
Range(“L20”) = “ops, coba lagi!”
Range(“L20”).Interior.Color = vbRed
End If
End Sub
Sub RESET2()
Range(“U15″) = ” ”
Range(“R9″) = ” ”
Range(“R13″) = ” ”
Range(“R17″) = ” ”
Range(“L17″) = ” ”
Range(“L20″) = ” ”
Range(“L20”).Interior.Color = vbWhite
End Sub
Sub HITUNG3()
Range(“G36”) = (3.14 * (Range(“G28”)) * (Range(“G32”)))
If Range(“B41”) = Range(“G36”) Then
Range(“B44”) = “yes, kamu benar!!”
Range(“B44”).Interior.Color = vbGreen
Else
Range(“B44”) = “ops, coba lagi!”
Range(“B44”).Interior.Color = vbRed
End If
End Sub
Sub RESET3()
Range(“G32″) = ” ”
Range(“G28″) = ” ”
Range(“G36″) = ” ”
Range(“B41″) = ” ”
Range(“B44″) = ” ”
Range(“B44”).Interior.Color = vbWhite
End Sub
Sub HITUNG4()
Range(“R33”) = (4 / 3 * (3.14 * Range(“R29”) ^ 3))
If Range(“M39”) = Range(“R33”) Then
Range(“M42”) = “yes, kamu benar!!”
Range(“M42”).Interior.Color = vbGreen
Else
Range(“M42”) = “ops, coba lagi!”
Range(“M42”).Interior.Color = vbRed
End If
End Sub
Sub RESET4()
Range(“R33″) = ” ”
Range(“R29″) = ” ”
Range(“M39″) = ” ”
Range(“M42″) = ” ”
Range(“M42”).Interior.Color = vbWhite
End Sub
Sub ACAK()
Randomize
Range(“G32”) = Int(100 * Rnd()) + 1
Range(“G9”) = Int(100 * Rnd()) + 1
Range(“G28”) = Int(100 * Rnd()) + 1
Range(“R9”) = Int(100 * Rnd()) + 1
Range(“R17”) = Int(100 * Rnd()) + 1
Range(“R13”) = Int(100 * Rnd()) + 1
Range(“R29″) = Int(100 * Rnd()) + 1
End Sub

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/vba-aplikasi-pak-martin.docx”]