komut düğmesine ses çıkarma

[orcunerkek54]

Merhabalaar garip bir soru olacak ama kaydet veya herhangibir komut düğmesinin üzerine mausu getirdiğimizde ve komut düğmesine bastığımızda bip veye herhangi bir ses çıkarttıra bilirmiyiz şimdiden teşekkürler Dosyam ektedir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Beep
End Sub

 

[nziya]

Yanıt

Bir ses çaldırma örneği ses klasörünü C:\ 'ye kopyalayıp deneyin
boş bir klasörün içine ses.part1 önce bunu çıkarın diğeri kendi çıkar

 

[orcunerkek54]

çok teşekkür ederim saolun her konuda hiç sınır tanımıyorsunuz. :mutlu:

 

[orcunerkek54]

syn leventm bey sizinde yardımlarınız için teşekkürler.sizin kodunuzu denedim ve başarılı oldum.Ancak userformumu ben basmada açıyor.değişiklik yapmaya çalıştım ancak başarılı olamadım.bu kodunuzu önce üzerine geldiğimizde 2. işlem olarakta bastığımızda ses çıkartacak hale getirebilirmiyiz.şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Yukarıda verdiğim koda ilaveten aşağıdakinide butona yazarsanız basıncada çalışacaktır.

Private Sub CommandButton1_Click()
Beep
End Sub

 

[orcunerkek54]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Beep
End Sub

syn leventm hocam daha önce bu kodu vermiştiniz bu kod butonun üzerine geldiğimde hemen formu açmakta.Benim sizden ricam fareyi butonun üzerine getirdiğimde ses versin ancak açmasın beklesin.bastığım zaman ses çıkartsın ve açsın.
TŞK ederim.

 

[Haluk]

Yukarıda verdiğim koda ilaveten aşağıdakinide butona yazarsanız basıncada çalışacaktır.

Private Sub CommandButton1_Click()
Beep
End Sub

Levent dostum, buna ne dersin ? :mrgreen:

Private Declare Function Beep Lib "kernel32" _
               (ByVal dwFreq As Long, _
                ByVal dwDuration As Long) _
                As Long
'
Private Sub CommandButton1_Click()
    Call PlayBeep
    Unload Me
End Sub
'
Private Sub UserForm_Activate()
    Call PlayBeep
End Sub
'
Private Sub PlayBeep()
    Dim i As Long
    For i = 0 To 400 Step 25
        Beep i, 40
        DoEvents
    Next
    For i = 400 To 0 Step -25
        Beep i, 40
        DoEvents
    Next
End Sub

Kaynak için tıklayınız ...

 

[orcunerkek54]

syn leventm,Haluk ve nziya öncelikle yardımlarınızdan ötürü hepinize teşekkür ederim.Vermiş olduğunuz örneklerle sorunumun büyük kısmını giderdim.Ancak bazı programlardaki veya internet sayfalarındaki gibi fare imlecinin buton üzerine geldiği zaman rengi değişir veya clink diye bir ses çıkartıyor.Mümkünse eğer benim şu anki sizden istediğim yardım bu.Benim maus imlecim butonun üzerinden geçerseses versin.şu an butonlarım beep'li ve müzikli çalışıyor ama bu sorunu çözemedim.Üzerinden geçerken herhangibir ses çıkartsın.Þimdiden teşekkürler.Kolay gelsin. :düsün:

 

[Levent Menteşoğlu]

Levent dostum, buna ne dersin ?

Ne diyeyim süper, üzerinde biraz çalışılırsa beste bile yapılabilir.

 

[orcunerkek54]

Yukarıda verdiğim koda ilaveten aşağıdakinide butona yazarsanız basıncada çalışacaktır.

[vb:1:ecb11182b1]Private Sub CommandButton1_Click()
Beep
End Sub
[/vb:1:ecb11182b1]

Levent dostum, buna ne dersin ? :mrgreen:

Private Declare Function Beep Lib "kernel32" _
               (ByVal dwFreq As Long, _
                ByVal dwDuration As Long) _
                As Long
'
Private Sub CommandButton1_Click()
    Call PlayBeep
    Unload Me
End Sub
'
Private Sub UserForm_Activate()
    Call PlayBeep
End Sub
'
Private Sub PlayBeep()
    Dim i As Long
    For i = 0 To 400 Step 25
        Beep i, 40
        DoEvents
    Next
    For i = 400 To 0 Step -25
        Beep i, 40
        DoEvents
    Next
End Sub

Kaynak için tıklayınız ...

Bu kodları çalıştıramadım sadece
vb]Private Sub CommandButton1_Click()
Beep
End Sub
bu kod çalıştı diğerlerinde de
Call PlayBeep
hatası veriyor bu olayı çözemedim bunları ekleyiye göndermeniz mümkünmü. Teşekkürler

 

[Haluk]

Buyrun ...

 

[orcunerkek54]

çok teşekkürler gerçekten harika :mutlu: