Soundkarte zeitgesteuert "dimmen"

Falls du Turbo-Pascal kennst wäre eventuell Delphi eine Variante. Ich 
bin mir sicher schon Codeschnipsel für die Mixersteuerung unter 
www.delphipraxis.de gesehen zu haben.

Wirklich Flux wäre das mit einem netten Qt Tool...
QTime + QSound sind die gesuchten Klassen.

Danke für Eure Hinweise und Ratschläge. Da werde ich mich am Besten bei
Delphi umsehen; -mit dem C++ -Kram komme ich überhaupt nicht klar.

Was mich wundert ist, daß ich der Erste sein soll, der von der Reklame
geplagt so ein Programm sucht.

MfG Paul

Samuel schrob:
>So ein Programm schreibt man doch in 5min. Wenn noch schön
>aussehen soll vielleicht in 10.

Fein, dann schreib es mir mal in 10 Minuten; es muß noch nicht einmal
schön aussehen.
;-)

SCNR
Paul

War mal eben so Frei

Hoffe es klappt;)

Sorry Falsch!

autohotkey geht bestimmt..

http://www.google.de/search?q=mute+schedule

So, jetzt bin ich dazu gekommen, die Programme von Christopher und von
Samuel zu testen:

Zunächst möchte ich mich bei Euch beiden für die Programmierarbeit
bedanken.

@Christopher
Dein Programm tut nach der Installation von einer neueren Version von
Net-Framework prima seinen Dienst. Ich habe es mit dem "künstlichen"
Verstellen der Systemzeit ausprobiert.

@Samuel
Auch Dein Programm startet, allerdings bediene ich es wohl falsch:
Ich weiß nicht, wie ich die beiden Intervalle (von Minute 57 bis
Minute 0 und von Minute 27 bis 30) darin einstellen kann.

Aber: Du hast das Programm entgegen meiner Vermutung doch geschrieben.
;-)
Es war also keine hohle Phrase von Dir.

MfG Paul

Also ich finde ein vernünftiges Programm schreibt man nicht mal eben so 
in 5 oder 10 Minuten ich für meins zwar ca 10 gebraucht aber dafür ist 
es auch übertrieben sch....


MFG

@Juppi
Ja, ich bin vollkommen zufrieden.

@Christopher
Das Programm tut genau das, was es soll. Wenn Du schon so gut bist, es
zu schreiben, werde ich den Teufel tun, auch noch Ansprüche zu stellen.

Ich habe zwar kein Problem, den Algorithmus dafür in Pseudocode hin-
zuschreiben, aber ich kann ihn nicht in die Syntax der "modernen"
Sprachen umsetzen. Diese objektorientierte Denkweise kriege ich nicht
mehr in meinen alten Kopf.
;-)

Nur eine Frage: Womit hast Du es geschrieben (C, C++, C#)

MfG Paul

Hallo Paul,
geschrieben habe ich es mit Visual Baisic .Net mit Visual Studio 2010

Nebenbei ne neue Version;)

MFG

@Christopher
Aha.
In Visual Basic würde ich wahrscheinlich sogar den Quelltext im Formular 
verstehen.

Das Programm habe ich gleich getestet; -es fühlt sich als "R" in der
Taskleiste ziemlich wohl.

Danke noch einmal für Deine Taten!
:-)
MfG Paul

Hier nochmal der Code:

1

Public Class Form1

2

3

    Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000

4

    Private Const WM_APPCOMMAND As Integer = &H319

5

    Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

6

7

    Dim flag As Boolean

8

9

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

10

        If Now.Minute = 27 Or Now.Minute = 57 Then

11

            If Not flag Then

12

                SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType(APPCOMMAND_VOLUME_MUTE, IntPtr))

13

                flag = True

14

            End If

15

        ElseIf Now.Minute = 30 Or Now.Minute = 0 Then

16

            If flag = True Then

17

                flag = False

18

                SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType(APPCOMMAND_VOLUME_MUTE, IntPtr))

19

            End If

20

        End If

21

    End Sub

22

23

24

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

25

        Timer1.Start()

26

        Me.Visible = False

27

    End Sub

28

29

    Private Sub ToolStripMenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

30

        Close()

31

    End Sub

32

End Class

Sorry für den Rechtschreibfehler es heißt natürlich Basic;)

Prima!
Ich hatte in VB6 angefangen, das Programm zu schreiben und habe es da
auch geschafft, mir die Minuten aus der Systemzeit zu holen.
Dafür habe ich ein Buch hier.
Aber um den Audiomixer anzusteuern muß man, wie ich herausfand die
Bibliothek "winmm.lib" irgendwie mit hineinknoten. Das gelang mir nicht.
:-(
Das VB-Net scheint sich leider sehr von VB zu unterscheiden, aber ich
werde natürlich versuchen, mich da hineinzufuchsen. Das ist nicht so
ein wildes Zeug wie C++
(==!, {} und solche Sachen)
;-)
MfG Paul