+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: I Finally did it. A.I.!!! (/showthread.php?tid=2590)
I Finally did it. A.I.!!! - Pete - 04-12-2024
My first simple A.I. program. What's so scary is how little code it actually takes for a computer to begin thinking for itself!
Code: (Select All)
Cls
_Delay 2
Locate 5
For i = 1 To 12
Read x
On x \ 10 GOSUB 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120
Next
Sleep 20
End
10 Print " * * "
a = Int(Rnd * 120)
Return
20 Print " * * * * * * * " + Chr$(72) + Chr$(69) + Chr$(76) + Chr$(80) + Chr$(33) + Chr$(32) + Chr$(73) + Chr$(39) + Chr$(77) + Chr$(32) + Chr$(83) + Chr$(84) + Chr$(85) + Chr$(67) + Chr$(75) + Chr$(32) + Chr$(73) + Chr$(78) + Chr$(32) + Chr$(83) + Chr$(67) + Chr$(82) + Chr$(69) + Chr$(69) + Chr$(78) + Chr$(32) + Chr$(48) + Chr$(32) + Chr$(65) + Chr$(78) + Chr$(68) + Chr$(32) + Chr$(73) + Chr$(32) + Chr$(67) + Chr$(65) + Chr$(78) + Chr$(39) + Chr$(84) + Chr$(32) + Chr$(71) + Chr$(69) + Chr$(84) + Chr$(32) + Chr$(79) + Chr$(85) + Chr$(84) + Chr$(33)
b = Int(Rnd * 120)
Return
30 Print " * ***** *"
c = Int(Rnd * 120)
Return
40 Print " * * "
d = Int(Rnd * 120)
Return
50 Print " * * "
e = Int(Rnd * 120)
Return
60 Print " * * 0 0 * * "
f = Int(Rnd * 120)
Return
70 Print " * * * "
g = Int(Rnd * 120)
Return
80 Print " * "
h = Int(Rnd * 120)
Return
90 Print " * "
j = Int(Rnd * 120)
Return
100 Print " * "
k = Int(Rnd * 120)
Return
110 Print " * ***** * "
l = Int(Rnd * 120)
Return
120 Print " * * (=) * * "
m = Int(Rnd * 120)
Return
Data 30,60,120,110,70,20,100,80,90,40,10,50
Pete
RE: I Finally did it. A.I.!!! - TerryRitchie - 04-12-2024
LOL, reminds me of those commercials ... "Help, I've fallen and I can't get up!"
RE: I Finally did it. A.I.!!! - Pete - 04-12-2024
RE: I Finally did it. A.I.!!! - Dimster - 04-12-2024
If you were to add animation Pete, would your character be able to find the softest spot in Screen 0 upon which to fall?
RE: I Finally did it. A.I.!!! - Pete - 04-12-2024
Funny true story. While watching the end of the premier of The Godfather II in Hollywood, when the camera panned back and the Godfather died in his wheel chair, well, and as he collapsed and his wheelchair fell over sideways... my friend said, in a loud imitated elderly voice, "Help! I've fallen and I can't get up!" The whole theater, filled with movie goers, laughed historically. So I consider that particular movie to be one of the best dramatic COMEDIES of its time period.
Pete
RE: I Finally did it. A.I.!!! - Kernelpanic - 04-12-2024
Really, that's what AI ultimately is; still. It's been great advances around since the beginning, but the old wisdom still applies: the only true intelligence person in AI is the programmer.
Band 1:
What computers can't do - the limit of artificial intelligence, Hubert L. Dreyfus, 1972/1979
Band 2:
Mind over Machine, Hubert L. Dreyfus und Stuart E. Dreyfus, 1986
That is AI:
