Hi,
ich habe dieses Problem anders gelöst. Beim Kauf der Tastatur war diese in einer transparenten Folie verpackt die ich von Zeit zu Zeit erneuere ! Oft kommt es ja vor, dass der Schmutz nicht nur oberflächlich sitzt (z.B. Kaffee m. Zucker, Cola).
"Bei transparenter Folie (Tüte) wäre Sie rein, da weiss man was man hat. - Guten Abend"
Viel Spaß!
Schönes WE
Euer Ritzelrocker04
Hi BugFix,
für Ihn und alle Anderen etwa so: (siehe Spoiler), funtioniert auch und ist eine andere Umgehung. Aber näher an der Lösung und eleganter als meine - Super.
$_Ritzelrocker04 = InputBox(Default, "Bitte eine Zahl eingeben : ", "", " M", Default, Default, Default, Default)
Select
Case $_Ritzelrocker04 > 30
$_Ergebnis = "Größer 30 ! "
Case $_Ritzelrocker04 > 25
$_Ergebnis = "Zwischen 25 und 30 ! "
Case $_Ritzelrocker04 > 20
$_Ergebnis = "Zwischen 20 und 25 ! "
Case $_Ritzelrocker04 < 20
$_Ergebnis = "Kleiner 20 ! "
EndSelect
MsgBox(64, Default, $_Ergebnis)
Schönes WE und
Danke
Euer Ritzelrocker04
Hi BugFix,
also eine Möglichkeit ähnlich VBS z.B. "Case Is < 20" gibt es nicht ?
Was würde Er an meiner Stelle machen ?
Schönes WE und
Danke
Euer Ritzelrocker04
Hi,
bei Switch-Case gibt es ja die Möglichkeit "kleiner oder größer als". In der Hilfe wird hier ein Uhrzeit-Beispiel gezeigt und ein anderes mal wird einfach einer Variablen ein fester Wert zugewiesen,läuft dass nicht wieder auf einen "0 To 30" Befehl hinaus? Doch mein Wert wird ja erst vom Nutzer eingegeben, wie kann ich dass realisieren? Dieses Problem bin ich Umgangen durch ein jeweiliges herauf- und heruntersetzen eines "0 To 30" Befehls. Der Erfolg gibt mir zwar Recht ist aber nicht die angestrebte Lösung (siehe Spoiler).
$_Ritzelrocker04 = InputBox(Default, "Bitte eine Zahl eingeben : ", "", " M", Default, Default, Default, Default)
Switch $_Ritzelrocker04
Case $_Ritzelrocker04 > 30 ; <== meine Umgehung Case 30 To 50
$_Ergebnis = "Größer 30 ! "
Case 25 To 30
$_Ergebnis = "Zwischen 25 und 30 ! "
Case 20 To 25
$_Ergebnis = "Zwischen 20 und 25 ! "
Case $_Ritzelrocker04 < 20 ; <== meine Umgehung Case 0 To 20
$_Ergebnis = "Kleiner 20 ! "
EndSwitch
MsgBox(64, Default, $_Ergebnis)
Schönes WE und
Danke
Euer Ritzelrocker04
Hi Alina,
warum gerade in diesem Format? Mache ich was falsch, ich sortiere immer nach 20071026 bzw. 2007-10-26 und bin bis jetzt gut dabei gefahren ?
Schönes WE und
Danke
Euer Ritzelrocker04
Hi Kiba,
in der deutschen Hilfe sind schon mal erste Anhaltspunkte zu finden. Dort wird Notepad und WinZip nutzbar gemacht. Das ist zwar nicht genau Dein Thema, aber schon mal die Richtung. Also auf geht´s nur Mut und eben dann nochmal melden.
Herzlich Willkommen,
Schönes WE und
Viel Erfolg!
Euer Ritzelrocker04
Hi,
alles entwickelt sich weiter und warum soll der IGR nicht auch gleich den BMI ausrechnen ?
Also IGR und BMI werden eins !
#include <GUIConstants.au3>
$ico_Normalgew = "Icons\Normalgew.ico"
$ico_Er = "Icons\Er.ico"
$ico_Sie = "Icons\Sie.ico"
$ico_Zwink = "Icons\Zwink.ico"
$GUI = GUICreate("IGR und BMI v X.0", 258, 322, 193, 115)
[/autoit] [autoit][/autoit] [autoit]$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 121)
[/autoit] [autoit][/autoit] [autoit]$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)
[/autoit] [autoit][/autoit] [autoit]$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
GUICtrlSetState($rb_Maennlich, $GUI_CHECKED)
$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
[/autoit] [autoit][/autoit] [autoit]$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 176, 108, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_Klasse = GUICtrlCreateLabel("errechnen Sie Ihren BMI", 16, 208, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_IGR = GUICtrlCreateLabel("und Ihr Idealgewicht !", 16, 240, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 272, 65, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 272, 65, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$bn_Close = GUICtrlCreateButton("&Beenden", 176, 272, 65, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$lb_Version = GUICtrlCreateLabel("V X.0.00 Build 2007-10-18", 16, 304, 131, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 168, 304, 78, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_EingabeGew = GUICtrlRead($tb_Gewicht)
$_EingabeGro = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_EingabeGro >= 100 And $_EingabeGro <= 230 Then
If $_Er = 1 Then
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)
GUICtrlSetImage($ico_Icon, $ico_Er)
GUICtrlSetData($lb_Klasse, "-----------------------------")
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
Else
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)
GUICtrlSetImage($ico_Icon, $ico_Sie)
GUICtrlSetData($lb_Klasse, "-----------------------------")
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
EndIf
Else
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink)
EndIf
If $_EingabeGew = 0 Then
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "Sie müssen noch")
GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink)
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(2048, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CR & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CR & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil" & @CR & _
"nur gering ist. " & @CR & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CR & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CR & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CR & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CR & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CR & _
"die zu schnell als zu dick klassifiziert werden." & @CR & _
" " & @CR & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CR & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CR & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf
WEnd
Viel Spaß!
Euer Ritzelrocker04
Hi,
na dann war das wohl wirklich ein " Mist-Verständnis " , trotzdem
Schönes WE und
Danke
Euer Ritzelrocker04
Hi,
erst einmal danke, doch ohne weiteres bin ich nicht darauf aufmerksam geworden. Aber vielleicht habe ich nur was falsch verstanden ?
Im Spoiler noch mal ein Beispiel mit Quellenangabe.
#cs
Quelle : http://www.weilichskann.de/2007/04/04/autoit-sprachlogik/
Es ist auch möglich, einen Befehl, der für eine Zeile zu lang ist (oder, den man in eine neue Brechen möchte um alle Parameter einer Funktion auf einem Bildschirm - ohne scrollen - zu sehen. Dies wird durch ein einfaches "_" bewerkstelligt.
[/autoit] [autoit][/autoit] [autoit]Ein Beispiel:
[/autoit] [autoit][/autoit] [autoit]1.
MsgBox(4096, "Test", "Text")
2.
MsgBox(4096, "Test2", "Text2")
3.
4.
sleep(3000)
5.
6.
MsgBox(2048, "Eine Messagebox mit Text", "Lorem ipsum _
7.
dolor sit amet, consectetuer adipiscing elit. _
8.
Phasellus congue eleifend orci. Integer nec dolor ullamcorper _
9.
mi varius luctus. Pellentesque vitae sapien. Vivamus porttitor _
10.
laoreet quam. Sed sagittis augue sit amet eros. _
11.
Nulla facilisi. Integer lectus. Sed non purus. _
12.
Nam consequat sodales mi. Nunc urna justo, interdum ac, _
13.
volutpat eu, rhoncus eu, quam. Morbi aliquam magna eu est.")
#ce
Schönes WE und
Danke
Euer Ritzelrocker04
Hi,
ich suche die Erklärung, wie man Zeilenumbrüche in einer Msgbox mit dem Unterstrich erzeugen kann ? Ich kenne @LF und @CRLF, aussehen soll es z.B. so:(siehe Spoiler)
MsgBox(2048, "Eine Messagebox mit Text", "Lorem ipsum _
#
dolor sit amet, consectetuer adipiscing elit. _
#
Phasellus congue eleifend orci. Integer nec dolor ullamcorper _
#
mi varius luctus. Pellentesque vitae sapien. Vivamus porttitor _
#
laoreet quam. Sed sagittis augue sit amet eros. _
#
Nulla facilisi. Integer lectus. Sed non purus. _
#
Nam consequat sodales mi. Nunc urna justo, interdum ac, _
#
volutpat eu, rhoncus eu, quam. Morbi aliquam magna eu est.")
Schönes WE und
Danke
Euer Ritzelrocker04
Hi,
Dank Alina wissen wir, dass Fileinstall nicht in der Lage ist einen angegebenen Ordner selbst zu erstellen. Demnach muss man einen vorhandenen nutzen oder erst einen erstellen (vielleicht gleich mit 7zip eine exe erstellen?).
Wie ist es möglich mehrere Dateien zu includen und wie ist die Schreibweise ?
z.B.
FileInstall("C:\test\alarm1.wav", "C:\tteesstt\alarm1.wav")
FileInstall("C:\test\alarm2.wav", "C:\tteesstt\alarm2.wav")
FileInstall("C:\test\alarm3.wav", "C:\tteesstt\alarm3.wav")
oder kann man mit einem Befehl gleich z.B.3 includen ?
Schönes WE und
Danke
Euer Ritzelrocker04
Hi ten_hahn,
der Erfolg, also Eingabe, Ausgabe und der flüssige Ablauf geben Dir recht. Auch mir gefällt es so besser!
Da von meinem Code nur wenig geblieben ist wird hier auch die Lücke sichtbar, die von mir noch auszufüllen ist.
Respekt und Dank
Euer Ritzelrocker04
Hi,
ich habe mein Script angepasst und es funktioniert jetzt sehr gut (Anpassungen siehe Markierung). Allerdings noch ohne die _IsGermanCurrency - Funktion um mögliche Fehlerquellen auszuschliessen. Mit dieser Funktion geht es noch nicht.
Angepasste Version "ohne"
#include <GUIConstants.au3>
$GUI = GUICreate("BNR v 1.0", 172, 263, 193, 117)
[/autoit] [autoit][/autoit] [autoit]$tb_Brutto = GUICtrlCreateInput("", 16, 48, 137, 21)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Mwst = GUICtrlCreateInput("19", 16, 112, 137, 21, $ES_NUMBER)
[/autoit] [autoit][/autoit] [autoit]$lb_Ausgabe = GUICtrlCreateLabel("", 16, 176, 136, 17)
[/autoit] [autoit][/autoit] [autoit]$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 8, 208, 65, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 88, 208, 65, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$lb_Text1 = GUICtrlCreateLabel("Brutto-Betrag :", 16, 24, 72, 17)
[/autoit] [autoit][/autoit] [autoit]$lb_Text2 = GUICtrlCreateLabel("Mwst-Satz :", 16, 88, 59, 17)
[/autoit] [autoit][/autoit] [autoit]$lb_Text3 = GUICtrlCreateLabel("Netto-Betrag :", 16, 152, 70, 17)
[/autoit] [autoit][/autoit] [autoit]$lb_Text4 = GUICtrlCreateLabel("Brutto - Netto - Rechner", 24, 240, 119, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
$_EingabeBrutto = StringReplace(GUICtrlRead($tb_Brutto), ',', '.') ; <=ersetzt, vorher GUICtrlRead($tb_Brutto)
$_EingabeMwst = GUICtrlRead($tb_Mwst)
Select
Case $nMsg = $bn_Rechnen
If $_EingabeMwst <> 7 And $_EingabeMwst <> 16 And $_EingabeMwst <> 0 And $_EingabeMwst <> 19 Then
MsgBox(0, $_EingabeMwst, "Die Mwst kann nur 0, 7, 16, oder 19 Prozent betragen," & @LF & "Bitte überprüfen Sie Ihre Eingaben !")
Else
;$_Ergebnis1 = $_EingabeBrutto / (100 + $_EingabeMwst) * $_EingabeMwst ; Ergebnis gleich 14 Stellen nach dem Komma
;$_Ergebnis2 = Round($_Ergebnis1, 2) ; Ergebnis runden auf 2 Stellen nach dem Komma
;GUICtrlSetData($lb_Ausgabe, $_Ergebnis2)
GUICtrlSetData($lb_Ausgabe, Round($_EingabeBrutto / (100 + $_EingabeMwst) * $_EingabeMwst, 2)) ; <=ersetzt, vorher die 3 oberen Zeilen = 2 gespart
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
WEnd
Danke
Euer Ritzelrocker04
Hi,
der IGR unterscheidet jetzt auch männlich und weiblich, kleine Icons lockern etwas auf.
Bei falschen Eingaben wird auch dass zusätzlich mit einem Icon quittiert.
Meine ersten Schritte beim programmieren und ich muss sagen Streckenweise habe ich überlegt lieber mein Kopfrechnen aufzubessern,
dennoch macht es viel Spaß.
Mit dem nötigen Humor können Programmierer auch feststellen , ob man nicht schon zu lange am Computer sitzt !(Scherz)
Danksagung
an das Forum
und die direkten Mitwirkenden für Ihre Mithilfe und Unterstützung
Euer Ritzelrocker04
Hi,
ich muss doch noch mal Hilfe in Anspruch nehmen.
In den im zweiten Spoiler befindlichen Code wollte ich die von peethebee und BugFix angeführten Funktionen einfügen,
also:
Func isGermanCurrency($_str)
return StringRegExp($_str, "^\d+(,\d{1,2})?$", 0)
EndFunc
; und
[/autoit] [autoit][/autoit] [autoit]$str = StringReplace($str, ',', '.')
[/autoit]
Ich selbst habe wohl noch nicht genügend Erfahrungen in dieser Sache ?
#include <GUIConstants.au3>
$GUI = GUICreate("BNR v 1.0", 172, 263, 193, 117)
$tb_Brutto = GUICtrlCreateInput("", 16, 48, 137, 21)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Mwst = GUICtrlCreateInput("19", 16, 112, 137, 21, $ES_NUMBER)
$lb_Ausgabe = GUICtrlCreateLabel("", 16, 176, 136, 17)
$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 8, 208, 65, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 88, 208, 65, 25, 0)
$lb_Text1 = GUICtrlCreateLabel("Brutto-Betrag :", 16, 24, 72, 17)
$lb_Text2 = GUICtrlCreateLabel("Mwst-Satz :", 16, 88, 59, 17)
$lb_Text3 = GUICtrlCreateLabel("Netto-Betrag :", 16, 152, 70, 17)
$lb_Text4 = GUICtrlCreateLabel("Brutto - Netto - Rechner", 24, 240, 119, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
$_EingabeBrutto = GUICtrlRead($tb_Brutto)
$_EingabeMwst = GUICtrlRead($tb_Mwst)
Select
Case $nMsg = $bn_Rechnen
If IsNumber(GUICtrlRead($tb_Brutto)) = 1 Then ; *** Hier die Zeile mit meinem Problem ***
MsgBox(64, $_EingabeBrutto, "Nur Zahlen und statt Komma den Punkt verwenden " & @LF & "Bitte überprüfen Sie Ihre Eingaben !")
ElseIf $_EingabeMwst <> 7 And $_EingabeMwst <> 16 And $_EingabeMwst <> 0 And $_EingabeMwst <> 19 Then
MsgBox(64, $_EingabeMwst, "Die Mwst kann nur 0, 7, 16, oder 19 Prozent betragen, " & @LF & "Bitte überprüfen Sie Ihre Eingaben !")
Else
$_Ergebnis1 = $_EingabeBrutto / (100 + $_EingabeMwst) * $_EingabeMwst ; Ergebnis gleich 14 Stellen nach dem Komma
$_Ergebnis2 = Round($_Ergebnis1, 2) ; Ergebnis RUNDEN auf 2 Stellen nach dem Komma
GUICtrlSetData($lb_Ausgabe, $_Ergebnis2)
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
WEnd
Danke
Euer Ritzelrocker04
Hi peethebee,
Hier mal der gesamte Code, vielleicht gibt es ja noch eine einfachere Lösung ?
#include <GUIConstants.au3>
$GUI = GUICreate("BNR v 1.0", 172, 263, 193, 117)
[/autoit] [autoit][/autoit] [autoit]$tb_Brutto = GUICtrlCreateInput("", 16, 48, 137, 21)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Mwst = GUICtrlCreateInput("19", 16, 112, 137, 21, $ES_NUMBER)
[/autoit] [autoit][/autoit] [autoit]$lb_Ausgabe = GUICtrlCreateLabel("", 16, 176, 136, 17)
[/autoit] [autoit][/autoit] [autoit]$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 8, 208, 65, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 88, 208, 65, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$lb_Text1 = GUICtrlCreateLabel("Brutto-Betrag :", 16, 24, 72, 17)
[/autoit] [autoit][/autoit] [autoit]$lb_Text2 = GUICtrlCreateLabel("Mwst-Satz :", 16, 88, 59, 17)
[/autoit] [autoit][/autoit] [autoit]$lb_Text3 = GUICtrlCreateLabel("Netto-Betrag :", 16, 152, 70, 17)
[/autoit] [autoit][/autoit] [autoit]$lb_Text4 = GUICtrlCreateLabel("Brutto - Netto - Rechner", 24, 240, 119, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
$_EingabeBrutto = GUICtrlRead($tb_Brutto)
$_EingabeMwst = GUICtrlRead($tb_Mwst)
Select
Case $nMsg = $bn_Rechnen
If IsNumber(GUICtrlRead($tb_Brutto)) = 1 Then ; *** Hier die Zeile mit meinem Problem ***
MsgBox(64, $_EingabeBrutto, "Nur Zahlen und statt Komma den Punkt verwenden " & @LF & "Bitte überprüfen Sie Ihre Eingaben !")
ElseIf $_EingabeMwst <> 7 And $_EingabeMwst <> 16 And $_EingabeMwst <> 0 And $_EingabeMwst <> 19 Then
MsgBox(64, $_EingabeMwst, "Die Mwst kann nur 0, 7, 16, oder 19 Prozent betragen, " & @LF & "Bitte überprüfen Sie Ihre Eingaben !")
Else
$_Ergebnis1 = $_EingabeBrutto / (100 + $_EingabeMwst) * $_EingabeMwst ; Ergebnis gleich 14 Stellen nach dem Komma
$_Ergebnis2 = Round($_Ergebnis1, 2) ; Ergebnis RUNDEN auf 2 Stellen nach dem Komma
GUICtrlSetData($lb_Ausgabe, $_Ergebnis2)
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
WEnd
Schönes WE und Danke
Euer Ritzelrocker04
Hi,
Keine weiteren Vorschläge ?
Ich glaube peethebee hat mich schon verstanden, aber eine etwas genauere Erklärung wäre mir lieber.
Danke
Euer Ritzelrocker04
.
Hi msg-holzwurm,
Danke für Deinen Tipp, doch es geht mehr darum die Zahlen zu prüfen (also z.B.29,90)
Hi,
eben bei dieser ist es erforderlich auch Zahlen mit Komma zu zulassen (z.B. 29,90).
Meine Versuche waren bisher erfolglos, was muss ich ändern?
; 1.
If Not IsNumber(GUICtrlRead($tb_Brutto)) Then
MsgBox(64, $_EingabeBrutto, "Nur Zahlen und statt Komma den Punkt einsetzen" & @LF & "Bitte überprüfen Sie Ihre Eingaben, Danke !")
; 2.
$tb_test = GUICtrlCreateInput("19", 16, 112, 137, 21, $ES_NUMBER)
; 3.
If Not StringIsDigit(GUICtrlRead($tb_Brutto)) Then
MsgBox(64, $_EingabeBrutto, "Nur Zahlen und statt Komma den Punkt verwenden" & @LF & "Bitte überprüfen Sie Ihre Eingaben, Danke !")
Danke
Euer Ritzelrocker04
Hi,
auch ich muss mich immer beim web.de e-Mail-Konto einloggen und die Werbung, Nutzername dass Alles kann manchmal nerven, wenn es schnell gehen soll.
Also habe ich eine Verknüpfung erstellt die mit IE sowie FF funktioniert, vielleicht hilft Dir das weiter (hat allerdings nichts mit AutoIT zu tun).
Hierbei ist MAX_MUSTER durch Deinen Namen zu ersetzen.
WEB.DE FreeMail MAX_MUSTER
"https://freemail.web.de/msg/popmail.htm?user=MAX_MUSTER&goto=/online/startseite"
Viel Erfolg
Euer Ritzelrocker04
.
