RadioID - Problem

button421

Hallo Leute!
Ich habe dieses Programm mal geskriptet:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <EditConstants.au3>
IniDelete(@ScriptDir&"\RadioID Logbericht.txt","actions")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","=","+>Starting A&C Autologger[OK]")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","==","+>Wait on Name and Password[...]")
Global $musik
Global $werbung
#Region ### START Koda GUI section Hauptprog ### Form=C:\Users\Jonathan Verbeek\Desktop\Arschens & Co TerminalForm.kxf
$TerminalForm1 = GUICreate("RadioID v1.0 - Eingeloggt als JoNi - Frequenz : 600,4 MHz", 573, 488, 215, 130)
$MenuItem1b = GUICtrlCreateMenu("Datei")
$SubMenuItem1b = GUICtrlCreateMenu("Modus", $MenuItem1b)
$Sub2MenuItem1b = GUICtrlCreateMenuItem("Musik + Werbung + Stimme", $SubMenuItem1b)
$SubMenuItem3b = GUICtrlCreateMenuItem("Beenden", $MenuItem1b)
$MenuItem2b = GUICtrlCreateMenu("Show")
$SubMenuItem11b = GUICtrlCreateMenuItem("Morgenshow", $MenuItem2b)
$SubMenuItem21b = GUICtrlCreateMenuItem("Mittagstisch", $MenuItem2b)
$SubMenuItem31b = GUICtrlCreateMenuItem("Weltweit", $MenuItem2b)
$SubMenuItem41b = GUICtrlCreateMenuItem("Gute Nacht!", $MenuItem2b)
$SubMenuItem51b = GUICtrlCreateMenuItem("Fußballreportage", $MenuItem2b)
$SubMenuItem61b = GUICtrlCreateMenuItem("Formel 1 Reportage", $MenuItem2b)
$MenuItem3b = GUICtrlCreateMenu("?")
$SubMenuItem12b = GUICtrlCreateMenuItem("Hilfe / Info", $MenuItem3b)
$MenuItem4b = GUICtrlCreateMenuItem("Ausloggen", -1)
$MusikList1 = GUICtrlCreateList("", 48, 56, 169, 279)
$Label1b = GUICtrlCreateLabel("Musik:", 48, 32, 35, 17)
$Label2b = GUICtrlCreateLabel("Werbung:", 240, 32, 51, 17)
$WerbungList2 = GUICtrlCreateList("", 240, 56, 169, 279)
$Slider1 = GUICtrlCreateSlider(520, 368, 30, 77, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 100, 0)
$Label3b = GUICtrlCreateLabel("Lautstärke:", 464, 360, 57, 17)
$Label4b = GUICtrlCreateLabel("--0", 544, 376, 16, 17)
$Label5b = GUICtrlCreateLabel("--100", 544, 424, 22, 17)
$Group1b = GUICtrlCreateGroup("Werbung", 136, 376, 185, 73)
$Button1b = GUICtrlCreateButton("Play", 144, 400, 35, 25, $WS_GROUP)
$Button2b = GUICtrlCreateButton("Pause", 184, 400, 35, 25, $WS_GROUP)
$Button3b = GUICtrlCreateButton("Stop", 224, 400, 35, 25, $WS_GROUP)
$Button4b = GUICtrlCreateButton("CUE A", 264, 400, 51, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2b = GUICtrlCreateGroup("Musik", 320, 376, 193, 73)
$Button5b = GUICtrlCreateButton("Play", 328, 400, 35, 25, $WS_GROUP)
$Button6b = GUICtrlCreateButton("Pause", 368, 400, 35, 25, $WS_GROUP)
$Button7b = GUICtrlCreateButton("Stop", 408, 400, 35, 25, $WS_GROUP)
$Button8b = GUICtrlCreateButton("CUE B", 448, 400, 59, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6b = GUICtrlCreateLabel("Sounds:", 472, 64, 43, 17)
$SndButton1b = GUICtrlCreateButton("Werbung START", 472, 88, 91, 25, $WS_GROUP)
$SndButton2b = GUICtrlCreateButton("Werbung ENDE", 472, 112, 91, 25, $WS_GROUP)
$SndButton3b = GUICtrlCreateButton("Nachrichten", 472, 136, 91, 25, $WS_GROUP)
$SndButton5b = GUICtrlCreateButton("Wetter", 472, 160, 91, 25, $WS_GROUP)
$SndButton6b = GUICtrlCreateButton("Allgeimsound", 472, 184, 91, 25, $WS_GROUP)
$AddButton1b = GUICtrlCreateButton("Hinzufügen", 144, 336, 75, 25, $WS_GROUP)
$AddButton2b = GUICtrlCreateButton("Hinzufügen", 336, 336, 75, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\A&C icon.jpg", 32, 376, 89, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_HIDE)
Dim $TerminalForm1_AccelTable[4][2] = [["^d", $MenuItem1b],["^s", $MenuItem2b],["^h", $MenuItem3b],["^l", $MenuItem4b]]
GUISetAccelerators($TerminalForm1_AccelTable)
#EndRegion ### END Koda GUI section Hauptprog ###
SoundSetWaveVolume(GUICtrlRead($Slider1))
;------------------------------------------------
#Region ### START Koda GUI section Loginscreen### Form=C:\Users\Jonathan Verbeek\Desktop\Aschens & Co Loginscreen.kxf
$Form1 = GUICreate("Einloggen", 311, 108, 192, 124)
$Label1 = GUICtrlCreateLabel("Moderator/en:", 8, 16, 72, 17)
$Label2 = GUICtrlCreateLabel("Passwort:", 8, 40, 50, 17)
$Input1 = GUICtrlCreateInput("", 88, 16, 217, 21)
$Input2 = GUICtrlCreateInput("", 88, 40, 217, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Einloggen", 224, 64, 81, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(0, 88, 310, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section Loginscreen###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$message1 = MsgBox(36,"Sicher?","Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $Button1
_logon()
Case $Sub2MenuItem1b
MsgBox(64,"Info!","Dieser Modus ist schon aktiviert!" & @CRLF & "" & @CRLF & "Aber nur weil sie das Terminal als ""One-Mode-Edition"" erworben haben!")
Case $SubMenuItem3b
$message1 = MsgBox(36,"Sicher?","Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $SubMenuItem11b
MsgBox(64,"Info!","Morgenshow ist aktiviert!")
Case $SubMenuItem21b
MsgBox(64,"Info!","Mittagstisch ist aktiviert!")
Case $SubMenuItem31b
MsgBox(64,"Info!","Weltweit ist aktiviert!")
Case $SubMenuItem41b
MsgBox(64,"Info!","Gute Nacht! ist aktiviert!")
Case $SubMenuItem51b
MsgBox(64,"Info!","Fußballrepotage ist aktiviert!")
Case $SubMenuItem61b
MsgBox(64,"Info!","Formel 1 Reportage ist aktiviert!")
Case $SubMenuItem12b
MsgBox(64,"Hilfe / Info","Also:" & @CRLF & "" & @CRLF & "Lade einfach mit ""Hinzufügen"" Musik oder Werbung in die entsprechenden Listen rein." & @CRLF & "" & @CRLF & "Das Terminal besitzt die gleichen Funktionen wie ein Medien-Player (Play, Stop, Pause) Neu ist CUE A und CUE B zum umschalten von Musik -> Werbung oder andersrum" & @CRLF & "" & @CRLF & "An der rechten Seite sieht man die sogenannten ""Sounds""." & @CRLF & "" & @CRLF & "" & @CRLF & "INFO: Idee und Umsetzung: Jonathan Verbeek (c) 2010. All Rights reserved")
Case $MenuItem4b
$message2 = MsgBox(36,"Ausloggen?","Du wirst ausgeloggt!")
If $message2 = 6 Then
GUISetState(@SW_HIDE, $TerminalForm1)
GUISetState(@SW_SHOW, $Form1)
MsgBox(64,"Ausgeloggt!","Du bist ausgeloggt!")
EndIf
Case $AddButton1b
Local $musik
$musik = FileOpenDialog("Musik auswählen!",@DesktopDir, "Musikdateien (*.wma;*.mp3;*.cda)", 15)
If @error Then
MsgBox(16, "Fehler!", "Keine Datei ausgewählt")
ElseIf Not IsArray($musik) Then
$f = StringSplit($musik, "\", 1)
GUICtrlSetData($MusikList1, $f[UBound($f) - 1])
Else
$f = StringSplit($musik, "|", 1)
For $i = 2 To $f[0]
GUICtrlSetData($MusikList1, $f[$i])
Next
EndIf
Case $AddButton2b
Local $werbung
$werbung = FileOpenDialog("Werbung auswählen!",@DesktopDir, "Musikdateien (*.wma;*.mp3;*.cda)", 15)
If @error Then
MsgBox(16, "Fehler!", "Keine Datei ausgewählt")
ElseIf Not IsArray($werbung) Then
$f = StringSplit($werbung, "\", 1)
GUICtrlSetData($WerbungList2, $f[UBound($f) - 1])
Else
$f = StringSplit($werbung, "|", 1)
For $i = 2 To $f[0]
GUICtrlSetData($WerbungList2, $f[$i])
Next
EndIf
Case $Button1b
;_SoundPlay($werbung) Das geht nicht
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _logon()
If GUICtrlRead($Input1) = "JoNi" Then
GUICtrlSetData($Progress1, 50)
Else
MsgBox(16,"Fehler!","Benutzername falsch!")
EndIf
If GUICtrlRead($Input2) = "passwd" Then
GUICtrlSetData($Progress1, 100)
MsgBox(64,"Eingeloggt", "ON AIR!" & @CRLF & "" & @CRLF & "Du bist im Terminal eingeloggt!")
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $TerminalForm1)
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","===","+>LOGGED ON:")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","====","+>JoNi| Time: " & @HOUR & ":" & @MIN & ":" & @SEC & " Date: " & @MDAY & "." & @MON & "." & @YEAR )
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","=====","+>Starting A&C Terminal v2.0[OK]")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","======","+>This is a automatically IniWrite-System! Please not edit this .txt File! Thanks!")
Global $musik
Global $werbung
Else
MsgBox(16,"Fehler!","Passwort falsch!")
EndIf
EndFunc ;<==_logon()

[/autoit] [autoit][/autoit] [autoit][/autoit]

Das Problem:
Wenn man auf Hinzufügen klickt, kommt der FileOpenDialotg, der fragt welche Musik geladen werden soll; genauso wie bei Werbung.
Dann erscheint die ausgewählte Musik bzw. Werbung in den Listen.
Dann möchte ich dass wenn man auf Play bei Musik oder Werbung klickt, dass dann nur der ausgewählte Titel gespielt wird,
aber wenn ich das so mache:
Case $Button1b
_SoundPlay($werbung)

Da spielt er erstens nichts, und zweitens würde er doch dann alle Titel spielen, oder?

MfG button421^^

**autoBert**

Hallo btton421,

du merkst dir ja nur den/die Titelnamen, zum abspielen benötigst du aber den kompletten Pfad merken. Hier ein Beispiel anhand eines JPG-Viewers:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#Include <GuiListBox.au3>
#include <File.au3>
#include <array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('MustDeclareVars', 1)

[/autoit] [autoit][/autoit] [autoit]

Global $msg, $message, $var, $aFiles, $idfrmMain, $sSourcePath, $sItem
Global $szDrive, $szDir, $szFName, $szExt

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$idfrmMain = GUICreate("JPG-Viewer", 512, 460)
Local $idfilemenu = GUICtrlCreateMenu("&Datei")
Local $idfileitem = GUICtrlCreateMenuItem("Öffnen", $idfilemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
Local $idexititem = GUICtrlCreateMenuItem("Beenden", $idfilemenu)
Local $idLB_Files = GUICtrlCreateList("",5,5,502,140)
Local $idbtnShow = GUICtrlCreateButton("&Zeige Bild",5,150,150,25)
Local $idPic = GUICtrlCreatePic("",5,180,256,256)
;_GUICtrlListView_SetColumnWidth($idLB_Files,1,0) ;zweite Spalte versteckt
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $idfileitem

[/autoit] [autoit][/autoit] [autoit]

$message = "Um mehrere Dateien auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."

[/autoit] [autoit][/autoit] [autoit]

$var = FileOpenDialog($message, @MyDocumentsDir & "", "Bilder (*.jpg;*.bmp)", 1 + 4)
If @error Then
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
Else
$aFiles = StringSplit($var,"|")
if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Bild
;$aFiles[n+1] enthält n. Bild
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
For $i = 2 to $aFiles[0]
_GUICtrlListBox_AddString($idLB_Files,$aFiles[1] & "\" & $aFiles[$i])
Next
Else
ConsoleWrite($aFiles[1] & @crlf)
_GUICtrlListBox_AddString($idLB_Files,$aFiles[1])
EndIf
EndIf
Case $idbtnShow
$sItem = _GUICtrlListBox_GetText($idLB_Files,_GUICtrlListBox_GetCurSel($idLB_Files))
If $idPic = 0 then
$idPic = GUICtrlCreatePic($sItem,5,180,256,256)
;es gibt noch kein Control das ein Bild aufnehmen kann, also erzeugen
;nur vorichtshalber (in füheren Versionen wurde ohne Filenamen kein Pic-Control angelegt)
Else
GUICtrlSetImage($idPic,$sItem)
;es bereits ein Control das ein Bild aufnehmen kann, also anderes Bild anzeigen
EndIf
Case $GUI_EVENT_CLOSE, $idexititem
Exit
EndSwitch
WEnd

[/autoit]

Hier ein Beispiel für ListView (dieses ist vorzuziehen, da auch aus mehreren Katalogen, Dateien aufgenommen werden können):

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#Include <GuiListView.au3>
#include <File.au3>
#include <array.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt('MustDeclareVars', 1)

[/autoit] [autoit][/autoit] [autoit]

Global $msg, $message, $var, $aFiles, $idfrmMain, $sSourcePath, $aItem
Global $szDrive, $szDir, $szFName, $szExt

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$idfrmMain = GUICreate("JPG-Viewer", 266, 450)
Local $idfilemenu = GUICtrlCreateMenu("&Datei")
Local $idfileitem = GUICtrlCreateMenuItem("Öffnen", $idfilemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
Local $idexititem = GUICtrlCreateMenuItem("Beenden", $idfilemenu)
Local $idLV_Files = GUICtrlCreateListView("Name: |Pfad",5,5,256,140)
Local $idbtnShow = GUICtrlCreateButton("&Zeige Bild",5,150,150,25)
Local $idPic = GUICtrlCreatePic("",5,180,256,256)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $idfileitem

[/autoit] [autoit][/autoit] [autoit]

$message = "Um mehrere Dateien auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."

[/autoit] [autoit][/autoit] [autoit]

$var = FileOpenDialog($message, @MyDocumentsDir & "", "Bilder (*.jpg;*.bmp)", 1 + 4)
If @error Then
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
Else
_GUICtrlListView_BeginUpdate($idLV_Files)
$aFiles = StringSplit($var,"|")
if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Bild
;$aFiles[n+1] enthält n. Bild

[/autoit] [autoit][/autoit] [autoit]

;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren

[/autoit] [autoit][/autoit] [autoit]

For $i = 2 to $aFiles[0]
GUICtrlCreateListViewItem($aFiles[$i]&"|" & $aFiles[1],$idLV_Files)
Next
Else ;nur eine Datei ausgewählt
ConsoleWrite($aFiles[1] & @crlf)
_PathSplit($aFiles[1], $szDrive, $szDir, $szFName, $szExt)
GUICtrlCreateListViewItem($szFName & $szExt & "|" & $szDrive & $szDir,$idLV_Files)
EndIf
_GUICtrlListView_SetColumnWidth($idLV_Files,0,$LVSCW_AUTOSIZE)
;setzt die 1 Spalte auf die benötigte Breite des längsten Eintrags
_GUICtrlListView_SetColumnWidth($idLV_Files,1,0) ;zweite Spalte versteckt
_GUICtrlListView_EndUpdate($idLV_Files)
EndIf
Case $idbtnShow
$aItem = _GUICtrlListView_GetItemTextArray($idLV_Files)
;$aItem[0] enthält Anzahl der Spalten [$aIem[1] die 1. Spalte usw.
;_ArrayDisplay($aItem) nur zu Verständnisuwecken evtl. aktivieren
ConsoleWrite("Pfad zur Datei:" & $aItem[2] & "\" & $aItem[1] & @CRLF) ;nur zu Verständnisuwecken evtl. deaktivieren
If $idPic = 0 then
$idPic = GUICtrlCreatePic($aItem[2]&"\"&$aItem[1],5,180,256,256)
;es gibt noch kein Control das ein Bild aufnehmen kann, also erzeugen
;nur vorichtshalber (in füheren Versionen wurde ohne Filenamen kein Pic-Control angelegt)
Else
GUICtrlSetImage($idPic,$aItem[2]&"\"&$aItem[1])
;es bereits ein Control das ein Bild aufnehmen kann, also anderes Bild anzeigen
EndIf
Case $GUI_EVENT_CLOSE, $idexititem
Exit
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

button421

Und wie ist das dann mit Musik-Abspielen? _SoundPlay($aFiles[0]) oder was?

button421

Außerdem steht, wenn ich auf OK in dem FileOpenDialog klicke, steht in der ListBox -1.
Warum das?
Und ich musste:

[autoit]

GUICtrlSetData($WerbungList2, $f[UBound($f)] - 1)

[/autoit]

gegen

[autoit]

GUICtrlSetData($WerbungList2, UBound($f) - 1)

[/autoit]

umtauschen, weil er da gesagt hat, das nur eine Variable in [] stehen darf

**autoBert**

_SoundPlay wird mit dem von _SoundOpen("DerPfadZurMP3Datei") aufgerufen. Schau dir NeMP3-P (siehe Signatur) an, ich habe gestern einen FileOpendialog eingebaut, da ich bisher Dateien nur über Drag and Drop in die Listview aufgenommen habe.

Edit: poste bitte dein aktuelles Skript

mfg (Auuto)Bert

button421

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <EditConstants.au3>
IniDelete(@ScriptDir&"\RadioID Logbericht.txt","actions")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","=","+>Starting A&C Autologger[OK]")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","==","+>Wait on Name and Password[...]")
Global $musik
Global $werbung
#Region ### START Koda GUI section Hauptprog ### Form=C:\Users\Jonathan Verbeek\Desktop\Arschens & Co TerminalForm.kxf
$TerminalForm1 = GUICreate("RadioID v1.0 - Eingeloggt als JoNi - Frequenz : 600,4 MHz", 573, 488, 215, 130)
$MenuItem1b = GUICtrlCreateMenu("Datei")
$SubMenuItem1b = GUICtrlCreateMenu("Modus", $MenuItem1b)
$Sub2MenuItem1b = GUICtrlCreateMenuItem("Musik + Werbung + Stimme", $SubMenuItem1b)
$SubMenuItem3b = GUICtrlCreateMenuItem("Beenden", $MenuItem1b)
$MenuItem2b = GUICtrlCreateMenu("Show")
$SubMenuItem11b = GUICtrlCreateMenuItem("Morgenshow", $MenuItem2b)
$SubMenuItem21b = GUICtrlCreateMenuItem("Mittagstisch", $MenuItem2b)
$SubMenuItem31b = GUICtrlCreateMenuItem("Weltweit", $MenuItem2b)
$SubMenuItem41b = GUICtrlCreateMenuItem("Gute Nacht!", $MenuItem2b)
$SubMenuItem51b = GUICtrlCreateMenuItem("Fußballreportage", $MenuItem2b)
$SubMenuItem61b = GUICtrlCreateMenuItem("Formel 1 Reportage", $MenuItem2b)
$MenuItem3b = GUICtrlCreateMenu("?")
$SubMenuItem12b = GUICtrlCreateMenuItem("Hilfe / Info", $MenuItem3b)
$MenuItem4b = GUICtrlCreateMenuItem("Ausloggen", -1)
$MusikList1 = GUICtrlCreateList("", 48, 56, 169, 279)
$Label1b = GUICtrlCreateLabel("Musik:", 48, 32, 35, 17)
$Label2b = GUICtrlCreateLabel("Werbung:", 240, 32, 51, 17)
$WerbungList2 = GUICtrlCreateList("", 240, 56, 169, 279)
$Slider1 = GUICtrlCreateSlider(520, 368, 30, 77, BitOR($TBS_VERT,$TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 100, 0)
$Label3b = GUICtrlCreateLabel("Lautstärke:", 464, 360, 57, 17)
$Label4b = GUICtrlCreateLabel("--0", 544, 376, 16, 17)
$Label5b = GUICtrlCreateLabel("--100", 544, 424, 22, 17)
$Group1b = GUICtrlCreateGroup("Werbung", 136, 376, 185, 73)
$Button1b = GUICtrlCreateButton("Play", 144, 400, 35, 25, $WS_GROUP)
$Button2b = GUICtrlCreateButton("Pause", 184, 400, 35, 25, $WS_GROUP)
$Button3b = GUICtrlCreateButton("Stop", 224, 400, 35, 25, $WS_GROUP)
$Button4b = GUICtrlCreateButton("CUE A", 264, 400, 51, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2b = GUICtrlCreateGroup("Musik", 320, 376, 193, 73)
$Button5b = GUICtrlCreateButton("Play", 328, 400, 35, 25, $WS_GROUP)
$Button6b = GUICtrlCreateButton("Pause", 368, 400, 35, 25, $WS_GROUP)
$Button7b = GUICtrlCreateButton("Stop", 408, 400, 35, 25, $WS_GROUP)
$Button8b = GUICtrlCreateButton("CUE B", 448, 400, 59, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6b = GUICtrlCreateLabel("Sounds:", 472, 64, 43, 17)
$SndButton1b = GUICtrlCreateButton("Werbung START", 472, 88, 91, 25, $WS_GROUP)
$SndButton2b = GUICtrlCreateButton("Werbung ENDE", 472, 112, 91, 25, $WS_GROUP)
$SndButton3b = GUICtrlCreateButton("Nachrichten", 472, 136, 91, 25, $WS_GROUP)
$SndButton5b = GUICtrlCreateButton("Wetter", 472, 160, 91, 25, $WS_GROUP)
$SndButton6b = GUICtrlCreateButton("Allgeimsound", 472, 184, 91, 25, $WS_GROUP)
$AddButton1b = GUICtrlCreateButton("Hinzufügen", 144, 336, 75, 25, $WS_GROUP)
$AddButton2b = GUICtrlCreateButton("Hinzufügen", 336, 336, 75, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\A&C icon.jpg", 32, 376, 89, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_HIDE)
Dim $TerminalForm1_AccelTable[4][2] = [["^d", $MenuItem1b],["^s", $MenuItem2b],["^h", $MenuItem3b],["^l", $MenuItem4b]]
GUISetAccelerators($TerminalForm1_AccelTable)
#EndRegion ### END Koda GUI section Hauptprog ###
SoundSetWaveVolume(GUICtrlRead($Slider1))
;------------------------------------------------
#Region ### START Koda GUI section Loginscreen### Form=C:\Users\Jonathan Verbeek\Desktop\Aschens & Co Loginscreen.kxf
$Form1 = GUICreate("Einloggen", 311, 108, 192, 124)
$Label1 = GUICtrlCreateLabel("Moderator/en:", 8, 16, 72, 17)
$Label2 = GUICtrlCreateLabel("Passwort:", 8, 40, 50, 17)
$Input1 = GUICtrlCreateInput("", 88, 16, 217, 21)
$Input2 = GUICtrlCreateInput("", 88, 40, 217, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Einloggen", 224, 64, 81, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(0, 88, 310, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section Loginscreen###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$message1 = MsgBox(36,"Sicher?","Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $Button1
_logon()
Case $Sub2MenuItem1b
MsgBox(64,"Info!","Dieser Modus ist schon aktiviert!" & @CRLF & "" & @CRLF & "Aber nur weil sie das Terminal als ""One-Mode-Edition"" erworben haben!")
Case $SubMenuItem3b
$message1 = MsgBox(36,"Sicher?","Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $SubMenuItem11b
MsgBox(64,"Info!","Morgenshow ist aktiviert!")
Case $SubMenuItem21b
MsgBox(64,"Info!","Mittagstisch ist aktiviert!")
Case $SubMenuItem31b
MsgBox(64,"Info!","Weltweit ist aktiviert!")
Case $SubMenuItem41b
MsgBox(64,"Info!","Gute Nacht! ist aktiviert!")
Case $SubMenuItem51b
MsgBox(64,"Info!","Fußballrepotage ist aktiviert!")
Case $SubMenuItem61b
MsgBox(64,"Info!","Formel 1 Reportage ist aktiviert!")
Case $SubMenuItem12b
MsgBox(64,"Hilfe / Info","Also:" & @CRLF & "" & @CRLF & "Lade einfach mit ""Hinzufügen"" Musik oder Werbung in die entsprechenden Listen rein." & @CRLF & "" & @CRLF & "Das Terminal besitzt die gleichen Funktionen wie ein Medien-Player (Play, Stop, Pause) Neu ist CUE A und CUE B zum umschalten von Musik -> Werbung oder andersrum" & @CRLF & "" & @CRLF & "An der rechten Seite sieht man die sogenannten ""Sounds""." & @CRLF & "" & @CRLF & "" & @CRLF & "INFO: Idee und Umsetzung: Jonathan Verbeek (c) 2010. All Rights reserved")
Case $MenuItem4b
$message2 = MsgBox(36,"Ausloggen?","Du wirst ausgeloggt!")
If $message2 = 6 Then
GUISetState(@SW_HIDE, $TerminalForm1)
GUISetState(@SW_SHOW, $Form1)
MsgBox(64,"Ausgeloggt!","Du bist ausgeloggt!")
EndIf
Case $AddButton1b
Local $musik
$musik = FileOpenDialog("Musik auswählen!",@DesktopDir, "Musikdateien (*.wma;*.mp3;*.cda)", 15)
If @error Then
MsgBox(16, "Fehler!", "Keine Datei ausgewählt")
ElseIf Not IsArray($musik) Then
$f = StringSplit($musik, "\", 1)
GUICtrlSetData($MusikList1, $f[UBound($f) - 1])
Else
$f = StringSplit($musik, "|", 1)
For $i = 2 To $f[0]
GUICtrlSetData($MusikList1, $f[$i])
Next
EndIf
Case $AddButton2b
Case $AddButton2b
Local $werbung
$werbung = FileOpenDialog("Werbung auswählen!",@DesktopDir, "Musikdateien (*.wma;*.mp3;*.cda)", 15)
If @error Then
MsgBox(16, "Fehler!", "Keine Datei ausgewählt")
ElseIf Not IsArray($werbung) Then
$WerbungString = StringSplit($werbung, "\", 1)
GUICtrlSetData($WerbungList2, UBound($f) - 1)
Else
$werbungfiles = StringSplit($werbung,"|")
If $werbungfiles[0] > 1 Then
For $i = 2 to $aFiles[0]
_GUICtrlListBox_AddString($WerbungList2,$aFiles[1] & "\" & $aFiles[$b])
Next
Else
ConsoleWrite($aFiles[1] & @CRLF)
_GUICtrlListBox_AddString($WerbungList2,$aFiles[1])
EndIf
$WerbungString = StringSplit($werbung, "|", 1)
For $b = 2 To $f[0]
GUICtrlSetData($WerbungList2, $f[$i])
Next
EndIf
Case $Button1b
;Da solls hin; AutoBerts Hilfe vom JPG-Viewer
Case $Button1b
;_SoundPlay($werbung) Das geht nicht
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _logon()
If GUICtrlRead($Input1) = "JoNi" Then
GUICtrlSetData($Progress1, 50)
Else
MsgBox(16,"Fehler!","Benutzername falsch!")
EndIf
If GUICtrlRead($Input2) = "passwd" Then
GUICtrlSetData($Progress1, 100)
MsgBox(64,"Eingeloggt", "ON AIR!" & @CRLF & "" & @CRLF & "Du bist im Terminal eingeloggt!")
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $TerminalForm1)
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","===","+>LOGGED ON:")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","====","+>JoNi| Time: " & @HOUR & ":" & @MIN & ":" & @SEC & " Date: " & @MDAY & "." & @MON & "." & @YEAR )
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","=====","+>Starting A&C Terminal v2.0[OK]")
IniWrite(@ScriptDir&"\RadioID Logbericht.txt","actions","======","+>This is a automatically IniWrite-System! Please not edit this .txt File! Thanks!")
Global $musik
Global $werbung
Else
MsgBox(16,"Fehler!","Passwort falsch!")
EndIf
EndFunc ;<==_logon()

[/autoit]

Deer autoBert
Here you are

**autoBert**

Hallo Button421,

hier mal dein Skript abgeändert:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <EditConstants.au3>
IniDelete(@ScriptDir & "\RadioID Logbericht.txt", "actions")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "=", "+>Starting A&C Autologger[OK]")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "==", "+>Wait on Name and Password[...]")
Global $musik
Global $werbung
Global $aFiles
Global $aPlay

[/autoit] [autoit][/autoit] [autoit]

#region ### START Koda GUI section Hauptprog ### Form=C:\Users\Jonathan Verbeek\Desktop\Arschens & Co TerminalForm.kxf
$TerminalForm1 = GUICreate("RadioID v1.0 - Eingeloggt als JoNi - Frequenz : 600,4 MHz", 573, 488, 215, 130)
$MenuItem1b = GUICtrlCreateMenu("Datei")
$SubMenuItem1b = GUICtrlCreateMenu("Modus", $MenuItem1b)
$Sub2MenuItem1b = GUICtrlCreateMenuItem("Musik + Werbung + Stimme", $SubMenuItem1b)
$SubMenuItem3b = GUICtrlCreateMenuItem("Beenden", $MenuItem1b)
$MenuItem2b = GUICtrlCreateMenu("Show")
$SubMenuItem11b = GUICtrlCreateMenuItem("Morgenshow", $MenuItem2b)
$SubMenuItem21b = GUICtrlCreateMenuItem("Mittagstisch", $MenuItem2b)
$SubMenuItem31b = GUICtrlCreateMenuItem("Weltweit", $MenuItem2b)
$SubMenuItem41b = GUICtrlCreateMenuItem("Gute Nacht!", $MenuItem2b)
$SubMenuItem51b = GUICtrlCreateMenuItem("Fußballreportage", $MenuItem2b)
$SubMenuItem61b = GUICtrlCreateMenuItem("Formel 1 Reportage", $MenuItem2b)
$MenuItem3b = GUICtrlCreateMenu("?")
$SubMenuItem12b = GUICtrlCreateMenuItem("Hilfe / Info", $MenuItem3b)
$MenuItem4b = GUICtrlCreateMenuItem("Ausloggen", -1)
$MusikList1 = GUICtrlCreateList("", 48, 56, 169, 279)
$Label1b = GUICtrlCreateLabel("Musik:", 48, 32, 35, 17)
$Label2b = GUICtrlCreateLabel("Werbung:", 240, 32, 51, 17)
$WerbungList2 = GUICtrlCreateList("", 240, 56, 169, 279)
$Slider1 = GUICtrlCreateSlider(520, 368, 30, 77, BitOR($TBS_VERT, $TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 100, 0)
$Label3b = GUICtrlCreateLabel("Lautstärke:", 464, 360, 57, 17)
$Label4b = GUICtrlCreateLabel("--0", 544, 376, 16, 17)
$Label5b = GUICtrlCreateLabel("--100", 544, 424, 22, 17)
$Group1b = GUICtrlCreateGroup("Werbung", 136, 376, 185, 73)
$Button1b = GUICtrlCreateButton("Play", 144, 400, 35, 25, $WS_GROUP)
$Button2b = GUICtrlCreateButton("Pause", 184, 400, 35, 25, $WS_GROUP)
$Button3b = GUICtrlCreateButton("Stop", 224, 400, 35, 25, $WS_GROUP)
$Button4b = GUICtrlCreateButton("CUE A", 264, 400, 51, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2b = GUICtrlCreateGroup("Musik", 320, 376, 193, 73)
$Button5b = GUICtrlCreateButton("Play", 328, 400, 35, 25, $WS_GROUP)
$Button6b = GUICtrlCreateButton("Pause", 368, 400, 35, 25, $WS_GROUP)
$Button7b = GUICtrlCreateButton("Stop", 408, 400, 35, 25, $WS_GROUP)
$Button8b = GUICtrlCreateButton("CUE B", 448, 400, 59, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6b = GUICtrlCreateLabel("Sounds:", 472, 64, 43, 17)
$SndButton1b = GUICtrlCreateButton("Werbung START", 472, 88, 91, 25, $WS_GROUP)
$SndButton2b = GUICtrlCreateButton("Werbung ENDE", 472, 112, 91, 25, $WS_GROUP)
$SndButton3b = GUICtrlCreateButton("Nachrichten", 472, 136, 91, 25, $WS_GROUP)
$SndButton5b = GUICtrlCreateButton("Wetter", 472, 160, 91, 25, $WS_GROUP)
$SndButton6b = GUICtrlCreateButton("Allgeimsound", 472, 184, 91, 25, $WS_GROUP)
$AddButton1b = GUICtrlCreateButton("Hinzufügen", 144, 336, 75, 25, $WS_GROUP)
$AddButton2b = GUICtrlCreateButton("Hinzufügen", 336, 336, 75, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\A&C icon.jpg", 32, 376, 89, 73, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_HIDE)
Dim $TerminalForm1_AccelTable[4][2] = [["^d", $MenuItem1b],["^s", $MenuItem2b],["^h", $MenuItem3b],["^l", $MenuItem4b]]
GUISetAccelerators($TerminalForm1_AccelTable)
#endregion ### END Koda GUI section Hauptprog ###
SoundSetWaveVolume(GUICtrlRead($Slider1))
;------------------------------------------------
#region ### START Koda GUI section Loginscreen### Form=C:\Users\Jonathan Verbeek\Desktop\Aschens & Co Loginscreen.kxf
$Form1 = GUICreate("Einloggen", 311, 108, 192, 124)
$Label1 = GUICtrlCreateLabel("Moderator/en:", 8, 16, 72, 17)
$Label2 = GUICtrlCreateLabel("Passwort:", 8, 40, 50, 17)
$Input1 = GUICtrlCreateInput("", 88, 16, 217, 21)
$Input2 = GUICtrlCreateInput("", 88, 40, 217, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Einloggen", 224, 64, 81, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(0, 88, 310, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section Loginscreen###

[/autoit] [autoit][/autoit] [autoit]

While 1
SoundSetWaveVolume(GUICtrlRead($Slider1)) ;verschoben damit der Slider reagiert
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$message1 = MsgBox(36, "Sicher?", "Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $Button1
_logon()
Case $Sub2MenuItem1b
MsgBox(64, "Info!", "Dieser Modus ist schon aktiviert!" & @CRLF & "" & @CRLF & "Aber nur weil sie das Terminal als ""One-Mode-Edition"" erworben haben!")
Case $SubMenuItem3b
$message1 = MsgBox(36, "Sicher?", "Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $SubMenuItem11b
MsgBox(64, "Info!", "Morgenshow ist aktiviert!")
Case $SubMenuItem21b
MsgBox(64, "Info!", "Mittagstisch ist aktiviert!")
Case $SubMenuItem31b
MsgBox(64, "Info!", "Weltweit ist aktiviert!")
Case $SubMenuItem41b
MsgBox(64, "Info!", "Gute Nacht! ist aktiviert!")
Case $SubMenuItem51b
MsgBox(64, "Info!", "Fußballrepotage ist aktiviert!")
Case $SubMenuItem61b
MsgBox(64, "Info!", "Formel 1 Reportage ist aktiviert!")
Case $SubMenuItem12b
MsgBox(64, "Hilfe / Info", "Also:" & @CRLF & "" & @CRLF & "Lade einfach mit ""Hinzufügen"" Musik oder Werbung in die entsprechenden Listen rein." & @CRLF & "" & @CRLF & "Das Terminal besitzt die gleichen Funktionen wie ein Medien-Player (Play, Stop, Pause) Neu ist CUE A und CUE B zum umschalten von Musik -> Werbung oder andersrum" & @CRLF & "" & @CRLF & "An der rechten Seite sieht man die sogenannten ""Sounds""." & @CRLF & "" & @CRLF & "" & @CRLF & "INFO: Idee und Umsetzung: Jonathan Verbeek (c) 2010. All Rights reserved")
Case $MenuItem4b
$message2 = MsgBox(36, "Ausloggen?", "Du wirst ausgeloggt!")
If $message2 = 6 Then
GUISetState(@SW_HIDE, $TerminalForm1)
GUISetState(@SW_SHOW, $Form1)
MsgBox(64, "Ausgeloggt!", "Du bist ausgeloggt!")
EndIf
Case $AddButton1b
$musik = FileOpenDialog("Musik auswählen!", @DesktopDir, "Musikdateien (*.wma;*.mp3;*.cda)", 15)
If @error Then
MsgBox(16, "Fehler!", "Keine Datei ausgewählt")
Else
$aFiles = StringSplit($musik,"|")
if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Lied
;$aFiles[n+1] enthält n. Lied
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
For $i = 2 to $aFiles[0]
_GUICtrlListBox_AddString($MusikList1,$aFiles[1] & "\" & $aFiles[$i])
Next
Else
ConsoleWrite($aFiles[1] & @crlf)
_GUICtrlListBox_AddString($MusikList1,$aFiles[1])
EndIf
EndIf
Case $AddButton2b
Local $werbung
$werbung = FileOpenDialog("Werbung auswählen!", @DesktopDir, "Musikdateien (*.wma;*.mp3;*.cda)", 15)
If @error Then
MsgBox(16, "Fehler!", "Keine Datei ausgewählt")
$aFiles = StringSplit($musik,"|")
if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Lied
;$aFiles[n+1] enthält n. Lied
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
For $i = 2 to $aFiles[0]
_GUICtrlListBox_AddString($WerbungList2,$aFiles[1] & "\" & $aFiles[$i])
Next
Else
ConsoleWrite($aFiles[1] & @crlf)
_GUICtrlListBox_AddString($WerbungList2,$aFiles[1])
EndIf
EndIf
Case $Button1b
Local $sItem = _GUICtrlListBox_GetText($MusikList1,_GUICtrlListBox_GetCurSel($MusikList1))
consoleWrite($sItem & @CRLF)
if IsArray($aPlay) Then _SoundStop($aPlay) ; damit das evtl. gerade gespielte Lied abgebrochen wird
$aPlay = _SoundOpen($sItem)
_SoundPlay($aPlay)
Case $Button1b
;_SoundPlay($werbung) Das geht nicht
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _logon()
If GUICtrlRead($Input1) = "JoNi" Then
GUICtrlSetData($Progress1, 50)
Else
MsgBox(16, "Fehler!", "Benutzername falsch!")
EndIf
If GUICtrlRead($Input2) = "passwd" Then
GUICtrlSetData($Progress1, 100)
MsgBox(64, "Eingeloggt", "ON AIR!" & @CRLF & "" & @CRLF & "Du bist im Terminal eingeloggt!")
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $TerminalForm1)
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "===", "+>LOGGED ON:")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "====", "+>JoNi| Time: " & @HOUR & ":" & @MIN & ":" & @SEC & " Date: " & @MDAY & "." & @MON & "." & @YEAR)
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "=====", "+>Starting A&C Terminal v2.0[OK]")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "======", "+>This is a automatically IniWrite-System! Please not edit this .txt File! Thanks!")
Global $musik
Global $werbung
Else
MsgBox(16, "Fehler!", "Passwort falsch!")
EndIf
EndFunc ;==>_logon

[/autoit]

ich habe:

bei beiden ListBoxen, das Hinzfügen von Einträgen auf kompletten Dateipfad umgestellt
den Play-Button für Musik zum Leben erweckt
[autoit] SoundSetWaveVolume(GUICtrlRead($Slider1)) ;verschoben damit der Slider reagiert
[/autoit]in die Schleife verschoben

Wie du aber selbst siehst, ist die Idee ListBoxen zu nehmen nicht besonders glücklich, deswegen habe ich auch die anderen Buttons noch nicht zu Leben erweckt.
Listviews sind hierfür [da mehrere (auch unsichtbare) Spalten möglich sind] besser einzusetzen. Schau dir NeMP3-P (Link in der Signatur) an, bzw. vergleiche die beiden Versionen des JPG-Viewers zwecks des optischen Unterschieds. Danach entscheidest du ob du mit ListBoxen oder mit Listview weitermachen möchtest. Wenn du damit leben kannst, dass man immer nur Lieder aus einem Ordner anhören kann, gibt es auch andere Wege, den ewig lanhen Eintrag in der Liste auf den Dateinamen und die Dateierweiterung zu reduzieren

mfg (Auto)Bert

button421

Hallo AutoBert!
Danke fürs überarbeiten, aber wenn ich bei Musik; Musik reinlade, spielt er die Musik, auf einen Klick auf Play bei Werbung ab, und wenn ich bei Werbung auf Hinzufügen und dann OK, erscheint der Pfad der Datei nicht in der ListBox Und; Ich möchte nicht gerne nochmal alles neumachen, nur dass ich dann ListViews hab

**autoBert**

Hallo Button421,

du hast dich also gegen Listviews entschieden. Im Moment bin ich mit meinem Downloader am testen, danach schau ich nach einer Lösung für dich auf Basis von Post #6,

Edit: kommst du mit Arrays zurecht

mfg (Auto)Bert

button421

Danke!

EDIT// Nein Was sind das?

Cartan12

Du weißt nicht was Arrays sind !?!
http://translation.autoit.de/onlinehilfe/in…g_variables.htm
Da findest du was zu, ansonsten die tut von Bugfix...

**autoBert**

Hallo Button421,

ich habe das Skript aus deinem Eröffnungspost genommen und so abgändert, dass man

jetzt die Lied-Titel eines Ordners in die ListBoxen einfügen kann. Lieder aus dem gleichen Ordner können auch hinzugefügt werden. Wird jedoch ein anderer Ordner ausgewählt so wird die entsprechende ListBox geleert.
Die jeweiligen Buttons für Play, Pause, Stop habe ich mit Funktionen belegt.Wird ein neues Lied abgespielt, wird automatisch das andere vorher beendet. Dadurch sind eigentlich Pause und Stop einmal zuviel.
Zusätzlich auch [autoit] SoundSetWaveVolume(GUICtrlRead($Slider1)) ;damit sofort auf jede Änderung reagiert wird
[/autoit]in die Schleife verschoben.
Die Pfade (für jede ListBox separat) und den Wert des Sliders werden jetzt in @ScriptDir & "\RadioID.ini" gespeichert.

Schau es dir einfach einmal an:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <EditConstants.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

IniDelete(@ScriptDir & "\RadioID Logbericht.txt", "actions")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "=", "+>Starting A&C Autologger[OK]")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "==", "+>Wait on Name and Password[...]")
Global $musik
Global $werbung
#region ### START Koda GUI section Hauptprog ### Form=C:\Users\Jonathan Verbeek\Desktop\Arschens & Co TerminalForm.kxf
$TerminalForm1 = GUICreate("RadioID v1.0 - Eingeloggt als JoNi - Frequenz : 600,4 MHz", 573, 488, 215, 130)
$MenuItem1b = GUICtrlCreateMenu("Datei")
$SubMenuItem1b = GUICtrlCreateMenu("Modus", $MenuItem1b)
$Sub2MenuItem1b = GUICtrlCreateMenuItem("Musik + Werbung + Stimme", $SubMenuItem1b)
$SubMenuItem3b = GUICtrlCreateMenuItem("Beenden", $MenuItem1b)
$MenuItem2b = GUICtrlCreateMenu("Show")
$SubMenuItem11b = GUICtrlCreateMenuItem("Morgenshow", $MenuItem2b)
$SubMenuItem21b = GUICtrlCreateMenuItem("Mittagstisch", $MenuItem2b)
$SubMenuItem31b = GUICtrlCreateMenuItem("Weltweit", $MenuItem2b)
$SubMenuItem41b = GUICtrlCreateMenuItem("Gute Nacht!", $MenuItem2b)
$SubMenuItem51b = GUICtrlCreateMenuItem("Fußballreportage", $MenuItem2b)
$SubMenuItem61b = GUICtrlCreateMenuItem("Formel 1 Reportage", $MenuItem2b)
$MenuItem3b = GUICtrlCreateMenu("?")
$SubMenuItem12b = GUICtrlCreateMenuItem("Hilfe / Info", $MenuItem3b)
$MenuItem4b = GUICtrlCreateMenuItem("Ausloggen", -1)
$MusikList1 = GUICtrlCreateList("", 48, 56, 169, 279)
$Label1b = GUICtrlCreateLabel("Musik:", 48, 32, 35, 17)
$Label2b = GUICtrlCreateLabel("Werbung:", 240, 32, 51, 17)
$WerbungList2 = GUICtrlCreateList("", 240, 56, 169, 279)
$Slider1 = GUICtrlCreateSlider(520, 368, 30, 77, BitOR($TBS_VERT, $TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 100, 0)
$Label3b = GUICtrlCreateLabel("Lautstärke:", 464, 360, 57, 17)
$Label4b = GUICtrlCreateLabel("--0", 544, 376, 16, 17)
$Label5b = GUICtrlCreateLabel("--100", 544, 424, 22, 17)
$Group1b = GUICtrlCreateGroup("Werbung", 136, 376, 185, 73)
$ButtonWPlay = GUICtrlCreateButton("Play", 144, 400, 35, 25, $WS_GROUP)
$ButtonWPause = GUICtrlCreateButton("Pause", 184, 400, 35, 25, $WS_GROUP)
$ButtonWStop = GUICtrlCreateButton("Stop", 224, 400, 35, 25, $WS_GROUP)
$Button4b = GUICtrlCreateButton("CUE A", 264, 400, 51, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2b = GUICtrlCreateGroup("Musik", 320, 376, 193, 73)
$ButtonMPlay = GUICtrlCreateButton("Play", 328, 400, 35, 25, $WS_GROUP)
$ButtonMPause = GUICtrlCreateButton("Pause", 368, 400, 35, 25, $WS_GROUP)
$ButtonMStop = GUICtrlCreateButton("Stop", 408, 400, 35, 25, $WS_GROUP)
$Button8b = GUICtrlCreateButton("CUE B", 448, 400, 59, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6b = GUICtrlCreateLabel("Sounds:", 472, 64, 43, 17)
$SndButton1b = GUICtrlCreateButton("Werbung START", 472, 88, 91, 25, $WS_GROUP)
$SndButton2b = GUICtrlCreateButton("Werbung ENDE", 472, 112, 91, 25, $WS_GROUP)
$SndButton3b = GUICtrlCreateButton("Nachrichten", 472, 136, 91, 25, $WS_GROUP)
$SndButton5b = GUICtrlCreateButton("Wetter", 472, 160, 91, 25, $WS_GROUP)
$SndButton6b = GUICtrlCreateButton("Allgeimsound", 472, 184, 91, 25, $WS_GROUP)
$AddButton1b = GUICtrlCreateButton("Hinzufügen", 144, 336, 75, 25, $WS_GROUP)
$AddButton2b = GUICtrlCreateButton("Hinzufügen", 336, 336, 75, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\A&C icon.jpg", 32, 376, 89, 73, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_HIDE)
Dim $TerminalForm1_AccelTable[4][2] = [["^d", $MenuItem1b],["^s", $MenuItem2b],["^h", $MenuItem3b],["^l", $MenuItem4b]]
GUISetAccelerators($TerminalForm1_AccelTable)

[/autoit] [autoit][/autoit] [autoit]

Global $sIni = @ScriptDir & "\RadioID.ini"
Global $sWPfad, $sMPfad
$sWPfad = IniRead($sIni, "Werbung", "Pfad", @DesktopDir);zum Merken des Pfades in der Listbox für Werbung
$sMPfad = IniRead($sIni, "Musik", "Pfad", @DesktopDir) ;zum Merken des Pfades in der Listbox für Musik
;bei beiden wenn nichts ausgewählt ist es @DesktopDir
GUICtrlSetData($Slider1, IniRead($sIni, "Volume", "Prozent", 50)) ;Lautstärke vom letzten Mal wieder einlesen

[/autoit] [autoit][/autoit] [autoit]

Global $sItem, $aPlay
#endregion ### END Koda GUI section Hauptprog ###
;_Stop()
;------------------------------------------------
#region ### START Koda GUI section Loginscreen### Form=C:\Users\Jonathan Verbeek\Desktop\Aschens & Co Loginscreen.kxf
$Form1 = GUICreate("Einloggen", 311, 108, 192, 124)
$Label1 = GUICtrlCreateLabel("Moderator/en:", 8, 16, 72, 17)
$Label2 = GUICtrlCreateLabel("Passwort:", 8, 40, 50, 17)
$Input1 = GUICtrlCreateInput("", 88, 16, 217, 21)
$Input2 = GUICtrlCreateInput("", 88, 40, 217, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Einloggen", 224, 64, 81, 25, $BS_DEFPUSHBUTTON); $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(0, 88, 310, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section Loginscreen###

[/autoit] [autoit][/autoit] [autoit]

While 1
SoundSetWaveVolume(GUICtrlRead($Slider1)) ;damit sofort auf jede Änderung reagiert wird
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$message1 = MsgBox(36, "Sicher?", "Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
IniWrite($sIni, "Volume", "Prozent", GUICtrlRead($Slider1)) ;Lautstärke für das nächste Mal merken
Case $Button1
_logon()
Case $Sub2MenuItem1b
MsgBox(64, "Info!", "Dieser Modus ist schon aktiviert!" & @CRLF & "" & @CRLF & "Aber nur weil sie das Terminal als ""One-Mode-Edition"" erworben haben!")
Case $SubMenuItem3b
$message1 = MsgBox(36, "Sicher?", "Sind sie sicher, das Terminal zu schliessen?" & @CRLF & "" & @CRLF & "Nur mal so:" & @CRLF & "Die Frequenz wird geblockt, also hören die Zuhörer nur rauschen...")
If $message1 = 6 Then
Exit
EndIf
Case $SubMenuItem11b
MsgBox(64, "Info!", "Morgenshow ist aktiviert!")
Case $SubMenuItem21b
MsgBox(64, "Info!", "Mittagstisch ist aktiviert!")
Case $SubMenuItem31b
MsgBox(64, "Info!", "Weltweit ist aktiviert!")
Case $SubMenuItem41b
MsgBox(64, "Info!", "Gute Nacht! ist aktiviert!")
Case $SubMenuItem51b
MsgBox(64, "Info!", "Fußballrepotage ist aktiviert!")
Case $SubMenuItem61b
MsgBox(64, "Info!", "Formel 1 Reportage ist aktiviert!")
Case $SubMenuItem12b
MsgBox(64, "Hilfe / Info", "Also:" & @CRLF & "" & @CRLF & "Lade einfach mit ""Hinzufügen"" Musik oder Werbung in die entsprechenden Listen rein." & @CRLF & "" & @CRLF & "Das Terminal besitzt die gleichen Funktionen wie ein Medien-Player (Play, Stop, Pause) Neu ist CUE A und CUE B zum umschalten von Musik -> Werbung oder andersrum" & @CRLF & "" & @CRLF & "An der rechten Seite sieht man die sogenannten ""Sounds""." & @CRLF & "" & @CRLF & "" & @CRLF & "INFO: Idee und Umsetzung: Jonathan Verbeek (c) 2010. All Rights reserved")
Case $MenuItem4b
$message2 = MsgBox(36, "Ausloggen?", "Du wirst ausgeloggt!")
If $message2 = 6 Then
GUISetState(@SW_HIDE, $TerminalForm1)
GUISetState(@SW_SHOW, $Form1)
MsgBox(64, "Ausgeloggt!", "Du bist ausgeloggt!")
EndIf
Case $AddButton1b
_Add($sMPfad, $MusikList1)
Case $AddButton2b
_Add($sWPfad, $WerbungList2)
Case $ButtonWPlay
_Play($sWPfad, $WerbungList2,$aPlay)
Case $ButtonMPlay
_Play($sMPfad, $MusikList1,$aPlay)
Case $ButtonWPause
_Pause($ButtonWPause,$aPlay)
Case $ButtonMPause
_Pause($ButtonMPause,$aPlay)
Case $ButtonWStop
_Stop($aPlay)
Case $ButtonMStop
_Stop($aPlay)
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Add(ByRef $sPfad, ByRef $idListBox)
;durch ByRef werden die übergebenen Variablen direkt verändert wenn man die func-internen Namen benutzt
Local $szDrive, $szDir, $szFName, $szExt, $var, $sDialogTitel
Switch $idListBox
Case $WerbungList2
$sDialogTitel = "Werbung auswählen!"
Case $MusikList1
$sDialogTitel = "Musik auswählen!"
EndSwitch
$var = FileOpenDialog($sDialogTitel, $sPfad, "Musikdateien (*.wma;*.mp3;*.cda)", 15, ".mp3", $Form1)
If @error Then
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
Else
$aFiles = StringSplit($var, "|")
If $aFiles[0] > 1 Then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Lieder
;$aFiles[2] enthält 1. Lieder
;$aFiles[n+1] enthält n. Lieder
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
If $aFiles[1] <> $sPfad Then GUICtrlSetData($idListBox, "", "") ;alle bisherigen Inhalte löschen
;nur nötig wenn nur der Titel in die ListBox kommt und nicht zusätzlich Titel und Pfad in einem Array zum nachschlagen gespeichert werden
For $i = 2 To $aFiles[0]
;_GUICtrlListBox_AddString($idListBox,$aFiles[1] & "\" & $aFiles[$i]) ;mit kompletten Pfad
_GUICtrlListBox_AddString($idListBox, $aFiles[$i]) ;nur der DateiName
Next
$sPfad = $aFiles[1] ;Pfad merken wird später fürs abspielen benötigt
Switch $idListBox
Case $WerbungList2
IniWrite($sIni, "Werbung", "Pfad", $sPfad)
Case $MusikList1
IniWrite($sIni, "Musik", "Pfad", $sPfad)
EndSwitch
ConsoleWrite($sPfad & @CRLF)
Else
_PathSplit($aFiles[1], $szDrive, $szDir, $szFName, $szExt)
$sItem = $szFName & $szExt
ConsoleWrite($sIni & @CRLF)
_GUICtrlListBox_AddString($WerbungList2, $sItem)
EndIf
EndIf
EndFunc ;==>_Add

[/autoit] [autoit][/autoit] [autoit]

Func _play($sPfad, $idListBox, ByRef $aPlay)
Local $sItem = $sPfad & "\" & _GUICtrlListBox_GetText($idListBox, _GUICtrlListBox_GetCurSel($idListBox))
;ConsoleWrite($sItem & @CRLF)
If IsArray($aPlay) Then _SoundStop($aPlay) ; damit das evtl. gerade gespielte Lied abgebrochen wird
$aPlay = _SoundOpen($sItem)
_SoundPlay($aPlay)
EndFunc ;==>_play

[/autoit] [autoit][/autoit] [autoit]

Func _Pause(ByRef $idPause,$aPlay)
if not IsArray($aPlay) Then Return ;es wird keine Musik/Werbung abgespielt
if GUICtrlRead($idPause) ="Pause" Then
_SoundPause($aPlay)
GUICtrlSetData($idPause,"Weiter")
Else
_SoundResume($aPlay)
GUICtrlSetData($idPause,"Pause")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Stop(ByRef $aPlay)
if IsArray($aPlay) Then _SoundStop($aPlay)
$aPlay=""
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _logon()
#cs
If GUICtrlRead($Input1) = "JoNi" Then
GUICtrlSetData($Progress1, 50)
Else
MsgBox(16,"Fehler!","Benutzername falsch!")
EndIf
If GUICtrlRead($Input2) = "passwd" Then
#ce
GUICtrlSetData($Progress1, 100)
MsgBox(64, "Eingeloggt", "ON AIR!" & @CRLF & "" & @CRLF & "Du bist im Terminal eingeloggt!")
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $TerminalForm1)
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "===", "+>LOGGED ON:")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "====", "+>JoNi| Time: " & @HOUR & ":" & @MIN & ":" & @SEC & " Date: " & @MDAY & "." & @MON & "." & @YEAR)
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "=====", "+>Starting A&C Terminal v2.0[OK]")
IniWrite(@ScriptDir & "\RadioID Logbericht.txt", "actions", "======", "+>This is a automatically IniWrite-System! Please not edit this .txt File! Thanks!")
Global $musik
Global $werbung
#cs
Else
MsgBox(16,"Fehler!","Passwort falsch!")
EndIf
#ce
EndFunc ;==>_logon

[/autoit]

Cartan12, hast du es in der 4. Grundschulklasse schon gewusst

mfg (Auto)Bert

Cartan12

Zitat

Cartan12, hast du es in der 4. Grundschulklasse schon gewusst

Wow, hab ich total übersehen...
War nur meine erste Reaktion, denn er hat immerhin schon 151 Beiträge...
Na ja, sorry nochmal (ist mir extrem peinlich...) und weiterhin viel Spaß mit AutoIt.
Kannst ja trotzdem mal die Sachen anschauen, die ich geposted hab

button421

Hallo!
Danke erstmal, aber ein paar Fehler sind da noch:

Wenn ich bei Musik auf Hinzufügen klicke, erscheinen die Lieder in der Werbungsliste
Er spielt nicht ab

Tut mir leid, aber ich kann das nicht beheben, und es wäre schade, wenn ich abbrechen müsste, wie bei SuperSerial

**autoBert**

Hallo Button421,

Zitat

Wenn ich bei Musik auf Hinzufügen klicke, erscheinen die Lieder in der Werbungsliste

kann es sein, dass du die Beschriftungen vertauscht hast? Die Rechte Liste ist die Werbungsliste, die linke die Musikliste.
Zitat

Er spielt nicht ab,

hier ist es genau umgedreht, die Linke Play-Taste ist für die Werbung, die rechte für die Musik. Oder hast du den Ton am Slider zu niedrig eingestellt

Bei mir läuft das Skript, aber wie gesagt eigentlich brauchst du nur 1 mal Pause, Stop, da immer nur 1 Lied laufen kann. Wass willst du den auf der(n) CUE-Tasten haben?

Zitat

Tut mir leid, aber ich kann das nicht beheben,

habe ich zuwenig Bemerkungen eingefügt, oder an was liegt es? Wobei wie gesagt, dass Skript bei mir läuft,

mfg (Auto)Bert

button421

Die linke Liste ist für Musik, die rechte für Werbung.
CUE A; da soll er Lautstärke auf 0 setzen und dann die Musik stoppen
CUE B; da soll er Lautstärke auf 100 setzen und davor die Werbung abspielen.
Wieso ist das genau andersrum?

button421

Sagt nicht, dass das auch nicht umsetzbar ist, sonst...