Delphi-PRAXiS
Seite 6 von 15   « Erste     456 78     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Werkzeuge (https://www.delphipraxis.net/63-sonstige-werkzeuge/)
-   -   Programme bzw. Funktionen von KI schreiben lassen (OpenAI) (https://www.delphipraxis.net/212082-programme-bzw-funktionen-von-ki-schreiben-lassen-openai.html)

TigerLilly 20. Dez 2022 15:43

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
 
Passt ein bissl dazu. "Humans" - Serie auf Amazon.
https://www.amazon.de/Humans/dp/B06WWP1CV1

dummzeuch 20. Dez 2022 17:21

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
 
... und schon kommen wir zur technologischen Singularität. Das ist der Zeitpunkt, an dem (eine) KI sich selbst weiterentwickeln kann und dann die Menschheit weit hinter sich lässt.

TigerLilly 21. Dez 2022 08:27

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
 
Das mit dem Programmieren finde ich am beeindruckendsten. Unsere Software kann uA den NutriScore (ABCDE auf Lebensmittelverpackungen in unterschiedlichen Farben) ausrechnen. Ich weiß, dass es im Netz nichts an öfentlichem Code dazu gibt. Die Beschreibung des Algorithmus ist rein textlich und reichlich kompliziert. Aber die Aufgabe "Erstelle eine Funktion in Delphi, die den NutriScore berechnet" wird problemlos gemeistert. Ich finde die Textgenerierung jetzt nicht sooo aufregend, aber aus einer textlichen Beschreibung Code zu machen, das ist schon sehr beeindruckend.

blawen 21. Dez 2022 09:24

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

Zitat von TigerLilly (Beitrag 1516486)
Das mit dem Programmieren finde ich am beeindruckendsten. Unsere Software kann uA den NutriScore (ABCDE auf Lebensmittelverpackungen in unterschiedlichen Farben) ausrechnen. Ich weiß, dass es im Netz nichts an öfentlichem Code dazu gibt. Die Beschreibung des Algorithmus ist rein textlich und reichlich kompliziert. Aber die Aufgabe "Erstelle eine Funktion in Delphi, die den NutriScore berechnet" wird problemlos gemeistert. Ich finde die Textgenerierung jetzt nicht sooo aufregend, aber aus einer textlichen Beschreibung Code zu machen, das ist schon sehr beeindruckend.

Die AI versteht sogar Deutsch und ein Arbeitskollege "unterhält" sich mit der KI sogar in Berndeutscher Mundart (CH), was bei ihm erstaunlich gut funktioniert.
Wobei es bei mir nicht klappt und es werden immer wieder die gleichen Füllsätze verwendet.
Diese Füllsätze führen bei mir dazu, dass die unvollständige Ausgabe mitten drin abgebrochen wird

fisipjm 21. Dez 2022 10:27

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

Zitat von API (Beitrag 1516192)
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 :-D

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 :-D

Der argumentiert besser als 50% meiner Kollegen, in egal welchem Gebiet (Marketing, strategische Planung, Entwicklung) das ist erschreckend!

TiGü 21. Dez 2022 11:32

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

Zitat von fisipjm (Beitrag 1516495)
Da die Ki aber kontextbezogen arbeitet kannst du einfach "weiter" schreiben und es geht an gleicher Stelle weiter :-D

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.

haentschman 21. Dez 2022 12:00

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

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. :stupid: Wie soll das die KI können. :zwinker:

TigerLilly 21. Dez 2022 12:01

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
 
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.

TiGü 21. Dez 2022 12:03

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
 
Promi-Wissen und deren Nationalität bzw. Staatsangehörigkeit ist jetzt nicht gerade ein Teilgebiet von "Geografie"!

TigerLilly 21. Dez 2022 12:36

AW: Programme bzw. Funktionen von KI schreiben lassen (OpenAI)
 
Naja, fällt wohl irgendwie schon unter Länderkunde.


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:11 Uhr.
Seite 6 von 15   « Erste     456 78     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz