hier hab ich das mal gefragt: [ gelöst ] Pic transparent o. ä.? /Button Drag und Drop
Beiträge von stayawayknight
-
-
Gut danke ist jetzt drin
-
gut, schön wenn es jetzt klappt
-
würd ja auch mitmachen aber gg euch hab ich keine chance^^ lohnt es sich da überhaupt...
-
-
ok was hast du denn verändert? (Möchts wissen würd ich interessant finden )
-
Dann würde aber "Länge" im Listview auch falsch angezeigt werden.
Stimmt, klar...
ZitatKönnte es vielleicht daran liegen, dass XP kein Unicode unterstützt (bin
XP noob)Ja könnte ich mir auch vorstellen, vielleicht mal als .exe versuchen?
-
achso ok
Also bei mir tut es jetzt auch, sieht gut aus und läuft perfekt..
Vielleicht unterschiedliche Autoit-Versionen auf beiden Rechnern?
Compile es doch mal zur .exe und versuchs dann mal... -
bei mir (W7) kommt eine Fehlermeldung betreffend Zeile 36:
[autoit]GUICtrlSetData($label4,"Es ist: "&@HOUR &":"&@MIN &":"& @[user]sec[/user])
[/autoit][autoit][/autoit][autoit][/autoit]Meldung:
-
Versteh davon jetzt nicht allzuviel, könnte mir aber vorstellen das es an Dingen wie ä, ö, ü oder ß liegen könnte
-
Welche Sportarten findet ihr interessant? 8 Antwortmöglichkeiten, falls ich was wichtiges in der Liste vergessen hab sagts mir!
Ich stimme für Fußball
-
-
Hallo,
schau doch mal hier vielleicht löst das dein Problem: [ offen ] _ExcelReadSheetToArray funzt nicht -
ja dann setz doch bitte das Thema als "gelöst". Bearbeite ersten Beitrag und stell oben ein.
-
Waaah die ganze Seite ist in der Sprache! Ich versteh kaum was
-
very very nice, sowas bekomm ich nicht einfach mal hin...
-
kenne auch ein sehr gutes Tutorial mit dem ich die Grundlagen gelernt habe...
Aber der Link ist hier weniger gern gesehen -
achso ok ist drin siehe #1
wusste das nicht sry -
Bei uns in BW gabs in der 5. Englisch, 6. Auswahl zischen Latein und Franz (hab natürlich das falsche genommen *grr*), 8. Auswahl zwischen Italienisch und NWT (Naturwissenschaft und Technik (wenigstens da das richtige genommen, Nwt ). Und abwählen kann man die 2.Fremdsprache erst nach 10
-
So,
jetzt stell ich auch mal mein erstes Programm vor:
Es ist ein Musikplay,er bei dem man entweder zu Beginn eine neue Playlist erstellt oder eine alte (falls vorhanden) lädt.
Daraufhin kann man den Player über den Button "start player" starten.
Danach kommt einer MsgBox mit den Hotkeys für das Programm.
Drückt Alt+P für play und es geht los.Spoiler anzeigen
Alt+P = Play, Alt+S = Stop, Alt+N = Next Song , Alt+B = Song Back, Alt+V = Volume und Alt+E = Ende.
Der Vortiel ist: Der Musikplayer kann nur über Hotkeys gesteuert werden, das heißt ihr habt kein lästiges Umschalten, wenn ihr einen Titel anhalten wollt oder
versucht den nächsten Titel zu starten. Es läuft alles per Tastendruck!
Vielen Dank an der Stelle noch an Ideas2Code, der mir hier: [ gelöst ] Ini-Write funktioniert nicht? weitergeholfen hat.
So im Anhang befinden sich die Dateien!
Nach dem Download und Entpacken müsst ihr die Player.exe starten!
Viel Spaß damit!Script:
1. (Nimmt Playlist auf)Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>$count = 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$file = @WindowsDir
$countr = 1
$i = 0
$f = 0
Dim $read[500]$form = GUICreate("RemiXXer by stay und raven", 625, 443, 193, 125)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$list = GUICtrlCreateList("", 40, 96, 377, 188)
$load = GUICtrlCreateButton("Neuen Song laden", 440, 112, 129, 41, 0)
$label1 = GUICtrlCreateLabel("RemiXXer", 72, 0, 304, 84)
GUICtrlSetFont(-1, 70, 400, 0, "MS Sans Serif")
$delete = GUICtrlCreateButton("Liste löschen", 440, 168, 129, 41, 0)
$run = GUICtrlCreateButton("Start Player!", 440, 224, 129, 41, 0)
$exit = GUICtrlCreateButton("Exit", 440, 368, 129, 41, 0)
$loadoldlist = GUICtrlCreateButton("Alte Liste laden", 100, 368, 129, 41, 0)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ex()Case $delete
[/autoit] [autoit][/autoit] [autoit]
delete()Case $load
[/autoit] [autoit][/autoit] [autoit]
load()Case $exit
[/autoit] [autoit][/autoit] [autoit]
ex()Case $run
[/autoit] [autoit][/autoit] [autoit]
run("playcatcher.exe")
ExitCase $loadoldlist
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
loadold()EndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
WEndFunc load()
[/autoit] [autoit][/autoit] [autoit]
if FileExists("playlist.ini") Then
FileDelete("playlist.ini")
EndIf
$file = FileOpenDialog("Titel hinzufügen", $file, "Sounddateien (*.mp3;*.wma;*.wav)")
IniWrite(@ScriptDir & "\playlist.ini", "Playlist", $count, $file)
GUIctrlsetdata($list, $file)$count = $count + 1
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]Func loadold()
[/autoit] [autoit][/autoit] [autoit]
While 1
$i = $i + 1 ; für auslesearray
$f = $f + 1 ;
$read[$i] = IniRead("playlist.ini", "Playlist", $f, "")
if $read[$i] = "" Then
ExitLoop
Else
GUICtrlSetData($list, $read[$i])
EndIf
WEndEndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func delete()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($list, "")
FileDelete("playlist.ini")
EndFuncFunc ex()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Auf Wiedersehen!", "Auf Wiedersehen, bis zum nächsten Mal! By stayawayknight")
ExitEndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]2. (Das wo das abspielt):
Spoiler anzeigen
[autoit]#include <Sound.au3>
[/autoit] [autoit][/autoit] [autoit]HotkeySet("!{p}", "play")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("!{s}", "stop")
HotKeySet("!{n}", "nexts")
HotKeySet("!{e}", "ende")
HotKeySet("!{b}", "back")
HotKeySet("!{v}", "volume")
HotKeySet("!{z}", "zufall")$a = 0 ; bewirkt die untilschleife und bricht play1 ab, wenn next kommt
[/autoit] [autoit][/autoit] [autoit]
$count = 1 ; zählt songs$vol = 75
[/autoit] [autoit][/autoit] [autoit]Msgbox(0, "Start", "Folgende Hotkeys sind wichtig: Alt+P = Play, Alt+S = Stop, Alt+N = Next Song , Alt+B = Song Back, Alt+V = Volume und Alt+E = Ende.")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func play()
[/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$file = IniRead("playlist.ini", "Playlist", $count, "")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$lengh = _SoundLength ($file, 2)
SoundPlay($file)
ToolTip("Play")
Sleep(2000)
ToolTip("")
Sleep($lengh)
$count = $count + 1Until $a = 1
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func ende()
[/autoit] [autoit][/autoit] [autoit]
Tooltip("Ende, wird beendet ...")
Sleep(2000)
ExitEndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func volume()
[/autoit] [autoit][/autoit] [autoit]$vol = Inputbox("Lautstärke", "Gib die gewünschte Lautstärke (1-100) ein! Momentan: " & $vol)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
SoundSetWaveVolume($vol)EndFunc
[/autoit] [autoit][/autoit] [autoit]Func stop()
[/autoit] [autoit][/autoit] [autoit]
Run("playcatcher.exe")
Exit
EndFuncFunc nexts()
[/autoit] [autoit][/autoit] [autoit]
$a = 1
$count = $count + 1
ToolTip("Next")
Sleep(2000)
play()
$a = 0
EndFuncFunc back()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$a = 1
$count = $count - 1
ToolTip("Back")
Sleep(2000)
play()
$a = 0
EndFuncWhile 1
[/autoit] [autoit][/autoit] [autoit][/autoit]
WEndKann man auch in ein Script setzen, sollte so aber eig. den Vorteil habe das man den 2.Teil (das Abspielen) auch gleich machen kann, ohne durchs Menü zu müssen.
Script jetzt auch in der Downloaddatei eingefügt