Script VBA untuk membuat simulasi warna RGB

 SIMULASI WARNA RGB MENGGUNAKAN SCRIPT VBA

Private Sub SpinButton1_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRed”).Fill.BackColor.RGB = RGB(Val(SpinButton1), 0, 0)
ActivePresentation.Slides(1).Shapes(“kotakRed”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), 0, 0)
ActivePresentation.Slides(1).Shapes(“angkaRed”).TextFrame.TextRange.Text = Val(SpinButton1)
End Sub

Private Sub SpinButton2_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakGreen”).Fill.BackColor.RGB = RGB(0, Val(SpinButton2), 0)
ActivePresentation.Slides(1).Shapes(“kotakGreen”).Fill.ForeColor.RGB = RGB(0, Val(SpinButton2), 0)
ActivePresentation.Slides(1).Shapes(“angkaGreen”).TextFrame.TextRange.Text = Val(SpinButton2)
End Sub

Private Sub SpinButton3_Change()
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.BackColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakRGB”).Fill.ForeColor.RGB = RGB(Val(SpinButton1), Val(SpinButton2), Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakBlue”).Fill.BackColor.RGB = RGB(0, 0, Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“kotakBlue”).Fill.ForeColor.RGB = RGB(0, 0, Val(SpinButton3))
ActivePresentation.Slides(1).Shapes(“angkaBlue”).TextFrame.TextRange.Text = Val(SpinButton3)
End Sub

Baca selanjutnya

Script VBA untuk membuat quiz pilihan ganda dalam satu slide

 Script VBA untuk membuat quiz pilihan ganda

‘===================

‘Pilih Jawaban no. 1

‘===================

Sub pilihA1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 2

‘===================

Sub pilihA2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 3

‘===================

Sub pilihA3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 4

‘===================

Sub pilihA4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Procedure periksa jawaban

‘===================

Sub periksa()
Dim jawaban, kunciJawab, rBenar, rSalah As Variant
Dim i As Integer
Dim nilai As Integer
Dim j1, j2, j3, j4 As String
j1 = ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text
j2 = ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text
j3 = ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text
j4 = ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text
jawaban = Array(j1, j2, j3, j4)
kunciJawab = Array(“A”, “A”, “A”, “A”)
rBenar = Array(“responBenar_1″, “responBenar_2″, “responBenar_3″, “responBenar_4″)
rSalah = Array(“responSalah_1″, “responSalah_2″, “responSalah_3″, “responSalah_4″)
For i = 0 To 3
If jawaban(i) = kunciJawab(i) Then
nilai = nilai + 25
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = True
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Else
nilai = nilai + 0
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = True
End If
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = nilai
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = False
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = True
End Sub

‘===================

‘Procedure Reset

‘===================

Sub reset()
Dim jawab, rBenar, rSalah As Variant
Dim i As Integer
jawab = Array(“jawab1″, “jawab2″, “jawab3″, “jawab4″)
rBenar = Array(“responBenar_1″, “responBenar_2″, “responBenar_3″, “responBenar_4″)
rSalah = Array(“responSalah_1″, “responSalah_2″, “responSalah_3″, “responSalah_4″)
For i = 0 To 3
ActivePresentation.Slides(1).Shapes(jawab(i)).TextFrame.TextRange.Text = “”
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = “0″
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = True
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = False
End Sub

Sumber : Abdul Karim

Baca selanjutnya