İnteraktif test hazırlama Microsoft PowerPoint
HTML-код
- Опубликовано: 13 сен 2024
- Merhabalar. Bu videomuzda Microsoft PowerPoint programıyla interaktif bir test hazırlayacağız. Testin başında ismimizi soracak, sonunda kaç doğru cevabımız olduğunu gösterecek. Bu işlem için PowerPoint içerisinde Visual Basic ve Makrolar bölümlerini kullanacağız. Öncelikle hazırlayacağımız teste bir göz atalım.
Haydi başlayalım.
Rozet tasarım: Bilgisayar Test, Başla
Dosya - Seçenekler - Şeridi Özelleştir - Geliştirici
Geliştirici - Makro Güvenliği - Tüm makroları etkinleştir
Slaytları ekle ve hazırla: 3 soru slaydı ve Netice slaydı
---
Visual Basic bas ve Dim, Dim kodlarını ekle
Makrolar bas ve isim makrosunu ekle, makroyu Başla butonuna uygula
Makrolar bas ve dogruCevap makrosunu ekle, ve makroyu doğru cevaplara uygula.
Yanlış cevaplara Ekle - Eylem - Sonraki Slayt uygula
Makrolar bas ve netice makrosunu ekle, ve makroyu sonucu öğren butonuna uygula
Netice slaytında Sunumu bitir ve Tekrar dene butonlarını ekle
İşte bu kadar.
Merak ettiğiniz, öğrenmek istediğiniz ve hazırlanmasını istediğiniz konuları yorumlar kısmında yazabilirsiniz. Eğer videom size faydalı olduysa, kanalıma abone olup, videomu beğenerek, bildirim zilini açmayı unutmayın.
İyi çalışmalar.
Videodaki Powerpoint sunuyu indirmek için şu linke tıklayın.
drive.google.c...
Baştan sona sunu hazırlamayı öğrenin Microsoft PowerPoint
• Baştan sona sunu hazır...
Öğretmenlerin çok işine yarayacak bir bilgi. Teşekkür ederiz
Güzel yorumlarınız için ben teşekkür ederim
Başarılar dilerim
teşekkürler
elinize sağlık
EMEĞİNİZE SAĞLIK
teşekkürler
başarılarınızın devamını dilerim güzel video
teşekkürler
Çok teşekkürler
rica ederim
Teşekkürler
👍👍👍
Başarılar
teşekkürler
Elina sağlık
teşekkürler
Guzel
Efsane
teşekkürler
Vay bee
teşekkürler
Harikaaaa
teşekkürler
Emeğinize sağlık komşu geldim sizide beklerim 🔔🔔
teşekkürler
Hocam öncelikle çok faydalı bir video olmuş. Emeğinize sağlık. Bu hazırladığımız sunuyu bir web sitesinde de çalıştırabilir miyiz peki?
sunuyu web sitesinde koymak için, pdf veya videoya dönüştürebilirsiniz
Selam. Emeyinize saglik. Ama yalniz ve ya dogru olduqda sesler yapmak mumkunmudur? Mesele dogru oldukda alkis sesleri gibi
Selam, evet daha iyi olur, teşekkürler
merhabalar. ben slaytımı arkaşlarımla paylaşacağım fakat üzerinde değişiklik yapılmasını istemiyorum. Giriş şifresi de koymak istemiyorum. ne yapmalıyım? (sunumun üzerinde değişikliğe karşı nasıl bir şifre koyabilirim)
şifreyi değişiklik yapılmaması için koyabilirsiniz
Hocam emeğine sağlık gerçekten çok iyi. Yıllardır kullanıyorum ama hiç duymamıştım böyle bir şey olduğunu.
Benim aklıma ayrıca bir soru geldi. Piyasada ders kitaplarının zenginleştirilmiş hali satılıyor ünite ünite.( z-kitap deniliyor aslında )Ben bunu kendim yapmak istiyorum. Daha önce power point ile yapılamayacağını düşündüğüm için hiç denemedim ama sizin videonuzdan sonra size yapılıp yapılmayacağını sormak istedim.
Temel olarak sayfa numarasına tıklayınca o sayfaya atlaması, boşluğa tıklanınca akıllı tahtada klavye açılması ve doğru cevap yazıldığında yazılan kelimenin orada kalması ama yanlış yazıldığında silinmesi veya başlangıç sayfasına yada ileri geri gidilmesi gibi şeyler var. Bunları power pointte yapabilir miyim ? Yoksa hangi programı kullanmam gerekir bunun için. Son olarak akıllı tahtalarda pardus kullanılıyor sanırım buda bir etken program seçiminde.
videoda da gördüğünüz gibi VBA kullanılıyor. Visual Basic for Applications. Bunu biraz öğrenerek yapılabilir
@@BilgisayarHane peki araştıracağım teşekkür ederim. Önerebileceğiniz bir kaynak var mı?
@@hakanhasanoglu2768 türkçe kaynak mı?
@@BilgisayarHane türkçe yada İngilizce. daha önce hiç tecrübem yok.
@@hakanhasanoglu2768 microsoft un ki:
docs.microsoft.com/en-us/office/vba/api/overview/powerpoint
Cevap veren olur mu bilmiyorum ama sonuç kısmında yanlış sorunun hangi soru olduğunu da gösterebilir miyiz? Güzel video olmuş teşekkürler.
Merhaba, Visual Basic kodları yazarak yapılabilir (Soru sayısı çok değilse)
Dim numCorrect As Integer
Dim userName As String
Dim corrects As String
Sub getStarted()
numCorrect = 0
corrects = ""
userName = InputBox("Adýnýzý girin", "Adýnýz")
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub correctAnswer1()
numCorrect = numCorrect + 1
corrects = corrects + "1 "
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub correctAnswer2()
numCorrect = numCorrect + 1
corrects = corrects + "2 "
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub correctAnswer3()
numCorrect = numCorrect + 1
corrects = corrects + "3 "
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub learnResult()
MsgBox ("Sizin " & numCorrect & " doðru cevabýnýz var " & ", " & userName & vbCrLf & "Doðru cevaplar: " & corrects)
End Sub
Sunu dosyasının yeni hali:
drive.google.com/open?id=19oyEMMPL9jNKnvc8lnWzwN-nWEoMxx74
@@BilgisayarHane Teşekkür ederim elinize sağlık.
@@BilgisayarHane 20 soru olacak galiba bu kısma girmeden köprü kullanarak hazırlamak daha kolay olacak benim için.
@@sinanakgul55 soru sayısı çok olursa diziler kullanılabilir, ama biraz karışık olabilri anlaması
BİRLEŞTİRME İŞARETİ DEDİĞİNİZ TAM OLARAK NEDİR ?
&
Hocam size nasıl ulaşabilirim? Bi yerde ufak bir hata veriyor intihar edeceğim 😩😩
burdan yazabilirsiniz
@Meow Gun kodu görmem gerekli, yazdığınız kodu aynen buraya yapıştırın, bakayım
Tmmdir
Guzel
teşekkürler