Sub satu2()
ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text = 1
End Sub
Sub dua2()
ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text = 2
End Sub
Sub tiga2()
ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text = 3
End Sub
Sub empat2()
ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text = 4
End Sub
Sub lima2()
ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text = 5
End Sub
Sub enam2()
ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text = 6
End Sub
Sub tambahaneuy()
ActivePresentation.Slides(3).Shapes(“kot” & ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text).TextFrame.TextRange.Text = ActivePresentation.Slides(3).Shapes(“kot” & ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text).TextFrame.TextRange.Text + 1
End Sub
Sub kuranganeuy()
ActivePresentation.Slides(3).Shapes(“kot” & ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text).TextFrame.TextRange.Text = ActivePresentation.Slides(3).Shapes(“kot” & ActivePresentation.Slides(3).Shapes(“nilai”).TextFrame.TextRange.Text).TextFrame.TextRange.Text – 1
End Sub

Sub pembulatan1()
ActivePresentation.Slides(3).Shapes(“a1”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot1”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot4”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa1()
ActivePresentation.Slides(3).Shapes(“a2”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot1”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot4”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan2()
ActivePresentation.Slides(3).Shapes(“a3”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot2”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot4”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa2()
ActivePresentation.Slides(3).Shapes(“a4”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot2”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot4”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan3()
ActivePresentation.Slides(3).Shapes(“a5”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot3”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot4”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa3()
ActivePresentation.Slides(3).Shapes(“a6”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot3”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot4”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan4()
ActivePresentation.Slides(3).Shapes(“a7”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot1”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot5”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa4()
ActivePresentation.Slides(3).Shapes(“a8”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot1”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot5”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan5()
ActivePresentation.Slides(3).Shapes(“a9”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot2”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot5”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa5()
ActivePresentation.Slides(3).Shapes(“a10”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot2”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot5”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan6()
ActivePresentation.Slides(3).Shapes(“a11”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot3”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot5”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa6()
ActivePresentation.Slides(3).Shapes(“a12”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot3”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot5”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan7()
ActivePresentation.Slides(3).Shapes(“a13”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot1”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot6”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa7()
ActivePresentation.Slides(3).Shapes(“a14”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot1”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot6”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan8()
ActivePresentation.Slides(3).Shapes(“a15”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot2”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot6”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa8()
ActivePresentation.Slides(3).Shapes(“a16”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot2”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot6”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub pembulatan9()
ActivePresentation.Slides(3).Shapes(“a17”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot3”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot6”).TextFrame.TextRange.Text / 10)
End Sub
Sub sisa9()
ActivePresentation.Slides(3).Shapes(“a18”).TextFrame.TextRange.Text = Int(ActivePresentation.Slides(3).Shapes(“kot3”).TextFrame.TextRange.Text * ActivePresentation.Slides(3).Shapes(“kot6”).TextFrame.TextRange.Text) Mod 10
End Sub
Sub awal()
On Error Resume Next
For i = 1 To 18
ActivePresentation.Slides(3).Shapes(“a” & i).TextFrame.TextRange.Text = “”
Next i
For j = 1 To 6
ActivePresentation.Slides(3).Shapes(“kot” & j).TextFrame.TextRange.Text = 0
Next j
For a = 1 To 4
ActivePresentation.Slides(3).Shapes(“pin” & a).Visible = msoFalse
Next a
For b = 1 To 6
ActivePresentation.Slides(3).Shapes(“kot” & 6 + b).TextFrame.TextRange.Text = “”
Next b
End Sub
Sub angka1()
ActivePresentation.Slides(3).Shapes(“kot7”).TextFrame.TextRange.Text = ActivePresentation.Slides(3).Shapes(“a18”).TextFrame.TextRange.Text
End Sub
Sub angka2()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = ActivePresentation.Slides(3).Shapes(“a17”).TextFrame.TextRange.Text
b = ActivePresentation.Slides(3).Shapes(“a16”).TextFrame.TextRange.Text
c = ActivePresentation.Slides(3).Shapes(“a12”).TextFrame.TextRange.Text
d = a + b + c
If d > 9 Then
ActivePresentation.Slides(3).Shapes(“kot8”).TextFrame.TextRange.Text = d Mod 10
ActivePresentation.Slides(3).Shapes(“pin1”).TextFrame.TextRange.Text = Int(d / 10)
ActivePresentation.Slides(3).Shapes(“pin1”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot8”).TextFrame.TextRange.Text = d
ActivePresentation.Slides(3).Shapes(“pin1”).Visible = msoFalse
End If
End Sub
Sub angka3()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
a = ActivePresentation.Slides(3).Shapes(“a6”).TextFrame.TextRange.Text
b = ActivePresentation.Slides(3).Shapes(“a11”).TextFrame.TextRange.Text
c = ActivePresentation.Slides(3).Shapes(“a10”).TextFrame.TextRange.Text
d = ActivePresentation.Slides(3).Shapes(“a15”).TextFrame.TextRange.Text
e = ActivePresentation.Slides(3).Shapes(“a14”).TextFrame.TextRange.Text
If ActivePresentation.Slides(3).Shapes(“pin1”).Visible Then
g = ActivePresentation.Slides(3).Shapes(“pin1”).TextFrame.TextRange.Text
f = a + b + c + d + e + g
If f > 9 Then
ActivePresentation.Slides(3).Shapes(“kot9”).TextFrame.TextRange.Text = f Mod 10
ActivePresentation.Slides(3).Shapes(“pin2”).TextFrame.TextRange.Text = Int(f / 10)
ActivePresentation.Slides(3).Shapes(“pin2”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot9”).TextFrame.TextRange.Text = f
ActivePresentation.Slides(3).Shapes(“pin2”).Visible = msoFalse
End If
Else
f = a + b + c + d + e
If f > 9 Then
ActivePresentation.Slides(3).Shapes(“kot9”).TextFrame.TextRange.Text = f Mod 10
ActivePresentation.Slides(3).Shapes(“pin2”).TextFrame.TextRange.Text = Int(f / 10)
ActivePresentation.Slides(3).Shapes(“pin2”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot9”).TextFrame.TextRange.Text = f
ActivePresentation.Slides(3).Shapes(“pin2”).Visible = msoFalse
End If
End If
End Sub

Sub angka4()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
a = ActivePresentation.Slides(3).Shapes(“a5”).TextFrame.TextRange.Text
b = ActivePresentation.Slides(3).Shapes(“a4”).TextFrame.TextRange.Text
c = ActivePresentation.Slides(3).Shapes(“a9”).TextFrame.TextRange.Text
d = ActivePresentation.Slides(3).Shapes(“a8”).TextFrame.TextRange.Text
e = ActivePresentation.Slides(3).Shapes(“a13”).TextFrame.TextRange.Text
If ActivePresentation.Slides(3).Shapes(“pin2”).Visible Then
g = ActivePresentation.Slides(3).Shapes(“pin2”).TextFrame.TextRange.Text
f = a + b + c + d + e + g
If f > 9 Then
ActivePresentation.Slides(3).Shapes(“kot10”).TextFrame.TextRange.Text = f Mod 10
ActivePresentation.Slides(3).Shapes(“pin3”).TextFrame.TextRange.Text = Int(f / 10)
ActivePresentation.Slides(3).Shapes(“pin3”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot10”).TextFrame.TextRange.Text = f
ActivePresentation.Slides(3).Shapes(“pin3”).Visible = msoFalse
End If
Else
f = a + b + c + d + e
If f > 9 Then
ActivePresentation.Slides(3).Shapes(“kot10”).TextFrame.TextRange.Text = f Mod 10
ActivePresentation.Slides(3).Shapes(“pin3”).TextFrame.TextRange.Text = Int(f / 10)
ActivePresentation.Slides(3).Shapes(“pin3”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot10”).TextFrame.TextRange.Text = f
ActivePresentation.Slides(3).Shapes(“pin3”).Visible = msoFalse
End If
End If

End Sub

Sub hasil5()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim f As Integer
a = ActivePresentation.Slides(3).Shapes(“a3”).TextFrame.TextRange.Text
b = ActivePresentation.Slides(3).Shapes(“a2”).TextFrame.TextRange.Text
c = ActivePresentation.Slides(3).Shapes(“a7”).TextFrame.TextRange.Text
If ActivePresentation.Slides(3).Shapes(“pin3”).Visible Then
g = ActivePresentation.Slides(3).Shapes(“pin3”).TextFrame.TextRange.Text
f = a + b + c + g
If f > 9 Then
ActivePresentation.Slides(3).Shapes(“kot11”).TextFrame.TextRange.Text = f Mod 10
ActivePresentation.Slides(3).Shapes(“pin4”).TextFrame.TextRange.Text = Int(f / 10)
ActivePresentation.Slides(3).Shapes(“pin4”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot11”).TextFrame.TextRange.Text = f
ActivePresentation.Slides(3).Shapes(“pin4”).Visible = msoFalse
End If
Else
f = a + b + c
If f > 9 Then
ActivePresentation.Slides(3).Shapes(“kot11”).TextFrame.TextRange.Text = f Mod 10
ActivePresentation.Slides(3).Shapes(“pin4”).TextFrame.TextRange.Text = Int(f / 10)
ActivePresentation.Slides(3).Shapes(“pin4”).Visible = msoTrue
Else
ActivePresentation.Slides(3).Shapes(“kot11”).TextFrame.TextRange.Text = f
ActivePresentation.Slides(3).Shapes(“pin4”).Visible = msoFalse
End If
End If

End Sub
Sub hasil6()
Dim a As Integer
Dim f As Integer
a = ActivePresentation.Slides(3).Shapes(“a1”).TextFrame.TextRange.Text
If ActivePresentation.Slides(3).Shapes(“pin4”).Visible Then
g = ActivePresentation.Slides(3).Shapes(“pin4”).TextFrame.TextRange.Text
f = a + g
ActivePresentation.Slides(3).Shapes(“kot12”).TextFrame.TextRange.Text = f
Else
f = a
ActivePresentation.Slides(3).Shapes(“kot12”).TextFrame.TextRange.Text = f
End If
End Sub