Eingabe auslesen?

05/09/2010 22:40 WiiZocker#1
Hallo, ich hab ein problem mit meinem bot, der benutzer soll was eingeben und die eingabe soll ich eine tabelle erscheinen.Hier das skript:

PHP Code:

;Fehler/bearbeiten:
; Case Vergleichen() ist noch nicht fertig,fehler: Er schreibt statt das eingegebende eine 0


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Jan\Desktop\AutoIt\My Free Farm Rechner\Kt Rechner 1.0.kxf
$Fenster = GUICreate("Kt Rechner By WiiZocker", 840, 616, 243, 21)
$BotByWiiZocker = GUICtrlCreateLabel("Kt Rechner by WiiZocker für Shadow992", 248, 16, 380, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Linkegrp = GUICtrlCreateGroup("Markterhalt ausrechnen", 8, 72, 297, 545)
GUICtrlSetFont(-1, 12, 800, 4, "FangSong")
$Marktpreis = GUICtrlCreateInput("1.0", 32, 160, 225, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$MengeInputLinks = GUICtrlCreateInput("120", 32, 256, 225, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$ErgebnisLinks = GUICtrlCreateLabel("0", 120, 528, 101, 20)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Rechnen = GUICtrlCreateButton("Rechnen", 64, 360, 145, 49, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Marktschr = GUICtrlCreateLabel("MarktPreis", 96, 128, 94, 20)
$MengeLinks = GUICtrlCreateLabel("Menge der Items", 64, 224, 139, 20)
$Du = GUICtrlCreateLabel("Du bekommst", 16, 528, 103, 20)
$Kt = GUICtrlCreateLabel("Kt", 224, 528, 22, 20)
$ErgebnisLink = GUICtrlCreateGroup("Ergebnisse", 8, 424, 297, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Rechtegrp = GUICtrlCreateGroup("Weitere Infos", 304, 72, 529, 545)
GUICtrlSetFont(-1, 12, 800, 4, "FangSong")
$Preisinput = GUICtrlCreateInput("3.04", 312, 344, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Ernteinput = GUICtrlCreateInput("3", 464, 400, 121, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Platzinput = GUICtrlCreateInput("4", 312, 400, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Preis = GUICtrlCreateLabel("MarktPreis?", 312, 320, 103, 20)
$Erhaltbeimernten = GUICtrlCreateLabel("Erhalt beim Ernten?", 464, 376, 175, 20)
$ErgenisRechts = GUICtrlCreateGroup("Ergebnisse", 304, 424, 529, 193)
$Saaterh = GUICtrlCreateLabel("Saat erhalt auf 1 Acker", 312, 520, 211, 20)
$Saaterhaltlabel = GUICtrlCreateLabel("0", 312, 552, 205, 20)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Kterhalt = GUICtrlCreateLabel("Kt erhalt", 576, 520, 85, 20)
$Kterhaltlabel = GUICtrlCreateLabel("0.0", 576, 552, 207, 20)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Rechnen2 = GUICtrlCreateButton("Saat erhalt errechnen", 304, 584, 217, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Rechnen3 = GUICtrlCreateButton("Kt erhalt ausrechnen", 576, 584, 209, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Hw1 = GUICtrlCreateLabel("Um den Saat erhalt zu errechnen bitte (Felderanzahl) und (Platzverbrauch) ausfüllen.", 312, 448, 480, 19)
GUICtrlSetFont(-1, 9, 800, 4, "Arial")
$Hw2 = GUICtrlCreateLabel("Um den Kt erhalt deiner ernte zu errechnen bitte (Platzverbrauch) , (Felderanzahl) und", 312, 472, 486, 19)
GUICtrlSetFont(-1, 9, 800, 4, "Arial")
$Hw3 = GUICtrlCreateLabel("(MarktPreis) ausfüllen.", 312, 496, 133, 19)
GUICtrlSetFont(-1, 9, 800, 4, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Platzschrift = GUICtrlCreateLabel("Platzverbrauch?", 312, 376, 139, 20)
$Info = GUICtrlCreateGroup("Info", 624, 72, 209, 209)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Info120 = GUICtrlCreateLabel("Für 1 Acker bitte 120 eintragen", 632, 88, 198, 20)
$Info240 = GUICtrlCreateLabel("Für 2 Äcker bitte 240 eintragen", 632, 112, 198, 20)
$Info360 = GUICtrlCreateLabel("Für 3 Äcker bitte 360 eintragen", 632, 136, 198, 20)
$Info480 = GUICtrlCreateLabel("Für 4 Äcker bitte 480 eintragen", 632, 160, 198, 20)
$Info600 = GUICtrlCreateLabel("Für 5 Äcker bitte 600 eintragen", 632, 184, 198, 20)
$Info720 = GUICtrlCreateLabel("Für 6 Äcker bitte 720 eintragen", 632, 208, 198, 20)
$Infosatz1 = GUICtrlCreateLabel("Oder eigende menge des", 632, 232, 165, 20)
$Infosatz2 = GUICtrlCreateLabel("eingepflanzten angeben.", 632, 256, 163, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Feldanzahlinput = GUICtrlCreateInput("120", 464, 344, 121, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Felderanzahl = GUICtrlCreateLabel("(Felder/mengen)anzahl?", 464, 320, 202, 20)
$Vergleichen = GUICtrlCreateButton("Saat vergleichen", 320, 232, 185, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Vergleich:
#Region ### START Koda GUI section ### Form=C:\Users\Jan\Desktop\AutoIt\My Free Farm Rechner\Tabelle.kxf
$Tabellenfenster = GUICreate("Tabellenfenster", 539, 233, 220, 198)
$Tabelle = GUICtrlCreatePic("C:\Users\Jan\Desktop\AutoIt\My Free Farm Rechner\Tabelle.jpeg", 0, 0, 537, 177, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Name1 = GUICtrlCreateLabel("Name1", 0, 80, 38, 17)
$Name2 = GUICtrlCreateLabel("Name2", 0, 136, 38, 17)
$Ackerueschr = GUICtrlCreateLabel("1 Acker", 120, 24, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Zeitueschr = GUICtrlCreateLabel("Zeit", 216, 24, 26, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Vergleichueschr = GUICtrlCreateLabel("Vergleich", 280, 24, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Ergebnis = GUICtrlCreateLabel("Ergebnis", 376, 24, 53, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Preis1 = GUICtrlCreateLabel("Preis1", 112, 80, 33, 17)
$Std1 = GUICtrlCreateLabel("Std", 200, 80, 20, 17)
$Min1 = GUICtrlCreateLabel("Min", 240, 80, 21, 17)
$Dp1 = GUICtrlCreateLabel(":", 231, 80, 7, 17)
$Vg1 = GUICtrlCreateLabel("Vg1", 280, 80, 23, 17)
$Ergebnis1 = GUICtrlCreateLabel("Ergebnis1", 360, 80, 51, 17)
$KT1 = GUICtrlCreateLabel("KT", 168, 80, 18, 17)
$Preis2 = GUICtrlCreateLabel("Preis2", 112, 136, 33, 17)
$KT2 = GUICtrlCreateLabel("KT", 168, 136, 18, 17)
$Std2 = GUICtrlCreateLabel("Std", 200, 136, 20, 17)
$Dp2 = GUICtrlCreateLabel(":", 232, 136, 7, 17)
$Min2 = GUICtrlCreateLabel("Min", 240, 136, 21, 17)
$Vg2 = GUICtrlCreateLabel("Vg2", 280, 136, 23, 17)
$Ergebnis2 = GUICtrlCreateLabel("Ergebnis2", 360, 136, 51, 17)
$Schliessen = GUICtrlCreateButton("Schließen", 0, 184, 89, 41, 0)
GUISetState(@SW_HIDE) 
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
Case $Rechnen            
             GUICtrlSetData($ErgebnisLinks, GUICtrlRead($Marktpreis)  *  GUICtrlRead($MengeInputLinks)) ;Markterhalt ausrechnen
             
Case $Rechnen2
             GUICtrlSetData($Saaterhaltlabel, GUICtrlRead($Feldanzahlinput) / GUICtrlRead($Platzinput)) ;Saat erhalt ausrechnen
             
Case $Rechnen3
             GUICtrlSetData($Kterhaltlabel, GUICtrlRead($Feldanzahlinput) / GUICtrlRead($Platzinput) * GUICtrlRead($Preisinput)) ;Kt erhalt ausrechnen
             
             ;Tabelle Start:
         Case $Vergleichen
            
             ;Config Starten:
             MsgBox(0,"WICHTIG!!!","Du musst 2 Saat angeben,die erste Saat die du gleich angeben wirst, MUSS länger im wachstum brauchen als die zweite saat.")
             
            $Name1cfg = InputBox("Name der ersten Saat?","Bitte geb den Name der ERSTEN Saat ein.") ;Speichert den eingegebenden name
            GUICtrlSetData($Name1, GUICtrlRead($Name1cfg)) ;Liest den vorerst eingegebenden name ($Name1cfg) aus und überträgt ihn auf $Name1
            ;-----Ab hier das gleiche Prinzip-----
            $Preis1cfg = InputBox("Preis auf dem Markt?","Bitte geb den Preis der ersten Saat ein, den Preis wieviel die Saat auf dem Markt wert ist.")
            GUICtrlSetData($Preis1, GUICtrlRead($Preis1cfg))
    
    
    
     GUISetState(@SW_SHOW,$Tabellenfenster)
    
         Case $Schliessen
             GUISetState(@SW_HIDE,$Tabellenfenster)
             
         

             ;Tabelle Ende.

    EndSwitch
WEnd 
Statt was eingegeben wurde, wird ein 0 ausgegeben.

MfG wiizocker
05/09/2010 23:00 Benhero#2
Könntest du bitte genau die stelle rein Posten wo er nicht richtig ausliest. Danke
Den ich habe Probleme deine schrift zu lesen da ich als AutoIt3 Profi anders schreibe wie du. :/

Greatz benhero
05/10/2010 02:29 kknb#3
naja wenn so ein autoit profi das schon nicht hinbekommt...sry, aber lol?

naja hier mal das rätsels lösung.

du brauchst/kannst den inhalt der inputbox nicht mit guictrlread auslesen, da der wert mit dem klick auf ok automatisch in die variable geschrieben wird.

hier nochmal das ganze script.

Code:
;Fehler/bearbeiten:
; Case Vergleichen() ist noch nicht fertig,fehler: Er schreibt statt das eingegebende eine 0


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region ### START Koda GUI section ### Form=C:\Users\Jan\Desktop\AutoIt\My Free Farm Rechner\Kt Rechner 1.0.kxf
$Fenster = GUICreate("Kt Rechner By WiiZocker", 840, 616, 243, 21)
$BotByWiiZocker = GUICtrlCreateLabel("Kt Rechner by WiiZocker für Shadow992", 248, 16, 380, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Linkegrp = GUICtrlCreateGroup("Markterhalt ausrechnen", 8, 72, 297, 545)
GUICtrlSetFont(-1, 12, 800, 4, "FangSong")
$Marktpreis = GUICtrlCreateInput("1.0", 32, 160, 225, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$MengeInputLinks = GUICtrlCreateInput("120", 32, 256, 225, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$ErgebnisLinks = GUICtrlCreateLabel("0", 120, 528, 101, 20)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Rechnen = GUICtrlCreateButton("Rechnen", 64, 360, 145, 49, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Marktschr = GUICtrlCreateLabel("MarktPreis", 96, 128, 94, 20)
$MengeLinks = GUICtrlCreateLabel("Menge der Items", 64, 224, 139, 20)
$Du = GUICtrlCreateLabel("Du bekommst", 16, 528, 103, 20)
$Kt = GUICtrlCreateLabel("Kt", 224, 528, 22, 20)
$ErgebnisLink = GUICtrlCreateGroup("Ergebnisse", 8, 424, 297, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Rechtegrp = GUICtrlCreateGroup("Weitere Infos", 304, 72, 529, 545)
GUICtrlSetFont(-1, 12, 800, 4, "FangSong")
$Preisinput = GUICtrlCreateInput("3.04", 312, 344, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Ernteinput = GUICtrlCreateInput("3", 464, 400, 121, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Platzinput = GUICtrlCreateInput("4", 312, 400, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Preis = GUICtrlCreateLabel("MarktPreis?", 312, 320, 103, 20)
$Erhaltbeimernten = GUICtrlCreateLabel("Erhalt beim Ernten?", 464, 376, 175, 20)
$ErgenisRechts = GUICtrlCreateGroup("Ergebnisse", 304, 424, 529, 193)
$Saaterh = GUICtrlCreateLabel("Saat erhalt auf 1 Acker", 312, 520, 211, 20)
$Saaterhaltlabel = GUICtrlCreateLabel("0", 312, 552, 205, 20)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Kterhalt = GUICtrlCreateLabel("Kt erhalt", 576, 520, 85, 20)
$Kterhaltlabel = GUICtrlCreateLabel("0.0", 576, 552, 207, 20)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Rechnen2 = GUICtrlCreateButton("Saat erhalt errechnen", 304, 584, 217, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Rechnen3 = GUICtrlCreateButton("Kt erhalt ausrechnen", 576, 584, 209, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Hw1 = GUICtrlCreateLabel("Um den Saat erhalt zu errechnen bitte (Felderanzahl) und (Platzverbrauch) ausfüllen.", 312, 448, 480, 19)
GUICtrlSetFont(-1, 9, 800, 4, "Arial")
$Hw2 = GUICtrlCreateLabel("Um den Kt erhalt deiner ernte zu errechnen bitte (Platzverbrauch) , (Felderanzahl) und", 312, 472, 486, 19)
GUICtrlSetFont(-1, 9, 800, 4, "Arial")
$Hw3 = GUICtrlCreateLabel("(MarktPreis) ausfüllen.", 312, 496, 133, 19)
GUICtrlSetFont(-1, 9, 800, 4, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Platzschrift = GUICtrlCreateLabel("Platzverbrauch?", 312, 376, 139, 20)
$Info = GUICtrlCreateGroup("Info", 624, 72, 209, 209)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Info120 = GUICtrlCreateLabel("Für 1 Acker bitte 120 eintragen", 632, 88, 198, 20)
$Info240 = GUICtrlCreateLabel("Für 2 Äcker bitte 240 eintragen", 632, 112, 198, 20)
$Info360 = GUICtrlCreateLabel("Für 3 Äcker bitte 360 eintragen", 632, 136, 198, 20)
$Info480 = GUICtrlCreateLabel("Für 4 Äcker bitte 480 eintragen", 632, 160, 198, 20)
$Info600 = GUICtrlCreateLabel("Für 5 Äcker bitte 600 eintragen", 632, 184, 198, 20)
$Info720 = GUICtrlCreateLabel("Für 6 Äcker bitte 720 eintragen", 632, 208, 198, 20)
$Infosatz1 = GUICtrlCreateLabel("Oder eigende menge des", 632, 232, 165, 20)
$Infosatz2 = GUICtrlCreateLabel("eingepflanzten angeben.", 632, 256, 163, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Feldanzahlinput = GUICtrlCreateInput("120", 464, 344, 121, 24)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
$Felderanzahl = GUICtrlCreateLabel("(Felder/mengen)anzahl?", 464, 320, 202, 20)
$Vergleichen = GUICtrlCreateButton("Saat vergleichen", 320, 232, 185, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "FangSong")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
;Vergleich:
#region ### START Koda GUI section ### Form=C:\Users\Jan\Desktop\AutoIt\My Free Farm Rechner\Tabelle.kxf
$Tabellenfenster = GUICreate("Tabellenfenster", 539, 233, 220, 198)
$Tabelle = GUICtrlCreatePic("C:\Users\Jan\Desktop\AutoIt\My Free Farm Rechner\Tabelle.jpeg", 0, 0, 537, 177, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Name1 = GUICtrlCreateLabel("Name1", 0, 80, 38, 17)
$Name2 = GUICtrlCreateLabel("Name2", 0, 136, 38, 17)
$Ackerueschr = GUICtrlCreateLabel("1 Acker", 120, 24, 48, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Zeitueschr = GUICtrlCreateLabel("Zeit", 216, 24, 26, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Vergleichueschr = GUICtrlCreateLabel("Vergleich", 280, 24, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Ergebnis = GUICtrlCreateLabel("Ergebnis", 376, 24, 53, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Preis1 = GUICtrlCreateLabel("Preis1", 112, 80, 33, 17)
$Std1 = GUICtrlCreateLabel("Std", 200, 80, 20, 17)
$Min1 = GUICtrlCreateLabel("Min", 240, 80, 21, 17)
$Dp1 = GUICtrlCreateLabel(":", 231, 80, 7, 17)
$Vg1 = GUICtrlCreateLabel("Vg1", 280, 80, 23, 17)
$Ergebnis1 = GUICtrlCreateLabel("Ergebnis1", 360, 80, 51, 17)
$KT1 = GUICtrlCreateLabel("KT", 168, 80, 18, 17)
$Preis2 = GUICtrlCreateLabel("Preis2", 112, 136, 33, 17)
$KT2 = GUICtrlCreateLabel("KT", 168, 136, 18, 17)
$Std2 = GUICtrlCreateLabel("Std", 200, 136, 20, 17)
$Dp2 = GUICtrlCreateLabel(":", 232, 136, 7, 17)
$Min2 = GUICtrlCreateLabel("Min", 240, 136, 21, 17)
$Vg2 = GUICtrlCreateLabel("Vg2", 280, 136, 23, 17)
$Ergebnis2 = GUICtrlCreateLabel("Ergebnis2", 360, 136, 51, 17)
$Schliessen = GUICtrlCreateButton("Schließen", 0, 184, 89, 41, 0)
GUISetState(@SW_HIDE)
#endregion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Rechnen
			GUICtrlSetData($ErgebnisLinks, GUICtrlRead($Marktpreis) * GUICtrlRead($MengeInputLinks)) ;Markterhalt ausrechnen
		Case $Rechnen2
			GUICtrlSetData($Saaterhaltlabel, GUICtrlRead($Feldanzahlinput) / GUICtrlRead($Platzinput)) ;Saat erhalt ausrechnen
		Case $Rechnen3
			GUICtrlSetData($Kterhaltlabel, GUICtrlRead($Feldanzahlinput) / GUICtrlRead($Platzinput) * GUICtrlRead($Preisinput)) ;Kt erhalt ausrechnen
			;Tabelle Start:
		Case $Vergleichen
			;Config Starten:
			MsgBox(0, "WICHTIG!!!", "Du musst 2 Saat angeben,die erste Saat die du gleich angeben wirst, MUSS länger im wachstum brauchen als die zweite saat.")
			$Name1cfg = InputBox("Name der ersten Saat?", "Bitte geb den Name der ERSTEN Saat ein.") ;Speichert den eingegebenden name
			GUICtrlSetData($Name1, $Name1cfg) ;Liest den vorerst eingegebenden name ($Name1cfg) aus und überträgt ihn auf $Name1
			;-----Ab hier das gleiche Prinzip-----
			$Preis1cfg = InputBox("Preis auf dem Markt?", "Bitte geb den Preis der ersten Saat ein, den Preis wieviel die Saat auf dem Markt wert ist.")
			GUICtrlSetData($Preis1, $Preis1cfg)
			GUISetState(@SW_SHOW, $Tabellenfenster)
		Case $Schliessen
			GUISetState(@SW_HIDE, $Tabellenfenster)
			;Tabelle Ende.
	EndSwitch
WEnd
05/10/2010 13:27 WiiZocker#4
Hey, danke für die lösung, jetzt kann ich endlich weitermachen.Hätte dir 100 thx gegeben xD

Naja gut dann kann das hier geclosed werden.

MfG WiiZocker