Mein kleines erstes Werk :)

studroa

Hallo,

beschäftige mich jetzt seit ca. 3 Stunden mit Autoit und bin sowas von begeistert!!!
Autoit Top!
Community Top!

Und mein erstes kleines Programm auch Top

Erfassung von Personenbezogene Daten:

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Eingabeformular", 650, 212, 277, 397)
$Label1 = GUICtrlCreateLabel("Personenbezogene Datenangabe", 24, 8, 290, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Name = GUICtrlCreateInput("", 24, 72, 193, 21)
$Nachname = GUICtrlCreateInput("", 24, 120, 193, 21)
$Label2 = GUICtrlCreateLabel("Name", 24, 48, 32, 17)
$Label3 = GUICtrlCreateLabel("Nachname", 24, 96, 56, 17)
$Label4 = GUICtrlCreateLabel("Alter", 360, 48, 25, 17)
$SliderAlter1 = GUICtrlCreateSlider(288, 72, 265, 25)
$LabelAlter = GUICtrlCreateLabel("0", 408, 48, 11, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Jahre", 440, 48, 30, 17)
$SliderGewicht = GUICtrlCreateSlider(293, 143, 265, 25)
$Label6 = GUICtrlCreateLabel("Gewicht", 350, 117, 43, 17)
$LabelGewicht = GUICtrlCreateLabel("0", 410, 117, 11, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Kg", 444, 117, 17, 17)
$Button1 = GUICtrlCreateButton("Erstellen", 32, 152, 121, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;SLIDER ALTER
Case $SliderAlter1
GUICtrlSetData($LabelAlter,GUICtrlRead($SliderAlter1))
;SLIDER GEWICHT
Case $SliderGewicht
GUICtrlSetData($LabelGewicht,GUICtrlRead($SliderGewicht))
Case $Button1

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

Run("notepad.exe")
WinWait("Unbenannt - Editor")
DataSend()
EndSwitch
WEnd
Func DataSend()
Send("ANGABEN ZUR PERSON"&@CRLF&@CRLF)
Sleep(150)
Send("Name: "&GUICtrlRead($Name))
Send(@CRLF)
Send("Nachname:"&GUICtrlRead($Nachname))
Send(@CRLF)
Send("Alter:"&GUICtrlRead($SliderAlter1))
Send(@CRLF)
Send("Gewicht:"&GUICtrlRead($SliderGewicht))
EndFunc

[/autoit]

Und es Funktioniert genau wie ich es mir vorgestellt habe, einfach nur genial

**peethebee**

Schön, dass du Freude dran hast :).

Erweiterungsidee: Mit

[autoit]

FileWrite

[/autoit]

direkt eine Datei schreiben.

Johannes

**Raupi**

Hab dir mal die Anzeigebreite der Labels angepaßt und eine Live Abfrage der Slider eingebaut.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$TmpAlter = 0
$TmpGewicht = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Eingabeformular", 650, 212, 277, 397)
$Label1 = GUICtrlCreateLabel("Personenbezogene Datenangabe", 24, 8, 290, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Name = GUICtrlCreateInput("", 24, 72, 193, 21)
$Nachname = GUICtrlCreateInput("", 24, 120, 193, 21)
$Label2 = GUICtrlCreateLabel("Name", 24, 48, 32, 17)
$Label3 = GUICtrlCreateLabel("Nachname", 24, 96, 56, 17)
$Label4 = GUICtrlCreateLabel("Alter", 360, 48, 25, 17)
$SliderAlter1 = GUICtrlCreateSlider(288, 72, 265, 25)
$LabelAlter = GUICtrlCreateLabel("0", 408, 48, 21, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Jahre", 440, 48, 30, 17)
$SliderGewicht = GUICtrlCreateSlider(293, 143, 265, 25)
$Label6 = GUICtrlCreateLabel("Gewicht", 350, 117, 43, 17)
$LabelGewicht = GUICtrlCreateLabel("0", 410, 117, 21, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Kg", 444, 117, 17, 17)
$Button1 = GUICtrlCreateButton("Erstellen", 32, 152, 121, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

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

Run("notepad.exe")
WinWait("Unbenannt - Editor")
DataSend()
EndSwitch
If GUICtrlRead($SliderAlter1) <> $TmpAlter Then
GUICtrlSetData($LabelAlter, GUICtrlRead($SliderAlter1))
$TmpAlter = GUICtrlRead($SliderAlter1)
EndIf
If GUICtrlRead($SliderGewicht) <> $TmpGewicht Then
GUICtrlSetData($LabelGewicht, GUICtrlRead($SliderGewicht))
$TmpGewicht = GUICtrlRead($SliderGewicht)
EndIf
WEnd
Func DataSend()
Send("ANGABEN ZUR PERSON" & @CRLF & @CRLF)
Sleep(150)
Send("Name: " & GUICtrlRead($Name))
Send(@CRLF)
Send("Nachname:" & GUICtrlRead($Nachname))
Send(@CRLF)
Send("Alter:" & GUICtrlRead($SliderAlter1))
Send(@CRLF)
Send("Gewicht:" & GUICtrlRead($SliderGewicht))
EndFunc ;==>DataSend

[/autoit]

Aber für 3 Std. Autoit, Respekt.

studroa

Hi,

danke für die Live-Abfrage

L3viathan

und noch eine Datei schreiben:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$TmpAlter = 0
$TmpGewicht = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Eingabeformular", 650, 212, 277, 397)
$Label1 = GUICtrlCreateLabel("Personenbezogene Datenangabe", 24, 8, 290, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Name = GUICtrlCreateInput("", 24, 72, 193, 21)
$Nachname = GUICtrlCreateInput("", 24, 120, 193, 21)
$Label2 = GUICtrlCreateLabel("Name", 24, 48, 32, 17)
$Label3 = GUICtrlCreateLabel("Nachname", 24, 96, 56, 17)
$Label4 = GUICtrlCreateLabel("Alter", 360, 48, 25, 17)
$SliderAlter1 = GUICtrlCreateSlider(288, 72, 265, 25)
$LabelAlter = GUICtrlCreateLabel("0", 408, 48, 21, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Jahre", 440, 48, 30, 17)
$SliderGewicht = GUICtrlCreateSlider(293, 143, 265, 25)
$Label6 = GUICtrlCreateLabel("Gewicht", 350, 117, 43, 17)
$LabelGewicht = GUICtrlCreateLabel("0", 410, 117, 21, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Kg", 444, 117, 17, 17)
$Button1 = GUICtrlCreateButton("Erstellen", 32, 152, 121, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

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

Run("notepad.exe")
WinWait("Unbenannt - Editor")
DataSend()
EndSwitch
If GUICtrlRead($SliderAlter1) <> $TmpAlter Then
GUICtrlSetData($LabelAlter, GUICtrlRead($SliderAlter1))
$TmpAlter = GUICtrlRead($SliderAlter1)
EndIf
If GUICtrlRead($SliderGewicht) <> $TmpGewicht Then
GUICtrlSetData($LabelGewicht, GUICtrlRead($SliderGewicht))
$TmpGewicht = GUICtrlRead($SliderGewicht)
EndIf
WEnd
Func DataSend()
Send("ANGABEN ZUR PERSON" & @CRLF & @CRLF)
Sleep(150)
Send("Name: " & GUICtrlRead($Name))
Send(@CRLF)
Send("Nachname:" & GUICtrlRead($Nachname))
Send(@CRLF)
Send("Alter:" & GUICtrlRead($SliderAlter1))
Send(@CRLF)
Send("Gewicht:" & GUICtrlRead($SliderGewicht))
FileWrite(FileSaveDialog("Datei speichern...","C:\","Textdateien (*.txt)"),"ANGABEN ZUR PERSON" & @CRLF & @CRLF & "Name: " & GUICtrlRead($Name) & @CRLF & "Nachname:" & GUICtrlRead($Nachname) & @CRLF & "Alter:" & GUICtrlRead($SliderAlter1) & @CRLF & "Gewicht:" & GUICtrlRead($SliderGewicht))
EndFunc ;==>DataSend

[/autoit]