Beiträge von Tweaky

[autoit]

#include<GUIConstants.au3>
;first edition of an screen saver
$font='Arial'
$textcolor = 0xff0000

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

HotKeySet("{Esc}", "_esc")

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

GUICreate('', -1, -1, 0, 0, BitOr($WS_POPUP, $WS_MAXIMIZE))
$pic1 = GUICtrlCreatePic('bild1.bmp', 0, 0, @DesktopWidth, @DesktopHeight)

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

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor ( -1, $textcolor)
GUICtrlSetFont (-1, 36, 400, 1, $font)
GUISetState (@SW_SHOW)

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

While 1
GUICtrlSetImage($pic1,"bild1.bmp")
sleep(1000)
GUICtrlSetImage($pic1,"bild2.bmp")
sleep(1000)
WEnd

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

Func _esc()
Exit
EndFunc

[/autoit]

[autoit]

#include<GUIConstants.au3>
GUICreate("Checkboxen", 175, 150)

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

$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 10, 40)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 10, 70)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

Select
Case $msg = $Checkbox1
If GUICtrlRead($Checkbox1) = 1 Then
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
GUICtrlSetState($Checkbox2, $GUI_DISABLE)
ElseIf GUICtrlRead($Checkbox1) = 4 Then
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
EndIf

Case $msg = $Checkbox2
If GUICtrlRead($Checkbox2) = 1 Then
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
ElseIf GUICtrlRead($Checkbox2) = 4 Then
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
EndIf
EndSelect
Wend

[/autoit]

[autoit]

Func timefields ()
GUICtrlSetState($tab2, $GUI_show)
FileOpen($data2, 2)
$top = 100
Global $x = GUICtrlRead($number_of_timefields)
$themes = IniReadSectionNames($data)
GUISwitch($hauptgui,$tab2)
Switch $x
Case 1 To 9
For $i = 1 To $x
$timefield[$i] = GUICtrlCreateDate("", 30, $top, 100, 25, $DTS_TIMEFORMAT)
$themefield[$i] = GUICtrlCreateCombo(" Theme wählen...", 410, $top, 100, 25)
For $s = 1 To $themes[0]
GUICtrlSetData(-1, $themes[$s])
Next

$top = $top + 30
Next
Case 10 To 255555555555555
MsgBox(0, "Achtung!!", "Bitte wähle eine Zahl zwischen 1 und 9 um das Fenster nicht zu sprengen." & @LF & "Wenn du mehr Designs wählen willst solltest du nochmal mit den Programmierer sprechen!")
Case Else
MsgBox(0, "Achtung!!", "Schonmal versucht ein negatives Feld zu erstellen? DAS GEHT NICHT!!!")
EndSwitch
GUICtrlSetState($create_timefields, $gui_disable)
GUICtrlSetState($number_of_timefields, $gui_disable)
$timesave = GUICtrlCreateButton("Zeiten und Themes übernehmen", 300, $top)
GUICtrlSetOnEvent($timesave, "timesave")
FileClose($data2)
GUICtrlCreateTabItem("")

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

EndFunc ;==>timefields

[/autoit]

[autoit]

#include<File.au3>
#include<Array.au3>

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

Dim $array
$file = "D:\Original.txt"
$file_neu = "D:\mit Tabs.txt"

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

_FileCreate($file_neu)

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

_FileReadToArray($file, $array)
;~ _ArrayDisplay($array)

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

For $i = 1 to UBound($array) -1 Step +4
If $array[$i+1] = " " Then $array[$i+1] = ""
_FileWriteToLine ($file_neu, 1, $array[$i] & @TAB & $array[$i+1] & @TAB & $array[$i+2], 0)
Next

[/autoit]