AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Werkzeuge Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
Thema durchsuchen
Ansicht
Themen-Optionen

Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

Ein Thema von Harry Stahl · begonnen am 14. Dez 2022 · letzter Beitrag vom 4. Okt 2023
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.553 Beiträge
 
Delphi 12 Athens
 
#1

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 14. Dez 2022, 23:48
Frag den mal nach einem Pacman-Clone oder nach FlappyBird ... bin gespannt ob da was Funktionierendes bei raus kommt.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
API

Registriert seit: 18. Apr 2004
637 Beiträge
 
#2

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 15. Dez 2022, 04:02
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
  Mit Zitat antworten Zitat
API

Registriert seit: 18. Apr 2004
637 Beiträge
 
#3

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 15. Dez 2022, 04:13
Sehr beeindruckend finde ich den Versuch, ChatGPT eine neue Sprache erfinden zu lassen.

https://maximumeffort.substack.com/p...ent-a-language

Einleitung davon auf Deutsch übersetzt (thx deepl)

Wenn ChatGPT für die Sprachverarbeitung optimiert ist, könnte ich es dann dazu bringen, eine neue, in sich konsistente Sprache zu erfinden, mit mir in dieser Sprache zu sprechen und ein Programm zu schreiben, das diese Sprache ins Englische zurückübersetzt?

Ja. Ja, das kann es.

Ich bin wirklich verblüfft von dieser Fähigkeit. Das geht weit über alles hinaus, was ich von einem Modell erwarten würde, das auf die Vervollständigung von Texteingaben des Benutzers trainiert wurde.

Es versteht Nebensätze (d. h. es versteht mindestens eine Ebene der rekursiven Grammatik, die nach Chomsky die Grundlage der gesamten menschlichen Grammatik ist)

Es versteht, dass in flektierten Sprachen die Wortstellung keine Rolle spielt, wenn das Wort richtig flektiert ist, und nutzt diese Tatsache korrekt, um Sätze mit neuer Struktur zu erzeugen. Es weiß auch, dass die Reihenfolge bei nicht flektierten Wörtern eine Rolle spielt, und tauscht diese niemals aus.

Es ist nicht sehr gut darin, auf völlig neue Sätze zu verallgemeinern, aber es verallgemeinert bis zu einem gewissen Grad, und wenn man es bittet, Fragen in der erfundenen Sprache zu beantworten, auf die es kaum trainiert ist, antwortet es meistens richtig. Manchmal braucht es etwas Nachhilfe, aber das tun Menschen auch.

Es kann spontan in der erfundenen Sprache komponieren, zumindest mit größtenteils korrekter Grammatik und einem genauen Sinn für die Bedeutung.

Und wenn man ihn bittet, ein Python-Programm zu schreiben, das Sätze in der erfundenen Sprache übersetzt, tut er es, und der Code funktioniert. Es kann auch seinen eigenen Code debuggen, wenn es dazu aufgefordert wird.
  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
345 Beiträge
 
Delphi 12 Athens
 
#4

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 10: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 10:30 Uhr)
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 11:32
Da die Ki aber kontextbezogen arbeitet kannst du einfach "weiter" schreiben und es geht an gleicher Stelle weiter
Ah, cooler Trick, Dankeschön!
Damit geht auch gut das Übersetzen von längeren C Headern nach Delphi.
Ist zwar nicht perfekt, aber so lästigen Schreibkram (Argumentname und Argumenttyp ist ja bei C genau andersrum) nimmt er ein schon ab.
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.458 Beiträge
 
Delphi 12 Athens
 
#6

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 12:00
Moin...

Gedanken zu:
Zitat:
Schließlich stellt sich schnell die Frage: Wird meine Arbeit schon bald überflüssig, wenn eine KI meinen Job schneller und günstiger erledigen kann?
https://www.fr.de/ratgeber/karriere/...-91983301.html
Das Problem habe ich nicht...meine "User" verstehe ich selbst nicht. Wie soll das die KI können.

Geändert von haentschman (21. Dez 2022 um 12:03 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von TigerLilly
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.251 Beiträge
 
Delphi 12 Athens
 
#7

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 12:01
Mit der Geografie hapert es ein bissl:
Zitat:
Who are fmaous Austrian citizens?

Austria has a rich history and has produced many notable figures across a variety of fields, including politics, science, the arts, and more. Some famous Austrians include:

Sigmund Freud: the founder of psychoanalysis and one of the most influential figures in the history of psychology.

Wolfgang Amadeus Mozart: a composer and musician widely regarded as one of the greatest in history.

Adolf Hitler: the leader of the Nazi Party and Chancellor of Germany from 1933 to 1945.

Arnold Schwarzenegger: an actor and former Governor of California.

Albert Einstein: a physicist who developed the theory of relativity and is considered one of the greatest scientists in history.

Christoph Waltz: an actor best known for his roles in films such as "Inglourious Basterds" and "Django Unchained."

Maria Sharapova: a retired professional tennis player and former world No. 1.

Red Bull founder Dietrich Mateschitz: an entrepreneur and co-founder of the energy drink company Red Bull.

Ferdinand Porsche: the founder of the automobile company Porsche.

Gerard Mortier: a conductor and opera director.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 12:03
Promi-Wissen und deren Nationalität bzw. Staatsangehörigkeit ist jetzt nicht gerade ein Teilgebiet von "Geografie"!
  Mit Zitat antworten Zitat
Benutzerbild von TigerLilly
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.251 Beiträge
 
Delphi 12 Athens
 
#9

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 12:36
Naja, fällt wohl irgendwie schon unter Länderkunde.
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.733 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)

  Alt 21. Dez 2022, 13:20
Mit der Geografie hapert es ein bissl:
Zitat:
Who are fmaous Austrian citizens?
Die, die ich kenne, waren korrekt (wobei famous und Hitler jetzt nicht so ganz passt), also ist die KI auf dem Gebiet schonmal mindestens so gut wie ich.

Edit: Upps, ich habe Einstein übersehen. Nein, der kam aus Ulm, das ist nicht in Österreich.
Thomas Mueller
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz