Hallo Gemeinde,
ich habe gerade einmal ausprobiert, ob ChatGPT wirklich wie behauptet programmieren kann. Die Ergebnisse machen einem wirklich Angst. Allerdings nicht in XProfan, offenbar gab es da für den Algorithmus noch nicht genug aufzusaugen und zu lernen.
Ich habe folgende Aufgabe gestellt: "write an XProfan program that asks the user for their name". Das Ergebnis:
PROGRAM
PRINT "What is your name?"
INPUT name
PRINT "Hello, " + name + "!"
END
Das funktioniert nicht ohne Modifikationen ("PROGRAM" gibt es nicht, "name" ist nicht deklariert).
Dasselbe für PureBasic läuft aber ohne jede Änderung!
; Initialize the PureBasic program
If OpenWindow(0, 100, 100, 400, 200, "Name Input", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; Create a text gadget to prompt the user
TextGadget(0, 10, 10, 380, 20, "What is your name?")
; Create an input field for the user to enter their name
StringGadget(1, 10, 40, 380, 20, "")
; Create a button to submit the name
ButtonGadget(2, 10, 70, 100, 30, "Submit")
; Event loop
Repeat
Event = WaitWindowEvent()
; Check if the button was pressed
If Event = #PB_Event_Gadget And EventGadget() = 2
; Retrieve the name from the input field
name$ = GetGadgetText(1)
; Display a greeting message
MessageRequester("Greeting", "Hello, " + name$ + "!", #PB_MessageRequester_Ok)
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
; Close the program
End
Dieser ganze Mist macht uns wirklich noch umfassend überflüssig, nicht nur in der Programmiererei.
Gruselumrahmte Grüße am Montagabend,
Jens-Arne
