Registriert seit: 28. Okt 2013
299 Beiträge
|
AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
21. Dez 2022, 11:27
Die Anzahl Zeichen der Antwort scheinen in dieser Preview-Version limitiert zu sein. Darum wird der Ouput am Ende abgeschnitten.
Frage zum Erstellen eines Pacman Programms:
Delphi-Quellcode:
program Pacman;
uses
SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, ExtCtrls,
Buttons, Dialogs;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
GridWidth = 20;
GridHeight = 15;
InitialNumDots = 240;
Speed = 200;
var
Form1: TForm1;
Grid: array[1..GridWidth, 1..GridHeight] of Integer;
PacmanX, PacmanY, DotsEaten: Integer;
Direction: Char;
procedure DrawGrid;
var
X, Y: Integer;
begin
with Form1.Image1.Canvas do
begin
Pen.Color := clBlack;
Brush.Color := clWhite;
Rectangle(0, 0, GridWidth * 20, GridHeight * 20);
for X := 1 to GridWidth do
for Y := 1 to GridHeight do
if Grid[X, Y] = 1 then
begin
Brush.Color := clYellow;
Ellipse((X - 1) * 20, (Y - 1) * 20, X * 20, Y * 20);
end;
end;
end;
procedure DrawPacman;
var
X, Y: Integer;
begin
X := PacmanX * 20 + 10;
Y := PacmanY * 20 + 10;
with Form1.Image1.Canvas do
begin
Brush.Color := clYellow;
Pen.Color := clBlack;
case Direction of
'U': Arc(X - 10, Y - 10, X + 10, Y + 10, X, Y - 10, X, Y - 10);
'D': Arc(X - 10, Y - 10, X + 10, Y + 10, X, Y + 10, X, Y + 10);
'L': Arc(X - 10, Y - 10, X + 10, Y + 10, X - 10, Y, X - 10, Y);
'R': Arc(X - 10, Y - 10, X + 10, Y + 10, X + 10, Y, X + 10, Y);
end;
end;
end;
function Wall(X, Y: Integer): Boolean;
begin
Result := (X < 1) or (X > GridWidth) or (Y < 1) or (Y > GridHeight) or
(Grid[X, Y] = 2);
end;
procedure MovePacman;
var
NewX, NewY
Da die Ki aber kontextbezogen arbeitet kannst du einfach "weiter" schreiben und es geht an gleicher Stelle weiter
Für alle die die Textgenerierung nicht so beeindruckend finden. Sage dem Bot doch einfach mal, dass er dir eine Pro liste mit 5 Punkten schreiben soll warum es für deinen Chef / Kunden gut wäre die mehr Gehalt bzw. Stundenlohn zu bezahlen.
Gern geschehen
Der argumentiert besser als 50% meiner Kollegen, in egal welchem Gebiet (Marketing, strategische Planung, Entwicklung) das ist erschreckend!
Geändert von fisipjm (21. Dez 2022 um 11:30 Uhr)
|