Beiträge von meyermeyer11

  • FileOpenDialog

    Hallo Leute,

    ich hab nur eine kurze schnelle Frage unzwar benutze ich den FileOpenDialog zweimal in meinem Skript,einmal funktioniert er,aber das andere mal irgendwie nicht :(

    Hier mal die beiden Skriptstücke:

    [autoit]


    $openfile = FileOpenDialog("Laden","C:\","HTML-Datei(*.html)")
    $readfile = FileRead($openfile)
    GUICtrlSetData($edit,$readfile)

    [/autoit]


    Und hier das andere,die nicht funktioniert:

    [autoit]


    $Bildpfad = FileOpenDialog("Bild einfügen","C:\","Bilddatein(*.jpg;*.png;*.bmp")
    $ReadBild = FileRead($Bildpfad)

    [/autoit]


    Wer sich dran erinnert, ich arbeite gerade an meinem Hompagemaker,da ich gerade mal Lust drauf hatte weiter zu machen :D

    Wenn ihr das ganze Skript braucht fragt einfach,hoffe jedoch dass dieser Fetzten reicht :D


  • League of Legends Webanwendung

    Hallo,

    da ich aber kein PHP,Jquery oder ähnliches behersche würde ich es bevorzugen wenn wir in Autoit arbeiten würden, weil ich ja sonst quasi nichts machen könnte und nur dir Andren arbeiten lasse.

    Klar war es mir von Anfang an das PHP zum Beispiel besser geeignet ist,jedoch wollte ich Autoit außerdem nehmen damit ich mich besser auf eine Sprache konzentriere und diese somit schneller lerne.

  • League of Legends Webanwendung

    Hallo Autoitler,

    da ich mir heute mal die Patchnotes des kommeneden LoL Updates gelesen habe, in den zu lesen war,dass man ab jetzt eigene "Builds" erstellen kann.Nun ist mir die Idee gekommen dass man eineWebsite baut welche ähnlich ist wie Mobafire jedoch dass man außerdem die Möglichkeit hat diese von anderen Usern erstellten Builds zu downloaden.
    Da ich jedoch
    1.Noch nicht sicher bin ob dies umsetztbar ist und
    2.Nicht weiß ob jemand mir kostenlos helfen würde,da es doch schon ziemlich viel Arbeit werden könnte.Alkerdings kann ich kein Geld aufbringen da ich dir Website selbst am liebsten kostenlos halten würde und selber nur Schüler bin verdine ich noch kein Geld verdiene.
    Ich würde mich auf jedoch auf jeden Mithelfer freuen.
    Wenn noch Fragen bestehen könnt ihr mich per Pn erreichen oder in Skype adden:c00kieLP.
    P.S Entschuldigt bitte Rechtschreib- und Grammatikfehler,ich hab das mit dem Handy verfasst und naja die Tastatur ist nicht gerade die Beste. :D

  • Kampffunktion

    Also wenn ich es so starte schreibt das Programm ins Editfeld.

    [autoit]

    ;Text Adventure

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

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

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

    $Expalt=0
    $Expget=0
    $Att=0
    $Vert=0
    $MP=0
    $HP=0
    $Gold=0
    $Monsterkills=0
    $version=1.2
    $Klasse=""
    $Monsterzahl=0
    $Monserlevel = 1

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

    func Klassenwahl()
    $Klasse = Inputbox("Klassenwahl","Verfügbare Klassen:"&@crlf&"1.Krieger(Hoher Angriff wenig Verteidigun und Mana)."&@crlf&"2.Magier(etwas Angriff und Mana aber wenig Verteidigun bzw. Leben."&@crlf&"3.Tank(wenig Angriff dafür aber starke Verteidigung und hohes Leben.)"&@crlf&"Sie können auch die Zahlen benutzen um eine Klassen zu wählen.","","","",230)
    If $Klasse = 1 or $Klasse= "Krieger" or $Klasse="krieger" Then
    $Hp = 500
    $Mp = 100
    $Att = 70
    $Vert = 25
    $Gold = 500
    $Klasse = "Krieger"
    ElseIf $Klasse = 2 or $Klasse = "Magier" or $Klasse = "magier" Then
    $Hp = 400
    $Mp = 400
    $Att = 50
    $Vert = 20
    $Gold = 500
    $Klasse = "Magier"
    ElseIf $Klasse = 3 or $Klasse = "Tank" or $Klasse = "tank" Then
    $Hp = 655
    $Mp = 100
    $Att = 40
    $Vert = 55
    $Gold = 500
    $Klasse = "Tank"
    Else
    MsgBox(0,"Flasche Eingabe","Falsche Eingabe."&@CRLF&"Versuchen sie es bitte erneut.")
    Klassenwahl()
    EndIf
    EndFunc

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

    Func Kampf()
    $Kampf = 4 ; Random(1, 4, 1)

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

    If $Kampf = 4 Then
    $Monster = 0 ; Random(0, $Monsterzahl, 1)

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

    If $Monster = 0 Then
    GUICtrlSetData($edtText, "")
    sleep(1000)
    Send("Ein Kampf mit einem Keiler beginnt.")
    ElseIf $Monster = 1 Then
    ElseIf $Monster = 2 Then
    EndIf
    EndIf
    EndFunc

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

    Msgbox(0,"Willkomen","Herzlich Willkommen zu meinem ersten Text Adventure")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("TextAdventure", 608, 426, 192, 124)
    $edtText = GUICtrlCreateEdit("$Boxinhalt", 0, 272, 625, 169)
    GUICtrlSetData(-1, "")
    $Label1 = GUICtrlCreateLabel("Mein Text Adventure V."&$Version,168, 24, 294, 36)
    GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0000FF)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    send("Willkommen bei meinem Textadventure."&@CRLF&"Wählen sie jetzt bitte ihre Klasse.")

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

    Klassenwahl()
    GUICtrlSetData($edtText,"")
    Send("Ihre Klasse ist nun: "&$Klasse&"!")
    Kampf()

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

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

    [/autoit]


    Ihr wäre das ganze Skript mit dem neu eingebauten sollten soweit aber noch keiner Fehler drin sein :D

  • Kampffunktion

    Hallo Autoitler,

    ich arbeite zur Zeit an einem Textadventure und hab schon etwas rumprobiert aber es nicht hinbekommen eine vernünftige Kampffunktion zu basteln.
    Die Funktion sollte einfach nur einen Kampf mit einer 1/4 Chance starten und dann eine Monster aus einer bestimmten Anzahl auswählen aber so funktioniert es nicht:

    [autoit]

    func Kampf() $Kampf=Random(4,4) if $Kampf = 4 Then $Monster=Random(0,$Monsterzahl) if $Monster = 0 Then GUICtrlSetData($edtText,"") Send("Ein Kampf mit einem Keiler beginnt.") ElseIf $Monster = 1 Then ElseIf $Monster = 2 Then EndIf EndIfEndFunc

    [/autoit]

    (konnte es irgendwie nur in einer Zeile haben)
    Habe alles definiert aber funktioniert trotzdem nicht.
    Hoffe Ihr könnt mir helfen

  • Editfeldinhalt löschen

    Hallo Leute,

    hab lange nicht mehr mit AutoIt gearbeitet, und habe es mir vor ca. einer Woche neu runtergeladen und habe jetzt folgende Frage:

    Wie lösche ich den Inhalt eines Editfeldes im Programm ?( .

    Würde mich über Hilfe freuen

    Mit freundlichen Grüßen

    Meyermeyer11
    :)

  • Zufällig Farben Generieren lassen?

    Ja sowas hab ich gemeint :D
    Habs jetzt schon anderes gelöst bloß deins ist wesentlich kurz.
    Hier mal meine Version

    Mein Code
    [autoit]

    $Zahl1 = Random(1,6,1)$Zahl2 = Random(1,6,1)$Zahl3 = Random(1,6,1)$Zahl4 = Random(1,6,1)$Zahl5 = Random(1,6,1)$Zahl6 = Random(1,6,1)
    $Farbe1 = ""$Farbe2 = ""$Farbe3 = ""$Farbe4 = ""$Farbe5 = ""$Farbe6 = ""
    Farbe1zuOrdnen()Farbe2zuOrdnen()Farbe3zuOrdnen()Farbe4zuOrdnen()Farbe5zuOrdnen()Farbe6zuOrdnen()MsgBox(0,"",$Farbe1&$Farbe2&$Farbe3&$Farbe4&$Farbe5&$Farbe6)

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

    Func Farbe1zuOrdnen() If $Zahl1 = 1 Then $Farbe1 = "Rot" EndIf If $Zahl1 = 2 Then $Farbe1 = "Blau" EndIf If $Zahl1 = 3 Then $Farbe1 = "Orange" EndIf If $Zahl1 = 4 Then $Farbe1 = "Lila" EndIf If $Zahl1 = 5 Then $Farbe1 = "Gelb" EndIf If $Zahl1 = 6 Then $Farbe1 = "Grün" EndIfEndFunc
    Func Farbe2zuOrdnen() If $Zahl2 = 1 Then $Farbe2 = "Rot" EndIf If $Zahl2 = 2 Then $Farbe2 = "Blau" EndIf If $Zahl2 = 3 Then $Farbe2 = "Orange" EndIf If $Zahl2 = 4 Then $Farbe2 = "Lila" EndIf If $Zahl2 = 5 Then $Farbe2 = "Gelb" EndIf If $Zahl2 = 6 Then $Farbe2 = "Grün" EndIfEndFunc
    Func Farbe3zuOrdnen() If $Zahl3 = 1 Then $Farbe3 = "Rot" EndIf If $Zahl3 = 2 Then $Farbe3 = "Blau" EndIf If $Zahl3 = 3 Then $Farbe3 = "Orange" EndIf If $Zahl3 = 4 Then $Farbe3 = "Lila" EndIf If $Zahl3 = 5 Then $Farbe3 = "Gelb" EndIf If $Zahl3 = 6 Then $Farbe3 = "Grün" EndIfEndFunc
    Func Farbe4zuOrdnen() If $Zahl4 = 1 Then $Farbe4 = "Rot" EndIf If $Zahl4 = 2 Then $Farbe4 = "Blau" EndIf If $Zahl4 = 3 Then $Farbe4 = "Orange" EndIf If $Zahl4 = 4 Then $Farbr4 = "Lila" EndIf If $Zahl4 = 5 Then $Farbe4 = "Gelb" EndIf If $Zahl4 = 6 Then $Farbe4 = "Grün" EndIfEndFunc
    Func Farbe5zuOrdnen() If $Zahl5 = 1 Then $Farbe5 = "Rot" EndIf If $Zahl5 = 2 Then $Farbe5 = "Blau" EndIf If $Zahl5 = 3 Then $Farbe5 = "Orange" EndIf If $Zahl5 = 4 Then $Farbe5 = "Lila" EndIf If $Zahl5 = 5 Then $Farbe5 = "Gelb" EndIf If $Zahl5 = 6 Then $Farbe5 = "Grün" EndIfEndFunc
    Func Farbe6zuOrdnen() If $Zahl6 = 1 Then $Farbe6 = "Rot" EndIf If $Zahl6 = 2 Then $Farbe6 = "Blau" EndIf If $Zahl6 = 3 Then $Farbe6 = "Orange" EndIf If $Zahl6 = 4 Then $Farbe6 = "Lila" EndIf If $Zahl6 = 5 Then $Farbe6 = "Gelb" EndIf If $Zahl6 = 6 Then $Farbe6 = "Grün" EndIfEndFunc

    [/autoit]


    Das Programm generiert 6 Zahlen und sagt dann welche Zahl welche Farbe ist.Außerdem gibt es die Farben dann noch aus.

  • Zufällig Farben Generieren lassen?

    Hi liebe Autoitler und Autoitlerinnen,
    ich habe ein Frage unzwar kann man ja Wörter und Zahlen zufällige generieren lassen. Jetzt will ich fragen ob man auch Farben irgendwie generieren lassen kann?
    Bei Google hab ich schon gesucht,habe aber nichts gefunden hoffe irgendeiner von euch ob es möglich ist und wenn ja wie. ;)

  • [Lazarus]

    Da ich das jetzt geschafft habe habe ich jetzt eine neue Frage,die sich eigentlich gar nicht so richtig auf Lazarus bezieht:
    Wir sollen einen Zinsrechner "bauen" der aus Anfangskapital und Zinssatz das Endkapital berechnet.Ich habe jetzt das Problem das die Rechnung die auf dem Aufgabenblatt steht,falsch ist.Da steht nämlich das Endkapital=Anfangskapital*Zinssatz/100 ist aber bei mir zeigt er dann etwas falsches an.
    Ich hoffe das war ausführlich genug :D

  • [Lazarus]

    Habs jetzt hinbekommen und in meinen Taschenrechner eingefügt:D
    Hier der code von dem Dreieck:

    Spoiler anzeigen

    unit unTest;

    {$mode objfpc}{$H+}

    interface

    uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

    type

    { TForm1 }

    TForm1 = class(TForm)
    btnlesen: TButton;
    edtZahl1: TEdit;
    edtzahl3: TEdit;
    edtzahl2: TEdit;
    lblErg: TLabel;
    Label2: TLabel;
    procedure btnlesenClick(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.lfm}

    { TForm1 }

    procedure TForm1.btnlesenClick(Sender: TObject);
    var Zahl1 :real;
    Zahl2 :real;
    Zahl3 :real;
    begin
    Zahl1:=StrtoFloat(edtzahl1.text);
    Zahl2:=StrtoFloat(edtzahl2.text);
    Zahl3:=StrtoFloat(edtzahl3.text);
    if (Zahl1+Zahl2>Zahl3) and (Zahl1+Zahl3>Zahl2) and (Zahl2+Zahl3>Zahl1) then
    begin
    lblErg.caption:='Ja'
    end
    else
    begin
    lblErg.caption:='Nein'
    end;
    end;

    end.


    und hier von dem Taschenrechner:

    Spoiler anzeigen

    unit unTaschenrechner;

    {$mode objfpc}{$H+}

    interface

    uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

    type

    { TForm1 }

    TForm1 = class(TForm)
    btnAddieren: TButton;
    btnminus: TButton;
    btnMal: TButton;
    btnTeil: TButton;
    btnwurzel2: TButton;
    btnwurzel1: TButton;
    btnDrei: TButton;
    edtZahl3: TEdit;
    edtZahl1: TEdit;
    edtZahl2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblErgaus: TLabel;
    procedure btnAddierenClick(Sender: TObject);
    procedure btnDreiClick(Sender: TObject);
    procedure btnMalClick(Sender: TObject);
    procedure btnminusClick(Sender: TObject);
    procedure btnTeilClick(Sender: TObject);
    procedure btnwurzel1Click(Sender: TObject);
    procedure btnwurzel2Click(Sender: TObject);
    procedure edtZahl1Change(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.lfm}

    { TForm1 }

    procedure TForm1.edtZahl1Change(Sender: TObject);
    begin

    end;

    procedure TForm1.btnAddierenClick(Sender: TObject);
    var Summand1 :Real;
    Summand2 :Real;
    summe :Real;
    begin
    summand1:=StrtoFloat(edtzahl1.text);
    summand2:=StrtoFloat(edtzahl2.text);
    summe:=summand1 + summand2;
    FloatToStr(Summe);
    lblergaus.caption:=FloattoStr(summe)
    end;

    procedure TForm1.btnDreiClick(Sender: TObject);
    var Zahl1 :real;
    Zahl2 :real;
    Zahl3 :real;
    begin
    Zahl1:=StrtoFloat(edtzahl1.text);
    Zahl2:=StrtoFloat(edtzahl2.text);
    Zahl3:=StrtoFloat(edtzahl3.text);
    if (Zahl1+Zahl2>Zahl3) and (Zahl1+Zahl3>Zahl2) and (Zahl2+Zahl3>Zahl1) then
    begin
    lblErgaus.caption:='Ja'
    end
    else
    begin
    lblErgaus.caption:='Nein'
    end;
    end;

    procedure TForm1.btnMalClick(Sender: TObject);
    var Mal1 :Real;
    Mal2 :Real;
    Mal :Real;
    begin
    Mal1:=StrtoFloat(edtzahl1.text);
    Mal2:=StrtoFloat(edtzahl2.text);
    Mal:=Mal1 * Mal2;
    FloatToStr(Mal);
    lblergaus.caption:=FloattoStr(Mal)

    end;

    procedure TForm1.btnminusClick(Sender: TObject);
    var Minuend1 :Real;
    Minuend2:Real;
    Minus :Real;
    begin
    Minuend1:=StrtoFloat(edtzahl1.text);
    Minuend2:=StrtoFloat(edtzahl2.text);
    Minus:=Minuend1 - Minuend2;
    FloatToStr(Minus);
    lblergaus.caption:=FloattoStr(Minus)
    end;
    procedure TForm1.btnTeilClick(Sender: TObject);
    var Teilen1 :Real;
    Teilen2 :Real;
    Teilen :Real;
    begin
    Teilen1:=StrtoFloat(edtzahl1.text);
    Teilen2:=StrtoFloat(edtzahl2.text);
    if Teilen2=0 then
    begin
    lblergaus.caption:='Nicht definiert';
    end
    else
    begin
    Teilen:=Teilen1 / Teilen2;
    FloatToStr(Teilen);
    lblergaus.caption:=FloattoStr(Teilen)
    end;
    end;

    procedure TForm1.btnwurzel1Click(Sender: TObject);
    var Teilen1 :Real;
    Teilen :Real;
    begin
    Teilen1:=StrtoFloat(edtzahl1.text);
    Teilen:=sqrt(Teilen1);
    FloatToStr(Teilen);
    lblErgaus.caption:=FloatToStr(Teilen);
    end;

    procedure TForm1.btnwurzel2Click(Sender: TObject);
    var Teilen1 :Real;
    Teilen :Real;
    begin
    Teilen1:=StrtoFloat(edtzahl2.text);
    Teilen:=sqrt(Teilen1);
    FloatToStr(Teilen);
    lblErgaus.caption:=FloatToStr(Teilen);
    end;

    end.

  • [Lazarus]

    Hier für alle die es mal probieren wollen ihr ist das was ich habe:

    Spoiler anzeigen

    unit Unit1;

    {$mode objfpc}{$H+}

    interface

    uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

    type

    { TForm1 }

    TForm1 = class(TForm)
    btndrei: TButton;
    edtZahl1: TEdit;
    edtZahl3: TEdit;
    edtZahl2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lbldrei: TLabel;
    procedure btndreiClick(Sender: TObject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.lfm}

    { TForm1 }

    procedure TForm1.btndreiClick(Sender: TObject);
    var Zahl1 :real;
    Zahl2 :real;
    Zahl3 :real;
    Ergebnis :real;
    begin
    Zahl1:=StrtoFloat(edtZahl1.text);
    Zahl2:=StrtoFloat(edtZahl2.text);
    Zahl3:=StrtoFloat(edtZahl3.text);
    if Zahl1+Zahl2>Zahl3;
    and Zahl1+Zahl2>Zahl3;
    and Zahl2+Zahl3>Zahl1; then
    Ergebnis:='ja'
    lbldrei.caption:=Ergebnis
    else
    Ergebnis:='nein'
    lbldrei.caption:=Ergebnis;
    end;

    end.

  • [Lazarus]

    Also das Problem liegt darin das ich vorher mit der Sprache nichts zu tun hatte und sie deshalb nicht so gut kann.Ich kann nur einen einfachen Taschenrechner der alle 4 Grundrechenarten kann und sonnst nichts eigentlich. :(

  • [Lazarus]

    Hi Leute,
    nach einiger Zeit melde ich mich auch mal wieder :D.
    Ok fang ich gleich mal an.
    Wir sind jetzt die ersten an unserer Schule die ein Projekt machen(Lazarus) und da habe ich eine Frage an Leute die das vielleicht schon kennen.Unzwar sollen wir jetzt ein Programm machen mit dem man 3 Seiten angeben kann und das Programm guckt dann ob diese Seiten ein Dreieck ergeben könnten.Mir fällt nichts ein wie das gehen könnte.Hier der Link zur Lazarus Homepage (wer es sich vielleicht mal anschauen will):http://lazarus.freepascal.org/
    P.S:Der Editor sieht fast genau so aus wie der von Koda :D :D :D