Beiträge von RR04

RR04

Hi ,

Danke für Eure Unterstützung nun funktionierts , aber ganz schöner Aufwand wegen 2 Bildchens (Icons)

Super
Euer Ritzelrocker04

RR04

Hi progandy,
Ich habe es so und die Buchstaben werden nur nach drücken der ALT-Taste sichtbar also versuch ichs mal mit -1.

Bei der Mehrfachanweisung im If-Then Befehl sollen unterschiedliche Icons gezeigt werden Er.ico und Sie.ico. Nach dem 1. Start klappts prima doch bei einer weiteren Neuberechnung und Wahl eines anderen Geschlechtes will es nicht so richtig.

Ich habe die Beiden mal markiert.

Danke Euer Ritzelrocker04

Spoiler anzeigen

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

#include <GUIConstants.au3>

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

$GUI = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)

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

$tb_Groesse = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)

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

$gb_Geschlecht = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)

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

$rb_Maennlich = GUICtrlCreateRadio(" &männlich", 32, 96, 113, 17)
GUICtrlSetState($rb_Maennlich, $GUI_CHECKED)

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

$rb_Weiblich = GUICtrlCreateRadio(" &weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Close = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-10-02", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_Eingabe = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_Eingabe < 100 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
ElseIf $_Eingabe > 230 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
Else
If $_Er = 1 Then
$_Ergebnis = ($_Eingabe - 100) * 0.9
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Er.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP)) ; ****** Er.ico
Else
$_Ergebnis = ($_Eingabe - 100) * 0.85
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Sie.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP)) ; ****** Sie.ico
EndIf
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
EndIf

WEnd

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

RR04

Hi,

au ja ich glaube das ist ein Übertragungsfehler, Sorry!
Also noch mal!

Aber wenn das Script läuft und man das Geschlecht wechselt werden die jeweiligen Berechnungen richtig ausgeführt nur das passende Icon nicht?

Der Aufwand für den unterstrichenen Buchstaben überrascht mich, das mit dem "&" hatte ich schon versucht nur ist diese Vorauswahl für den Nutzer ja nicht erkennbar?
Ich dachte es geht einfacher!

Danke Euer Ritzelrocker04

Spoiler anzeigen

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

#include <GUIConstants.au3>

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

$GUI = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)

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

$tb_Groesse = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)

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

$gb_Geschlecht = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)

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

$rb_Maennlich = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17)

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

$rb_Weiblich = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Close = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-10-02", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_Eingabe = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_Eingabe < 100 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
ElseIf $_Eingabe > 230 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
Else
If $_Er = 1 Then
$_Ergebnis = ($_Eingabe - 100) * 0.9
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Er.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$_Ergebnis = ($_Eingabe - 100) * 0.85
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Sie.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
EndIf

WEnd

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

RR04

Hi,

irgendwie läuft es nicht so ganz richtig, was mache ich falsch ? Der Fehler hängt bestimmt an den Radiobutton ?

Und wie kann ich, hier männl.,weibl. einen Buchstaben unterstreichen zur Tastatursteuerung ?

Wer kann helfen ?

Euer Ritzelrocker04

Spoiler anzeigen

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

#include <GUIConstants.au3>

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

$GUI = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)

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

$tb_Groesse = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)

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

$gb_Geschlecht = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)

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

$rb_Maennlich = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17)

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

$rb_Weiblich = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Close = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-10-02", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_Eingabe = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_Eingabe < 100 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
ElseIf $_Eingabe > 230 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
Else
If $_Er = 1 Then
$_Ergebnis = ($_Eingabe - 100) * 0.9
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Er.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$_Ergebnis = ($_Eingabe - 100) * 0.85
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
GUICtrlCreateIcon("Sie.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
EndIf

WEnd

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

RR04

Hi,
natürlich kann ich nur die Empfelung von Alina bestätigen und die hier gebotenen

Möglichkeiten zu nutzen sowie auch das von Daniel W. angeführte AutoIT-Wiki.

Basic lernen ist keine Grundvoraussetzung für AutoIT und ist auch von mir nicht so gemeint gewesen.

Mein Hinweis gilt viel mehr den in der Zip-Datei enthaltenen bildhaften Definitionen. Also was ist If , Then und wer ist Tante Else ?

Euer Ritzelrocker04

RR04

Hi MsgWaldfee,

ich habe auch gesucht und suche noch. Die Autoit-Hilfe erklärt zwar sehr gut die Befehle, aber Zusammenhänge bleiben etwas auf der Strecke. Als Neueinsteiger ohne Vorkenntnisse ist dass ein steiniger Weg.

Doch wer sucht der findet als Anhang ein paar kleine Lektionen.

Euer Ritzelrocker04

RR04

Hi,

ich wollt Euch mal wieder auf den aktuellen Stand bringen und meine Zwischenversion vorstellen.
Die küntigen Funktionen sind noch nicht belegt.

Euer Ritzelrocker04

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#NoTrayIcon

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

$GUI = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)

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

$tb_Groesse = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)

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

$gb_Geschlecht = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121) ; *** Future Function ***

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

$rb_Maennlich = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17) ; *** Future Function ***

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

$rb_Weiblich = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17) ; *** Future Function ***
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Close = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-10-02", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$in_Icon = GUICtrlCreateIcon("Smiley12.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_Eingabe = GUICtrlRead($tb_Groesse)
Select
Case $nMsg = $bn_Rechnen
If $_Eingabe < 100 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
ElseIf $_Eingabe > 230 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
Else
$_Ergebnis = ($_Eingabe - 100) * 0.9
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

RR04

Hi Alina,

Du gehst essen ? Sei vorsichtig man sieht ja was passieren kann !(Scherz)

Die von Dir bemerkten Ausführungen sind nur Platzhalter für den längsten Text. Bei korrekter Implementierung wid in der ersten Zeile der BMI ausgegeben , die Klassevizierung erfolgt in der Zweiten.
Zur Auflockerung und grafischen Unterstützung wird je nach Einstufung eines von vier Smilies abgebildet.

Der Nutzer liest das Ganze als einen Satz und sieht dazu das jeweilige Icon.

Dies ist aber nur eine Oberfläche (noch ohne Funktion) für KM.

Ich selbst habe hier den IGR vorgestellt und werde die erhaltenen Tipps ,
Anregungen und Hinweise in die nächste Stufe des IGR´s einfließen lassen.

RR04

Hi KM,
auch ich habe mich mal mit dem BMI-Rechner beschäftigt und eine Oberfläche gebaut,die ich Dir zu Deiner weiteren Verwendung überlassen möchte.

Viel Spaß!

Spoiler anzeigen

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

#include <GUIConstants.au3>

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

$GUI = GUICreate(" Body - Mass - Index for König Mickey only", 401, 301, 193, 115)
$gb_Angaben = GUICtrlCreateGroup("Ihre Angaben", 16, 16, 361, 137)
$tb_Gewicht = GUICtrlCreateInput(" Gewicht in kg", 32, 48, 153, 21)
$tb_Groesse = GUICtrlCreateInput(" Größe in cm", 32, 104, 153, 21)
$rb_Maennlich = GUICtrlCreateRadio(" männlich", 240, 48, 113, 17)
$rb_Weiblich = GUICtrlCreateRadio(" weiblich", 240, 104, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Icon1 = GUICtrlCreateIcon("StarkUebergew.ico", 0, 336, 168, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$lb_AusgabeBMI = GUICtrlCreateLabel(" Ihr BMI ist 31 und ", 16, 168, 172, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_Klasse = GUICtrlCreateLabel(" Sie haben starkes Übergewicht . ", 16, 208, 294, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_rechnen = GUICtrlCreateButton("BMI ausrechnen", 24, 248, 129, 25, 0)
$bn_Close = GUICtrlCreateButton("Beenden", 232, 248, 137, 25, 0)
$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-09-28", 24, 280, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$lb_Author = GUICtrlCreateLabel("König Mickey", 304, 280, 67, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)

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

; - ! Achtung Baustelle ! -

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

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

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

EndSwitch
WEnd

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

RR04

Hi,

im anliegenden AutoIT Code habe ich noch mal meine Oberfläche überarbeitet und stelle sie als eine Vorschau vor (nur die Oberfläche).
Da ich bisher im Forum nur als Hilfesuchender unterwegs war,freue ich mich umso mehr hier das Interesse geweckt und Anregung zum nachmachen gegeben zu haben.Auch so kann man voneinander lernen.

Spoiler anzeigen

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

; IGRvxxxx Preview-Release

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

#include <GUIConstants.au3>

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

$Form1_1 = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)
$Input1 = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)
$Radio1 = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17)
$Radio2 = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("- kein -", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)
$Label2 = GUICtrlCreateLabel("V X.0 Build 2007-09-26", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$Label3 = GUICtrlCreateLabel("Kiesi", 352, 288, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$Icon1 = GUICtrlCreateIcon("pe62.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)

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

; - ! Achtung - Baustelle ! -

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

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

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

EndSwitch
WEnd

[/autoit]

RR04

Hi,

im anliegenden AutoIT Code habe ich noch mal meine Oberfläche überarbeitet und stelle sie als eine Vorschau vor (nur die Oberfläche).
Da ich bisher im Forum nur als Hilfesuchender unterwegs war,freue ich mich umso mehr hier das Interesse geweckt und Anregung zum nachmachen gegeben zu haben.Auch so kann man voneinander lernen.

Spoiler anzeigen

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

; IGRvxxxx Preview-Release

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

#include <GUIConstants.au3>

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

$Form1_1 = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)
$Input1 = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)
$Radio1 = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17)
$Radio2 = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("- kein -", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)
$Label2 = GUICtrlCreateLabel("V X.0 Build 2007-09-26", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$Label3 = GUICtrlCreateLabel("Kiesi", 352, 288, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$Icon1 = GUICtrlCreateIcon("pe62.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)

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

; - ! Achtung - Baustelle ! -

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

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

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

EndSwitch
WEnd

[/autoit]

RR04

Noch ein neuer IGR!

$input = InputBox(" IdealGewichtsRechner", " Bitte Ihre Größe in cm eingeben: ", " - Hier Ihre Eingabe bitte ! - ", "", 1, 1, -1, -1)
$input = ( $input - 100 ) * 0.9
MsgBox(0," Kiesi´s - IGR sagt : ", " Ihr Idealgewicht beträgt : " & $input & " kg ")

RR04

Nachgebessert...

habe ich mein Skript und im Anhang das compilieren gelassen.
Das K-Icon wird beim compilieren eingebaut.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1_1 = GUICreate("iesis IGR v 1.0", 370, 300, 193, 115)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel(" Ihr IdealGewichtsRechner ", 32, 32, 318, 30)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Hier Ihre Größe in cm eingeben !", 40, 96, 290, 30)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 40, 152, 290, 30, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$Label3 = GUICtrlCreateLabel("", 40, 255, 290, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("V 1.0 Build 20070926", 0, 280, 107, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Icon1 = GUICtrlCreateIcon("Smiley12.ico", 0, 296, 240, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Label5 = GUICtrlCreateLabel("Kiesi", 344, 280, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Zahl1 = GUICtrlRead($Input1)
Select
Case $nMsg = $Button1
If Not StringIsDigit(GUICtrlRead($Input1)) Then
GUICtrlSetData($Label3, "Bitte nur Zahlen eingeben !")
Else
$Zahl2 = ($Zahl1 - 100) * 0.9
GUICtrlSetData($Label3, "Ihr Idealgewicht beträgt : " & $Zahl2 & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

Edit GtaSpider: [26.09.2007 15:33]
Spoiler und AutoIt Tags eingefügt
Aufruf:

Code

[SPOILER][AUTOIT]
AutoIt Code
[/AUTOIT][/SPOILER]

RR04

Heute wollte ich meinen IGR vorstellen , mein erstes Programm überhaupt. Ich war überrascht , wieviele Feinheiten berücksichtigt werden müssen , abgesehen von dem Grundwissen was man sich aneignen muss.
Aber man wächst auch mit den Aufgaben die man sich stellt.

An das Forum nochmals Dank für die Geduld und Mitwirkung.

In der anhängigen Zip-Datei befinden sich das Icon und eine Exe-Datei für Win9x und Höher.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1_1 = GUICreate("iesis IGR v 3.0", 370, 300, 193, 115)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel(" Ihr IdealGewichtsRechner ", 32, 32, 318, 30)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Hier Ihre Größe in cm eingeben !", 40, 96, 290, 30)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 40, 152, 290, 30, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("", 40, 255, 290, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("V 3.0 Build 20070925", 0, 280, 107, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Icon1 = GUICtrlCreateIcon("Smiley12.ico", 0, 296, 240, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Label5 = GUICtrlCreateLabel("Kiesi", 344, 280, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Zahl1 = GUICtrlRead($Input1)
Select
Case $nMsg = $Button1
If Not StringIsDigit(GUICtrlRead($Input1)) Then
GUICtrlSetData($Label3, "Bitte nur Zahlen eingeben !")
Else
$Zahl2 = ($Zahl1 - 100) * 0.9
GUICtrlSetData($Label3, "Ihr Idealgewicht beträgt : " & $Zahl2 & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

[align=center]Die aktuelle Version hier:

IGRv8.1.00_2009-02-01.zip

RR04

Mein Dank an Xenobiologist , hat Super funktioniert und in Zukunft weiss ich

worauf ich den Focus legen muss!

Euer Ritzelrocker04

RR04

Hallo Xenobiologist und Danke!

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1_1 = GUICreate("iesis IGR v 3.0", 370, 300, 193, 115)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel(" Ihr IdealGewichtsRechner ", 32, 32, 318, 30)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Hier Ihre Größe in cm eingeben !", 40, 96, 290, 30)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 40, 152, 290, 30, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("", 88, 216, 185, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("-kein-", 40, 255, 290, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("V 3.0 Build 20070923", 0, 280, 107, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Icon1 = GUICtrlCreateIcon("Smiley12.ico", 0, 296, 240, 32, 32, BitOR($SS_NOTIFY,

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

$WS_GROUP))
$Label5 = GUICtrlCreateLabel("Kiesi", 344, 280, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Zahl1 = GUICtrlRead($Input1)
Select
Case $nMsg = $Button1
If not StringIsDigit(GUICtrlRead($Input1)) Then
GUICtrlSetData($Label3, "Bitte nur Zahlen eingeben

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

!")
Else
$Zahl2 = ($Zahl1 - 100) * 0.9
GUICtrlSetData($Label3, "Ihr Idealgewicht : "&

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

$Zahl2 & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

=)

RR04

Hallo Xenobiologist

Focus ?

Bitte genauer erklären.

Habe ich schon erwähnt das ich Neuling bin !

RR04

Ich habe in einem Inputfeld einen Nutzerhinweis schwarz auf weiss hinterlegt.

z.B.: Hier Ihre Größe in cm eingeben !

$Input1 = GUICtrlCreateInput("Hier Ihre Größe in cm eingeben !", 40, 96, 290, 30)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

Nun würde ich diesen Hinweis gerne blau markieren , so daß sich Dieser bei der Eingabe durch den Nutzer automatisch löscht.

Die Aussagen der Hilfen (de,en) zu Inputbox bzw. Msgbox waren für mich nicht aufschlussreich !

Im Voraus Herzlichen Dank für Eure Antworten

RR04

Programme gibt es viele , Gute und Bessere , welche die Geld kosten und welche die es wert sind . Doch oft kommt es vor , daß der Nutzer nur ein vorhandenes Prog. anpassen braucht oder direkt sein Ziel verwirklichen kann.

Denn inzwischen lastet auf kommerziellen Prog. ein gewisser Druck jedes Jahr eine neue Version mit neuen Funktionen erstellen zu müssen , ob der Nutzer es brauch oder nicht! Diese neuen Funktionen sollen dann den himmlichen Preis rechtfertigen.
Dies Sachen habe ich sonst mit einer Batchzeile realisiert - Diese Schwarzen Löscher!

Jetzt Dank diesem Forum und AutoIT sehen meine Sachen ganz professionell aus auch wenn mir noch Grundwissen fehlt und ich als Grünschnabel eingestuft bin.

Euer Ritzelrocker04

RR04

Ich habe mir eine Verknüpfung auf den Desktop gelegt - ein rechtsklick darauf und ich kann sie de-u.aktivieren =)

Beiträge von RR04

Hilfe bei Radiobutton

Hilfe bei Radiobutton

Hilfe bei Radiobutton

Hilfe bei Radiobutton

AutoIt Tutorials, Dokumentationen

AutoIt Tutorials, Dokumentationen

IGRv3.0-IdealGewichtsRechner

IdealGewichtsRechner von KM

IdealGewichtsRechner von KM

IdealGewichtsRechner von KM

IGRv3.0-IdealGewichtsRechner

IGRv3.0-IdealGewichtsRechner

IGRv3.0-IdealGewichtsRechner

IGRv3.0-IdealGewichtsRechner

Frage zu Inputfeld

Frage zu Inputfeld

Frage zu Inputfeld

Frage zu Inputfeld

Warum AutoIt?

Netzwerkkarte aktivieren / deaktivieren