Vielen Dank Oscar das klappt super!
Beiträge von luxor63
-
-
Formatierung grade 3 Mal versucht daher Anbei als Datei.
Der IE hat die Formatierung sauber übertragen. Chrome leider nicht. Sorry. -
Hallo Zusammen,
für ein kleines Projekt hab ich mit grade mit AutoIT eine kleine Gui zusammen geklickt und bin wie immer begeistert von AutoIT.
Leider hab ich ein kleines Problem. ich Arbeite mit zwei Updown Felder welcher aber anscheint nur bis 32.767 gehen.
Ich kann zwar ein Höhrern Start wert eingeben aber sobald ich Hoch oder Runter Klicke Sprint er auf 32.767 zurück.Kann man das ändern?
anbei mein kleines Script.
[autoit][/autoit][autoit][/autoit][autoit]#include <GuiConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include 'CommMG.au3'
Global $sportSetError = ''
Global $CMPort = 3 ; Port
Global $CmBoBaud = 9600 ; Baud
Global $CmboDataBits = 8 ; Data Bits
Global $CmBoParity = "none" ; Parity
Global $CmBoStop = 1 ; Stop
Global $setflow = 2 ; Flow
Global $RTSMode = 1
Global $DTRMode = 1
Global $iWait = 0
_CommSetPort($CMPort, $sportSetError, $CmBoBaud, $CmboDataBits, $CmBoParity, $CmBoStop, $setflow, $RTSMode, $DTRMode); GUI erstellen
[/autoit][autoit][/autoit][autoit]
GUICreate("Foto", 1000, 400)GUICtrlCreateLabel("Startverzögerung in Mikrosekunden", 10, 10)
[/autoit][autoit][/autoit][autoit]
$startverzoegerung = GUICtrlCreateInput("500000", 600, 10, 100, 20)
GUICtrlCreateUpdown($startverzoegerung)
GUICtrlCreateLabel("Verzögerung zwischen Magnet Abschaltung und Kameraauslösung in Mikrosekunden", 10, 50)
$verzoegerung = GUICtrlCreateInput("500000", 600, 50, 100, 20)
GUICtrlCreateUpdown($verzoegerung)
$fotomachen = GUICtrlCreateButton("Starten", 10,80, 100, 30)
GUICtrlCreateLabel("Magnet Schalten", 10, 150)
$magnetein = GUICtrlCreateButton("Magnet Ein", 10,200, 100, 30)
$magnetaus = GUICtrlCreateButton("Magnet Aus", 150,200, 100, 30)GUISetState()
[/autoit]
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $fotomachen
$schalt = "3/" & GUICtrlRead($startverzoegerung) & "/" & GUICtrlRead($verzoegerung) & "/"
_CommSendString($schalt, $iWait)
Case $magnetein
_CommSendString("1/", $iWait)
Case $magnetaus
_CommSendString("2/", $iWait)
EndSwitch
WEnd
; GUI MESSAGE LOOP
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndGruß
-
Ihr habt mir grade den Feierabend verbessert! Ich Danke euch sehr für die super Hilfe!
-
Ahh darauf hätte ich selber kommen können Danke Raupi!
-
Hallo Zusammen,
ich bin recht neu in der AutoIt Welt bin aber angenhem überrascht wie einfach man doch zu erfolgen kommen
Gestern Abend hab ich mich an ein ganz kleine Gui Anwendung versucht die auch im Grunde läuft aber mit einem Logik Fehler, und da hoffe ich nun auf eure Hilfe.Ich habe ein kleine Gui mit 4 Buttons. Beim ersten Klick auf einem Button wird dieser Grün. So soll es auch sein. Sobald ich wieder auf diesem Button klicke wird dieser Rot. Dann wieder Grün und so weiter.
[autoit]
So nun habe ich aber 4 Buttons und es Klappt nicht mehr. Wenn ich den ersten Button auf Grün klicke und dann auf den zweiten wird dieser nicht auch Grün sondern gleich Rot.
Das soll natürlich nicht so sein. Hier mal mein Code :
[/autoit][autoit][/autoit][autoit]
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
Local $switch = FalseGUICreate('')
[/autoit][autoit][/autoit][autoit]
$b1 = GUICtrlCreateButton("", 112, 64, 25, 25)
$b1LEDid = "0101"
$b2 = GUICtrlCreateButton("", 212, 64, 25, 25)
$b2LEDid = "0100"
$b3 = GUICtrlCreateButton("", 112, 128, 25, 25)
$b3LEDid = "0110"
$b4 = GUICtrlCreateButton("", 212, 128, 25, 25)
$b4LEDid = "1100"GUISetState()
[/autoit][autoit][/autoit][autoit]While True
[/autoit][autoit][/autoit][autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $b1
$switch = Not $switch
If $switch Then
GUICtrlSetBkColor($b1,0x990000)
_Func1 ($b1LEDid)
Else
GUICtrlSetBkColor($b1,0x059122)
_Func1 ($b1LEDid)
EndIfCase $b2
[/autoit][autoit][/autoit][autoit]
$switch = Not $switch
If $switch Then
GUICtrlSetBkColor($b2,0x990000)
_Func1 ($b2LEDid)
Else
GUICtrlSetBkColor($b2,0x059122)
_Func1 ($b2LEDid)
EndIfCase $b3
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$switch = Not $switch
If $switch Then
GUICtrlSetBkColor($b3,0x990000)
_Func1 ($b3LEDid)
Else
GUICtrlSetBkColor($b2,0x059122)
_Func1 ($b3LEDid)
EndIfCase $b4
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$switch = Not $switch
If $switch Then
GUICtrlSetBkColor($b4,0x990000)
_Func1 ($b2LEDid)
Else
GUICtrlSetBkColor($b4,0x059122)
_Func1 ($b2LEDid)
EndIfEndSwitch
[/autoit][autoit][/autoit][autoit]
WEndFunc _Func1 ($var)
[/autoit]
MsgBox(0, "Test", $var)
EndFuncEs ist doch sicher möglich das verhalten der Buttons so hin zu bekommen das die richtigen Farben kommen oder?
Eine weiter Frage die sich mit stellt kann man den Codeteil mit dem Switch verbessern?
Ich benötige Später nicht 4 Buttons sondern einige Hundert.Beste Grüße
Luxor -
Hallo L3viathan2142,
besten dank schon mal für deine Antwort.
Ich glaube da muss ich mir ein andern weg überlegen, da ich Rechner mit verschieden Auflösungen habe würde das nicht mehr laufen oder? -
Hallo Zusammen,
da ich neue bin hier im Forum und in der Autoit Welt erst mal kurz was zu meiner Person, ich bin 23 komme aus Bremen und arbeite seit 5 Jahren als Fachinformatiker.Ich stehe hier in meinem Betrieb vor eine Mail Umstellung und muss dafür Outlook verscripten. Über diese Aufgabe bin ich zu Autoit gekommen und durch google auf eure Wiki und dann hier ins Forum.
Was ich machen muss:
Im Grunde Recht Einfach.1. Outlook Starten
2. Start-Export Starten
3. Export der Email/Kalender/Kontakte etc. in eine PSD
4. Outlook Schließen
5. Im System Menu unter Mail den Email Server ändern.
6. Outlook wieder starten und Daten wieder Importieren.Nagut klinkt doch nicht mehr ganz so Einfach...
Ich habe mir dann erst mal Eure Wiki zum Start vorgekommen (http://wiki.autoit.de/wiki/index.php/Tutorial)
Meine ersten kleinen Autiit versuchen klappen auch gut.
Aber das Teham was ich hierfür viel brauche, Mausklicks Mausklick simulieren wird da leider noch nicht behandelt.
Daher nun hier mein Beitrag um die Frage/Bitte ob mir jemand helfen kann?mfg
Luxor Aus BremenP.S: Ich glaube ich bin grade im Falschen Forum gelandet kann das jemand verschrieben der das Recht dazu hat? Danke.