Learn to Code : Membuat Simulasi Penyelesaian Sistem Persamaan Linear Dua Variabel (Powerpoint)

Bagaimana caranya membuat simulasi penyelesaian sistem persamaan linear dua variabel pada powerpoint? Simak dan ikuti tutorial pada video ini.

download : video tutorial membuat simulasi SPLDV

Script VBA untuk Simulasi Penyelesaian Sistem Persamaan Linear Dua Variabel
‘script  untuk tombol hapus
Sub hapus()
Slide1.TextBox1.Text = “-”
Slide1.TextBox2.Text = “-”
Slide1.TextBox3.Text = “-”
Slide1.TextBox4.Text = “-”
Slide1.TextBox5.Text = “-”
Slide1.TextBox6.Text = “-”
ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = “…”
ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = “…”
End Sub

‘script untuk tombol hitung

Sub hitungX_Y()
Dim a, b, p, c, d, q As Integer
a = Val(Slide1.TextBox1.Text)
b = Val(Slide1.TextBox2.Text)
p = Val(Slide1.TextBox3.Text)
c = Val(Slide1.TextBox4.Text)
d = Val(Slide1.TextBox5.Text)
q = Val(Slide1.TextBox6.Text)

If a * d – b * c <> 0 Then
ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = (d * p – b * q) / (a * d – b * c)
ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = (a * q – c * p) / (a * d – b * c)
Else
MsgBox (“Solusi SPLDV tidak tunggal”)
End If
End Sub

download : file latihan membuat simulasi SPLDV