Beiträge von RR04

RR04

Hallo, mit dieser Lösung kannst Du hin und her schalten,
weiterhin hat der Button immer eine korrekte Beschriftung!

[autoit]

$title = "Tab - Switch 2 "
Global $tate = 0, $TabSheet[2]
GUICreate($title, 600, 450)
$button = GUICtrlCreateButton($title, 10, 10, 200, 25)
$bnClose = GUICtrlCreateButton($title & "Beenden", 390, 10, 200, 25)
$Tab = GUICtrlCreateTab(10, 50, 580, 390)
$TabSheet[0] = GUICtrlCreateTabItem("TabItem 1")
GUICtrlCreateButton("Button 1", 72, 168, 121, 22)
$TabSheet[1] = GUICtrlCreateTabItem("TabItem 2")
GUICtrlCreateLabel("Label 1", 40, 88, 36, 17)
GUICtrlCreateInput("Input 1", 96, 80, 73, 21)
GUICtrlCreateLabel("Label 2", 40, 112, 36, 17)
GUICtrlCreateInput("Input 2", 96, 112, 73, 21)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3, $bnClose
MsgBox(64, $title, "Viel Spaß wünscht RR04 !" & @TAB, 3)
ExitLoop
Case $button
$tate = BitXOR($tate, 0, 1)
For $k = 0 To 1 ;i statisch kein Ubound
GUICtrlSetState($TabSheet[$tate], 16)
GUICtrlSetData($button, "Wechseln zu TabItem " & BitXOR($tate, 0, 1) + 1)
Next
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi, oder so ...

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
GUICreate("Form1", 623, 449)
$button =GUICtrlCreateButton("Tab2 aktivieren", 10,10, 100, 22)
$Tab1 = GUICtrlCreateTab(16, 48, 569, 353)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Button1 = GUICtrlCreateButton("Button1", 72, 168, 121, 22)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$Label2 = GUICtrlCreateLabel("Label2", 40, 88, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 96, 80, 73, 21)
$Label3 = GUICtrlCreateLabel("Label3", 40, 112, 36, 17)
$Input2 = GUICtrlCreateInput("Input2", 96, 112, 73, 21)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
Case $button
GUICtrlSetState($TabSheet2, $GUI_SHOW) ;i das Tabitem anzeigen
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hier mal eine weitere Lösung !
Unter zu Hilfenahme eines Arrays konnte das Skript drastisch gekürzt werden.

Spoiler anzeigen

[autoit]

$title = "Brotpreis Calc"
GUICreate($title, 200, 80)
$input = GUICtrlCreateInput("987654", 10, 10, 180, 20)
$bnC = GUICtrlCreateButton("C", 55, 40, 45, 30)
$bnResultat = GUICtrlCreateButton("=", 100, 40, 45, 30)
$bnX = GUICtrlCreateButton("X", 145, 40, 45, 30)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3, $bnX
MsgBox(64, "", $title & @TAB, 3)
ExitLoop
Case $bnC
GUICtrlSetData($input, "")
Case $bnResultat
Global $output = Mod(GUICtrlRead($input), 32)
Global $aPrice[32] = ["12", "7", "21", "8", "37", "14", "9", "27", "15", "19", "17", "22", "2", "1", "30", "40", "6", "20", "10", "39", "24", "18", "25", "31", "34", "3", "32", "13", "5", "11", "4", "16"]
GUICtrlSetData($input, "Ausgabe : " & $output & " => Preis : " & $aPrice[$output])
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi, sollte soweit funktionieren.

Spoiler anzeigen

[autoit]

$title = "Brotpreis Calc"
GUICreate($title, 200, 80)
$input = GUICtrlCreateInput("987654", 10, 10, 180, 20)
$bnC = GUICtrlCreateButton("C", 55, 40, 45, 30)
$bnResultat = GUICtrlCreateButton("=", 100, 40, 45, 30)
$bnX = GUICtrlCreateButton("X", 145, 40, 45, 30)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3, $bnX
MsgBox(64, "", $title & @TAB, 3)
ExitLoop
Case $bnC
GUICtrlSetData($input, "")
Case $bnResultat
$Input2 = Mod(GUICtrlRead($input), 32)
Switch $Input2
Case 0
$Preis = 12
Case 1
$Preis = 7
Case 2
$Preis = 21
Case 3
$Preis = 8
Case 4
$Preis = 37
Case 5
$Preis = 14
Case 6
$Preis = 9
Case 7
$Preis = 27
Case 8
$Preis = 15
Case 9
$Preis = 19
Case 10
$Preis = 17
Case 11
$Preis = 22
Case 12
$Preis = 2
Case 13
$Preis = 1
Case 14
$Preis = 30
Case 15
$Preis = 40
Case 16
$Preis = 6
Case 17
$Preis = 20
Case 18
$Preis = 10
Case 19
$Preis = 39
Case 20
$Preis = 24
Case 21
$Preis = 18
Case 22
$Preis = 25
Case 23
$Preis = 31
Case 24
$Preis = 34
Case 25
$Preis = 3
Case 26
$Preis = 32
Case 27
$Preis = 13
Case 28
$Preis = 5
Case 29
$Preis = 11
Case 30
$Preis = 4
Case 31
$Preis = 16
EndSwitch

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

GUICtrlSetData($input, "Ausgabe : " & $Input2 & " => Preis ist : " & $Preis)
EndSwitch
WEnd

[/autoit]

RR04

Hier mal eine andere Lösung mit "Mod" !

[autoit]

$title = "Brotpreis Calc"
GUICreate($title, 200, 80)
$input = GUICtrlCreateInput("", 10, 10, 180, 20)
$bnC = GUICtrlCreateButton("C", 55, 40, 45, 30)
$bnResultat = GUICtrlCreateButton("=", 100, 40, 45, 30)
$bnX = GUICtrlCreateButton("X", 145, 40, 45, 30)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3, $bnX
MsgBox(64, "", $title & @TAB, 3)
ExitLoop
Case $bnC
GUICtrlSetData($input, "")
Case $bnResultat
GUICtrlSetData($input, Mod(GUICtrlRead($input), 32))
EndSwitch
WEnd

[/autoit]

RR04

Hier mal eine Lösung, schau Dir mal zu "StringSplit" die Seite von Bugfix an !

[autoit]

#include <Array.au3>

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

$In = "987654"
$zw = $In / 32
MsgBox(64, "", $zw & @TAB)
$array = StringSplit($zw, '.')
_ArrayDisplay($array)
$Out = ($array[2]/10000) * 32
MsgBox(64, "", $Out & @TAB)
Exit

[/autoit]

RR04

Zitat von RedHead

hey leute....
gibt es eine möglichkeit seine eigene *.dll - Datei mit autoit zu schreiben?? wenn ja, wie geht das?? wenn nein, warum geht das nicht?

Marthog
Wo kann ich das herauslesen?
Eine Antwort dieser Art war mir schon klar, deshalb auch von mir in Klammern "(siehe Zitat: Deine Vorgaben)" !

RR04

Zitat von RedHead

hey leute....
gibt es eine möglichkeit seine eigene *.dll - Datei mit autoit zu schreiben?? wenn ja, wie geht das?? wenn nein, warum geht das nicht?

Funkey hat ein Programm geschrieben mit dem eine DLL mit Autoit erstellt werden kann (siehe Zitat: Deine Vorgaben)!
CreateResourceDLL

RR04

Meinst Du :

[autoit]

ClipPut("Ich wurde in die Zwischenablage kopiert")

[/autoit]

RR04

$var,
so kannst Du weiter zusammenfassen:

[autoit]

;$nMsg = GUIGetMsg()
;Switch $nMsg
Case -3, $ButtonCancel
ExitLoop
;Case $ButtonOK

[/autoit]

RR04

BugFix ,

dank Dir. Ich habs der Hilfe zu Radios entnommen und nun gleich angepasst.

RR04

Hallo,
schau Dir mal das Beispiel an. Ich habe einige Stellen kommentiert.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
;i $GUI_EVENT_CLOSE, $GUI_CHECKED —> GUIConstantsEx.au3

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

#region ### START GUI section ###
GUICreate("Rechner", 325, 230)
$Input1 = GUICtrlCreateInput("", 96, 16, 137, 21)
$Input2 = GUICtrlCreateInput("", 96, 48, 137, 21)
GUICtrlCreateLabel("Zahl 1 :", 40, 16, 55, 17)
;i Keine Variable, da das Ctrl im ganzen Verlauf nicht angesprochen wird
GUICtrlCreateLabel("Zahl 2 :", 40, 48, 55, 17)
;i Keine Variable, da das Ctrl im ganzen Verlauf nicht angesprochen wird
$radio1 = GUICtrlCreateRadio("Plus", 112, 72, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
;i Bei Radios ist immer einer Checked
$radio2 = GUICtrlCreateRadio("Minus", 168, 72, 113, 17)
$radio3 = GUICtrlCreateRadio("Mal", 112, 96, 41, 17)
$radio4 = GUICtrlCreateRadio("Geteilt", 168, 96, 113, 17)
$Button1 = GUICtrlCreateButton("Rechnen", 96, 128, 137, 33)
$Button2 = GUICtrlCreateButton("Schließen", 120, 168, 89, 33)
GUISetState(@SW_SHOW)
#endregion ### START GUI section ###

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

#region ### START Loop section ###
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE, $Button2
;i Beide Möglichkeiten zum Beenden zusammenfassen
ExitLoop
Case $Button1
$Zahl1 = GUICtrlRead($Input1)
;i Den 1. Input auslesen
$Zahl2 = GUICtrlRead($Input2)
;i Den 2. Input auslesen

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

If BitAND(GUICtrlRead($radio1), $GUI_CHECKED) Then
;i Hier kommen die Abfragen der Radios
MsgBox(0, "Rechner", $Zahl1 + $Zahl2)
;i und hier die Berechnung innerhalb der MsgBox
ElseIf BitAND(GUICtrlRead($radio2), $GUI_CHECKED) Then
MsgBox(0, "Rechner", $Zahl1 - $Zahl2)
ElseIf BitAND(GUICtrlRead($radio3), $GUI_CHECKED) Then
MsgBox(0, "Rechner", $Zahl1 * $Zahl2)
ElseIf BitAND(GUICtrlRead($radio4), $GUI_CHECKED) Then
MsgBox(0, "Rechner", $Zahl1 / $Zahl2)
EndIf
EndSwitch
WEnd
#endregion ### START Loop section ###
; Ende

[/autoit]

RR04

Hallo, in Deinem Fall vielleicht lieber mit Radios ?

Spoiler anzeigen

[autoit]

#region ### START Koda GUI section ###
GUICreate("Form1", 422, 171, 192, 124)
GUICtrlCreateLabel("hhhhhhhhhhhhhh", 104, 8, 180, 25)
$Input1 = GUICtrlCreateInput("", 16, 56, 57, 21)
GUICtrlCreateLabel("% von", 80, 56, 52, 25)
$Input2 = GUICtrlCreateInput("", 144, 56, 121, 21)
$Button1 = GUICtrlCreateButton("Rechnen", 16, 88, 107, 73)
$Button2 = GUICtrlCreateButton("Exit", 152, 88, 107, 73)
$radio1 = GUICtrlCreateRadio("Euro", 304, 56, 97, 17)
GUICtrlSetState(-1, 1)
$radio2 = GUICtrlCreateRadio("Dollar", 304, 72, 97, 17)
;~ $Checkbox3 = GUICtrlCreateCheckbox("Mit Rechenweg", 304, 112, 97, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3, $Button2
ExitLoop
Case $Button1
_Rechnen()
EndSwitch
WEnd

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

Func _Rechnen()
If GUICtrlRead($radio1) = 1 Then
$geld = " Euro"
Else
$geld = " Dollar"
EndIf
MsgBox(0, "Das Ergebnis", Number(GUICtrlRead($Input1)) & "% von " _
& Number(GUICtrlRead($Input2)) & $geld & " = " _
& Number(GUICtrlRead($Input2)) / 100 * Number(GUICtrlRead($Input1)) _
& $geld)
EndFunc ;==>_Rechnen
; Ende

[/autoit]

RR04

In der PC-Zeitschrift "com!" ist unter der obigen Überschrift ein kleiner Artikel zu Deinem Tool (unter Punkt 12 auf der Seite 26 - "USB-Stick Icon zuweisen") veröffentlicht.

RR04

Hi, einige Sachen sind doppelt in Deinem Script. Ich habe mal Anpassungen vorgenommen.

RR04

Hi, kannst Du da nicht mit "stringlen" arbeiten ?

RR04

hi, kannst Du Dir nicht mit "keytext_1, ... 2" behelfen?

[KEY1]
keyname=123
keytext_1=2
keytext_2=3
Keykey=25

RR04

Hallo,
hier in Hilfe ist es schon gut beschrieben:
http://translation.autoit.de/onlinehilfe/fu…ReadSection.htm

RR04

[autoit]

If @OSVersion <> "Win_7" Then Exit MsgBox(16, "Error", @OSVersion & " wird nicht unterstützt !")
;i Hiermit kannst Du falsche Betriebssysteme von vornherein ausschließen (in der ersten Zeile) !

[/autoit]

RR04

Hallo, wenn Du die Macros verwendest kannst Du einige Deiner kl. Funktionen sparen (siehe Beispiel).
Die Group noch schließen.

[autoit]

GUICtrlCreateGroup("Group 1", 190, 60, 90, 140)
; [...]
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

[/autoit]

Spoiler anzeigen

[autoit]

#include <Sound.au3>

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

Opt("GUIOnEventMode", 1)

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

Global $CurrentSound
#region ### START Playlister GUI section ###
GUICreate("Playlister", 283, 224, 634, 131)
GUISetOnEvent(-3, "_Func")
$lbl = GUICtrlCreateLabel("", 0, 104, 279, 17)
$bn1 = GUICtrlCreateButton("Open", 48, 40, 75, 22)
GUICtrlSetOnEvent(-1, "_Func")
$bn2 = GUICtrlCreateButton("Play", 128, 152, 75, 22)
GUICtrlSetOnEvent(-1, "_Func")
$Pause = GUICtrlCreateButton("Break", 8, 152, 75, 22)
GUICtrlSetOnEvent(-1, "_Func")
$ckb = GUICtrlCreateCheckbox("Save", 160, 48, 97, 17)
GUICtrlSetState(-1, 1)

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

GUISetState(@SW_SHOW)
#endregion ### END Playlister GUI section ###

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

#region ### START Playlister Loop section ###
While Sleep(100)
WEnd
#endregion ### END Playlister Loop section ###

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

#region ### START Playlister Func section ###
Func _Func()
Switch @GUI_CtrlId
Case -3
Exit
Case 4
MsgBox(0, "", "Aus der Funktion - Open !")
Case 5
MsgBox(0, "", "Aus der Funktion - Play !")
;~ _SoundResume($CurrentSound)
Case 6
MsgBox(0, "", "Aus der Funktion - Break !")
;~ _SoundPause($CurrentSound)
EndSwitch
EndFunc ;==>_Func
#endregion ### END Playlister Func section ###
; Ende

[/autoit]

Beiträge von RR04

[gelöst] Mit Button einen Tab ansprechen

[gelöst] Mit Button einen Tab ansprechen

Automatischer Rechner

Automatischer Rechner

Automatischer Rechner

Automatischer Rechner

eigene *.dll mit autoit schreiben??

eigene *.dll mit autoit schreiben??

Clipboard befüllen

Scriptfehler + Checkboxen

Taschenrechner will nicht wirklich

Taschenrechner will nicht wirklich

Rechner Problem inputboxen

USB CustomiZer - Tool zum einfachen Anpassen eines Datenträgers [Label & Icon zuweisen/ändern]

Hinteres Zeichen aus Label entfernen

Burning Keyboard - Wie schnell kannst du tippen?

IniReadSection mit mehnren Feldern

IniReadSection mit mehnren Feldern

[UDF] _CreateDummyFile - Dummy-Dateien einfach erzeugen

[UDF] _CreateDummyFile - Dummy-Dateien einfach erzeugen