geri sayım
Tarih
24/02/2012 16:29
Konu Sahibi
ondercesmeci
Yorumlar
2
Okunma
1087
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ondercesmeci
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
62
15/06/2010
Çorum
Ofis 2007
12/05/2016,17:32
Çözüldü 
Arkadaşlar merhaba.
butona bastığımda geri sayım başlıyor, bitincede sesi çalıyor.
benim istediğim ise ek olarak son 5 sn kalınca her saniyede uyaran bip sesi çalması ve yukarıda yazdığım şekilde bitmesi. kodu aşağıda gönderdim
ilginize ve bilginize teşekkür ederim.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Declare Function sndPlaySound Lib "winmm.dll" _
            Alias "sndPlaySoundA" _
                (ByVal lpszSoundName As String, _
                 ByVal uFlags As Long) As Long

Private Declare Function PlaySound Lib "winmm.dll" _
            Alias "PlaySoundA" _
                (ByVal lpszName As String, _
                 ByVal hModule As Long, _
                 ByVal dwFlags As Long) As Long

' Sound Flag
Private Const SOUND_FILENAME = &H20000


Private Sub CommandButton1_Click()
Dim PauseTime, Start, Finish, TotalTime, x, Retval
For x = 30 To 0 Step -1
Me.TextBox1.Text = Str(x)
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    
Next x
 Debug.Print PlaySoundFileB("C:\WINDOWS\Media\tada.wav")

 
End Sub

Public Function PlaySoundFileB(ByVal sndFileName As String) As Boolean

Dim iSuccess As Integer
iSuccess = PlaySound(sndFileName, 0&, SOUND_FILENAME)
If iSuccess = 0 Then
    PlaySoundFileB = False
Else
    PlaySoundFileB = True
End If

End Function

Cevapla


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
29/11/2016,19:38
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
For x = 30 To 0 Step -1
    Me.Text1 = str(x)
    If Me.Text1 <= 5 Then Debug.Print PlaySoundFileB("C:\WINDOWS\Media\Windows Ding.wav")
    
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    
Next x
 Debug.Print PlaySoundFileB("C:\WINDOWS\Media\tada.wav")

Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla


ondercesmeci
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
62
15/06/2010
Çorum
Ofis 2007
12/05/2016,17:32
Çözüldü 
Sn. Yandemir
İlginize ve bilginize çok teşekkür ederim.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Webbrowser Geri Butonu ates2014 2 564 09/05/2015, 23:50 ates2014
Çözüldü Yanlışlıkla silineni geri alsın caytug 12 1.674 23/12/2014, 20:43 caytug
Çözüldü Bölünmüş Dosyaya ait Bağlı Tabloları Geri Birleştirmek. access06 2 560 04/12/2014, 19:03 Coskun0559
Çözüldü bat dosyası ile yedeklemeyi geri alma yücelkaya 6 2.393 19/10/2012, 22:49 yücelkaya
Çözüldü Geri Sayaç Technoman 8 2.624 08/01/2012, 00:18 Yandemir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya