|
|
Post by (X) on Feb 20, 2023 3:09:00 GMT 1
I've been trying to sign-up but they demand a phone number. That's a NO-GO for me!
I even tried a VoIP which they do not accept.
|
|
|
|
Post by rogercabo on Feb 20, 2023 20:15:48 GMT 1
You can buy a new prepayed number for some tiny bugs and use for registration. temp-mail.org sells also phone numbers for 30 minutes for 1.50€ I think. temp-sms.org/ ? |
|
|
|
Post by (X) on Feb 20, 2023 22:28:22 GMT 1
You can buy a new prepayed number for some tiny bugs and use for registration. temp-mail.org sells also phone numbers for 30 minutes for 1.50€ I think. temp-sms.org/ ? I tried several numbers. ChatGPT recognizes if a number has been used before and denies access. Bummer! |
|
|
|
Post by rogercabo on Feb 20, 2023 23:19:31 GMT 1
Then you should buy a new pre-payed number for some tiny bugs and use for registration. At first I also thought about to prevent it, because they want my phone number. Google has brought OpenAi for 40.000.000.000$. And Google has our phone numbers and data anyway. So have a look at this here.. what Elon Mask is creating with Neuralink. This is real creepy! www.youtube.com/watch?v=o-A6OXsxAVM&t=28s |
|
|
|
Post by (X) on Feb 21, 2023 0:40:18 GMT 1
That's e-volution for you!
|
|
|
|
Post by scalion on Feb 21, 2023 13:09:03 GMT 1
Hello, I've been away for a while because I'm busy with 2 projects (including one related to programming). I tried CHAT GPT too, and I'm "on the ass" as they say in France! Just fabulous what they managed to do with deep learning and a few billion computer neurons. The most extraordinary is the image creation function, top top top! The only problem is that it is often out of order due to overwork, but by being patient and coming back to ChatGPT regularly, you can have the chance to test it. The phone is just to receive an SMS with the confirmation code to register. Do it, (x), it's really worth it ! You will really like it. For those who don't know where to go: :
Example :
|
|
|
|
Post by (X) on Feb 21, 2023 14:22:00 GMT 1
Ah... hahahahahahhahahahaha!
|
|
|
|
Post by (X) on Feb 21, 2023 15:17:39 GMT 1
ChatGPT is at capacity right now...  I left them my e-mail to advise me when they're up again. |
|
|
|
Post by rogercabo on Feb 21, 2023 17:16:36 GMT 1
Hello, I've been away for a while because I'm busy with 2 projects (including one related to programming). I tried CHAT GPT too, and I'm "on the ass" as they say in France! Just fabulous what they managed to do with deep learning and a few billion computer neurons. The most extraordinary is the image creation function, top top top! Welcome back.. Yes Chat GPT is unbelievable.. but calling for programming code is possible but completely crap. Because GPT stops after about 50 lines and of you write "continue", then it continues with a different logic or approach. Totally shit! I thought about to yesterday to tell GPT to stop after 50 lines, then should ask me to continue, and if I write yes he should continue.. but that fails as well.Everyone has the same issue, but I think they do not want to offer more than tiny code pieces. Here is an example you can enter into the chat field of GPT and you will see the problem. He didn't know Gfa Basic 32, it's Gfa Basic 16 for Windows. He mostly lost to declare variables with Dim as well. Write a code in GFA-Basic 32:
0. Use Dim for variable declaration.
Draw 10 squares in 2D on a black background in red using the command "Box x1, y1, x2, y2".
The squares should fall on a virtual floor with a Y position of 0 and rotate around their own center during the fall. The floor is located at the bottom of the screen at Y=800. Use a simple gravity formula.
Each square should use collision detection.
In case of collision, the squares should bounce off each other or slide off each other due to their rotational motion, to avoid overlap.
The squares should stack on top of each other or slide off each other during the fall until they come to a stop.
Please let me know after every 50 lines of code if I should continue writing. If yes, simply continue writing from the last position.
If you find a solution, please post!!!  Some thoughts about GPT: I'm not sure if GPT create the code while he write. If he write create while he write, then "we have a problem Huston." Because like a human, he never repeat anything exactly. Asking for a review never produce the same results.
|
|
|
|
Post by rogercabo on Feb 21, 2023 18:32:42 GMT 1
I give up.. in case of let chat GPT write some complete code.. It's better to let write some functions with about 50-100 lines.
This is really annoying, to have only a half of any code you can't use in the end.
This is what I got back.. after an hour of trying and testing..
$Library "gfawinx"
$Library "UpdateRT"
UpdateRuntime ' Patches GfaWin23.Ocx
' set up display
Cls
Dim Xres = 1024
Dim Yres = 900
'SetDisplay Xres, Yres, 16, 2
Type boxCorrds
x1 As Double
y1 As Double
x2 As Double
y2 As Double
EndType
Dim boxCorrds As boxCorrds
' set up variables
Dim x(10), y(10), x_speed(10), y_speed(10), angle(10)
Dim i%, j%
' set up initial square positions and velocities
For i = 1 To 10
x(i) = Rnd * Xres
y(i) = Rnd * Yres
x_speed(i) = (Rnd * 10) - 5
y_speed(i) = (Rnd * 10) - 5
angle(i) = Rnd * 360
Next i
' main loop
Do
' draw black background
Box 0, 0, Xres, Yres
' update square positions and rotations
For i = 1 To 10
' update positions
x(i) = x(i) + x_speed(i)
y(i) = y(i) + y_speed(i)
' apply gravity
y_speed(i) = y_speed(i) + 0.1
' check for collision with floor
If y(i) >= 800 Then
y(i) = 800
y_speed(i) = -y_speed(i) * 0.9
x_speed(i) = x_speed(i) * 0.9
End If
' check for collision with other squares
For j = 1 To 10
If j <> i Then
' calculate distance between squares
Dim dist_x = x(i) - x(j)
Dim dist_y = y(i) - y(j)
Dim dist = Sqr(dist_x ^ 2 + dist_y ^ 2)
' check for collision
If dist <= 20 Then
' squares collide
Dim overlap = 20 - dist
Dim overlap_x = overlap * (dist_x / dist)
Dim overlap_y = overlap * (dist_y / dist)
' separate squares based on rotational motion
If x_speed(i) > 0 And x_speed(j) < 0 Then
' square i is moving right and square j is moving left
x(i) = x(i) + overlap_x
y(i) = y(i) + overlap_y
x(j) = x(j) - overlap_x
y(j) = y(j) - overlap_y
ElseIf x_speed(i) < 0 And x_speed(j) > 0 Then
' square i is moving left and square j is moving right
x(i) = x(i) - overlap_x
y(i) = y(i) - overlap_y
x(j) = x(j) + overlap_x
y(j) = y(j) + overlap_y
ElseIf y_speed(i) > 0 And y_speed(j) < 0 Then
' square i is moving down and square j is moving up
x(i) = x(i) + overlap_x
y(i) = y(i) + overlap_y
x(j) = x(j) - overlap_x
y(j) = y(j) - overlap_y
ElseIf y_speed(i) < 0 And y_speed(j) > 0 Then
' square i is moving up and square j is moving down
x(i) = x(i) - overlap_x
y(i) = y(i) - overlap_y
x(j) = x(j)
y(j) = y(j) + overlap_y
Else
' squares have same or no vertical/horizontal velocity, so slide off each other
x(i) = x(i) + overlap_x / 2
y(i) = y(i) + overlap_y / 2
x(j) = x(j) - overlap_x / 2
y(j) = y(j) - overlap_y / 2
End If
End If
End If
Next j
' rotate square around its own center
Rotate(x(i) - 10, y(i), x(i) + 10, y(i), angle(i))
Rotate(x(i), y(i) - 10, x(i), y(i) + 10, angle(i))
' draw square
Color RGB(255, 0, 0)
DrawRotatedBox(x(i) - 10, y(i) - 10, x(i) + 10, y(i) + 10, RGB(255, 0, 0))
Next i
' update display
DoEvents
Pause 1
Loop Until MouseK
' clean up and exit
Function Rotate(x1, y1, x2, y2, angle)
' convert angle to radians
angle = angle * 3.14159265 / 180
' calculate midpoint of line segment
Dim mid_x = (x1 + x2) / 2
Dim mid_y = (y1 + y2) / 2
' calculate distance from midpoint to each endpoint
Dim dx = x2 - mid_x
Dim dy = y2 - mid_y
Dim dist = Sqr(dx ^ 2 + dy ^ 2)
' calculate current angle from midpoint to endpoint
Dim current_angle = Atn(dy / dx)
If dx < 0 Then current_angle = current_angle + 3.14159265
' calculate new angle by adding rotation angle to current angle
Dim new_angle = current_angle + angle
' calculate new endpoint positions
x1 = mid_x + (dist / 2) * Cos(new_angle) - 10
y1 = mid_y + (dist / 2) * Sin(new_angle)
x2 = mid_x - (dist / 2) * Cos(new_angle) + 10
y2 = mid_y - (dist / 2) * Sin(new_angle)
' return new endpoint positions
Return Array(x1, y1, x2, y2)
End Func
Function DrawRotatedBox(x As Integer, y As Integer, size As Integer, color As Long, angle As Double)
Dim half_size As Integer
half_size = size / 2
' calculate coordinates of corners of unrotated box
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
x1 = x - half_size
y1 = y - half_size
x2 = x + half_size
y2 = y + half_size
' rotate coordinates around center point
Dim cos_angle As Double, sin_angle As Double
cos_angle = Cos(angle * 3.14159265 / 180)
sin_angle = Sin(angle * 3.14159265 / 180)
Dim new_x1 As Integer, new_y1 As Integer, new_x2 As Integer, new_y2 As Integer
new_x1 = x + ((x1 - x) * cos_angle - (y1 - y) * sin_angle)
new_y1 = y + ((x1 - x) * sin_angle + (y1 - y) * cos_angle)
new_x2 = x + ((x2 - x) * cos_angle - (y2 - y) * sin_angle)
new_y2 = y + ((x2 - x) * sin_angle + (y2 - y) * cos_angle)
' draw rotated box
PBox new_x1, new_y1, new_x2, new_y2
End Function
|
|
|
|
Post by (X) on Feb 21, 2023 19:51:26 GMT 1
So, we're not out of a job yet!
|
|
|
|
Post by (X) on Feb 21, 2023 22:42:36 GMT 1
|
|
|
|
Post by rogercabo on Feb 22, 2023 0:41:57 GMT 1
But he talked from GFA-Basic 16 for WIN. (error on GPT) I tried to learn him GFA-Basic 32, but this takes several month to put in all 500 commands one by one. And there is not real way to tell him how the Form Editor works. And in the end hes not able to write logical structured code > 75 lines. I decided to get GPT plus for a month, because they wrote it is enhanced.. but who cares.. |
|
