Materi Perkuliahan

Chines Reminder menggunakan VBA Powerpoint

Dipublikasikan pada : 29 Januari 2020.

Sub langkah1()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = Slide2.TextBox1.Text
b = Slide2.TextBox2.Text
c = Slide2.TextBox3.Text
d = Slide2.TextBox4.Text
h = Slide2.TextBox5.Text
k = Slide2.TextBox6.Text
ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text = ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text + 1
e = a * ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text + b
If ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text Mod 8 = 0 Then
ActivePresentation.Slides(2).Shapes(“bulat”).TextFrame.TextRange.Text = ActivePresentation.Slides(2).Shapes(“bulat”).TextFrame.TextRange.Text + 1
End If
ActivePresentation.Slides(2).Shapes(“kotakan”).Duplicate.Name = “kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Text = e
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).Left = (ActivePresentation.Slides(2).Shapes(“kontrol”).Left + 100) + 100 * (ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text Mod 8)
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).Top = ActivePresentation.Slides(2).Shapes(“kontrol”).Top + 50 * ActivePresentation.Slides(2).Shapes(“bulat”).TextFrame.TextRange.Text
f = e Mod c
g = e Mod h
If f = d And g <> Val(k) Then
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Bold = msoTrue
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Color.RGB = vbGreen
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Size = 30
Else
If f = d And g = Val(k) Then
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Bold = msoTrue
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Color.RGB = vbRed
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Size = 30
Else
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Bold = msoFalse
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Color.RGB = vbBlack
ActivePresentation.Slides(2).Shapes(“kotakan” & ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text).TextFrame.TextRange.Font.Size = 30
End If
End If
End Sub
Sub hapus()
Dim i As Integer
ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text = -1
ActivePresentation.Slides(2).Shapes(“bulat”).TextFrame.TextRange.Text = -1
For i = 0 To 100
ActivePresentation.Slides(2).Shapes(“kotakan” & i).Delete
Next i
End Sub
Sub jawaban()
Dim a As Integer
Dim b As Integer
h = Slide2.TextBox5.Text
k = Slide2.TextBox6.Text
l = ActivePresentation.Slides(2).Shapes(“kotakan5”).TextFrame.TextRange Mod h
MsgBox Val(k) = l
If l = Val(k) Then
MsgBox l
Else
MsgBox “salah”
End If
For a = 0 To ActivePresentation.Slides(2).Shapes(“kontrol”).TextFrame.TextRange.Text
ActivePresentation.Slides(2).Shapes(“kotakan” & a).TextFrame.TextRange.Font.Bold = msoTrue
ActivePresentation.Slides(2).Shapes(“kotakan” & a).TextFrame.TextRange.Font.Color.RGB = vbRed
ActivePresentation.Slides(2).Shapes(“kotakan” & a).TextFrame.TextRange.Font.Size = 30
Next a
End Sub

id_IDIndonesian