Powerpointte bi sorum var lütfen yardım

Kodla Büyü
blankkeyframe

blankkeyframe

Seçkin Üye
Seçkin Üye
Mesajlar
369
makrolar kullanarak bi dijital pano hazırladım powerpointte makrolar hazırdı ben yazmadım ama gösteri 3.kez döndükten sonra duruyor sorunu anlayamadım bi bakarmısınız?? aşağıya yüklüyorum slaytı.. kod kısmına girip modül1 kısmında süreler var ordan bakabilirsiniz..
 

Ekli dosyalar

Arkadaşım gözattım ama bende nedeninin bulamadım ama araştırıyorum. Çok güzel bir dijital pano hazırlamışsın ellerine sağlık.. Dökümanlarıyla paylaşırsan sevinirim :D
 
hocam dökümanı yok dökümanı bizim okulun resimleri ve birde 18 Mart ile ilgili bir video onu media playerdan hedef olarak gösterirsin kendi okulununkini.. buna çözüm bulan yokmu 3 kere dönüp sonra takılıyor 6.slaytta takılıyor 3. turdan sonra şuan lcd de gösteriyorum ama takılınca gidip tekrar başlatmam gerekiyor :(
 
Dim zamansay As Long
'Dim a As Long
Dim zil As Integer

Sub basla1()
a = 0
Call basla

End Sub


Sub basla()
'
' Makro, firat tarafından 27.10.2010 tarihinde oluşturuldu
'
'Slide2.TextBox1.Text = "selam"
'Slide2.Label1.Caption = Time()
'SlideShowWindows(1).View.First
'ActivePresentation.SlideShowWindow.View.GotoSlide


Dim bugun As Date
Dim simdi As Date
Dim X As Integer
Dim ders2 As Date
Dim ders3 As Date
Dim ders4 As Date
Dim ders5 As Date
Dim ders6 As Date


' ders giriş zilleri
ders1 = "08:30:00" 'öğrenci 2. ders giriş
ders2 = "09:25:00" 'öğrenci 2. ders giriş
ders3 = "10:25:00" 'öğrenci 3. ders giriş
ders4 = "11:20:00" 'öğrenci 4. ders giriş
ders5 = "13:10:00" 'öğrenci 5. ders giriş
ders6 = "14:00:00" 'öğrenci 6. ders giriş


' ders çıkış zilleri
ders11 = "09:10:00" 'öğrenci 1. ders çıkış
ders21 = "10:05:00" 'öğrenci 2. ders çıkış
ders31 = "11:05:00" 'öğrenci 3. ders çıkış
ders41 = "12:00:00" 'öğrenci 4. ders çıkış
ders51 = "13:50:00" 'öğrenci 5. ders çıkış
ders61 = "14:40:00" 'öğrenci 6. ders çıkış

'örnek zil saatleri denemek için aşağıdakini değiştirin
'ders66 = "22:22:00" 'saat ayar satırı


bugun = Date
simdi = Time



'slide 1 etiketleri tarih ve saat tanımları
Slide1.tarih.Caption = "BUGÜN :" & bugun
Slide2.tarih.Caption = "BUGÜN :" & bugun
Slide3.tarih.Caption = "BUGÜN :" & bugun
Slide4.tarih.Caption = "BUGÜN :" & bugun
Slide5.tarih.Caption = "BUGÜN :" & bugun
Slide6.tarih.Caption = "BUGÜN :" & bugun
Slide7.tarih.Caption = "BUGÜN :" & bugun



'zamansay değişkenine en uzun tenefüs süresini dk. olarak tanımlayın
While zamansay < 36000
If zamansay = 20 Then Call Slide1.ileri '3. slayta gitti
If zamansay = 40 Then Call Slide1.ileri '4. slayta gitti
If zamansay = 116 Then Call Slide1.ileri '5. slayta gitti
If zamansay = 136 Then Call Slide1.ileri '6. slayta gitti
If zamansay = 371 Then Call Slide1.ileri '7. slayta gitti
If zamansay = 391 Then Call Slide1.ileri '7. slayta gitti
'If zamansay = a + 371 Then Call Slide1.ileri '8. slayta (zil) gitti

If zamansay = 391 Then
zamansay = 0
'a = 0
Call Slide1.don
End If


If a = 12 Then

End If


Slide1.saat.Caption = "SAAT :" & simdi
Slide2.saat.Caption = "SAAT :" & simdi
Slide3.saat.Caption = "SAAT :" & simdi
Slide4.saat.Caption = "SAAT :" & simdi
Slide5.saat.Caption = "SAAT :" & simdi
Slide6.saat.Caption = "SAAT :" & simdi
Slide7.saat.Caption = "SAAT :" & simdi
Select Case (simdi)





'ders giriş zili
Case Is < "08:30:00" '1. ders öğrenci zili
zil = DateDiff("n", simdi, ders1)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil


'ders çıkış zili
Case Is < "09:10:00" '1. ders öğrenci zili
zil = DateDiff("n", simdi, ders11)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil

'******************************************************
'ders giriş zili
Case Is < "09:25:00" '2. ders öğrenci zili
zil = DateDiff("n", simdi, ders2)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil

'ders çıkış zili
Case Is < "10:05:00" '2. ders öğrenci zili
zil = DateDiff("n", simdi, ders21)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil

'*************************************************************
'ders giriş zili
Case Is < "10:25:00" '3. ders öğrenci zili
zil = DateDiff("n", simdi, ders3)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil



'ders çıkış zili
Case Is < "11:05:00" '3. ders öğrenci zili
zil = DateDiff("n", simdi, ders31)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil

'************************************************************

'ders giriş zili
Case Is < "11:20:00" '4. ders öğrenci zili
zil = DateDiff("n", simdi, ders4)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil

'ders çıkış zili
Case Is < "12:00:00" '4. ders öğrenci zili
zil = DateDiff("n", simdi, ders41)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil

'*******************************************************************

'ders giriş zili
Case Is < "13:10:00" '5. ders öğrenci zili
zil = DateDiff("n", simdi, ders5)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil


'ders çıkış zili
Case Is < "13:50:00" '5. ders öğrenci zili
zil = DateDiff("n", simdi, ders51)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil


'**********************************************************************

'ders giriş zili
Case Is < "14:00:00" '6. ders öğrenci zili
zil = DateDiff("n", simdi, ders6)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil


'ders çıkış zili
Case Is < "14:40:00" '6. ders öğrenci zili
zil = DateDiff("n", simdi, ders61)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil




'*****************************************************************
'ders çıkış zili
Case Is < "22:22:10" 'DENEME ZİLİ AYARI
zil = DateDiff("n", simdi, ders66)
Slide2.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide3.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide4.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide5.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide6.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
Slide7.zil.Caption = "ZİLİN ÇALMASINA " & zil & " dk. KALDI"
If zil < 1 Then Call Slide1.zil










End Select

If zil < 1 Then End
Call Wait
Wend

End Sub



Sub Wait()
Dim once As Date
Dim simdi As Date
Dim kkk As Long

On Error GoTo hata
once = Now
While kkk < 1
DoEvents
simdi = Now
kkk = DateDiff("s", once, simdi)
Wend
zamansay = zamansay + 1
Call basla
On Error GoTo hata
kkk = 0
Exit Sub
hata:
End

End Sub

Sub Waitzil()
Dim once As Date
Dim simdi As Date
Dim kkk As Long

On Error GoTo hata
once = Now

While kkk < 20
DoEvents
simdi = Now
kkk = DateDiff("s", once, simdi)
Wend
zamansay = 0

'zil tekrar çalmaması için
zil = 1

ActivePresentation.SlideShowWindow.View.GotoSlide (2)

Call basla
On Error GoTo hata
kkk = 0
Exit Sub
hata:
End

End Sub
 
kodlar bunlar burdan belki yapabilirsiniz.. makroların çalışması lazım ayrıca niye çalışmadığını analmadım..
 
çalıştırmak istediğimde gelen uyarı şu
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Can't find project or library
---------------------------
Tamam Yardım
---------------------------
 
vallaha hocam sorunun ne olduğunu anlayamadım ama çalışması lazım ya vallaha çok sinir bozucu bi durum 3 kez dönüyor sonra duruyor slayttanda çıkmıyor lcd takılmış bekliyor napacam bilmiom :(
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst