Materi Perkuliahan

MEDIA ALAT PERAGA KONSEP TRAPESIUM

Dipublikasikan pada : 29 Januari 2019.

Sub pertama()
Set Andriani = Worksheets(1)
Andriani.Shapes(“1”).Visible = msoTrue
Andriani.Shapes(“2”).Visible = msoTrue
Andriani.Shapes(“3”).Visible = msoTrue
Andriani.Shapes(“4”).Visible = msoFalse
Andriani.Shapes(“5”).Visible = msoFalse
Andriani.Shapes(“6”).Visible = msoFalse
Andriani.Shapes(“7”).Visible = msoFalse
Andriani.Shapes(“8”).Visible = msoFalse
Andriani.Shapes(“9”).Visible = msoFalse
Andriani.Shapes(“ket0”).Visible = msoTrue
Andriani.Shapes(“ket1”).Visible = msoFalse
Andriani.Shapes(“ket2”).Visible = msoFalse
Andriani.Shapes(“ket3”).Visible = msoFalse
Andriani.Shapes(“ket4”).Visible = msoFalse
Andriani.Shapes(“garis1”).Visible = msoFalse
Andriani.Shapes(“garis2”).Visible = msoFalse
Andriani.Shapes(“garis3”).Visible = msoFalse
Andriani.Shapes(“garis11”).Visible = msoFalse
Andriani.Shapes(“nama1”).Visible = msoFalse
Andriani.Shapes(“nama2”).Visible = msoFalse
Andriani.Shapes(“nama3”).Visible = msoFalse
Andriani.Shapes(“garistambahan”).Visible = msoFalse
End Sub
Sub kedua()
Set Andriani = Worksheets(1)
Andriani.Shapes(“1”).Visible = msoFalse
Andriani.Shapes(“2”).Visible = msoTrue
Andriani.Shapes(“3”).Visible = msoFalse
Andriani.Shapes(“4”).Visible = msoTrue
Andriani.Shapes(“5”).Visible = msoFalse
Andriani.Shapes(“6”).Visible = msoFalse
Andriani.Shapes(“7”).Visible = msoTrue
Andriani.Shapes(“8”).Visible = msoFalse
Andriani.Shapes(“9”).Visible = msoTrue
Andriani.Shapes(“ket0”).Visible = msoTrue
Andriani.Shapes(“ket1”).Visible = msoTrue
Andriani.Shapes(“ket2”).Visible = msoFalse
Andriani.Shapes(“ket3”).Visible = msoFalse
Andriani.Shapes(“ket4”).Visible = msoFalse
Andriani.Shapes(“garis1”).Visible = msoTrue
Andriani.Shapes(“garis2”).Visible = msoFalse
Andriani.Shapes(“garis3”).Visible = msoFalse
Andriani.Shapes(“garis11”).Visible = msoFalse
Andriani.Shapes(“nama1”).Visible = msoTrue
Andriani.Shapes(“nama2”).Visible = msoFalse
Andriani.Shapes(“nama3”).Visible = msoTrue
End Sub
Sub ketiga()
Set Andriani = Worksheets(1)
Andriani.Shapes(“1”).Visible = msoTrue
Andriani.Shapes(“2”).Visible = msoFalse
Andriani.Shapes(“3”).Visible = msoTrue
Andriani.Shapes(“4”).Visible = msoFalse
Andriani.Shapes(“5”).Visible = msoTrue
Andriani.Shapes(“6”).Visible = msoTrue
Andriani.Shapes(“7”).Visible = msoFalse
Andriani.Shapes(“8”).Visible = msoTrue
Andriani.Shapes(“9”).Visible = msoFalse
Andriani.Shapes(“ket0”).Visible = msoTrue
Andriani.Shapes(“ket1”).Visible = msoFalse
Andriani.Shapes(“ket2”).Visible = msoTrue
Andriani.Shapes(“ket3”).Visible = msoFalse
Andriani.Shapes(“ket4”).Visible = msoFalse
Andriani.Shapes(“garis1”).Visible = msoFalse
Andriani.Shapes(“garis2”).Visible = msoTrue
Andriani.Shapes(“garis3”).Visible = msoFalse
Andriani.Shapes(“nama1”).Visible = msoFalse
Andriani.Shapes(“nama2”).Visible = msoTrue
Andriani.Shapes(“nama3”).Visible = msoTrue
Andriani.Shapes(“garis11”).Visible = msoFalse
End Sub
Sub keempat()
Set Andriani = Worksheets(1)
Andriani.Shapes(“1”).Visible = msoFalse
Andriani.Shapes(“2”).Visible = msoFalse
Andriani.Shapes(“3”).Visible = msoFalse
Andriani.Shapes(“4”).Visible = msoFalse
Andriani.Shapes(“5”).Visible = msoFalse
Andriani.Shapes(“6”).Visible = msoFalse
Andriani.Shapes(“7”).Visible = msoTrue
Andriani.Shapes(“8”).Visible = msoTrue
Andriani.Shapes(“9”).Visible = msoTrue
Andriani.Shapes(“ket0”).Visible = msoTrue
Andriani.Shapes(“ket1”).Visible = msoFalse
Andriani.Shapes(“ket2”).Visible = msoFalse
Andriani.Shapes(“ket3”).Visible = msoTrue
Andriani.Shapes(“ket4”).Visible = msoTrue
Andriani.Shapes(“garis1”).Visible = msoFalse
Andriani.Shapes(“garis2”).Visible = msoFalse
Andriani.Shapes(“garis3”).Visible = msoFalse
Andriani.Shapes(“nama1”).Visible = msoFalse
Andriani.Shapes(“nama2”).Visible = msoFalse
Andriani.Shapes(“nama3”).Visible = msoFalse
Andriani.Shapes(“garis11”).Visible = msoFalse
End Sub
Sub kelima()
Set Andriani = Worksheets(1)
Andriani.Shapes(“1”).Visible = msoTrue
Andriani.Shapes(“2”).Visible = msoTrue
Andriani.Shapes(“3”).Visible = msoTrue
Andriani.Shapes(“4”).Visible = msoTrue
Andriani.Shapes(“5”).Visible = msoTrue
Andriani.Shapes(“6”).Visible = msoTrue
Andriani.Shapes(“7”).Visible = msoTrue
Andriani.Shapes(“8”).Visible = msoTrue
Andriani.Shapes(“9”).Visible = msoTrue
Andriani.Shapes(“ket0”).Visible = msoTrue
Andriani.Shapes(“ket1”).Visible = msoTrue
Andriani.Shapes(“ket2”).Visible = msoTrue
Andriani.Shapes(“ket3”).Visible = msoTrue
Andriani.Shapes(“ket4”).Visible = msoTrue
Andriani.Shapes(“garis1”).Visible = msoTrue
Andriani.Shapes(“garis2”).Visible = msoTrue
Andriani.Shapes(“garis3”).Visible = msoFalse
Andriani.Shapes(“nama1”).Visible = msoTrue
Andriani.Shapes(“nama2”).Visible = msoTrue
Andriani.Shapes(“nama3”).Visible = msoFalse
Andriani.Shapes(“garis11”).Visible = msoTrue

End Sub
Sub Luas()
Range(“Y17”) = 1 / 2 * (Range(“V9”) + Range(“V11”)) * Range(“V13”)
Range(“W19”) = “1/2*(Sisi Atas + Sisi Alas)* Tinggi”
If Range(“AA12”) = Range(“Y17”) Then
Range(“AA16”) = “Anda Benar”
Range(“AA16”).Interior.Color = vbGreen
Else
Range(“AA16”) = “Maaf Anda Salah”
Range(“AA16”).Interior.Color = vbRed
End If
End Sub
Sub hapus()
Range(“Y17”) = “”
Range(“W19”) = “”
Range(“AA16”) = “”
Range(“V9”) = “”
Range(“V11”) = “”
Range(“V13”) = “”
Range(“AA12”) = “”
Range(“V19”) = “”
End Sub[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/Cara-Penggunaan-VBA-trapesium.docx”]