Beiträge von RR04

RR04

Zitat von Miraculi

Leider sind bei dir die Zahlen alle nebeneinander, was nicht der üblichen Form für Taschenrechner entspricht...

Siehe mal hier, nun habe ich doch tatsächlich die Zahlen durcheinander gebracht !

Spoiler anzeigen

[autoit]

; calcnew_by_Mario_Eckert

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

Global $arZiffern[10]
Global $ar2D[10][2] = [["31", "225"],["31", "75"],["84", "75"], _
["137", "75"],["31", "125"],["84", "125"],["137", "125"],["31", "175"], _
["84", "175"],["137", "175"]]

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

$main = GUICreate("Calculator", 300, 335)
GUISetBkColor(0x003366) ;i blue

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

For $i = 0 To 9
$arZiffern[$i] = GUICtrlCreateButton($i, $ar2D[$i][0], $ar2D[$i][1], 35, 35)
Next

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case - 3
Exit
EndSwitch
WEnd

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

; Ende

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

;$0 = GUICtrlCreateButton ("0", 31, 225, 35, 35)
;$1 = GUICtrlCreateButton ("1", 31, 75, 35, 35)
;$2 = GUICtrlCreateButton ("2", 84, 75, 35, 35)
;$3 = GUICtrlCreateButton ("3", 137, 75, 35, 35)
;$4 = GUICtrlCreateButton ("4", 31, 125, 35, 35)
;$5 = GUICtrlCreateButton ("5", 84, 125, 35, 35)
;$6 = GUICtrlCreateButton("6", 137, 125, 35, 35)
;$7 = GUICtrlCreateButton ("7", 31, 175, 35, 35)
;$8 = GUICtrlCreateButton ("8", 84, 175, 35, 35)
;$9 = GUICtrlCreateButton("9", 137, 175, 35, 35)

[/autoit]

Viel Erfolg !

RR04

Ich glaube Dateianhang (.au3) und Spoiler sind ungleich ?
Ein Beispiel von mir: Array für die Zahlen

Spoiler anzeigen

[autoit]

; SB_Taschenrechner_by_Simon
#include <WindowsConstants.au3>

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

Dim $arZiffern[10]

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

GUICreate("SB Taschenrechner", 320, 140, Default, Default, $WS_POPUP + $WS_BORDER)
GUISetBkColor(0xCDAD00)

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

For $i = 0 To 9
$arZiffern[$i] = GUICtrlCreateButton($i, 10 + $i * 30, 40, 30, 30)
Next

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case - 3
Exit
EndSwitch
WEnd

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

; Ende

[/autoit]

siehe auch hier:
Taschenrechner

RR04

Hallo,

ich meinte in Post #7 aber auch: 2,5+3,5 sind bei Dir 2 ! Alles über die Maus eingeben, dann ergibt es 6 !

RR04

Zitat von progandy

Der Obfuscator verschlüsselt den Code so, dass er sehr schwer lesbar wird.

Hi,
diese Obfuscator-Einstellungen kennst Du schon ?

Spoiler anzeigen

Possible Parameters:
/cs 0/1 : 0=No String encryption (1=default)
/cn 0/1 : 0=No Numeric encryption (1=default)
/cf 0/1 : 0=No Func rename (1=default)
/cv 0/1 : 0=No Var rename (1=default)
/sf 0/1 : 1=Strip all unused Func's (0=default)
/sv 0/1 : 1=Strip all unused Global var records (0=default)
/striponly: same as /cs=0 /cn=0 /cf=0 /cv=0 /sf=1 /sv=1
/sci 0 : Default Minimal output to the console: warning and errors.
/sci 1 : Show more progress information.
/sci 9 : Show all debug lines as found in the Obfuscator.log.
/Beta : Use Beta Includes. Dont use AutoIt3Wrapper_Run_Obfuscator.

To strip the source, which is included in the ouput EXE from all Comments, Whitespace and All un-used Func's (also included UDF's), you just specify :
/striponly

RR04

Anpassungen vorgenommen:

SfBv1.9
Icons sind hinzu gekommen,
wie auch ein weiteres Fenster für die Einstellungen.
Der Nutzer kann folgende Einstellungen vornehmen:
- Mit Windows starten Ja/Nein.
- Speicherplatz im Tray anzeigen Ja/Nein.
- Immer im Vordergrund Ja/Nein.
- Auf Update prüfen.
- Einstellungen speichern.
- SfB beenden.
Diese Einstellungen werden in eine SfB.ini-Datei geschrieben
und werden von dort vor dem nächsten Start eingelesen.
Weitere Kommentare eingefügt.

Download siehe Post # 1

Viel Spaß mit SfB !
PS: Die jeweiligen Neuankündigungen habe ich gelöscht. Eine History-Liste gibt es in der "SfB.txt-Datei" !

RR04

Hi Oscar,
im GUIOnEventMode stehen mehr Macros zur Verfügung und die Arbeit mit mehreren GUIs ist einfacher.
Diese Erfahrung habe ich schon öfter gemacht !

RR04

Hi, ich hoffe ich habe Euch richtig verstanden ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
$gui1 = GUICreate('GUI 1', 500, 300, -1, -1)
$button1 = GUICtrlCreateButton('Aufruf GUI 2', 20, 20, 100, 21)

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

$gui2 = GUICreate('GUI 2', 500, 300, -1, -1)
$button2 = GUICtrlCreateButton('Zurück zu GUI 1', 20, 20, 100, 21)

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

GUISetState(@SW_SHOW, $gui1)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; window-handle
Case $gui1
Switch $msg[0] ; event/control-handle
Case $button1
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_SHOW, $gui2)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $gui2
Switch $msg[0]
Case $button2
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
EndSwitch
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Hi,

[autoit]

$ergebnis = _StringAddThousandsSep(StringReplace(Execute(StringReplace($read, ",", ".")), ".", ","))

; ### Ablauf von Innen nach Aussen ###
; Erstest StringReplace > wandeln der eingegebenen Kommata von $read in Dezimalpunkte
; Execute > ausführen der Berechnung
; Zweites StringReplace > wandeln der Dezimalpunkte der Berechnung von $read ausgeben in Kommata
; _StringAddThousandsSep > Ausgabe mit Tausenderpunkt
; ### $ergebnis = _StringAddThousandsSep(StringReplace(Execute(StringReplace($read, ",", ".")), ".", ",")) ###

[/autoit]

Edit: Link eingefügt.
Taschenrechner
Viel Erfolg !

RR04

Hi,
kann es sein, dass Du mit Toolbar die GUI-Höhe verkleinerst und die Statusbar erst weiter unten beginnt ?

RR04

Hi und herzlich Willkommen !

Zur Analyse:

1. Deine Exe- Datei einzeln starten, geht das ?
2. Die Exe- Datei in den gleichen Ordner, neben Dein Script legen
3. "Run("child01.exe")" versuchen ohne ""

Viel Erfolg !

RR04

Ja, dann also das Untere.

RR04

Hi,
jetzt habe ich was vergessen - Das herzlich Willkommen !
Hier noch ein Beispiel:

Spoiler anzeigen

[autoit]

#Region Group Daten
GUICtrlCreateLabel("", 220, 12, 164, 152)
GUICtrlSetBkColor(-1, 0xEEEEEE) ;i silber
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUICtrlCreateGroup("", 220, 5, 165, 160) ; create group $gbDaten

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

;! Rundruf Teil-1 - Nicht existierende Dateien sind nicht answählbar - Das Sichern verläuft ohne Unterbrechungen
Global $aExistFile[8] = ['', @AppDataDir & '\Mozilla\Firefox\profiles.ini', @AppDataDir & '\Thunderbird\profiles.ini', _
@AppDataDir & '\Microsoft\Outlook\', $identPath & '\Identities\' & $ident & '\Microsoft\Outlook Express\', _
@AppDataDir & '\Microsoft\Address Book\', @FavoritesDir & '\', @MyDocumentsDir & '\']

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

Global $aDatenCk = IniReadSection($ini, "Daten")
If @error Then Global $aDatenCk[8][2] = [[7, 0],['FF', $GUI_UNCHECKED],['TB', $GUI_UNCHECKED], _
['OL', $GUI_UNCHECKED],['OE', $GUI_UNCHECKED],['AB', $GUI_UNCHECKED],['IE', $GUI_UNCHECKED],['ED', $GUI_CHECKED]]
For $i = 1 To 7 ;i statisch kein Ubound
$aDatenCkb[$i] = GUICtrlCreateCheckbox($languages[$i + 16][1], 240, $i * 20, 105, 17)
GUICtrlSetBkColor(-1, 0xEEEEEE)
; create 7x Checkbox
GUICtrlSetState(-1, $aDatenCk[$i][1])
GUICtrlSetTip(-1, $languages[45][1])
GUICtrlSetTip($aDatenCkb[7], $languages[48][1])

If Not FileExists($aExistFile[$i]) Then GUICtrlSetState($aDatenCkb[$i], $GUI_DISABLE)
;! Rundruf Teil-2 - Nicht existierende Dateien sind nicht answählbar - Das Sichern verläuft ohne Unterbrechungen
Next
GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group $gbDaten
#EndRegion Group Daten

[/autoit]

Edit: Habe ich vieleicht was falsch verstanden ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

#region - GUI Create
GUICreate('', 400, 400, -1, -1)
GUICtrlCreateGroup("text", 20, 200) ; Ausschnitt in die Gruppe machen
;guictrlcreatelabel("Text:",25, 200) ; mit Text füllen
Guictrlsetcolor(-1, 0xEEEEEE) ;i silber 0x756EA4)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()
#endregion

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

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
#endregion

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

Viel Erfolg !

RR04

Hi,

Du mußt ein Label über die Gruppe legen und das Label genau einpassen (versch. Stile = eckige Gruppe/abgerudete Gruppe) und disablen.

Du hast das Gruppenende vergessen ( GUICtrlCreateGroup("", -99, -99, 1, 1) ; Gruppe schliessen).

RR04

Hi,

schau Dir mal "$BS_MULTILINE" in der Hilfe genauer an.

RR04

Hi Simon,

[autoit]

; SB_Taschenrechner_by_Simon
#include <WindowsConstants.au3>

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

Dim $arZiffern[10]

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

GUICreate("SB Taschenrechner", 320, 140, Default, Default, $WS_POPUP + $WS_BORDER)
GUISetBkColor(0xCDAD00)

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

For $i = 0 To 9
$arZiffern[$i] = GUICtrlCreateButton($i, 10 + $i * 30, 40, 30, 30)
Next

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case - 3
Exit
EndSwitch
WEnd

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

; Ende

[/autoit]

RR04

Hi Simon,

ich habe Dein Script etwas angepasst. Ich hoffe, es gefällt Dir ?

Spoiler anzeigen

[autoit]

; SB_Taschenrechner_by_Simon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>

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

HotKeySet("{F1}", "_help")

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

GUICreate("SB Taschenrechner", 320, 140, Default, Default, $WS_POPUP + $WS_BORDER)
GUISetBkColor(0xCDAD00)
$inp = GUICtrlCreateInput("", 10, 10, 300, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
$1 = GUICtrlCreateButton("1", 10, 40, 30, 30)
$2 = GUICtrlCreateButton("2", 40, 40, 30, 30)
$3 = GUICtrlCreateButton("3", 70, 40, 30, 30)
$4 = GUICtrlCreateButton("4", 100, 40, 30, 30)
$5 = GUICtrlCreateButton("5", 130, 40, 30, 30)
$6 = GUICtrlCreateButton("6", 160, 40, 30, 30)
$7 = GUICtrlCreateButton("7", 190, 40, 30, 30)
$8 = GUICtrlCreateButton("8", 220, 40, 30, 30)
$9 = GUICtrlCreateButton("9", 250, 40, 30, 30)
$0 = GUICtrlCreateButton("0", 280, 40, 30, 30)
$plus = GUICtrlCreateButton(" + ", 10, 70, 30, 30)
$minus = GUICtrlCreateButton(" - ", 40, 70, 30, 30)
GUICtrlSetFont(-1, 15)
$div = GUICtrlCreateButton(" / ", 70, 70, 30, 30)
$mult = GUICtrlCreateButton(" * ", 100, 70, 30, 30)
GUICtrlSetFont(-1, 15)
$kl = GUICtrlCreateButton("(", 130, 70, 30, 30)
$lk = GUICtrlCreateButton(")", 160, 70, 30, 30)
$kom = GUICtrlCreateButton(",", 190, 70, 30, 30) ;< ! Angepasst, da nur noch mit "Komma" gerechnet wird !
GUICtrlSetFont(-1, 15)
$z = GUICtrlCreateButton("C", 220, 70, 30, 30)
GUICtrlSetTip(-1, " Neue Rechnung ") ;< Angepasst
$ex = GUICtrlCreateButton("X", 250, 70, 30, 30)
GUICtrlSetTip(-1, " Den Rechner beenden ") ;< Angepasst
$erg = GUICtrlCreateButton("=", 280, 70, 30, 30)
$o = GUICtrlCreateRadio(" mit Tastatureingabe ", 10, 110) ;< Angepasst
$m = GUICtrlCreateRadio(" ohne Tastatureingabe ", 150, 110) ;< Angepasst
GUICtrlSetState(-1, $GUI_CHECKED)

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case - 3
Exit
Case $ex
Exit
Case $z
GUICtrlSetData($inp, "")
Case $1
GUICtrlSetData($inp, GUICtrlRead($inp) & "1")
Case $2
GUICtrlSetData($inp, GUICtrlRead($inp) & "2")
Case $3
GUICtrlSetData($inp, GUICtrlRead($inp) & "3")
Case $4
GUICtrlSetData($inp, GUICtrlRead($inp) & "4")
Case $5
GUICtrlSetData($inp, GUICtrlRead($inp) & "5")
Case $6
GUICtrlSetData($inp, GUICtrlRead($inp) & "6")
Case $7
GUICtrlSetData($inp, GUICtrlRead($inp) & "7")
Case $8
GUICtrlSetData($inp, GUICtrlRead($inp) & "8")
Case $9
GUICtrlSetData($inp, GUICtrlRead($inp) & "9")
Case $plus
GUICtrlSetData($inp, GUICtrlRead($inp) & "+")
Case $minus
GUICtrlSetData($inp, GUICtrlRead($inp) & "-")
Case $div
GUICtrlSetData($inp, GUICtrlRead($inp) & "/")
Case $mult
GUICtrlSetData($inp, GUICtrlRead($inp) & "*")
Case $kl
GUICtrlSetData($inp, GUICtrlRead($inp) & "(")
Case $lk
GUICtrlSetData($inp, GUICtrlRead($inp) & ")")
Case $erg
$read = GUICtrlRead($inp)
If $read = "" Then
MsgBox(16, "Fehler", "Sie müssen etwas eingeben")
Else
$ergebnis = _StringAddThousandsSep(StringReplace(Execute(StringReplace($read, ",", ".")), ".", ","))

; ### Ablauf von Innen nach Aussen ###
; Erstest StringReplace > wandeln der eingegebenen Kommata von $read in Dezimalpunkte
; Execute > ausführen der Berechnung
; Zweites StringReplace > wandeln der Dezimalpunkte der Berechnung von $read ausgeben in Kommata
; _StringAddThousandsSep > Ausgabe mit Tausenderpunkt
; ### $ergebnis = _StringAddThousandsSep(StringReplace(Execute(StringReplace($read, ",", ".")), ".", ",")) ###

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

MsgBox(0, "Dein Ergebnis", $ergebnis)
$bos = MsgBox(4, "Kopieren", "Willst du das Eregebnis Kopieren?")
If $bos = 6 Then
ClipPut($read)
EndIf
EndIf
Case $0
GUICtrlSetData($inp, GUICtrlRead($inp) & "0")
Case $kom
GUICtrlSetData($inp, GUICtrlRead($inp) & ".")
Case $m
GUICtrlSetState($inp, $GUI_DISABLE)
Case $o
GUICtrlSetState($inp, $GUI_ENABLE)
EndSwitch
WEnd

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

Func _help()
MsgBox(0, "Hilfe", "Hier sind alle zeichen erklärt" & @CRLF & @CRLF & " - 1 = 1" & @CRLF & " - 2 = 2" & @CRLF & " - 3 = 3" & @CRLF & " - 4 = 4" & @CRLF & " - 5 = 5" & @CRLF & " - 6 = 6" & @CRLF & " - 7 = 7" & @CRLF & " - 8 = 8" & @CRLF & " - 9 = 9" & @CRLF & " - + = +" & @CRLF & " - - = -" & @CRLF & " - / = geteilt" & @CRLF & " - * = mal" & @CRLF & " - ( = klammer auf" & @CRLF & " - ) = Klammer zu" & @CRLF & " - . = Komma" & @CRLF & " - del = Löschen aller Zeichen" & " - X = Exit" & @CRLF & " - = = Ergebnis ausrechnen" & @CRLF & "Ich hoffe ihr kennt euch jetzt mit der Button belegung aus !!!" & @TAB & @TAB & @TAB & @TAB)
EndFunc ;==>_help

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

; Ende

[/autoit]

Edit: Tausenderpunkt hinzugefügt.

RR04

"Mit der Möglichkeit der Tastatureingabe taucht das Problem Dezimalpunkt und Komma auf (2,5 + 3,5 = 2) !"

Hi Simon !
Ich dachte, das Du ganz bewusst die Mauseingabe gewählt hast. Bei der Eingabe von Komma statt Punkt bekommt man ein falsches Ergebnis. Das ist auch logisch, denn der normale Nutzer gibt ja ein Komma ein.Schau Dir mal "StringReplace" an.

Schöne Idee - Ein kleiner Rechner mit grossem Display der den Monitor nicht verdeckt !

[autoit]

$Komma = "3,5"
$text = StringReplace($Komma, ",", ".")
MsgBox(0, "Siehe von Komma nach Punkt ! ", $text)

[/autoit]

Edit: Beispiel angepasst !

RR04

Hi Simon,

für das X könnte ich mir auch einen Tipp vorstellen ?
Mit der Möglichkeit der Tastatureingabe taucht das Problem Dezimalpunkt und Komma auf (2,5 + 3,5 = 2) !
Die Ausgabe würde ich mir in das Display wünschen ?

[autoit]

GUICtrlSetTip ; den Rechner beenden

[/autoit]

RR04

Hi,

ich suche das Komma ?

RR04

Hi,
wurden hier die Variablen der Controls nicht richtig übertragen ?
Wann willst Du die Checkboxen abfragen (GuiCtrlRead)?

Beiträge von RR04

Taschenrechner

Taschenrechner

Taschenrechner

Undecompilierbare Exe dateien..o.O

Shutdown for Benjamin - SfB

GuiGetMsg(1)

GuiGetMsg(1)

Taschenrechner

Statusbar wird nicht richtig angezeigt

Run() funktioniert mal / mal nicht...

Textfarbe einer Gruppe ändern? Problem...

Textfarbe einer Gruppe ändern? Problem...

Textfarbe einer Gruppe ändern? Problem...

Mehrzeilige Buttons

Taschenrechner

Taschenrechner

Taschenrechner

Taschenrechner

Taschenrechner

GUI - Textfeld & Checkbox