PowerPoint Sunusuna Sayaç Eklemek

Geçenlerde bir münazara yarışması için PowerPoint sunumu hazırlama istendi. Münazara kurallarına göre her konuşmacı 5 dakika konuşabilir. Bu yüzden konuşmanın başlayıp bitmesi gereken göstermesi için hazırladığım sunuma birde sayaç ekledim. Slaydımıza sayaç eklemek için biraz Visual Basic bilgisi gerekiyor. Office 2007 kullandığım için sayaç ekleme işini Powerpoint 2007 ye göre anlatacağım. Bundan önceki sürümler için kod kısımlarında bir değişiklik yok sadece TextBox, Label gibi kontrolleri eklemek biraz daha farklı.

Öncelikle Office 2007 de var olan ama varsayılan olarak gözükmeyen “Geliştirici Sekmesini” ekleyelim. Bunun için;

1. Office Butonuna basın. Alt taraftaki PowerPoint Seçeneklerini seçin.
2. Açılan ayar penceresinde en üstte yeralan “Popüler” sekmesini açın.
3. Burda “Şeritte Geliştirici Sekmesini Göster” seçeneğini işaretleyip “Tamam” a basın.

Artık Geliştirici Sekmesini görebiliyor olmalısınız.

Şimdi Sayacımızı eklemeye başlayalım.

Sayaç için öncelikle sunu içerisine bir Metin Kutusu kontrolü ekliyoruz. Ayrıca sayacı başlatıp durdurması içinde 2 tane Komut Düğmesi ekleyeceğiz.

Üzerlerinde CommandButton yazan Komut düğmelerinin üzerlerindeki yazıyı değiştirmek için üzerlerinde sağ tuşa tıklayıp Özellikler komutuna tıklayın.

• Name: Kontrolün ismidir.
  • BackColor : Kontrolün rengini değiştirebilirsiniz.
  • Caption : Kontrolün Üzerindeki yazıyı buradan değiştirebilirsiniz.
  • ForeColor : Kontrolün üzerindeki yazının rengini değiştirebilirsiniz.
  • Picture : Kontrolün üzerine bir resim ekleyebilirsiniz.

Kısa kısa kontrolün özellikler penceresinden bahsettim. Şimdi işin asıl zor kısmına kod yazma kısmıma gelelim.

Kontrole kod eklemek için eklediğiniz kontrolün üzerinde sağ tuşa basıp kod görüntüle deyin. Bir Visual Basic penceresi açılacak. Buraya kodlarımızı yazacağız.

İlk eklediğimiz CommandButton1 bizim sayacımızı başlatan butonumuz olacak. CommandButton2 de sayacımızı durduracak.

Private Sub CommandButton1_Click()
Dim PauseTime, Start, x
Dim dakika, saniye
saniye = 0
dakika = 0
c = 0
For x = 0 To 59 Step 1
   Me.TextBox1.Text = dakika & ":" & Str(x)
  PauseTime = 1
   PauseTime = 1    ' Set duration.
  Start = Timer
    If x = 59 Then
    dakika = dakika + 1
   x = 0
  End If
   Do While Timer < Start + PauseTime Or c = 100
   DoEvents
   Loop
Next x
End Sub

İkinci butonumuzun kodu

Private Sub CommandButton2_Click()
c = 100
Me.TextBox1.Text = 0
End Sub

İsterseniz burada benim münazara için hazırladığım sunuyu inceleyebilirsiniz.
Yukarıda anlattığım gibi yapıldı.

sayacekleme

Bu sunuda daha gelişmiş özelliklere sahip bir sunum örneği. Münazaralarda kullanılabilecek olan sunum taraflara puan ekleme özelliğine de sahip.

geriyesayim