Materi Perkuliahan

Kalkulator Persamaan dan Pertidaksamaan menggunakan Javascript Geogebra

Tujuan dari pembelajaran ini melatih siswa atau mahasiswa tentang mendapatkan solusi dari persamaan dan pertidaksamaan matematika. Klik di siniuntuk mendapatkan contoh: https://www.geogebra.org/m/mdxkmx7p

Kalkulator Integral Menggunakan Geogebra

Tujuan dari kalkulator Integral adalah membantu siswa atau mahasiswa untuk menyamakan jawaban dengan tepat. Klik di sini : https://www.geogebra.org/m/eb7mgdke

Latihan Turunan dalam Berbagai Fungsi Menggunakan Geogebra Javascript

Latihan turunan ini menggunakan software geogebra dengan bahasa Javascript untuk lebih jauh lagi silahkan klik di sini https://www.geogebra.org/m/vvaqgktt  

BUJUR SANGKAR AJAIB (VBA EXCEL)

Sub satu() Dim lembar1 As Worksheet Set lembar1 = Worksheets(1) lembar1.Shapes(“1”).Visible = msoTrue lembar1.Shapes(“2”).Visible = msoFalse lembar1.Shapes(“3”).Visible = msoFalse lembar1.Shapes(“4”).Visible = msoFalse lembar1.Shapes(“5”).Visible = msoFalse lembar1.Shapes(“6”).Visible = msoFalse lembar1.Shapes(“7”).Visible = msoFalse lembar1.Shapes(“8”).Visible = msoFalse lembar1.Shapes(“9”).Visible = msoFalse End Sub Sub dua() Dim lembar1 As Worksheet Set lembar1 = Worksheets(1) lembar1.Shapes(“1”).Visible
baca selengkapnya…

KUBUS (VBA EXCEL)

Sub hilang() ActiveSheet.Shapes(“k1”).Visible = False ActiveSheet.Shapes(“k2”).Visible = False ActiveSheet.Shapes(“k3”).Visible = False ActiveSheet.Shapes(“k4”).Visible = False ActiveSheet.Shapes(“k5”).Visible = False ActiveSheet.Shapes(“k6”).Visible = False ActiveSheet.Shapes(“k7”).Visible = False ActiveSheet.Shapes(“k8”).Visible = False ActiveSheet.Shapes(“k11”).Visible = True ActiveSheet.Shapes(“k12”).Visible = True ActiveSheet.Shapes(“k13”).Visible = True ActiveSheet.Shapes(“k14”).Visible = True ActiveSheet.Shapes(“k15”).Visible = True ActiveSheet.Shapes(“k16”).Visible = True ActiveSheet.Shapes(“k17”).Visible = True ActiveSheet.Shapes(“k18”).Visible = True
baca selengkapnya…

VOLUME BANGUN RUANG (VBA EXCEL)

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″) = ”
baca selengkapnya…

KELILING PERSEGI DAN PERSEGI PANJANG (VBA EXCEL)

Sub acak() Range(“C11”) = Int(50 * Rnd()) + 1 Range(“N11”) = Range(“C11”) Range(“G6”) = Int(50 * Rnd()) + 50 Range(“G16”) = Range(“G6”) Range(“W11”) = Int(100 * Rnd()) + 1 Range(“AA17”) = Range(“W11”) Range(“AE11”) = Range(“W11”) Range(“AA5”) = Range(“W11”) End Sub Sub keliling_persegi_panjang() Range(“E25”) = Range(“G6”) Range(“G25”) = Range(“G6”) Range(“I25”) =
baca selengkapnya…

Permainan Tangram (VBA Powerpoint)

Sub kanan() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft 10 End Sub Sub kiri() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft -10 End Sub Sub atas() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementTop -10 End Sub Sub bawah() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementTop 10 End Sub Sub satu() ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 1 End Sub Sub dua() ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 2 End Sub Sub putar1() ActivePresentation.Slides(1).Shapes(“kotak” &
baca selengkapnya…

Penerapan VBA Excel dalam Mencari Luas & Keliling Persegi Panjang

Langkah-langkah sebagai berikut: [gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/LANGKAH-LANGKAH-LUAS-PERSEGI-PANJANG.docx”]

Luas Permukaan Bola Menggunakan Kulit Jeruk (VBA EXCEL)

Sub jeruk() Dim shinta As Worksheet Set shinta = Worksheets(1) ActiveSheet.Shapes(“1”).Visible = msoFalse ActiveSheet.Shapes(“2”).Visible = msoFalse ActiveSheet.Shapes(“3”).Visible = msoFalse ActiveSheet.Shapes(“4”).Visible = msoFalse ActiveSheet.Shapes(“5”).Visible = msoFalse ActiveSheet.Shapes(“6”).Visible = msoFalse ActiveSheet.Shapes(“7”).Visible = msoFalse ActiveSheet.Shapes(“8”).Visible = msoFalse ActiveSheet.Shapes(“9”).Visible = msoFalse ActiveSheet.Shapes(“10”).Visible = msoFalse ActiveSheet.Shapes(“11”).Visible = msoFalse ActiveSheet.Shapes(“12”).Visible = msoFalse ActiveSheet.Shapes(“13”).Visible = msoFalse ActiveSheet.Shapes(“14”).Visible
baca selengkapnya…