Calculator

Hi Leutz

Also Ich versuch grad einen einfacen rechner zu basteln.

Ich hab versucht das über GUI zu machen aber ich kenn mich null aus.

Ich hab da also mein fenster dann 3 inputs (

$Res = GuiCtrlCreateInput("R Input Box", 235, 225, 130, 20)
$Uvol = GuiCtrlCreateInput("U Input Box", 235, 245, 130, 20)
$Icur = GuiCtrlCreateInput("I Input Box", 235, 265, 130, 20)

etc.

und einen Button.

Also das soll so funzen: Die formel is immer fix nach der die eingaben aufgelöst werden.. ( U=R*I) kennen ja die meisten.

Das soll jetzt so arbeiten.:

Ich geb 2 der werte ein und der 3te steht dann in seinem eingabe fenster. Also ich geb u und i ein und nach r wird aufgelöst, wenn aber u und r dann wird nach i aufgelöst etc.

Gibts da schon was oder kann mir da jemand einen tipp geben wie man sowas macht . Ich hab dann auch vor das auf andere Formeln auszuweiten.

zb.: P=U*I*cos Phi ... etc.

Besten Dank für eure Infos.

Besten Dank erst mal . Ich fang erst an mit Autoit. Also Ihr werdet noch von mir hören. Aber , es ist auch noch kein Meister vom Himmel gefallen. ( Auch wenn das manche von sich denken. Gruß an meine Professoren)

Hi nochmal

Jetzt weis ich zwar wie das so aufgebaut gehört aber wenn ich das ganze jetzt erweitern möchte mit einem Menue ?

Also GuiCtrlCreateMenu("Ber.URI") GuiCtrlCreateMenu("Ber.PQS") GuiCtrlCreateMenu("R Farbcode")....etc.Da muss ich dann das ganze GUI neu zaubern oder? Ausserdem Sind die Variablen isR...etc global ( macht das was? )

Ich hab mir das ja so vorgestellt das man : Programm aufruft Schönes Bild ( Beschreibung der einzelnen Menüpunkte), dann in das jeweilige menü geht und dort seine Berechnungen macht.

Ich hab nur Absolut keinen Blassen Dunst Wie man so eine Auswahl macht.

Also mit Autoit Programme automatisch installieren is irgendwie besser beschrieben als so richtige Programme und Oberflächen zu machen

Besten Dank fürs helfen. Ich muss das nur einmal kappieren dann kann ich es eh selber weiterbauen.

Sorry wenn ich Euch irgendwie auf die Nerven geh mit meiner Fragerei.

Also ich such was wie ich eine variable mit mehreren strings vergleichen kann und je nachdem was zutrifft einer anderen Variable einen Wert zuordnen kann.

Ich hab mal was versucht aber irgendwie gehts nicht.

#include <EditConstants.au3> 
#include <GUIConstants.au3> 
Opt('GUIOnEventMode', 1) 
Global $isR1Error = 0, $isR1 




GUICreate('Test') ; Erstellt Bedien-Oberflaeche 
GUISetOnEvent($GUI_EVENT_CLOSE, 'ende') ; Schliesst Oberflaeche 




GUICtrlCreateLabel('R:Ring1 ', 15, 15, 50) ; Erstellt Text vor EingabeFeld 
$R1 = GUICtrlCreateInput('', 65, 15, 60, -1, BitOR($ES_RIGHT, $ES_AUTOHSCROLL)) ; Erstellt Input feld // 
GUICtrlSetOnEvent(-1, '_R1') ; 
GUICtrlCreateButton('clear', 130, 15, 40, 20) ; Erstellt Clear Button 
GUICtrlSetOnEvent(-1, '_cR1') 


GUICtrlCreateLabel('Ergebnis ', 15, 165, 50) 
$Rergebnis = GUICtrlCreateInput('', 65, 165, 60, -1, BitOR($ES_RIGHT, $ES_AUTOHSCROLL)) 




GUISetState() 


While 1 
Sleep(100) 
WEnd 


Func ende() 
Exit 
EndFunc 




Func _R1() 
Select 
Case $R1 = "sw" 
$isR1 = 0 
Case $R1 = "br" 
$isR1 = 1 
Case $R1 = "red" 
$isR1 = 2 
Case $R1 = "or" 
$isR1 = 3 
Case $R1 = "yellow" 
$isR1 = 4 
Case $R1 = "green" 
$isR1 = 5 
Case $R1 = "blue" 
$isR1 = 6 
Case $R1 = "violet" 
$isR1 = 7 
Case $R1 = "gray" 
$isR1 = 8 
Case $R1 = "white" 
$isR1 = 9 
Case Else 
$isR1Error = 1 


EndSelect 
MsgBox(4096,"isR1",""& $isR1) 
MsgBox(4096,"$isR1Error",""& $isR1Error) 
EndFunc

Ich bekomm immer nur den Error Wert

Wieso wird der Wert nicht auf die Variable geschrieben? $isR1 sollte doch zb. bei "sw " den wert 0 oder bei "br" den Wert 1 annehmen.

Das möcht ich 5 mal machen für jeden Ring, und dann Eben den Wert zusammenstellen.