
Post by (X) on Feb 20, 2023 3:09:00 GMT 1
I've been trying to signup but they demand a phone number. That's a NOGO 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. tempmail.org sells also phone numbers for 30 minutes for 1.50€ I think. tempsms.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. tempmail.org sells also phone numbers for 30 minutes for 1.50€ I think. tempsms.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 prepayed 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=oA6OXsxAVM&t=28s



Post by (X) on Feb 21, 2023 0:40:18 GMT 1
That's evolution 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 email 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 GFABasic 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 50100 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 GFABasic 16 for WIN. (error on GPT) I tried to learn him GFABasic 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..

