Beiträge von autoBert

**autoBert**

Hallo morphL,

hier ein Skript von Raupi:

Spoiler anzeigen

[autoit]

;http://www.autoit.de/index.php?page…71432#post71432 Raupi
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
Global $Count, $oldCount = 0

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$List1 = GUICtrlCreateList("", 80, 32, 369, 300)
_GUICtrlListBox_InsertString($List1, "Die ist ein Test ", -1)
GUICtrlSetStyle($List1, $LBS_NOSEL)
GUISetState(@SW_SHOW)
$Button1 = GUICtrlCreateButton("Random Einträge Hinzufügen", 10, 400, 150, 17)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$iRand = Random(1, 10, 1)
For $i = 1 To $iRand
_GUICtrlListBox_InsertString($List1, "Random String Nr. " & $i, -1)
Next
EndSwitch
$Count = _GUICtrlListBox_GetCount($List1) - 1
If $Count <> $oldCount Then
_GUICtrlListBox_SetCurSel($List1, _GUICtrlListBox_GetCount($List1) - 1)
$oldCount = $Count
_FileWrite()
EndIf
WEnd
Func _FileWrite()
$File = FileOpen(@ScriptDir & "\Test.log", 2)
For $i = 0 To _GUICtrlListBox_GetCount($List1) - 1
FileWriteLine($File, _GUICtrlListBox_GetText($List1, $i))
;~ msgbox (0,"",_GUICtrlListBox_GetText($List1, $i))
Next
FileClose($File)
EndFunc ;==>_FileWrite

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Bladerunner85,

hier ein Beispiel von BugFix auf 2 Bilder abgeändert:

Spoiler anzeigen

[autoit]

#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>

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

Global $pic = @SystemDir & '\oobe\images\nextover.jpg'
Global $pic2 = @SystemDir & '\oobe\images\nextdown.jpg'

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

$gui = GUICreate("Test", Default, Default, -1, -1)
$btnPic = GUICtrlCreatePic($pic, 30, 40, 24, 24)
GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnPic
If _AnimButton($gui, $btnPic) Then MsgBox(0, '', 'click')
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

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

;==================================================================================================
; Function Name: _AnimButton($IDgui, $IDbtn [, $delay=150])
; Description: animiert ein Pic, wie einen geklickten Button
; Parameter(s): $IDgui ID der GUI
; $IDbtn ID des Picture als Button
;==================================================================================================
Func _AnimButton($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
GUICtrlSetImage($IDbtn, $pic2)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
GUICtrlSetImage($IDbtn, $pic)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==>_AnimButton

[/autoit]

Edit: andygo war schneller,

mfg (Auto)Bert

**autoBert**

Hallo Mehmex,

bei deinem Lösungsansatz wird in den ElseIf-Zweig verzweigt wenn das Datum ungliech ist, du müsstest also prüfen ob das Jahr kleiner ist, wenn ja ist Datum kleiner, ansonsten wenn Jahr gleich ob Monat kleiner ist, wenn ja ist Datum kleiner, ansonsten wenn Monat gleich ob der Tag kleiner ist, wenn ja ist das Datum kleiner.
Einfacher bzw. eleganter (weniger Code) sollte es über _DateDiff zu lösen sein , schau dir doch dazu die Hilfe an. ~~Nach dem Mittagessen skripte ich mal ein Beispiel dazu~~ (bin z. Z. auf Reha)

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <StaticConstants.au3>
#include <Date.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include<WindowsConstants.au3>
;#Include <GuiStatusBar.au3> ;Schwierigkeiten beim Resizen 1 Linie + 1 Label tuns auch

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

Opt('GUIOnEventMode', 1)

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

Global $hlstvwHoly = 0
Global $sTitel = 'Beispiel zur Nutzung der _DateDiff-Func'

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

Local $hMainGui = GUICreate($sTitel, 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $hMainGui gespeichert
;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
;Verknüpft dem Event $Gui_Event_Close mit der Funktion _End

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

;Menübar anzeigen
Global $menu_help = GUICtrlCreateMenu("?", -1, 1)
Global $item_help_auto = GUICtrlCreateMenuItem("Autor: (Auto)Bert", $menu_help)
Global $item_help_exit = GUICtrlCreateMenuItem("Beenden", $menu_help)
GUICtrlSetOnEvent(-1, '_End')

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

Local $hedtDate = GUICtrlCreateDate("01.01.2009", 20, 10, 130, 25, $DTS_UPDOWN)
;erzeugt ein Date Steuerelement die zurückgegebene ID wird in der Variablen $hedtDate gespeichert
GUICtrlSetFont(-1, 12)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
;verankert das Date Steuerelement Links, rechts, oben und fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite

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

GUICtrlCreateButton('&prüfen (eigenes Fenster)', 220, 10, 150, 25)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)
;verankert den Button "Prüfen" rechts und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
GUICtrlSetOnEvent(-1, '_CheckDate')
;Beim Klicken des Buttons wird die Funktion _CheckDate aufgerufen

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

Local $hlblErgebnis = GUICtrlCreateLabel("hier steht danach das Ergebnis", 12, 50, 200)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert das Label links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

GUICtrlCreateButton('Be&enden', 220, 115, 150, 25)
GUICtrlSetOnEvent(-1, '_END')
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKTOP)

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

GUICtrlCreateGraphic(0, 230, 400, 2, $SS_BLACKRECT)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
Global $hStatus = GUICtrlCreateLabel("", 5, 235, 400, 25)

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

GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKBOTTOM)
;verankert das Label Links, rechts und unten; fixiert die Höhe
;beim Resizen bleibt es dadurch auf seiner Position und ändert nur die Breite wird angepasst
GUISetState()

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

While 1
Sleep(120)
WEnd

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

Func _End()
GUIDelete($hMainGui)
Exit
EndFunc ;==>_End

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

Func _CheckDate()
Local $sCheckDate = GUICtrlRead($hedtDate)
Local $iCheckDate

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

Local $iYear = StringRight($sCheckDate,4) $iMonth = StringMid($sCheckDate,4,2), $iDay = StringLeft($sCheckDate,2)
Local $iCheckDate = _DateDiff( 'd',$iYear & "/" & $iMonth & "/" & $iDay & " 00:00:00",_NowCalc())
if $iCheckDate = 0 then
$sMsg = "Datum ist gleich heute"
ElseIf $iCheckDate < 0 then
$sMsg = "Datum ist in der Zukunft"
Elseif $iCheckDate > 0 Then
$sMsg = "Datum ist in der Verganenheit"
EndIf
ConsoleWrite($iCheckDate & @CRLF)
GUICtrlSetData($hlblErgebnis, $sMsg)
GUISetState()
EndFunc ;==>_CheckDate

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo funkey,

ich habr gerade deine OwnTab-UDF heruntergeladen und dein Example dazu kurz getestet. Sieht super aus .

mfg (Auto)Bert

**autoBert**

zum Geburtstag euch beiden, ich hoffe ihr habt gut gefeiert

mfg (Auto)Bert

**autoBert**

Hallo Ubuntu,

ohne GUICtrlDelete und GUICtrlCreatePic aber mit ControlMove flackerts nicht mehr:

Spoiler anzeigen

[autoit]

;left arrow 25
;up arrow 26
;right arrow 27
;down arrow 28
;space bar 20
#include <GuiConstants.au3>
#include <Misc.au3>

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

GUICreate("Bubble")
GUISetBkColor(0x000000)
$del = GUICtrlCreatePic(@ScriptDir & "\packman right.gif", 50, 50, 20, 20)
If $del = 0 Then MsgBox(0, "ERROR", "Error, kann die Bilddatei nicht finden.")
GUISetState(@SW_SHOW)

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

$up = 50;+ weiter unten- weiter oben 2.Wert
$right = 50 ;+ weiter rechts - weiter links 1.Wert
$pic = 1;1 Rechts , 2 Links , 3 Oben , 4 Unten

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

While 1
If _IsPressed(26) Then $up = $up - 1
If _IsPressed(25) Then $right = $right - 1
If _IsPressed(28) Then $up = $up + 1
If _IsPressed(27) Then $right = $right + 1
ControlMove("", "", $del, $right, $up)
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Ubuntu,

versuch es einmal so:

[autoit]

...
while _IsPressed(28)
$up = $up + 1
If $pic = 4 Then
ControlMove ("","",$del,$right,$up)
Wend ;die variablen müssten alle stimmen
...

[/autoit]

da ich vermute, dass die Bewegung um 1 Pixel nicht auffällt. Ansonsten poste mal dein ganzes Skript,

mfg (Auto)Bert

**autoBert**

Hallo ,

schaust du hier,

mfg (Auto)Bert

**autoBert**

Hallo ,

schau dir mal diesen Post an,

mfg (Auto)Bert

**autoBert**

Hallo Acanis,

schau dir dazu GUICtrlSetState und die Statustabelle ($Gui_Show u. $Gui_Hide) an. Eventuell kannst du auch einen eigenen Thread eröffnen, in dem du dei Problem ausführlicher schilderst und dein bisheriges Skript mit einstellst.

mfg (Auto)Bert

**autoBert**

Hallo Acanis,

da du im OnEvent-Modus programmierst, kannst du doch eine einzige Funktion benutzen in der du @GUI_CtrlId bzw. @GUI_CtrlHandle auswertest.

mfg (Auto)Bert

**autoBert**

Hallo du kannst auch folgendes machen:

Spoiler anzeigen

[autoit]

Func _MsgBoxIndividual($flag, $title, $text, $btn_text1 = "&OK", $btn_text2 = "&Nein", $btn_text3 = "&Vielleicht", $TimeOut = 0)
Local $str = "Local $x = Opt('WinWaitDelay',50)+WinWait('" & $title & "','')+" & _
"ControlSetText('" & $title & "','" & $text & "','Button1','" & $btn_text1 & "')+" & _
"ControlSetText('" & $title & "','" & $text & "','Button2','" & $btn_text2 & "')+" & _
"ControlSetText('" & $title & "','" & $text & "','Button3','" & $btn_text3 & "')"
Run('"' & @AutoItExe & '" /AutoIt3ExecuteLine "' & $str & '"')
Sleep(100)
Return MsgBox($flag, $title, $text, $TimeOut)
EndFunc ;==>_MsgBoxIndividual
_MsgBoxIndividual(34, "Frage", "Gehst du heute mit mir aus?", "&Bin dabei", "&Mag nicht")

[/autoit]

siehe dazu auch MsgBox-Buttons Text ändern mal anders :) von funkey

mfg (Auto)Bert

**autoBert**

Hallo freach,

hier ein Grundgerüst für Combo-Boxen und INI-Files:

Spoiler anzeigen

[autoit]

;#include <GuiComboBox.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#include <File.au3>

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

Const $sElect = "bitte eine URL auswählen"

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

#Region ### START Koda GUI section ### Form=
$hGui = GUICreate("Combobox mit INI ", 250, 160, 302, 218)
$hcboProg = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
$hlblURL = GUICtrlCreateLabel("", 8, 35, 200, 50)
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)

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

$sData = "AutoIt=http://www.autoit.de" & @LF & "Der Thread=http://www.autoit.de/index.php?page=Thread&postID=122400#post122400" & @LF & "AutoIt V3=http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
IniWriteSection(@ScriptDir & "\MeinIniFile.INI", "URLs", $sData)
$list1 = IniReadSection(@ScriptDir & "\MeinIniFile.INI", "URLs")
ConsoleWrite($list1 & @CRLF)
For $i = 1 To $list1[0][0]
GUICtrlSetData($hcboProg, $list1[$i][0])
Next

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hcboProg
If GUICtrlRead($hcboProg) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblURL, "")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
$Prog = GUICtrlRead($hcboProg)
$URL = IniRead(@ScriptDir & "\MeinIniFile.INI", "URLs",$Prog,"")
GUICtrlSetData($hlblURL, $URL)
EndIf
Case $hbtnOpen
;hier $URL öffnen
;_IECreate($URL)
EndSwitch
WEnd

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo @all,

danke für die lieben Grüße und Wünsche, jetzt wieder mit Netbook und daher auch stellenweise online (in der Sonne sitzend, vor dem KKH)

mfg (Auto)Bert

**autoBert**

Danke @all, Oscar es ist der 51. Leider im Krankenhaus ohne Netbook nur Handy zur Verfügung

mfg autobert

**autoBert**

Hallo Pinguin94,

die Variablen müssen global definiert werden wenn sie nicht innerhalb einer einzigen Func benutzt werden sollen, daher musst du diese entweder Global definieren oder die Msg-Loop mit in die Func aufnehmen. Skript (2. Variante):

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=images\icon.ico
#AutoIt3Wrapper_Outfile=Widerstandsberechner.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_LegalCopyright=xxx
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <EditConstants.au3>
#include <ComboConstants.au3>
#include <Constants.au3>
Opt("TrayMenuMode", 1)
Global $aLabel[10] = ['Schwarz', 'Braun', 'Rot', 'Orange', 'Gelb', 'Grün', 'Blau', 'Violett', 'Grau', 'Weiß']
Global $bLabel[8] = ['Keine', 'Silber', 'Gold', 'Braun', 'Rot', 'Grün', 'Blau', 'Violett']
Global $cLabel[9] = ['Braun', 'Rot', 'Orange', 'Gelb', 'Grün', 'Blau', 'Violett', 'Grau', 'Weiß']
Global $dLabel[12] = ['Silber', 'Gold', 'Schwarz', 'Braun', 'Rot', 'Orange', 'Gelb', 'Grün', 'Blau', 'Violett', 'Grau', 'Weiß']

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

Global $eLabel[9] = ['1', '2', '3', '4', '5', '6', '7', '8', '9']
Global $fLabel[10] = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']
Global $gLabel[12] = ['0,01', '0,1', '1', '10', '100', '1000', '10000', '100000', '1000000', '10000000', '100000000', '1000000000']
Global $hLabel[8] = ['20', '10', '5', '1', '2', '0,5', '0,25', '0,1']
;Global $Button1, $Button2, $Button3, $Button4, $Updown1, $Updown2, $Updown3, $Updown4, $Updown5
;Global $Input1, $Input2, $Input3, $Input4, $Input5, $Input6, $Input7, $Input8, $Input9, $Input10
;Global $Blind_Input3, $Blind_Input4, $Blind_Input5, $Blind_Input6, $Blind_Input7
;------------------------------------------------------------------------------------------------------------
TraySetIcon(@ScriptDir & "\Images\icon.ico")
TrayTip("Copyright (c) 2009", "...", 2, 1)
_intro()
_gui()
;------------------------------------------------------------------------------------------------------------
Func _gui()
#Region ### START Koda GUI section ### Form=c:\users\rouven\desktop\form1.kxf
$Form1 = GUICreate("Widerstandberechner", 700, 304, -1, -1, -1)
GUISetBkColor(0xFDFDFD)
$Ringanzahl = GUICtrlCreateLabel("Ringanzahl:", 446, 48, 89, 23)
GUICtrlSetFont(-1, 13, 400, 0, "Arial")
GUICtrlCreateCombo("", 544, 45, 49, 5, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_VSCROLL))
GUICtrlSetFont(-1, 10, 400, 0, "arial")
GUICtrlSetData(-1, " 4| 5", " 4")

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

$Input6 = GUICtrlCreateInput("", 40, 120, 97, 21, $ES_READONLY)
$Blind_Input3 = GUICtrlCreateInput("", 153, 120, 1, 21)
$Updown1 = GUICtrlCreateUpdown($Blind_Input3)
GUICtrlSetLimit(-1, 8, 0)
GUICtrlSetData($Input6, $cLabel[0])
$Input7 = GUICtrlCreateInput("", 170, 120, 97, 21, $ES_READONLY)
$Blind_Input4 = GUICtrlCreateInput("", 283, 120, 1, 21)
$Updown2 = GUICtrlCreateUpdown($Blind_Input4)
GUICtrlSetLimit(-1, 9, 0)
GUICtrlSetData($Input7, $aLabel[0])
$Input8 = GUICtrlCreateInput("", 300, 120, 97, 21, $ES_READONLY)
$Blind_Input5 = GUICtrlCreateInput("", 413, 120, 1, 21)
$Updown3 = GUICtrlCreateUpdown($Blind_Input5)
GUICtrlSetLimit(-1, 9, 0)
GUICtrlSetData($Input8, $aLabel[0])
$Input9 = GUICtrlCreateInput("", 430, 120, 97, 21, $ES_READONLY)
$Blind_Input6 = GUICtrlCreateInput("", 543, 120, 1, 21)
$Updown4 = GUICtrlCreateUpdown($Blind_Input6)
GUICtrlSetLimit(-1, 11, 0)
GUICtrlSetData($Input9, $dLabel[0])
$Input10 = GUICtrlCreateInput("", 560, 120, 97, 21, $ES_READONLY)
$Blind_Input7 = GUICtrlCreateInput("", 673, 120, 1, 21)
$Updown5 = GUICtrlCreateUpdown($Blind_Input7)
GUICtrlSetLimit(-1, 7, 0)
GUICtrlSetData($Input10, $bLabel[0])

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

$Label1 = GUICtrlCreateLabel("Toleranz", 573, 96, 66, 23)
GUICtrlSetFont(-1, 13, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel("2. Ziffer", 183, 96, 61, 23)
GUICtrlSetFont(-1, 13, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("3. Ziffer", 313, 96, 61, 23)
GUICtrlSetFont(-1, 13, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel("Multiplikator", 443, 96, 89, 23)
GUICtrlSetFont(-1, 13, 400, 0, "Arial")
$Ziffer = GUICtrlCreateLabel("1. Ziffer", 53, 96, 61, 23)
GUICtrlSetFont(-1, 13, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("Widerstandsberechner", 80, 24, 280, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("0,01", 443, 168, 81, 21, $ES_READONLY)
GUICtrlSetLimit(-1, 11, 0)
$Input2 = GUICtrlCreateInput("0", 313, 168, 81, 21, $ES_READONLY)
GUICtrlSetLimit(-1, 9, 0)
$Input3 = GUICtrlCreateInput("0", 183, 168, 81, 21, $ES_READONLY)
GUICtrlSetLimit(-1, 9, 0)
$Input4 = GUICtrlCreateInput("20", 573, 168, 81, 21, $ES_READONLY)
GUICtrlSetLimit(-1, 7, 0)
$Input5 = GUICtrlCreateInput("1", 53, 168, 81, 21, $ES_READONLY)
GUICtrlSetLimit(-1, 12, 0)
$Button1 = GUICtrlCreateButton("Schließen", 570, 265, 121, 30, 0)
$Button2 = GUICtrlCreateButton("Copyright", 8, 272, 89, 25, 0)
$Button3 = GUICtrlCreateButton("Rechnung (mit Toleranz)", 360, 224, 129, 41, 0)
$Button4 = GUICtrlCreateButton("Rechnung (ohne Toleranz)", 200, 224, 137, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$aboutitem = TrayCreateItem("Credits")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button2
_credits()
Case $Updown1
GUICtrlSetData($Input6, $cLabel[GUICtrlRead($Blind_Input3)])
GUICtrlSetData($Input5, $eLabel[GUICtrlRead($Blind_Input3)])
Case $Updown2
GUICtrlSetData($Input7, $aLabel[GUICtrlRead($Blind_Input4)])
GUICtrlSetData($Input3, $fLabel[GUICtrlRead($Blind_Input4)])
Case $Updown3
GUICtrlSetData($Input8, $aLabel[GUICtrlRead($Blind_Input5)])
GUICtrlSetData($Input2, $fLabel[GUICtrlRead($Blind_Input5)])
Case $Updown4
GUICtrlSetData($Input9, $dLabel[GUICtrlRead($Blind_Input6)])
GUICtrlSetData($Input1, $gLabel[GUICtrlRead($Blind_Input6)])
Case $Updown5
GUICtrlSetData($Input10, $bLabel[GUICtrlRead($Blind_Input7)])
GUICtrlSetData($Input4, $hLabel[GUICtrlRead($Blind_Input7)])
EndSwitch
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $aboutitem
MsgBox(64, "Credits", "Copyright (c)")
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
EndFunc ;==>_gui so müssen die Variablen nicht global definiert werden
;------------------------------------------------------------------------------------------------------------
Func _intro()
#Region ### START Koda GUI section ### Form=
$intro = GUICreate("Spotlight", 465, 303, -1, -1)
GUICtrlCreatePic(@ScriptDir & "\Images\logo.jpg", -1, -1, 465, 303)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Sleep(2500)
GUIDelete()
EndFunc ;==>_intro
;------------------------------------------------------------------------------------------------------------
Func _credits()
MsgBox(0, "Credits to", "")
EndFunc ;==>_credits

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Agent.Bitch,

lies dir bitte einmal die Forenregeln durch,

mfg (Auto)Bert

**autoBert**

Hallo DumdiDum,

schau dir einml in der Hilfe die Funktionen _NowCalc und _DateAdd an, damit solltest du dein Problem lösen können,

mfg (Auto)Bert

**autoBert**

Hallo sirocool,

dein eigentliches Problem habe ich zwar nicht verstanden was du meinst, aber wenn du alle verfügbaren LW in einer Combo anzeigen lassen willst, dann könntest du es so machen:

[autoit]

Global $HeaderCombo = ""
For $i = 65 to 90
if FileChangeDir( chr($i) & ":\") Then $HeaderCombo = $HeaderCombo & "Lokaler Datenräger (" & chr($i) & ";)"
Next
GUICtrlSetData($Combo1,$HeaderCombo)

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo sLaxx,

Zitat

1. ist es kein Bot, den er verschafft mir eig kein Vorteil!

allerdings möchtest du dadurch einen Vorteil erreichen, also doch BOT,

mfg (Auto)Bert

Beiträge von autoBert

Liste in GUI scrollen

Animierter Button

Datum vergleichen

Eigenes Tab-Register (OwnTab-UDF)

Geburtstag von peethebee und funkey

ControlMove

ControlMove

Control Send - Ausrufezeichen??

GUISetState(@SW_MINIMIZE) schließt die ganze GUI - Popup-GUI

TreeView Transparent

Variable Funktionen!?

MsgBox - Eigene Beschriftung

Variables Array Element aufrufen

Geburtstag von AutoBert

Geburtstag von AutoBert

Variabeln nicht deklariert? / Rechnung aktualisieren

Spamer geht nicht..

Zeit abfragen und starten

bräuchte mal eure Hilfe danke

Problem mit "Keybinder"