Beiträge von Kleiner

Kleiner

Man soll doch auch sehen können was ausgewählt wurde?
Also immer anpassen!

LG Kleiner

Kleiner

Guten Morgen!

1. Ist das der ganze code????
2. Gewöhne dir an die Variablen zu Deklarieren!
3.Versuch anhand meines beispiel dein code neu aufzubauen das nicht gleich alles auf einmal ablaufen kann oder muß ( Gut mußt du am ende wissen )

Hir mal was dich weiter bringt:

[autoit]

GUICtrlGetHandle() ; das Handle vom Listview wird für
_GUICtrlListView_SetColumn() ; 1. Spalte = 120 Px breit, rechts ausgerichtet (2.3..... usw.)
_GUICtrlListView_GetSelectionMark(); auslesen, welcher Listview-Eintrag markiert
_GUICtrlListView_GetItemTextArray(); die Einträge aus dem Listview in ein Array holen

[/autoit]

Jetzt kannst du ein wenig arbeiten lesen Testen!

Edit: Um dich noch ein wenig auf die sprünge zu helfen!

[autoit]

_GUICtrlListView_SetExtendedListViewStyle($listView, $LVS_EX_BORDERSELECT); Markierten Item auslesen

[/autoit]

LG Kleiner

Kleiner

Sorry wenn es zu schnell war das ist eine sache gewehsen die mich auch intresiert hat!

LG kleiner

Kleiner

So wie BugFix schon sagte so kannst du sie dir nicht ausgeben lassen aber Ausführen CMD {enter} ipconfig /all rein {enter} und schon hast du deine Netzwerkverbindungen!
Und diesen kannst du mit Autoit automatisieren oder du schreibst eine Batch muss blos pause hinten ran ansonsten fenster wieder zu!
LG kleiner

Kleiner

Schön das du es verstanden hast!

Zu deiner fage: wenn ich sie richtig verstanden habe willst du wissen was die überschriften der ListenListView ist die du ja selber festgelegt hast?????? !
Ich versteh nicht ganz mit "position 2" meinst du ´die überschriften denn da ist doch an zweiter stelle Networkname???!!
Oder meinst du die MsgBox ? Wenn ja da hast du ja auch die ausgabe selber geschrieben und wenn du da wo du versucht hast die überschriften zu lesen die MsgBox meinst da kannst du dan auch deine eigene ausgabe schrieben wie bei den anderen auch?!!!

????Frage über fragen????

Wenn du schon ein laufendes skript hast poste es doch bitte dann kann ich auch besser verstehen was du meinst und weitere fragen werden einfacher zu klären sein!
Denn du hast ja nur die hälfte hir rein gestellt!!!!!!

LG Kleiner

Kleiner

Bitte BugFix doch über PW ob er dir sie noch mal geben Könnte!

LG Kleiner

Kleiner

Halllo WhiteLion !

Ich habe mir mal dein skript angeschaut und muß sagen das du dich über dein wiessen hinaus bewegst ohne überhaupt zu wissen was du willst und was du da machst so sieht dein skript auf jeden fall aus denn ich mußte zu anfang erstmal viele fehler beseitigen das ich ihn überhaupt starten konnte !
Du weißt vieleicht was du ungefähr willst also arbeite dich doch von ein zum anderen und wenn du nicht weiter kommst dann sind wir hier und werden dir helfen soweit es uns möglich ist aber schmeiß kein code ihr rein der vorne und hinten nicht funkt!
Ich habe den code erstmal zum laufen bekommen und die cpu leistung ist auch runter also überlege dir wo du anfangen willst dann können wir dir auch weiter helfen.

Hir erstmal der laufende code!

Spoiler anzeigen

[autoit]

#include <array.au3> ; wird nur für _ArrayDisplay benötigt
#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <File.au3>
#include <Date.au3>
Opt("GUIOnEventMode", 1) ; OnEvent-Mode einschalten

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

; ##### Gui Control ##################################################################
Global $Form1 = GUICreate("Inputfiels", 500, 400)
GUISetOnEvent(-3, "_Exit")
Local $output = GUICtrlCreateEdit("", 10, 330, 490, 70, BitOR($GUI_SS_DEFAULT_EDIT, $ES_MULTILINE))
GUISetState(@SW_SHOW)
GUICtrlCreateLabel("Status", 10, 310, 34, 17)
GUICtrlCreateLabel("Virtual LAN Adapters found", 10, 160, 340, 17)
GUISetIcon(@SystemDir & "\mspaint.exe", 0)
GUICtrlCreateButton('Test', 20, 20, 50, 20)
GUICtrlSetOnEvent(-1, '_GetNetworkadapter')
Local $listView = GUICtrlCreateListView("Adaptername | Networkname | IP-Adress | Found |", 10, 180, 490, 100)
Global $networkadapter[1][3]
While 1
Sleep(1000)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _GetNetworkadapter()
Local $x = 0
Local $strComputer = "Localhost"
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Local $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
For $objItem In $colItems
$networkadapter[$x][0] = $objItem.Name
$networkadapter[$x][1] = $objItem.NetConnectionID
$x += 1
ReDim $networkadapter[$x + 1][3]
Next
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Local $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
For $objItem In $colItems
For $i = 0 To UBound($networkadapter) - 1
If $networkadapter[$i][0] = $objItem.Description Then
$networkadapter[$i][2] = $objItem.IPAddress(0)
EndIf
Next
Next
_StartTeknogodsDLL()
EndFunc ;==>_GetNetworkadapter

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

Func _StartTeknogodsDLL()
Local $oldData = ""
Local $hPID = Run("ping heise.de", "", @SW_HIDE, 6)
Do
$readData = StdoutRead($hPID, 1)
If $readData <> $oldData Then
GUICtrlSetData($output, GUICtrlRead($output) & @CRLF & $readData)
$oldData = $readData
EndIf
If ProcessExists("ping.exe") Then
Else
_ListNetworks()
ExitLoop
EndIf
Until 0
EndFunc ;==>_StartTeknogodsDLL
Func _ListNetworks()
Dim $networkadaptername, $networkname, $networkip
_SearchNetworknames("Hamachi")
$item1 = GUICtrlCreateListViewItem($networkadaptername & "|" & $networkname & "|" & $networkip & '||', $listView)
_SearchNetworknames("Tunngle")
$item2 = GUICtrlCreateListViewItem($networkadaptername & "|" & $networkname & "|" & $networkip & '||', $listView)
GUISetState()
$button = GUICtrlCreateButton("Use Selected Adapter", 100, 280, 300, 20)
Do
$tmp = GUICtrlRead(GUICtrlRead($listView))
$tmp = StringMid($tmp, StringInStr($tmp, "|", 1, 1) + 1)
$tmp = StringTrimRight($tmp, StringInStr($tmp, "|", 1, 2))
MsgBox(0, "listview item", $tmp, 2)
ExitLoop
Until 0

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

EndFunc ;==>_ListNetworks
Func _SearchNetworknames($searchstring)
Local $sColumn = 0

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

Local $iIndex = _ArraySearch($networkadapter, $searchstring, 0, 0, 0, 1, $sColumn)
If @error Then
MsgBox(0, "Note:", "No virtual networkadapter found! Please install Hamachi/Tunngle !")
Else
Local $networkadaptername = $networkadapter[$iIndex][$sColumn]
Local $networkname = $networkadapter[$iIndex][$sColumn + 1]
Local $networkip = $networkadapter[$iIndex][$sColumn + 2]
MsgBox(0, "", $networkadaptername & $networkname & $networkip)

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

EndIf
EndFunc ;==>_SearchNetworknames

[/autoit]

LG Kleiner

Kleiner

Sei doch erlich zu dir selbst würdest du von jeden hanz und franz eine exe datei ausführen !

Egal ob wir hir im forum sind oder nicht es gibt immer schwarze schafe und ausserdem bist du noch unbekant also erwarte nicht all so viel vertrauen von uns!

LG Kleiner

Kleiner

Bug habe ich noch behoben ein kleiner ist noch den überlasse ich dir!

Spoiler anzeigen

[autoit]

#include <date.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
$Form1 = GUICreate("Form1", 180, 419, 192, 124)
$Input1 = GUICtrlCreateInput("", 19, 259, 143, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY, $ES_NUMBER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Button1", 47, 28, 80, 46, $WS_GROUP)
Local $zaehlen[1] = [GUICtrlCreateInput('0', -100, -100)] ; Eine Input die nicht im sichtfeld ist: zum auslesen des gespeicherten ( glesenen ) wert!
GUISetState(@SW_SHOW)
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
Global $GeheZumEnde, $lh, $lm, $ls,$a = 0
Global $zeit[3] = [10000, 40000, 20000000] ; Habe ich in eine Array gepackt spart platz ( zeilen )!
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE; Ich habe dein aufbau beibehalten denn ich weiß nicht wie du weiter machst, ich würde alles mit ( GUIOnEventMode ) machen!
Exit
Case $Button1
_ZeitADD1()
EndSwitch
WEnd
Func _ZeitADD1()
MsgBox(0, '', GUICtrlRead($zaehlen[0])); zum Debugen: auslesen was du fürn wert bekommst, um daruf reagieren zu könne !
$code = Int(Random(4, 7));------------------------------------------------------------------------------
MsgBox(0,'',$code)
SplashOff()
If $code == 4 Then
$code = $zeit[0]
ElseIf $code == 5 Then; !##! Ist gleich geblieben !##! (ausser (zeile 33) )
$code = $zeit[1]
ElseIf $code == 6 Then
$code = $zeit[2]
EndIf
; $code = $code <---- brauchst du nicht denn du legst den wert schon zu ( $GeheZumEnde )
$GeheZumEnde = $code
$start = TimerInit();----------------------------------------------------------------------------------
Do; ( schleife )!
$aus = GUICtrlRead($zaehlen[0]);läuft mit in der schleife denn wenn du denn butten erneut clickst wird der gespeicherte wert ausgelesen und verarbeitet!
$GeheZumEnde = ($code + $aus) - TimerDiff($start); hir lass ich den zurückgegebenen wert mit einrechenen!
_RechneRunter()
Local $test = GUICtrlRead($Input1);läuft mit und ist wichtig denn wenn du den button clickst, wurde die input bereits ausgelesen und kann gesetzt werden!
Local $fei = StringReplace($test, ':', '');Ihr lass ich den zurückgegebenen wert von (:) befreien denn wenn z.B 00:00:90 zurückgegeben wurde ist dann nach
;denm (:) entfernen 00009 ist wichtig für das rechnen und wieder einspielen in die rechnung!
$nMsg = GUIGetMsg(); mußte nochmal gesetzt werden denn in der schleife ist es nicht möglich befehle einzubrinen vieleicht schon aber die kenn ich nicht!
Switch $nMsg
Case $Button1
GUICtrlSetData($zaehlen[0], $fei * 1000);durch clicken des button wird der wert in ( $zaehlen ) neu gesetzt die werte wurden ja schon gelesen und
; von (:) entfernt so könne wir auch gleich den wert wieder aufrechnen das wehr dann bei 00009 * 1000 = 9000 = 9 sec.
_ZeitADD1(); soltest du drin lassen durch meine test ging und ging es mal "nicht", das heist in manchen fällen addiert er und in machen subtrahiert er
Case $GUI_EVENT_CLOSE;um den code auch wieder schließen zu können
Exit
EndSwitch
If $fei = 0 Then; überprüfung ob Input 0 erreicht hat dann das und das
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
GUICtrlSetData($zaehlen[0], '0');um den wert wieder auf 0 zu setzen wenn du nach ablauf der zeit denn button erneut clickst, ist wichtig sonst bekommst
; du ein falschen wert z.b bei meiner darstellung, 9000 der wird beim zweiten click miteingerechnet. Die zeit runtergezählt du denn button erneut
; clickst wirst du den noch immer enthaltenen wert der Input ( $zaehlen ) = 9000 bekommen darum setzen wir ihn auf 0
ExitLoop; um die schleife zu verlassen!
EndIf
Until 0
EndFunc ;==>_ZeitADD1
;Ganz wichtig geht die rechnug über stunden z.B die Input zeigt 05:33:00 wie er bei $code = 6 ausgibt an und du wieder den button clickst bei 05:20:00
;oder einer anderen ist die rechnung * 1000 nicht mehr angemessen du sagtest das du kurz vor ende die eigentschaft braucht ansonsten ist das rechnen mit * 1000
;zu hoch ich will dir ja nicht alles weg nehmen darum überlass ich dir den kleinen Bug der solte nicht all zu schwer sein!

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

;/////////////////////////////////////////////////////// Ich hoffe das meine Beispiel dir ein wenig helfen konnte! \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Func _RechneRunter()
Local $iHours, $iMins, $iSecs
_TicksToTime($GeheZumEnde, $iHours, $iMins, $iSecs)
If $lh <> $iHours Or $lm <> $iMins Or $ls <> $iSecs Then
GUICtrlSetData($Input1, StringFormat("%02i", $iHours) & ":" & StringFormat("%02i", $iMins) & ":" & StringFormat("%02i", $iSecs))
$lh = $iHours
$lm = $iMins
$ls = $iSecs
EndIf
EndFunc ;==>_RechneRunter
;////////////////////////////////////////////////////////////////// Mit freundlichen Grüßen Kleiner \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

[/autoit]

LG Kleiner

Kleiner

Mich hat das heute Morgen nicht losgelassen!

Darum noch eine Version die ich besser finde!

Bitte:

Spoiler anzeigen

[autoit]

#include <date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
;Form1 ist nur fuer den Button und dient nur fuer den Test der Simulation
;ueber den Button generiere ich die Events, welche normaleweise von der DLL generiert,
$Form1 = GUICreate("Form1", 180, 419, 192, 124)
$Input1 = GUICtrlCreateInput("", 19, 259, 143, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY, $ES_NUMBER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Button1", 47, 28, 80, 46, $WS_GROUP)
Local $zaehlen = GUICtrlCreateInput('0', -100, -100) ; Eine Input die nicht im sichtfeld ist!
GUISetState(@SW_SHOW)
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
#EndRegion ### END Koda GUI section ###
Global $GeheZumEnde, $lh, $lm, $ls
Global $zeit[3] = [10000, 40000, 20000000]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ZeitADD1()
EndSwitch
WEnd
Func _ZeitADD1()
$code = Int(Random(4, 7))
SplashOff()
If $code == 4 Then
$code = $zeit[0]
ElseIf $code == 5 Then
$code = $zeit[1]
ElseIf $code == 6 Then
$code = $zeit[2]
EndIf
$GeheZumEnde = $code
$start = TimerInit()
Do
$aus = GUICtrlRead($zaehlen) * 1000
$GeheZumEnde = ($code + $aus) - TimerDiff($start)
_RechneRunter()
Local $test = GUICtrlRead($Input1)
Local $fei = StringReplace($test, ':', '')
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
GUICtrlSetData($zaehlen, $fei)
_ZeitADD1()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $fei = 0 Then
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
ExitLoop
EndIf
Until 0
EndFunc ;==>_ZeitADD1
Func _RechneRunter()
Local $iHours, $iMins, $iSecs
_TicksToTime($GeheZumEnde, $iHours, $iMins, $iSecs)
If $lh <> $iHours Or $lm <> $iMins Or $ls <> $iSecs Then
GUICtrlSetData($Input1, StringFormat("%02i", $iHours) & ":" & StringFormat("%02i", $iMins) & ":" & StringFormat("%02i", $iSecs))
$lh = $iHours
$lm = $iMins
$ls = $iSecs
EndIf
EndFunc ;==>_RechneRunter

[/autoit]

Jetzt solte es gehen!

LG Kleiner

Kleiner

Guten Morgen!

Ich habe mir die sache mal genauer angeschaut: Ich habe dein problem soweit verstanden in der While zu addiren!
Habe da mal was geschrieben!

Spoiler anzeigen

[autoit]

#include <date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=

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

;Form1 ist nur fuer den Button und dient nur fuer den Test der Simulation
;ueber den Button generiere ich die Events, welche normaleweise von der DLL generiert,

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

$Form1 = GUICreate("Form1", 180, 419, 192, 124)
$Input1 = GUICtrlCreateInput("", 19, 259, 143, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY, $ES_NUMBER), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("Button1", 47, 28, 80, 46, $WS_GROUP)
Local $zaehlen = GUICtrlCreateInput('0', -100, -100) ; Eine Input die nicht im sichtfeld ist!
GUISetState(@SW_SHOW)

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

; Fenster1 ist zu Beginn geoeffnet
; SplashText ist nur Beispiel
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
#EndRegion ### END Koda GUI section ###

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

Global $GeheZumEnde, $lh, $lm, $ls
Global $zeit[3] = [10000, 40000, 20000000]

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ZeitADD1()
EndSwitch
WEnd
Func _ZeitADD1()
$code = Int(Random(4, 7))
; Weil ein Event aufgetreten, wird Fenster1 geschlossen,
;jetzt wird Fenster2 erstellt, fuer die Simulation ist es $Input1
;in $Input1 laeuft die Zeit, wenn Zeit abgelaufen, wieder zum Fenster1 zurueck

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

SplashOff()
If $code == 4 Then
$code = $zeit[0]
ElseIf $code == 5 Then
$code = $zeit[1]
ElseIf $code == 6 Then
$code = $zeit[2]
EndIf

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

$aus = GUICtrlRead($zaehlen); Die Input auslesen
$code += $aus * 1000; Da soltest du schauen wie du die zeit wieder aufaddirst ich habe 1000 genommen
$GeheZumEnde = $code
MsgBox(0, '', $aus); Zum schauen was der ausgelesene wert dir gibt
$start = TimerInit()

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

While $GeheZumEnde > 0
$GeheZumEnde = $code - TimerDiff($start)
_RechneRunter()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ; zum schlißen der gui (form1) Habe ich hir her verlegt denn sonst hat sich die gui (form1) sich nicht schlißen lassen
Exit
Case $Button1 ; noch mal weil dann sich der Button wieder ausführen läst!
Local $test = GUICtrlRead($Input1); Auslesen was gerade in der ( Input1 ) steht sagen wir mal 05:35:03
Local $fei = StringReplace($test, ':', ''); Hir wird der String nach ( : ) durchsucht und entfernt
GUICtrlSetData($zaehlen, $fei); die ausgabe wehr dann 053503 wie schon gesagt mußt mal schauen wie du den wert aufrechnest!
_ZeitADD1()
EndSwitch
WEnd

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

If TimerDiff($start) Then
;Timer ist bei 0 angekommen, oeffne wieder Fenster1 und warte auf Events
SplashTextOn("", "Das ist Fenster 1" & @CRLF & "Test hat noch nicht begonnen", "-1", "100", "-1", "-1", 3, "Courier New", "20", "400")
EndIf
EndFunc ;==>_ZeitADD1

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

Func _RechneRunter()
Local $iHours, $iMins, $iSecs
_TicksToTime($GeheZumEnde, $iHours, $iMins, $iSecs)
If $lh <> $iHours Or $lm <> $iMins Or $ls <> $iSecs Then
;Die Imputbox (Fenster2 in unserem Beispiel) war ja schon erstellt, jetzt werden die Zeitdaten an diese uebertragen
GUICtrlSetData($Input1, StringFormat("%02i", $iHours) & ":" & StringFormat("%02i", $iMins) & ":" & StringFormat("%02i", $iSecs))
$lh = $iHours
$lm = $iMins
$ls = $iSecs
EndIf
EndFunc ;==>_RechneRunter

[/autoit]

Gute Nacht!

LG Kleiner

Kleiner

Ich habe das mal schnell dargestellt (Zwar nicht die beste lösung aber es ist eine) wenn es das ist was du meinst!

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 154, 206, 278, 133)
$Input1 = GUICtrlCreateInput("", 16, 136, 121, 21, BitOR($ES_CENTER, $ES_READONLY))
$Button1 = GUICtrlCreateButton("EventSimulation", 24, 24, 105, 57, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Form2 = GUICreate("Form1", 154, 206, 278, 133)
$Input2 = GUICtrlCreateInput("", 16, 136, 121, 21, BitOR($ES_CENTER, $ES_READONLY))
GUISetState(@SW_HIDE, $Form2)

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

Global $timerAdd1 = 12540000; Millisekunden nur als Beispiel
Global $timerAdd2 = 12585000; Millisekunden nur als Beispiel
Global $timerAdd3 = 12590000; Millisekunden nur als Beispiel

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_TimeADD()
EndSwitch
WEnd
;############################ Ich habe die zeiten ein bischen verlängert das man auch das runterzählen sehen kann!
Func _TimeADD()
$Code = Int(Random(4, 7))
If $Code == 4 Then
$Code = $timerAdd1
ElseIf $Code == 5 Then
$Code = $timerAdd2
ElseIf $Code == 6 Then
$Code = $timerAdd3
EndIf
GUICtrlSetData($Input1, $Code)
Sleep(50)
While $Code
GUISetState(@SW_HIDE, $Form1) ; versteckt gui (form1)
GUISetState(@SW_SHOW, $Form2); zeigt gui (form2)
GUICtrlSetData($Input2, $Code)
$Code -= 1000 ; zählt 1000 runter
If $Code = 0 Then ; wenn 0 dann fenster wechsel
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_SHOW, $Form1)
EndIf
WEnd
EndFunc ;==>_TimeADD

[/autoit]

LG Kleiner

Kleiner

Hey funkey !

Also zu den feiertagen in österrei, tja da könne wir uns ja zusammen setzen und das grenzübergreifend erstellen !
Und mit der Combobox da hast du wohl recht für das schnelle aussuchen der Monate, ich fande es so schöner als da jetzt eine C-Box zu haben!

LG Kleiner

Kleiner

Ich versteh nicht ganz wo dein problem liegt so wie du deine frage aufgebaut hast willst du die nul abfragen dann tu es doch!!!!!

Spoiler anzeigen

[autoit]

;$timerAdd soll dem dll_Event_Code zugeordnet werden um spaeter damit den CountDown zu fuettern
Global $timerAdd1 = 240000
Global $timerAdd2 = 85000
Global $timerAdd3 = 1190000

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

Start(); hier wurde start eingeleitet und ab jetzt sollen die events ausgewertet werden

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

While 1 * Sleep(1) ; wird benoetigt wenn Event ausgeloest wird, damit das skript weiter laeuft
WEnd

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

Func _Event($Code) ; loest aehnliche Funktion aus wie die hier >>> $Code = int(Random(4,7))

MsgBox(0,'',$Code) ; <---------- Ihr kannst du schauen was du für werte bekommst und reagierst !!!!1

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

If $Code = 0 Then
;was passieren soll
ElseIf $Code = 1 Then
;was passieren soll
ElseIf $Code = 2 Then
;was passieren soll
ElseIf $Code = 3 Then
;was passieren soll
ElseIf $Code = 4 Then
$Code = $timerAdd1
Starte mit oder addiere $timerAdd1 zum Countdown

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

ElseIf $Code = 5 Then
$Code = $timerAdd2
Starte mit oder addiere $timerAdd2 zum Countdown

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

ElseIf $Code = 6 Then
$Code = $timerAdd3
Starte mit oder addiere $timerAdd3 zum Countdown
EndIf

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

Folgendes soll passieren:
Wenn Countdown = 0, dann erstelle "Gui Countdown nicht gestartet" und warte bis gestartet
Wenn Countdown gestartet dann schliesse "Gui Countdown nicht gestartet" und erstelle neue
Gui fuer die ablaufende Zeit, falls vor Ablauf der Zeit ein weiteres Ereigniss passiert,
dann verlaengere die Zeit um die Variable.
Wenn Countdown auf 0, dann schliessen und wieder "Gui Countdown nicht gestartet" erstellen
und warten bis ein Event passiert

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

EndFunc ;==>_Event

[/autoit]

Edit:

[autoit]

if $timerAdd1 = 0 Then
If $timerAdd2 = 0 Then
.........
....

[/autoit]

Wenn du was anders meinst stell deine frage ausführlicher!!!

LG Kleiner

Kleiner

Freut mich das der code interessen geweckt hat!

WhiteLion

Es ist eine druck Option mit bei aber nur für Name>Position>Ist>Soll>Übertrag>Urlaub!
Zu deinen fragen du kannst für die vergangeheit gegenwart zukunft den code benutzen planen für letzten diesen und kommenden was möglich wehr das der letzte geplante monat wieder einlesbar wehr also was man an schichten welchen tag fergeben hat leider reicht meine erfahrung noch nicht so weit das die ganze ansicht gedruckt werden kann aber das wird in zukunft noch geschehen und dann kommt die finale version.
????Wenn ich dich rechtig verstanden habe????

LG Kleiner

Kleiner

Hallo BugFix!

Immer wieder schön deine werke zu sehen und daraus zu lernen!

LG Kleiner

Kleiner

Hallo u. Guten Morgen progandy !

Ich habe mir deine Vorstellung gestern Abend geladen und angeschaut: Ich finde die Übersetzung noch ein wenig unausgereift was die Version ja sagt aber im Großen und Ganzen super Sache vor alle dem das auch gleich mehrere mögliche antworten ausgegeben werden Toll !
Was ich als großes Problem und nervig finde ist die Seite von dir: bei jedem wechsel springt mir die Werbung in Gesicht ist bestimmt so gewollt aber beim nächsten post und du hast wieder die Verlinke Seite werde ich mir zwei mal überlegen mir das anzuschauen!

NIchts gegen dich aber die Seite ist ganz schön nervig!

LG Kleiner

Kleiner

Wenn Ich dich richtig verstanden habe!

Schau mal in die Hilfe und such nach!

( _Date_Time_GetFileTime )

Am ende bevor die ausgabe mit (_ArraySort($test, 0, 0, 0, 0) ) sotieren !

LG Kleiner

Kleiner

:pinch:

Ich finde schön und immer Interessant was man mit autoit machen kann!

LG Kleiner

Kleiner

Habe herausgefunden woran es gelegen hatte ich hatte euch das bild die .gif datei nicht mitgegeben und ich beim testen an anderer stelle des pc´s auch nicht daran gedacht nun habe ich das bild rausgenommen nun klapt es!

Post#1

LGKleiner

Beiträge von Kleiner

Combobox problemm

einige fragen zu meinem soucecode/projekt

Hilfe zum CountdownTimer

Fenster öffnen - "Verfügbare Drahtlose Netzwerke anzeigen"

einige fragen zu meinem soucecode/projekt

Skript von BugFix

einige fragen zu meinem soucecode/projekt

Windowmover V 1.0

Hilfe zum CountdownTimer

Hilfe zum CountdownTimer

Hilfe zum CountdownTimer

Hilfe zum CountdownTimer

>>> Dienstplanprogramm fertig für jeder man nutzbar <<<

Hilfe zum CountdownTimer

>>> Dienstplanprogramm fertig für jeder man nutzbar <<<

ListView - SubItem einzeln färben/formatieren, Finale Version! (v1.3)

Hunspell UDFs - Rechtschreibprüfung

_GUICtrlComboBox SORT?

GDI Plus Script Sammlung von Simon

>>> Dienstplanprogramm fertig für jeder man nutzbar <<<