Jup jede variable immer mit nem wert vorbelegen dann haste null probleme und kannst schonmal deine Standards setzten
Beiträge von Schnitzel
-
-
schön schön ist doch ganz gut geworden.
und wenn dir mal wieder langweilig ist kannst dus mit recht vielen features ausbauen.Suchen mit RegEx is zum beispiel ziemlich praktisch wie SEuBo schon sagt.
oder diverse funktionen die man aus word kennt. also automatisch nummerierungs und aufzählungszeichen einfügen und so Spielereien
Da kann man immer schön rumbasteln -
habs dir nochmal überarbeitet da du immer ne neue gui erzeugst wenn du _ChooseColors aufrufst.
d.h. du könntest 50 guis machen^^
sowas braucht kein mensch und is eher fehleranfälligSpoiler anzeigen
[autoit]#include <GuiTreeView.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>
#include <SliderConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>$Font = 0x000000; Standardfarbe Schwarz
[/autoit] [autoit][/autoit] [autoit]
$Bg = 0xFFFFFF; Standardfarbe Weiß
$Senderbg = 0x000000; Standardfarbe Schwarz#region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("OnlinePlayer", 566, 262, 222, 163)
GUISetIcon(@ScriptDir & "\Icons\enceinte 3D v3 .ico", 0, $Form1)
$MenuItem1 = GUICtrlCreateMenu("Einstellungen")
$MenuItem2 = GUICtrlCreateMenuItem("Farben", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Hotkeys", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$TreeView1 = _GUICtrlTreeView_Create($Form1, 8, 8, 201, 225)
_LoadRadioStations()
$Label1 = GUICtrlCreateLabel("Sender:", 224, 8, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aktueller Titel:", 224, 32, 87, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Kein Sender läuft!", 280, 8, 280, 17)
$Label4 = GUICtrlCreateLabel("Kein Sender läuft!", 224, 56, 332, 15)
$Play = GUICtrlCreateIcon(@ScriptDir & "\Icons\play.ico", 0, 224, 80, 33, 33)
$Stop = GUICtrlCreateIcon(@ScriptDir & "\Icons\stop.ico", 0, 224, 120, 33, 33)
$Label5 = GUICtrlCreateLabel("Laufzeit:", 280, 88, 53, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("00:00:00", 344, 88, 92, 17)
$Slider1 = GUICtrlCreateSlider(224, 192, 294, 29, BitOR($TBS_AUTOTICKS, $TBS_BOTH, $TBS_NOTICKS))
GUICtrlSetData(-1, 100)
$Label7 = GUICtrlCreateLabel("100%", 520, 200, 30, 17)
$Label8 = GUICtrlCreateLabel("Lautstärkeregler", 232, 168, 96, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
;~ $Button3 = GUICtrlCreateButton("Record", 272, 120, 35, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###$Form2 = GUICreate("Farben", 204, 126, 977, 237)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("Schriftfarbe:", 8, 8, 61, 17)
$Button1 = GUICtrlCreateButton("Auswählen", 128, 5, 73, 21, $WS_GROUP)
GUICtrlCreateLabel("Hintergrundfarbe:", 8, 40, 86, 17)
$Button2 = GUICtrlCreateButton("Auswählen", 128, 36, 73, 21, $WS_GROUP)
GUICtrlCreateLabel("Senderhintergrund:", 8, 72, 94, 17)
$Button3 = GUICtrlCreateButton("Auswählen", 128, 69, 73, 21, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Ok", 8, 96, 35, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Abbrechen", 48, 96, 73, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Übernehmen", 128, 96, 73, 25, $WS_GROUP)
GUISetState(@SW_HIDE, $Form2)$WMPObj = ObjCreate("WMPLayer.OCX")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]AdlibRegister("Label7Update", 75)
[/autoit] [autoit][/autoit] [autoit]
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
;~ Case $Play
;~ _Play()
;~ Case $Stop
;~ _Stop()
Case $MenuItem4
Exit
Case $MenuItem2
GUISetState(@SW_SHOW, $Form2)
;~ Case $Button3
;~ _Record()
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
ExitLoop
Case $Button1
$Font = _ChooseColor(2)
Case $Button2
$Bg = _ChooseColor(2)
Case $Button3
$Senderbg = _ChooseColor(2)
Case $Button4
GUICtrlSetColor($Label1, $Font)
GUICtrlSetColor($Label2, $Font)
GUICtrlSetColor($Label3, $Font)
GUICtrlSetColor($Label4, $Font)
GUICtrlSetColor($Label5, $Font)
GUICtrlSetColor($Label6, $Font)
GUICtrlSetColor($Label7, $Font)
GUICtrlSetColor($Label8, $Font)
GUISetBkColor($Bg, $Form1)
_GUICtrlTreeView_SetBkColor ($TreeView1,$Senderbg)
GUISetState(@SW_HIDE, $Form2)
Case $Button5
GUISetState(@SW_HIDE, $Form2)
ExitLoop
Case $Button6
IniWrite("settings.ini", "Farben", "Schrift", $Font)
IniWrite("settings.ini", "Farben", "Schrift", $Bg)
IniWrite("settings.ini", "Farben", "Schrift", $Senderbg)
EndSwitch
EndSwitch
$WMPObj.settings.volume = GUICtrlRead($Slider1)
WEndFunc Label7Update()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label7, GUICtrlRead($Slider1) & "%")
EndFunc ;==>Label7UpdateFunc _LoadRadioStations()
[/autoit]
$iSender = IniReadSection(@ScriptDir & "\Einstellungen.ini", "Sender")
_GUICtrlTreeView_BeginUpdate($TreeView1)
$hParent = _GUICtrlTreeView_Add($TreeView1, 0, "Sender")
For $i = 1 To UBound($iSender) - 1
_GUICtrlTreeView_AddChild($TreeView1, $hParent, $iSender[$i][0])
Next
_GUICtrlTreeView_EndUpdate($TreeView1)
EndFunc ;==>_LoadRadioStations -
Herzlich willkommen und viel Spaß im Forum
-
probiers mal so:
Spoiler anzeigen
[autoit]$fl = _FileListToArray(@ScriptDir, "*.ini", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
;~ _ArrayDisplay($fl, "$FileList")
For $i = 1 To $fl[0]
$var = IniReadSection($fl[$i], "Leichte Jaeger")
$error = @error
If IsArray($var) Then
For $j = 1 To $var[0][0]
GUICtrlSetData($list, $var[$j][1], "")
Next
Else
MsgBox(0, "", "Problem beim Sectionlesen. Errorcode: " & $error & @CRLF & "bei der datei: " & $fl[$i])
EndIf
Next -
dann existiert entweder die ini nicht. was ich nicht glaube, da du die ja einließt
oder die section existiert nicht.
vllt ein schreibfehler oder so? -
ich glaub du hast da nur 2 zeilen vertauscht:
Spoiler anzeigen
[autoit]Case $listall
[/autoit]
$fl = _FileListToArray (@ScriptDir,"*.ini",1)
;~ _ArrayDisplay($fl, "$FileList")
For $i = 1 to $fl[0]
$var = IniReadSection($fl[$i],"Leichte Jaeger")
For $j = 1 to $var[0][0]
GUICtrlSetData ($list,$var[$j][1],"")
Next
Next -
man ein bisschen was könnteste echt selber machen
also probier mal bisschen rum sonst lernst dus nie...als tipp:
einen button mit $BS_DEFPUSHBUTTON erstellen -
wieso löscht du den beitrag und erstellst ihn neu? was soll das?
zum problem:
an deiner stelle würde ich einen absenden button einbauen -
Geht das so auf die Performance, wenn man die ganze Zeit nach ispressed checkt oder wie?
jup so ziemlich
-
-
das ich wen ich in der imput box hallor schreibe dan enter drücke das es dan unten in der schreib box rein geht
was passt daran nicht? geht doch oder?
-
ist das problem vllt blos wegen . und , ?
für kommazahlen musst du in autoit . verwenden
-
sieh dir mal _IsPressed an
-
dafür wurde sich ein 2dimensionales array anbieten. aber wenn du gerade erst mit arrays anfängst is das vllt zuviel...
hier n beispiel:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local $array1[3][2]
$array1[0][0] = "C:\Users\Domi\Desktop\array test\Ziel 1\datei 1.txt"
$array1[0][1] = "C:\Users\Domi\Desktop\array test\Ziel 2\datei 1.txt"
$array1[1][0] = "C:\Users\Domi\Desktop\array test\Ziel 1\datei 2.txt"
$array1[1][1] = "C:\Users\Domi\Desktop\array test\Ziel 2\datei 2.txt"
$array1[2][0] = "C:\Users\Domi\Desktop\array test\Ziel 1\datei 3.txt"
$array1[2][1] = "C:\Users\Domi\Desktop\array test\Ziel 2\datei 3.txt"For $i = 0 To UBound ($array1)-1 Step +1 ;hier ist die Änderung (-1)
[/autoit] [autoit][/autoit] [autoit]FileMove ($array1[$i][0], $array2[$i][1] )
[/autoit]
Next -
Willst den Preis für sinnloseste Umfrage oder wie?
-
so vllt?
Spoiler anzeigen
[autoit]#include <GuiStatusBar.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 391, 451, 192, 163)
$Input1 = GUICtrlCreateInput("Imput", 0, 240, 385, 21)
$Edit1 = GUICtrlCreateEdit("edit", 0, 264, 385, 177)
$Button1 = GUICtrlCreateButton("Start", 8, 16, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stop", 8, 40, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Neustart", 8, 64, 75, 25, $WS_GROUP)
$Avi1 = GUICtrlCreateAvi("No File", -1, 0, 152, 105, 81)
$MonthCal1 = GUICtrlCreateMonthCal("2010/03/14", 192, 0, 191, 170)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ShellExecute("notepad")
Case $Input1
GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & @CRLF & GUICtrlRead($Input1))
GUICtrlSetData($Input1, "")
EndSwitch
WEnd -
Im großen und ganzen keine schlechte idee mit StringLen.. jedoch ist nicht jedes Zeichen "gleich groß"
jup sollte auch ein gedankenanstoß sein. hab auch irgendwo mal ne funktion für pixelbreite gesehn, kann mich aber leider nicht erinnern wo genau...
-
ok du könntest diese billige methode etwas auftunen indem du mit StringLen() überprüfst wie lang der username ist und dann entsprechend viele leerzeichen einfügst
-
sollte eigentlich so funktionieren. nen fehler haste aber drin...
und zwar gibt dir Ubound($array) in deinem fall eine 3 zurück.
[autoit]
es gibt aber kein $array2[3]
du musst die for schleife also so machen:For $i = 0 To UBound($array1)-1
[/autoit]
Step 1 hab ich weggelassen weil das standard ist