Hi ,
Danke für Eure Unterstützung nun funktionierts , aber ganz schöner Aufwand wegen 2 Bildchens (Icons)
Super
Euer Ritzelrocker04
Hi ,
Danke für Eure Unterstützung nun funktionierts , aber ganz schöner Aufwand wegen 2 Bildchens (Icons)
Super
Euer Ritzelrocker04
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
#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)
$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)
$rb_Weiblich = GUICtrlCreateRadio(" &weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$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)
$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
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
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
#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)
$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)
$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$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)
$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
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
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
#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)
$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)
$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$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)
$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
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
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
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
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
#include <GUIConstants.au3>
#NoTrayIcon
$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)
$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)
$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$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)
$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$in_Icon = GUICtrlCreateIcon("Smiley12.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
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
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.
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ß!
#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)
; - ! Achtung Baustelle ! -
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
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.
; 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)
; - ! Achtung - Baustelle ! -
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
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.
; 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)
; - ! Achtung - Baustelle ! -
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
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 ")
Nachgebessert...
habe ich mein Skript und im Anhang das compilieren gelassen.
Das K-Icon wird beim compilieren eingebaut.
#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
Edit GtaSpider: [26.09.2007 15:33]
Spoiler und AutoIt Tags eingefügt
Aufruf:
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.
#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
[align=center]Die aktuelle Version hier:
Mein Dank an Xenobiologist , hat Super funktioniert und in Zukunft weiss ich
worauf ich den Focus legen muss!
Euer Ritzelrocker04
Hallo Xenobiologist und Danke!
#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,
$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 : "&
$Zahl2 & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf
WEnd
=)
Hallo Xenobiologist
Focus ?
Bitte genauer erklären.
Habe ich schon erwähnt das ich Neuling bin !
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
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
Ich habe mir eine Verknüpfung auf den Desktop gelegt - ein rechtsklick darauf und ich kann sie de-u.aktivieren =)