Farbe von text ändern und wenn - dann auch - Rechnen

Kleiner

Hallo Liebe Leute!

Steh vor ein problem

Also ich möchte in einer input wenn man zb. -123 eingibt das der text Rot wenn 123 dann schwarz und +123 dann Grün gezeigt wird????

Zweite frage wenn man in der input -123 das dann - gerechnet wirt und bei + auch plus gerechnet wirt?

Und noch eine frage ist es möglich wenn ich in eine input ein buchstageb eingebe zb. F das für den code F = 7,5 bedeutet?????

Ich hoffe das ich mich klar ausgedrückt habe!

LG Kleiner

FireFlyer

wann soll der text seine farbe ändern? direkt bei der eingabe?

und mit was soll +123 gerechnet werden???

Kleiner

Hallo FireFlyer!

Ja genau, bei der eigabe!

Ja mit einen anderen eingabe ausgabe!

Daniel123

Edit: Oh sorry, hab dich falsch verstanden.

Kleiner

Ich meine das so wenn ich -124 in eine iput eingabe das das feld rot wird und gegen eine ausgabe einer anderen rechnug gerechnet wird!

Daniel123

Hi,

Vielleicht hilft ja folgendes:

[autoit]

GUICtrlSetColor ( controlID, textcolor)

[/autoit]

mfg,
Dani

Edit: Ach ja, wegen dem Rechnen, willst du nur +/- rechnen oder auch * / ( ) etc?

Conan10

Ja mit Guictrlsetcolor und dann mit einer ifabfrage das Ergebnis von stringleft($string,1) das erste Zeichen abfragen und ja nachdem die Farbe setzen.

Kleiner

Danke für die schnellen antworten!

ich jetzt erstmal davon aus das ich +/-/+ und/ vieleicht auch % benutzen werde

Also if abfage werde ich gleich mal ausprobieren dann wehr es ja auch möglich durch if wenn f dann 7,5 oder?

Conan10

Ahh könntest du das vielleicht ein bisschen genauer erklären und die Gliederung der Sätze verbessern. Dann kann man dir auch helfen

**autoBert**

Hallo kleiner27,

zu den Farben: lies dir mal die Hilfe zu GuiCtrlSetColor durch

zum Rechnen: execute

zu F mit 7.5 ersetzen: stringreplace

allgemein: in Forum Skripte gibt es unzählige (Taschen)-Rechner, benutze doch einfach mal die SuFu und schau dir die Programmier-Techniken dort an,

mfg (Auto)Bert

Kleiner

also von vorn!

Ich möchte das wenn man minus oder plus eingiebt das der text eine bestimmte farbe bekommt und auch erkannt wirt ob ein plus minus mal geteil prozent egegeben wurde um damit weiter zu rechen also wenn in einem feld ( input) 530 steht und man in einen anderen (input) jetzt -123 eigibt das es gegen 530 gerechnet wird!

Wenn ich F in ein feld (input) eingebe das es + gegen 530 als 7,5 gerechnet wird !

Soweit verstanden!

Kleiner

Hallo leute!

Ich bekomm das nicht hin wenn ( - ) dann textfarbe Rot nicht hin, ich habe die sachen ausprobiert ohne erfolg.
In der Hilfe steht zu GuiCtrlSetColor nicht viel , und wenn ich das mit stringleft($string,1) dann bekomm ich nicht den wert den ich eigegeben habe sonder nur eine 1 oder nichts!

Bitte dringent um hilfe!

LG Kleiner

blubbstar

Woah man, ich verstehe halt 0, deine Beschreibung ist wirklich total Wirr und Müll. Sorry
Aber poste doch mal was du bereits hast.

Kleiner

Hallo!

Was ist denn so schwer zu verstehen ich möchte nur wenn ein ereigniss eintritt das was passiert!

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

Opt('GUIOnEventMode', 1)

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

$Gui = GUICreate('',800, 600, -1, -1)
GUISetBkColor(0xFFFFFF, $GUI)
GUISetOnEvent(-3, '_Exit')
$Menu = GUICtrlCreateMenu(' M&enü ')
GUICtrlCreateLabel('Monat :',10,15,40,20)
GUICtrlSetFont(-1, 9, 400, 2)
GUICtrlCreateLabel('Jahr :',10,39,40,20)
GUICtrlSetFont(-1, 9, 400, 2)
$monataus = GUICtrlCreateCombo('',55,13,75)
GUICtrlSetData($monataus ,'Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember')
$jahr = GUICtrlCreateLabel(@YEAR,55,39,40,19)
GUICtrlCreateButton('-', 100, 39, 15, 15)
GUICtrlSetOnEvent(-1, 'Minus')
GUICtrlCreateButton('+', 115, 39, 15, 15)
GUICtrlSetOnEvent(-1, 'Plus')

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

GUICtrlCreateCombo('', 10, 80,180, 25)
GUICtrlSetTip(-1, 'Name')
GUICtrlCreateCombo('', 10,101,180, 25)
GUICtrlSetTip(-1, 'Stellenbezeichnung')
GUICtrlCreateGroup('', 10,116,180, 24)
GUICtrlCreateLabel('R=',168,125,20, 12)
GUICtrlSetTip(-1, 'Urlaub')
;-----------------------------------------------------hir in der input soll wenn ein wert zb. -123 eigegeben wird der text rot werden wenn kein - dann schwarz
$test = GUICtrlCreateInput('',191,80,57,21) ;supper wehr es noch wenn +123 dann grün
$fu = GUICtrlRead($test,1)

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

if $fu = Chr(45) Then
GUICtrlSetColor($test,0xff0000)
EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------------------

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

GUICtrlCreateButton('test',250,80,57,21)
GUICtrlSetOnEvent(-1, '_test')

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

GUICtrlSetTip(-1, '+ / - Zeiten')
$test1 = GUICtrlCreateCombo('139,50',191,101,57,25)

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

GUICtrlSetTip(-1, 'Stunden / Wochen')
GUICtrlCreateInput('',191,122,57,18)
GUICtrlSetTip(-1, 'Urlaub')
GUISetState()

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

While 1
Sleep(10)
WEnd

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

Func _test()
dim $al

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

EndFunc

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

Func _Exit()
Exit
EndFunc
Func Minus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) - 1)
EndFunc
Func Plus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) + 1)
EndFunc

[/autoit]

Conan10

So?

[autoit]

Opt('GUIOnEventMode', 1)

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

$Gui = GUICreate('',800, 600, -1, -1)
GUISetBkColor(0xFFFFFF, $GUI)
GUISetOnEvent(-3, '_Exit')
$Menu = GUICtrlCreateMenu(' M&enü ')
GUICtrlCreateLabel('Monat :',10,15,40,20)
GUICtrlSetFont(-1, 9, 400, 2)
GUICtrlCreateLabel('Jahr :',10,39,40,20)
GUICtrlSetFont(-1, 9, 400, 2)
$monataus = GUICtrlCreateCombo('',55,13,75)
GUICtrlSetData($monataus ,'Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember')
$jahr = GUICtrlCreateLabel(@YEAR,55,39,40,19)
GUICtrlCreateButton('-', 100, 39, 15, 15)
GUICtrlSetOnEvent(-1, 'Minus')
GUICtrlCreateButton('+', 115, 39, 15, 15)
GUICtrlSetOnEvent(-1, 'Plus')

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

GUICtrlCreateCombo('', 10, 80,180, 25)
GUICtrlSetTip(-1, 'Name')
GUICtrlCreateCombo('', 10,101,180, 25)
GUICtrlSetTip(-1, 'Stellenbezeichnung')
GUICtrlCreateGroup('', 10,116,180, 24)
GUICtrlCreateLabel('R=',168,125,20, 12)
GUICtrlSetTip(-1, 'Urlaub')
;-----------------------------------------------------hir in der input soll wenn ein wert zb. -123 eigegeben wird der text rot werden wenn kein - dann schwarz
$test = GUICtrlCreateInput('',191,80,57,21) ;supper wehr es noch wenn +123 dann grün
$fu = GUICtrlRead($test,1)

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

if $fu = Chr(45) Then
GUICtrlSetColor($test,0xff0000)
EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------------------

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

GUICtrlCreateButton('test',250,80,57,21)
GUICtrlSetOnEvent(-1, '_test')

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

GUICtrlSetTip(-1, '+ / - Zeiten')
$test1 = GUICtrlCreateCombo('139,50',191,101,57,25)

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

GUICtrlSetTip(-1, 'Stunden / Wochen')
GUICtrlCreateInput('',191,122,57,18)
GUICtrlSetTip(-1, 'Urlaub')
GUISetState()

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

While 1
Sleep(10)
If StringLeft(GUICtrlRead($test),1) = "-" Then
GUICtrlSetColor($test,0xff0000)
ElseIf StringLeft(GUICtrlRead($test),1) = "+" Then
GUICtrlSetColor($test,0x006400)
Else
GUICtrlSetColor($test,0x000000)
EndIf
WEnd

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

Func _test()
dim $al

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

EndFunc

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

Func _Exit()
Exit
EndFunc
Func Minus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) - 1)
EndFunc
Func Plus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) + 1)
EndFunc

[/autoit]

Kleiner

Danke schön!
Genau das habe ich gemeint!

Eine frage habe ich dazu bei mir flakert die input wenn man was eingibt läst es sich da noch was ändern???

LG Kleiner

blubbstar

Spoiler anzeigen

[autoit]

Opt('GUIOnEventMode', 1)

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

$Gui = GUICreate('',800, 600, -1, -1)
GUISetBkColor(0xFFFFFF, $GUI)
GUISetOnEvent(-3, '_Exit')
$Menu = GUICtrlCreateMenu(' M&enü ')
GUICtrlCreateLabel('Monat :',10,15,40,20)
GUICtrlSetFont(-1, 9, 400, 2)
GUICtrlCreateLabel('Jahr :',10,39,40,20)
GUICtrlSetFont(-1, 9, 400, 2)
$monataus = GUICtrlCreateCombo('',55,13,75)
GUICtrlSetData($monataus ,'Januar|Februar|März|April|Mai|Juni|Juli|August|September|Oktober|November|Dezember')
$jahr = GUICtrlCreateLabel(@YEAR,55,39,40,19)
GUICtrlCreateButton('-', 100, 39, 15, 15)
GUICtrlSetOnEvent(-1, 'Minus')
GUICtrlCreateButton('+', 115, 39, 15, 15)
GUICtrlSetOnEvent(-1, 'Plus')

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

GUICtrlCreateCombo('', 10, 80,180, 25)
GUICtrlSetTip(-1, 'Name')
GUICtrlCreateCombo('', 10,101,180, 25)
GUICtrlSetTip(-1, 'Stellenbezeichnung')
GUICtrlCreateGroup('', 10,116,180, 24)
GUICtrlCreateLabel('R=',168,125,20, 12)
GUICtrlSetTip(-1, 'Urlaub')
;-----------------------------------------------------hir in der input soll wenn ein wert zb. -123 eigegeben wird der text rot werden wenn kein - dann schwarz
$test = GUICtrlCreateInput('',191,80,57,21) ;supper wehr es noch wenn +123 dann grün
$fu = GUICtrlRead($test,1)

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

if $fu = Chr(45) Then
GUICtrlSetColor($test,0xff0000)
EndIf
;--------------------------------------------------------------------------------------------------------------------------------------------------------------

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

GUICtrlCreateButton('test',250,80,57,21)
GUICtrlSetOnEvent(-1, '_test')

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

GUICtrlSetTip(-1, '+ / - Zeiten')
$test1 = GUICtrlCreateCombo('139,50',191,101,57,25)

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

GUICtrlSetTip(-1, 'Stunden / Wochen')
GUICtrlCreateInput('',191,122,57,18)
GUICtrlSetTip(-1, 'Urlaub')
GUISetState()

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

$Color = 0x000000
While 1
Sleep(10)
If StringLeft(GUICtrlRead($test),1) = "-" Then
If $Color <> 0xff0000 Then
$Color = 0xff0000
GUICtrlSetColor($test,$Color)
EndIf
ElseIf StringLeft(GUICtrlRead($test),1) = "+" Then
If $Color <> 0x006400 Then
$Color = 0x006400
GUICtrlSetColor($test,$Color)
EndIf
ElseIf $Color <> 0x000000 Then
$Color = 0x000000
GUICtrlSetColor($test,$Color)
EndIf
WEnd

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

Func _test()
dim $al

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

EndFunc

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

Func _Exit()
Exit
EndFunc
Func Minus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) - 1)
EndFunc
Func Plus()
GUICtrlSetData($jahr, GUICtrlRead($jahr) + 1)
EndFunc

[/autoit]

Kleiner

Danke schön blubbstar!

Ohne flakern super!

Vielen dank an euch!

LG Kleiner

Kleiner

Mit den anderen fragen komme ich wenn es soweit ist!

Damit ist es ersteinmal glöst!

FireFlyer

ich bin zwar grad en bissl dicht aber für das proggie hats noch gereicht

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$gui = GUICreate("Rechnen", 200, 200)
$base = 300
$input = GUICtrlCreateInput("", 10, 10)
$label = GUICtrlCreateLabel("TEST", 10, 50, 150)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUISetState()

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

Do
Until GUIGetMsg() = -3

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

Func makecol()
$read = GUICtrlRead($input)
If StringInStr($read, "+") Then
GUICtrlSetColor($input, 0x00FF00)
GUICtrlSetData($label, "Ergebniss "&Execute($base&$read))
ElseIf StringInStr($read, "-") Then
GUICtrlSetColor($input, 0xFF0000)
GUICtrlSetData($label, "Ergebniss "&Execute($base&$read))
Else
GUICtrlSetColor($input, 0x000000)
EndIf
EndFunc

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

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $iIDFrom, $iCode
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
$input2 = GUICtrlGetHandle($input)
Switch $ilParam
Case $input, $input2
Switch $iCode
Case 1024
makecol()
EndSwitch
EndSwitch
EndFunc

[/autoit]