Recent posts

Pages 1 2 3 4 5 6 7 8 9 10
#21
OxygenBasic Examples / House: creating lines cubes et...
Last post by Frank Brübach - April 10, 2024, 05:33:50 PM
Update will come :)
#22
General Discussion / James Webb Telescope PROVED Us...
Last post by Charles Pegge - April 09, 2024, 10:28:21 AM
Michio Kaku: "Time Does NOT EXIST! James Webb Telescope PROVED Us Wrong!"

Space Voyager
31 mar 2024

#23
OxygenBasic Examples / Re: OpenGl Grid Inputs
Last post by Frank Brübach - April 07, 2024, 08:39:23 PM
Hello theo.. you have sent the Code of AI Claude AS you mentioned already and its in my eyes Not so good for using this example cause a Lot of Errors occured and you must adept twice. I supposed you must give detailed Infos about Code language to the AI to get a useful reply.

Myself I took and asked Chat gtp two month ago for help to translate a french Song to German and that was OK but Same Problem I must correct IT too. Mistral I didnt know. And I didnt want to use IT. I am learning more about programming by doing mistakes and I am Not a Professional programmer so I dont have Higher skills to adept IT all for my favourite Basic language or other Software package. For some Users it May be a benefit to ASK an AI for Help or learning a new Basic language or quite other daily Things  but I have much more a distant and critical view at These intelligent Machines ;)
#24
Contentious discussions about anything, the world, politics and health topics. / Re: My dream died, and now I'm...
Last post by Zlatko Vid - April 07, 2024, 08:37:23 PM
Hi Charles
I am not any kind of academic or i have such a educations
BUT i like Sabine and like to watch her youtube videos. :)
#25
General Discussion / A Tour of Earth's Ancient Sup...
Last post by Charles Pegge - April 07, 2024, 10:17:19 AM
History of the Earth
26 jun 2021


#26
OxygenBasic Examples / Re: OpenGl Grid Inputs
Last post by Theo Gottwald - April 07, 2024, 07:52:40 AM
Hallo Frank, which #AI?

Lastly people found that AMAZON's AI consists of 2500 poor Indians in a Call-Center Room answering silly questions as good as they an.

So don't talk generally about #AI tell us which one.
Did you Try #Mistral?

#27
OxygenBasic Examples / Re: OpenGl Grid Inputs
Last post by Frank Brübach - April 06, 2024, 09:16:39 PM
Hi Charles First of all thx for correction :)

I'm actually doing it in a similar way, only this time I'm building Code example from the back to the front and at the end the Input Control didnt Work .. Often I divide Code example in three four parts with my checking Control Set If Print 1 OK and so on...

I know that AI's are producing Error Messages and they are doing mistakes but otherside I See Always chances to improve Code examples..

But in this Case I am more disappointed of improvements the AI announced ;)

Regards nice Weekend , frank
#28
Contentious discussions about anything, the world, politics and health topics. / My dream died, and now I'm her...
Last post by Charles Pegge - April 06, 2024, 02:27:54 PM
Deep corruption in science academia. Institutions pursuing grants.

Sabine Hossenfelder
5 apr 2024


#29
OxygenBasic Examples / Re: OpenGl Grid Inputs
Last post by Charles Pegge - April 06, 2024, 12:39:42 PM
Hi Frank,
I've restored the core section. The best way is to introduce your changes step by step, testing each time:

Code Select
Uses consoleG
'
function isnumeric(string a) as int 'is_numeric2
   select asc(a)
   case 0x30 to 0x39 : return 1 '0 to 9
   case 45           : return 1 '-
   end select
end function


function irnd(int z1, z2) as int
================================
mov    eax,z2
sub    eax,z1
inc    eax
imul  edx,Seed,0x8088405
inc    edx
mov    Seed,edx 'store new seed
mul    edx 'multiply eax by edx
return edx+z1
end Function

redim string dat[3,3] static 'dat[5,5] static
redim int ytot[3,1] static '[5,1]
redim int xtot[3] static

procedure main()
================

sys a,i,p
static string ins
static string s
if opening
  'INTIAL EXAMPLE DATA
  int x,y
  for y=lbound(dat,1) to ubound(dat,1)
    for x=lbound(dat,2) to ubound(dat,2)
      dat[y,x]=str irnd(1,9) 'Changed range to 1-9 for better visibility
    next
  next
  '
endif
'
if closing
  del ytot
  del dat
  del xtot
  'mbox "closed"
  exit procedure
endif
cls .10,.10,.20
'
'GRID INPUTS
------------
scale 1.5
int x,y
pushstate
move 4,-0.25
scale 1.5
print "Calculations"
popstate
move 0,-2
'
for x=lbound(dat,2) to ubound(dat,2)
  PushState
  move x*4
  print "Col " chr(x+64)
  PopState
next
PushState
move x*4
print "Total"
PopState
'
for y=lbound(dat,1) to ubound(dat,1)
  PushState
  move 1, -y*2
  print "Row" str(y)
  PopState
next
PushState
move 1, -y*2
print "Total"
PopState
'
int v,v2
int gtot=1
for x=lbound(dat,2) to ubound(dat,2)
  ytot[x]=1
next
'
'------------------------------------------- //
int selectedX=-1, selectedY=-1
for y=lbound(dat,1) to ubound(dat,1)
  xtot[y]=1
  for x=lbound(dat,2) to ubound(dat,2)
    ' multiply go ------------
    v=val(dat[y,x])
    xtot[y]*=v
    ytot[x]*=v

============================
============================
      PushState
      move x*4,-y*2
      if pick
        'MARK PICKING AREA
        picklabel y*10+x
        move 0,0,-.01
        PutBoxArea 3,1
      else 'not pick
        if picked=y*10+x
          'DATA EDITING
          color 0.9,.9,0.9
          a=input dat[y,x]
          lastkey=0
          lastchar=0
        else 'not picked
          'DATA DISPLAY
          move 0,0,-.01
          color .2,.6,.3
          PutBoxArea 3,1
          move 0.2,0.2,.01
          color .8,.8,.6
          print dat[y,x]
        endif
      endif
      PopState
============================
============================

/*
    ' multiply go ------------
    PushState
    move x*4,-y*2
    if pick or (selectedX=x and selectedY=y)
      'MARK PICKING AREA
      picklabel y*10+x
      move 0,0,-.01
      PutBoxArea 3,1
      if lastkey=13 'Enter key
        selectedX=x
        selectedY=y
      endif

    else 'not pick
      if selectedX=x and selectedY=y
        'DATA EDITING
        color 0.9,.9,0.9

'------------------------------ input doesnt work here ---- //
        a=input dat[y,x]
        print "a: "+a ' first cell top left
        if not isnumeric(a)
          color 1,0,0 'Red color for invalid input
          print "Invalid input"
        else
          dat[y,x]=a
        endif
        lastkey=0
        lastchar=0
      else 'not selected
'------------------------------ input doesnt work here ---- //
    ' color added
    'DATA DISPLAY
        move 0,0,-.01
        'Color coding based on value
        if v<3
          color .2,.6,.3 'Green for low values
        elseif v<7
          color .6,.6,.2 'Yellow for medium values
        else
          color .6,.2,.2 'Red for high values
        endif
'------------------------------------- //
        PutBoxArea 3,1
        move 0.2,0.2,.01
        color .8,.8,.6
        print dat[y,x]
        'print "#.##", val(dat[y,x])
      endif
    endif
    PopState
*/
  next 'x
  '----------------------- // multiply
  gtot*=xtot[y]
  '----------------------- // multiply
  PushState
  move x*4,-y*2
  color .9,.9,.6
  print "xtot " + xtot[y]
  'print "#.##" + xtot[y]
  PopState
next 'y
'--------------------------------------- //
'COL TOTALS
for x=lbound(dat,2) to ubound(dat,2)
  PushState
  move x*4,-y*2
  color .9,.9,.6
  print ytot[x]
  PopState
next 'col totals

PushState
move x*4,-y*2
color .9,.9,.6
print gtot
PopState

scale 1/1.5
'printl str(picked)
'
end procedure
EndScript
#30
General Discussion / What Were Humans doing 10,000 ...
Last post by Charles Pegge - April 06, 2024, 12:32:41 PM
What Were Humans Doing 10,000 Years Ago?

NORTH 02
30 mar 2024



What Were Humans doing 100,000 Years Ago?

NORTH 02
17 june 2023



What were Humans doing 1,000,000 years ago?

NORTH 02
22 oct 2022

Pages 1 2 3 4 5 6 7 8 9 10