Posts: 660
Threads: 142
Joined: Apr 2022
Reputation:
58
12-16-2022, 07:06 PM
(This post was last modified: 12-16-2022, 07:07 PM by James D Jarvis.)
this program was generated by chat gpt. I did have to lightly edit it because it tried to use the symbol "&" in place of the symbol ";" in print commands, otherwise it all came from this prompt:
create qb64pe source code that allows the user to select from a displayed list of 10 entries.
Code: (Select All) ' Define an array to hold the list of entries
Dim entries(10) As String
' Populate the array with sample data
entries(1) = "Apple"
entries(2) = "Banana"
entries(3) = "Cherry"
entries(4) = "Date"
entries(5) = "Eggplant"
entries(6) = "Fig"
entries(7) = "Grape"
entries(8) = "Honeydew"
entries(9) = "Kiwi"
entries(10) = "Lemon"
' Display the list of entries
Print "Please select an entry from the list:"
For i = 1 To 10
Print i; ") "; entries(i)
Next i
' Get the user's selection
Do
Input "Enter your selection: ", selection
If selection < 1 Or selection > 10 Then
Print "Invalid selection. Please try again."
Else
Exit Do
End If
Loop
' Display the selected entry
Print "You selected: "; entries(selection)
Posts: 660
Threads: 142
Joined: Apr 2022
Reputation:
58
create a qb64PE program listing that prints a rocket in ascii graphics
Code: (Select All) ' Print the top of the rocket
Print " /\ "
Print " / \ "
Print " /____\ "
Print " \ / "
' Print the body of the rocket
Print " | | "
Print " | | "
Print " | | "
' Print the base of the rocket
Print " / \ "
Print " / \ "
Print "/________\ "
' Print the exhaust flames
Print " \ / "
Print " \/ "
Posts: 2,177
Threads: 222
Joined: Apr 2022
Reputation:
104
Where's the rocket? All I see is a chess piece with a gas problem.
Pete
Shoot first and shoot people who ask questions, later.
Posts: 660
Threads: 142
Joined: Apr 2022
Reputation:
58
12-16-2022, 07:23 PM
(This post was last modified: 12-16-2022, 07:24 PM by James D Jarvis.)
create a qb64PE program to randomly generate a smiley face with a prompt to continue with a new face or quit the program.
Code: (Select All) ' Random Smiley Face Program
' Author: OpenAI
Randomize Timer
Dim Smiley(3) As String * 5
Smiley(1) = ":)"
Smiley(2) = ":D"
Smiley(3) = ";)"
Do
Print Smiley(Int(Rnd(1) * 3) + 1)
Print "Press 'N' for a new smiley, or 'Q' to quit."
Input choice$
Loop While UCase$(choice$) <> "Q"
End
(12-16-2022, 07:15 PM)Pete Wrote: Where's the rocket? All I see is a chess piece with a gas problem.
Pete
I'll give the AI a pass on the gas.
Posts: 2,177
Threads: 222
Joined: Apr 2022
Reputation:
104
![[Image: ascii-snoopy.jpg]](http://www.zaposphere.com/wp-content/uploads/2013/10/ascii-snoopy.jpg)
Curse you, Red Baron!
Posts: 660
Threads: 142
Joined: Apr 2022
Reputation:
58
12-16-2022, 08:01 PM
(This post was last modified: 12-16-2022, 08:02 PM by James D Jarvis.)
Looks like you bested the ai. Here's the code it generated for: produce program source code for QB64PE that will generate an ascii image of snoopy cursing the red baron
NOTE: THIS CODE WILL NOT WORK.
Code: (Select All) ' QB64PE ASCII Art program to generate an image of Snoopy cursing the Red Baron
' Requires QB64PE to run
SCREEN _NEWIMAGE(640, 480, 32)
' Define variables to hold the ASCII art text
DIM snoopy AS STRING
DIM redBaron AS STRING
' Set the ASCII art text for Snoopy and the Red Baron
snoopy = " "
snoopy = snoopy + " .--. "
snoopy = snoopy + " : (\\/) : "
snoopy = snoopy + " '--' "
snoopy = snoopy + " /( )\\ "
snoopy = snoopy + " | '' | "
snoopy = snoopy + " | | "
snoopy = snoopy + " | | "
snoopy = snoopy + " | | "
snoopy = snoopy + " _| |_ "
snoopy = snoopy + "(' \\ / ') "
snoopy = snoopy + " \\ '._.' / "
snoopy = snoopy + " '-.___.-' "
redBaron = " "
redBaron = redBaron + " .-. "
redBaron = redBaron + " ( ). "
redBaron = redBaron + " (___(__) "
redBaron = redBaron + " /: V \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + " /: / \\ \\ "
redBaron = redBaron + "(____________________) "
' Set the font and text color
_FONT "Courier New", 20
_COLORDD WHITE
' Draw the ASCII art text on the screen
_DRAWTEXT snoopy, 10, 10
_DRAWTEXT redBaron, 10, 120
' Wait for a key press to exit the program
WHILE INKEY$ = ""
WEND
END
Posts: 2,177
Threads: 222
Joined: Apr 2022
Reputation:
104
Steve, we need a new forum tag now..
[Clippy]
NOTE: THIS CODE WILL NOT WORK.
[/Clippy]
Shoot first and shoot people who ask questions, later.
Posts: 733
Threads: 103
Joined: Apr 2022
Reputation:
14
(12-16-2022, 07:11 PM)James D Jarvis Wrote: create a qb64PE program listing that prints a rocket in ascii graphics
Code: (Select All) ' Print the top of the rocket
Print " /\ "
Print " / \ "
Print " /____\ "
Print " \ / "
' Print the body of the rocket
Print " | | "
Print " | | "
Print " | | "
' Print the base of the rocket
Print " / \ "
Print " / \ "
Print "/________\ "
' Print the exhaust flames
Print " \ / "
Print " \/ "
It seems like it can generate simple programs, although your mileage may vary depending on what you ask for!
It would probably help if it had live access to the Internet (though I cringe to think of all the nefarious uses that could lead to!)
Posts: 660
Threads: 142
Joined: Apr 2022
Reputation:
58
(12-16-2022, 08:51 PM)madscijr Wrote: (12-16-2022, 07:11 PM)James D Jarvis Wrote: create a qb64PE program listing that prints a rocket in ascii graphics
Code: (Select All) ' Print the top of the rocket
Print " /\ "
Print " / \ "
Print " /____\ "
Print " \ / "
' Print the body of the rocket
Print " | | "
Print " | | "
Print " | | "
' Print the base of the rocket
Print " / \ "
Print " / \ "
Print "/________\ "
' Print the exhaust flames
Print " \ / "
Print " \/ "
It seems like it can generate simple programs, although your mileage may vary depending on what you ask for!
It would probably help if it had live access to the Internet (though I cringe to think of all the nefarious uses that could lead to!)
My son told me he watched a video where it was used to write a game using the UNITY engine. They did have to have it rework subroutines and it had trouble understanding the difference between the 2D engine and the 3D engine so there was some manual editing but it was functional. Seemingly you just have to be patient and feed it information it can use.
Posts: 660
Threads: 142
Joined: Apr 2022
Reputation:
58
12-16-2022, 09:24 PM
(This post was last modified: 12-16-2022, 09:25 PM by James D Jarvis.)
The world's worst image painter. I wish I'd kept track of the whole session. There was also a last second edit because I can't explain everything to the chat AI. It's probably a good thing it can't hear me curse.
Code: (Select All) Dim image As _Unsigned Long
Dim s As _Unsigned Long
s = _NewImage(800, 600, 32)
Screen s
' Prompt the user to enter the width and height of the image
Print "Enter the width of the image: ";
Input ww
Print "Enter the height of the image: ";
Input hh
' Create a blank image with the specified dimensions
image = _NewImage(ww, hh)
' Set the initial color of the image to white
_Dest image
For x = 0 To width - 1
For y = 0 To height - 1
PSet (x, y), _RGB32(255, 255, 255)
Next y
Next x
' Display the image on the screen
Cls
_PutImage (0, 0), image, 0
Sleep 1
' Loop until the user exits the program
Do
_Dest s
' Prompt the user to enter the x and y coordinates of the pixel they want to change
Print "Enter the x coordinate of the pixel to change: ";
Input x
Print "Enter the y coordinate of the pixel to change: ";
Input y
' Prompt the user to enter the new color for the pixel
Print "Enter the red value (0-255): ";
Input red
Print "Enter the green value (0-255): ";
Input green
Print "Enter the blue value (0-255): ";
Input blue
' Update the color of the pixel
_Dest image
PSet (x, y), _RGB32(red, green, blue)
_Dest 0
' Redraw the image on the screen
_PutImage (0, 0), image, s
' Prompt the user to enter 'q' to exit or any other key to continue
Print "Press 'q' to quit or any other key to continue: ";
Input kkey$
Loop Until kkey$ = "q"
|
