Hallo habe schon seit 2 Tagen intensiv nach einer Funktion gesucht die die Lautstärke auf 0 bzw 100 begrenzt!
Also meine Gedanken...
Man sollte die Lautstärke mit einen Klick auf eine PictureBox steuern können:
1. ABER nicht über 100 und unter 0 (siehe lauter, leiser) kann man das eleganter lösen ohne msgBox?
2. Wenn man aus dem Mute wiederkommt (siehe stumm) sollte die Lautstärke in den Zustand vor dem "mute-Click" zurückspringen. (derzeit noch zurück auf Grundeinstellung)
Und 3. was weniger die Lautstärke angeht:
(siehe Texte von SHOUTcast2) während des laden der Texte friert das Programm ein
Timer = 60 sekunden
Ich hoffe ihr wisst wie ich das meine. und vielen vielen dank im Vorraus!
"leiser"
"stumm"
"lauter"
"Texte von SHOUTcast2"
Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt.
CodeTags korrigiert ~VaporiZed
Also meine Gedanken...
Man sollte die Lautstärke mit einen Klick auf eine PictureBox steuern können:
1. ABER nicht über 100 und unter 0 (siehe lauter, leiser) kann man das eleganter lösen ohne msgBox?
2. Wenn man aus dem Mute wiederkommt (siehe stumm) sollte die Lautstärke in den Zustand vor dem "mute-Click" zurückspringen. (derzeit noch zurück auf Grundeinstellung)
Und 3. was weniger die Lautstärke angeht:
(siehe Texte von SHOUTcast2) während des laden der Texte friert das Programm ein
Timer = 60 sekunden
Ich hoffe ihr wisst wie ich das meine. und vielen vielen dank im Vorraus!
"leiser"
VB.NET-Quellcode
- Private Sub MinusBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinusBox.Click
- If MediaPlayer.settings.volume = 0 Then
- MsgBox("Die Lautstärke ist bereits schon auf 0!", 1, "ACHTUNG")
- Else
- MediaPlayer.settings.volume = MediaPlayer.settings.volume - 1
- TrackBar1.Value = TrackBar1.Value - 1
- End If
- End Sub
"stumm"
VB.NET-Quellcode
- Private Sub MuteBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MuteBox.Click
- If MediaPlayer.settings.volume >= 1 Then
- MediaPlayer.settings.volume = 0
- TrackBar1.Value = MediaPlayer.settings.volume
- MuteBox.Image = My.Resources.Mute_on
- Else
- MediaPlayer.settings.volume = 15
- TrackBar1.Value = MediaPlayer.settings.volume
- MuteBox.Image = My.Resources.Mute_off
- End If
- End Sub
"lauter"
VB.NET-Quellcode
- Private Sub PlusBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlusBox.Click
- If MediaPlayer.settings.volume = 100 Then
- MsgBox("Die Lautstärke ist bereits schon auf 100!", 1, "ACHTUNG")
- Else
- MediaPlayer.settings.volume = MediaPlayer.settings.volume + 1
- TrackBar1.Value = TrackBar1.Value + 1
- End If
- End Sub
"Texte von SHOUTcast2"
VB.NET-Quellcode
- Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim wc As New WebClient()
- Dim html As String = wc.DownloadString("http://IP:PORT/7.html?sid=1")
- Dim i1 As Integer = html.IndexOf("<body>")
- Dim i2 As Integer = html.IndexOf("</body>")
- Dim data As String = html.Substring(i1 + 6, i2 - i1 - 6)
- Dim fields() As String = data.Split(",")
- SC_titel.Text = fields(6)
- SC_shoutcast.Text = fields(5) & " kbps / " & fields(0) & " von " & fields(3) & " Hörer"
- End Sub
Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt.
CodeTags korrigiert ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()