Beiträge von button421

button421

Hab bei youtube nach programmieren gesucht

button421

Hallo Leute:D!
Schaut mal, ich habe in Koda klar gemacht, das die Bilder Cis, Dis, Fis, Gis und Ais im vordergrund sein soll.
Leider ist nur Cis im vordergrund, am Skript kann ich nichts von Cis erkennen, das nicht bei Dis, Fis, Gis und Ais ungleich ist. Mein Skript:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\jonathan verbeek\desktop\desktop ordner\dvk\form.kxf
$Form1_1 = GUICreate("Das virtuelle Keyboard - SUPERKEYBORD", 337, 311, 192, 124, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$C = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\C1.jpg", 8, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein C")
$List1 = GUICtrlCreateList("", 8, 168, 137, 136, $WS_BORDER)
GUICtrlSetData(-1, "12Saiten Gitarre|Akkordion|Bass|Beeptöne|Brass|Chor|E-Piano Funky|E-Piano Suitcase|Klassikgitarre|Klavier|Orgel (16"&Chr(39)&"+2"&Chr(39)&")|Orgel (Kirche)|Piccolo-Flöte|Streicher|Synthesheizer|Tenor-Saxophon|Trompete|Xylophon")
$Label1 = GUICtrlCreateLabel("Töne:", 8, 144, 32, 17)
$Cis = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\C1#.jpg", 32, 8, 33, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein Cis")
$D = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\D1.jpg", 48, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein D")
$E = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\E1.jpg", 88, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein E")
$F = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\F1.jpg", 128, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein F")
$Dis = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\D1#.jpg", 80, 8, 33, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Eind Dis")
$G = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\G1.jpg", 168, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein G")
$A = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\A1.jpg", 208, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein A")
$Fis = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\F1#.jpg", 152, 8, 33, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein Fis")
$Gis = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\G1#.jpg", 192, 8, 33, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein Gis")
$H = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\H1.jpg", 248, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein H")
$Ais = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\H1#.jpg", 232, 8, 33, 73, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein Ais")
$C2 = GUICtrlCreatePic("C:\Users\Jonathan Verbeek\Desktop\Desktop Ordner\DVK\keys\C2.jpg", 288, 8, 41, 129, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Ein C²")
$Button1 = GUICtrlCreateButton("Info/Hilfe", 152, 272, 81, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Schließen", 240, 272, 89, 33, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Übungen", 152, 152, 169, 113)
$Button3 = GUICtrlCreateButton("Lernen", 160, 232, 65, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(160, 168, 153, 25)
GUICtrlSetLimit(-1, 10, 0)
$Label2 = GUICtrlCreateLabel("Aufgabe", 160, 208, 44, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $List1
EndSwitch
WEnd

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

Wieso und was kann ich am Skript ändern?
MfG button421

button421

darauf hätte ich auch mal früher kommen können
Vielen Dank

button421

Ja, ich benutze Scite4Autoit3, kann es sein das er das von sich aus nicht macht, weil ich zuwenig freien Speicher habe?

button421

Ja, das geht auch nicht

button421

hab ich, sollte ich vlt. AutoIT3 ganz deinstallieren und noch mal neu installieren?

button421

Jetzt kommt garnichts mehr, wenn ich auf Tools-->Koda Form Designer klicke

button421

Uh! Scite und alles noch mal deinstallieren?

button421

Hallo Leute!
Seit gestern funktioniert Koda nicht mehr.
Wenn ich unter Tools-->Koda Form Designer gehe, kommt ne Fehlermeldung, wo steht:

Acess violation at adress 004FDBD4 in module 'FD.exe'. Read of adress 00000000
Execption Adress: 004FDBD4
Information about Source of Exception
Unit:
Method:
Line: 0
--------------------------------------
Genau das gleiche wenn ich von
C://Programme/AutoIT3/SciTE/Koda Form Designer/FD.exe starte

Brauche bitte Hilfe!

MfG button421

button421

Ich brauche es auch nicht, aber habe das schonmal mit CDTray gemacht

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

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

button421

Danke!

EDIT// Nein Was sind das?

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

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

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

button421

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

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^^

button421

Zitat von stayawayknight

Wow solches Wissen von Autoit bei einem 4.Klässler, wow...
ich als 9.Klässler weiß noch nichmal was ein Serial ist
*schäm*

damals gab es warscheinlich noch garkeine serials

button421

Schade! Danke erstmal!

Beiträge von button421

Wie seid ihr auf autoit gestoßen?

Nur Pic1 im vordergrund.

Koda geht nicht mehr :(

Koda geht nicht mehr :(

Koda geht nicht mehr :(

Koda geht nicht mehr :(

Koda geht nicht mehr :(

Koda geht nicht mehr :(

Koda geht nicht mehr :(

Open&CloseMyDVDdoor

RadioID - Problem

RadioID - Problem

RadioID - Problem

RadioID - Problem

RadioID - Problem

RadioID - Problem

RadioID - Problem

RadioID - Problem

SuperSerial - Paar Fragen

SuperSerial - Paar Fragen