Materi Perkuliahan

Alat Peraga SPLDV Menggunakan VBA for Powerpoint

Dipublikasikan pada : 29 Januari 2019.

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
Sub hitung()
Dim a, b, c, d, p, 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 (“SPLDV tidak mempunyai penyelesaian tunggal”)
End If
End Sub

[gview file=”https://dosen.ikipsiliwangi.ac.id/wp-content/uploads/sites/6/2019/01/LANGKAH-LANGKAH-PEMBELAJARAN.docx”]