Tahribat.com Forumları
Visual Basic - Basic - PicBasic ve Türevleri
Windows Ses Seviyesini Nasıl Kontrol Edebilirim ?

Yazar DE5TROY3R (2) Maresca (1) Gösterim 10 50 75 100
Ağ ve Veri Güvenliği     Hertürlü Web tabanlı Saldırı Taktik ve Stratejileri     Web sitesi Güvenliği, DOS - DDOS Saldırıları...     Bilgisayar Güvenliği - Backdoorlar     Virüs - Trojan - Keylogger - BotNet     Skype - Mirc - Irc - Icq - Mail Güvenliği     Bilişim Güvenliği     Hesaplar / Üyelikler     Domain - Hosting - Reseller - Dedicated Server - Virtual Server - IRC Shell - Seedbox     İnternet Güvenliğine Giriş Programlama     C#, Asp.Net, .Net Core     C - C++     Delphi - Pascal     Visual Basic - Basic - PicBasic ve Türevleri     Java     Android - IOS Programlama     Mobil Programlama     Asp - Php - Cgi - Perl     Assembly - Reverse Engineering     Html - CSS - XML - JavaScript - Ajax     Database - Veritabanı     Python     Grafik - Animasyon - Flash - 3D Modelleme     Webmaster ve Yazılım Geliştiriciler     Google / Yandex / Bing ve Servisleri     Programlama Genel     Programlamaya Giriş Bilgisayar ve Teknoloji     Microsoft Windows Ailesi İşletim Sistemleri     Linux ve Diğer İşletim Sistemleri     Donanım & Driver     Network - İnternet     Elektronik / Embedded / Mobil Cihazlar     Kriptoparalar & Blockchain     Fotografçılık ve Digital Fotograf Makineleri - Video Kameralar     Cep Telefonları, Gsm Operatörleri ve Mobil İnternet     Oyunlar     Yazılımlar / Diğer Programlar     Bilgisayarla İlgili Diğer Konular İnternet     Download / Dosya Paylaşım     Bilgisayar ve Internet Teknolojileri İle İlgili Video / Resim / Flash Paylaşım     İnternet Siteleri     Sosyal Ağlar Genel     Genel     Gündem - Güncel Konular     Derin Konular     Bilim Teknik Teknoloji     Müzik & Sinema & Tiyatro & Kitap & Televizyon & Seminerler & Edebiyat     Eğitim & Ödev & Bilimsel Döküman     E-Book     İş - Güç, E-Ticaret, Alışveriş     Hukuk & Muhasebe & Sigorta Soru - Cevap     Ulaşım Araçları ve Seyahat     Vukuatlar     Geyik & Teknoloji İle İlgili Olmayan Video / Resim / Flash Paylaşım Tahribat.com Konuları     Tahribat.com Programları®     Tahribat.Com - Açık Kapılar Önünde     Tahribat.Com - Sosyal Etkinlikler     TahriDepo

Windows Ses Seviyesini Nasıl Kontrol Edebilirim ?

1. 05/Eyl/10 00:02 Kısayol Şikayet Özel Mesaj
   DE5TROY3R
   
   

   Kayıt Tarihi: 04/Nisan/2007
   

   waveOutSetVolume apisini denedim. Bu kod hangi programda çalışıyorsa onun sesini açıyor(Hoperlör bölümü ne kadarsa programınkide o kadar açılıyor)

    

   

   Alıntı yap
2. 09/Eyl/10 11:54 Kısayol Şikayet Özel Mesaj
   DE5TROY3R
   
   

   Kayıt Tarihi: 04/Nisan/2007
   

   Hala bulamadım

   Amaç: Sessizde olan bilgisayarın hoperlörünün sesini maksimum seviyeye çıkartmak

   VB6 olması gerekmiyor

   Alıntı yap
3. 08/Eki/10 18:59 Kısayol Şikayet Özel Mesaj
   Maresca
   
   

   Kayıt Tarihi: 24/Mayıs/2012
   

   Forma 1 tane modül, 6 tane label, 2 tane timer, 1 tane check kutusu, 2 tane slider kontrolü(Microsoft Common Control 6 - MSCOMCTL.OCX) ekleyin.
   
   
   
   
   Kod:
   Option Explicit
   
   Private Sub Check1_Click()
   
   Timer1.Interval = 0
   
   Timer2.Interval = 0
   
   End Sub
   
   
   
   Private Sub Form_Load()
   
   
   
   Label1.Caption = "sag"
   
   Label2.Caption = "sol"
   
   Label3.Caption = "alçak"
   
   Label4.Caption = "yüksek"
   
   Label5.Caption = "alçak"
   
   Label6.Caption = "yüksek"
   
   Check1.Caption = "Kaydirma Göstergeleri Ayni Anda Hareket Etsin"
   
   
   
   Dim lpc As WAVEOUTCAPS
   
   If waveOutGetNumDevs() = 0 Then
   
   MsgBox ("Ses çalacak donanmim yok")
   
   End If
   
   Call waveOutGetDevCaps(0, lpc, Len(lpc))
   
   If lpc.wChannels = 0 Then
   
   Slider2.Visible = False
   
   End If
   
   
   
   If (lpc.dwSupport And 4) = 0 Then
   
   Slider1.Visible = False
   
   Slider2.Visible = False
   
   End If
   
   
   
   If (lpc.dwSupport And 8) = 0 Then
   
   Slider2.Visible = False
   
   End If
   
   
   
   Slider1.Min = 0
   
   Slider1.Max = &HFFFF&
   
   Slider1.TickFrequency = &HFFFF& / 10
   
   Slider2.Min = 0
   
   Slider2.Max = &HFFFF&
   
   Slider2.TickFrequency = &HFFFF& / 10
   
   
   
   
   
   Dim x, sol, sag, st
   
   Call waveOutGetVolume(0, x)
   
   sol = x And &HFFFF&
   
   st = Hex(x And &HFFFF0000)
   
   If Len(st) > 4 Then
   
   st = Mid(st, 1, Len(st) - 4)
   
   Else
   
   st = 0
   
   End If
   
   sag = CDbl("&h" & st)
   
   Slider1.Value = sol
   
   Slider2.Value = sag
   
   End Sub
   
   
   
   Sub sesayar()
   
   Dim x, sol, sag, s
   
   sol = Slider1.Value
   
   sag = Slider2.Value
   
   s = Val("&h" & Hex(sag) & String(4 - Len(Hex(sol)), "0") & Hex(sol) & "&")
   
   Call waveOutSetVolume(0, s)
   
   End Sub
   
   
   
   Private Sub Slider1_Click()
   
   sesayar
   
   End Sub
   
   
   
   Private Sub Slider1_Scroll()
   
   If Check1.Value = 0 Then
   
   Else
   
   Timer1.Interval = 0
   
   Timer2.Interval = 1
   
   End If
   
   sesayar
   
   End Sub
   
   
   
   Private Sub Slider2_Click()
   
   sesayar
   
   End Sub
   
   
   
   Private Sub Slider2_Scroll()
   
   If Check1.Value = 0 Then
   
   Else
   
   Timer2.Interval = 0
   
   Timer1.Interval = 1
   
   End If
   
   sesayar
   
   End Sub
   
   
   
   Private Sub Timer1_Timer()
   
   Slider1 = Slider2
   
   End Sub
   
   
   
   Private Sub Timer2_Timer()
   
   Slider2 = Slider1
   
   End Sub

   ---

   Gel bili bili gates
   Alıntı yap
4. 08/Eki/10 20:12 Kısayol Şikayet Özel Mesaj
   DE5TROY3R
   
   

   Kayıt Tarihi: 04/Nisan/2007
   

   

   verdiğin kodlarda Form1 deki programının sesini açıyor, hoperlörün çizgisini geçemiyor

   Alıntı yap

Cevapla