Hi,
danke für die Antwort
Dass sowas wegen einer solchen Kleinigkeit schon nicht mehr funktioniert
Hi,
danke für die Antwort
Dass sowas wegen einer solchen Kleinigkeit schon nicht mehr funktioniert
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)
Und hier das andere,die nicht funktioniert:
[autoit]
$Bildpfad = FileOpenDialog("Bild einfügen","C:\","Bilddatein(*.jpg;*.png;*.bmp")
$ReadBild = FileRead($Bildpfad)
Wer sich dran erinnert, ich arbeite gerade an meinem Hompagemaker,da ich gerade mal Lust drauf hatte weiter zu machen
Wenn ihr das ganze Skript braucht fragt einfach,hoffe jedoch dass dieser Fetzten reicht
Hallo,
Wenn mir jemand ein gutes PHP Tutorial empfehlen kann könnte wir auch mit PHP arbeite
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.
Nein so war das eigentlich nicht gemeint
Man könnte es in Autoit machen,weil es hier im Forum auch mal eine Anwendung gab mit der man Autoit Programme im Internet laufen lassen kann.
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.
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>
$Expalt=0
$Expget=0
$Att=0
$Vert=0
$MP=0
$HP=0
$Gold=0
$Monsterkills=0
$version=1.2
$Klasse=""
$Monsterzahl=0
$Monserlevel = 1
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
Func Kampf()
$Kampf = 4 ; Random(1, 4, 1)
If $Kampf = 4 Then
$Monster = 0 ; Random(0, $Monsterzahl, 1)
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
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.")
Klassenwahl()
GUICtrlSetData($edtText,"")
Send("Ihre Klasse ist nun: "&$Klasse&"!")
Kampf()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Ihr wäre das ganze Skript mit dem neu eingebauten sollten soweit aber noch keiner Fehler drin sein
Danke schon mal dafür,funktionieren tut es aber leider immer noch nicht
Er kommt nicht einmal dazu irgendwas in das Editfeld zu schreiben
Ja das mit dem $Kampf=Random(4,4) hab ich gemacht um meinen Fehler zu finden aber er startet die Bedingung nicht einmal er macht einfach nix zeigt auch keine Fehler an
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:
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
Ok danke hat funktioniert
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
Ja sowas hab ich gemeint
Habs jetzt schon anderes gelöst bloß deins ist wesentlich kurz.
Hier mal meine Version
$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)
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
Das Programm generiert 6 Zahlen und sagt dann welche Zahl welche Farbe ist.Außerdem gibt es die Farben dann noch aus.
Das ist leider nich ganz das was ich meinte,ich meinte das er zum Beispiel das Wort Rot generiert(oder halt eine andere Farbe).
Tschuldigung das ich mich falsch ausgedrückt hab. :pinch:
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.
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
Habs jetzt hinbekommen und in meinen Taschenrechner eingefügt:D
Hier der code von dem Dreieck:
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:
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.
Hier für alle die es mal probieren wollen ihr ist das was ich habe:
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.
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.
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