Math Helpers(homework help) - GameCreators Forum

Author

Message

Hippie Dude

20

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 10th Dec 2005 21:09 Edited at: 10th Dec 2005 21:10

Link

Here's my math program. Its a simple program, but still pretty cool.

goto start:
function start:
cls
ink RGB(255,128,0),RGB(0,0,255):set text size 50
set cursor 160,0:Print "Math Helpers"
Ink RGB(255,255,255),RGB(0,0,0):set text size 25
set cursor 0,60:Print "Functions:"
set cursor 0,80:Print "#1 Find the Area and Perimeter of a rectangle"
set cursor 0,92:Print "#2 Find circumference and area of a circle"
set cursor 0,104:Print "#3 Do a function between 2 numbers"
set cursor 0,116:Print "#4 Solve a basic equation"
set cursor 0,128:Print "#5 Add/Sub 2 polynomials"
set cursor 0,140:Print "#6 Find the Cosine, sine, or Tangent of a number"
set cursor 0,152:Print "#7 Find the exponential value of a number"
set cursor 0,460:Input "Function#= ",F
if F=1
 goto rec:
 endif
if F=2
  goto cir:
  endif
if F=3
  goto tnum:
  endif
if F=4
  goto be:
  endif
if F=5
  goto asp:
  endif
if F=6
  goto cst:
  endif
if F=7
  goto expo:
  endif
endfunction

function rec:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Finding the area and perimeter of a rectangle:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,24:Input "Height= ",H#
Set cursor 0,36:Input "Width= ",W#
Per#=2*H#+2*W#
Area#=H#*W#
Set cursor 0,60:Print "The perimeter is ",Per#
set cursor 0,72:Print "The area is ",Area#
set cursor 0,96:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function cir:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Finding the circumference and area of a circle:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:input "Do you know the diameter or the radius(D for diameter and R for Radius) ",dr$
cls
if dr$="D" or dr$="d"
  set cursor 0,0:Input "The diameter is ",d#
  r#=d#/2
  endif
if dr$="R" or dr$="r"
  set cursor 0,0:Input "The radius is ",r#
  endif
Circ#=R#*2*3.14
carea#=3.14*R#*R#
set cursor 0,24:Print "The circumference is approx. ",Circ#
set cursor 0,36:Print "The area is approx. ",carea#
set cursor 0,60:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function tnum:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a function between 2 numbers:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,24:input "First#= ",f#
set cursor 0,36:input "Second#= ",s#
set cursor 0,48:input "Function= ",func$
If func$="+"
  answer#=f#+s#
  endif
if func$="-"
  answer#=f#-s#
  endif
if func$="*"
  answer#=f#*s#
  endif
if func$="/"
  answer#=f#/s#
  endif
set cursor 0,72:Print "The answer is ",answer#
set cursor 0,96:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function be:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a basic equation:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:Input "First number: ",F#
set cursor 0,36:Input "Function: ",func$
set cursor 0,48:Input "Variable: ",var$
Set cursor 0,60:Input "Number it equals: ",equal#
Set cursor 0,84:Print F#,func$,var$,"=",equal#
set cursor 0,96:Input "Is this correct?(Y for yes and N for No) ",correct$
if correct$="N" or correct$="n"
  cls
  goto be:
  endif
If correct$="Y" or correct$="y"
  goto cont:
  endif

cont:
If func$="+"
  var#=equal#-F#
  endif
If func$="-"
  var#=(equal-F#)*-1
  endif
if func$="*"
  var#=equal#/F#
  endif
if func$="/"
  var#=equal#*F#
  endif
Set cursor 0,120:Print var$,"=",var#
Set cursor 0,132:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function asp:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Add/Sub 2 Polynomials:"
Ink RGB(255,255,255),RGB(0,0,0)
set text to italic
Set cursor 0,24:Print "First Polynomial:"
set text to normal
set cursor 0,36:Input "Quadratic Term: ",quad1#
set cursor 0,48:Input "Linear Term: ",lin1#
set cursor 0,60:Input "Constant Term: ",con1#
set text to italic
set cursor 0,84:Print "Second Polynomial:"
set text to normal
set cursor 0,96:Input "Quadratic Term: ",quad2#
set cursor 0,108:Input "Linear Term: ",lin2#
set cursor 0,120:Input "Constant Term: ",con2#
set cursor 0,132:Input "What function do you want between them? ",func$
if func$="+"
  set cursor 0,156:Print quad1#,"x2 + ",lin1#,"x + ",con1#," + ",quad2#,"x2 +",lin2#,"x + ",con2#
  endif
if func$="-"
  set cursor 0,156:Print quad1#,"x2 + ",lin1#,"x + ",con1#," - (",quad2#,"x2 + ",lin2#,"x + ",con2#,")"
  endif
set cursor 0,168:Input "Is this your equation?(Y for yes and N for No) ",correct$
If correct$="N" or correct$="n"
  goto asp:
  endif
If correct$="Y" or correct$="y"
  goto cont2:
  endif

cont2:
if func$="+"
  quad3#=quad1#+quad2#
  lin3#=lin1#+lin2#
  con3#=con1#+con2#
  endif
if func$="-"
  quad3#=quad1#-quad2#
  lin3#=lin1#-lin2#
  con3#=con1#-con2#
  endif
Set cursor 0,192:Print "Your answer is ",quad3#,"x2 + ",lin3#,"x + ",con3#
Set cursor 0,204:Print "(Press any key to go back)"
wait key
goto start:
endfunction

Function cst:F
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Find the Cosine, Sine, or Tangent of a number:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:input "What do you want to compute?(C for cosine, S for sine, T for tangent) ",cst$
If cst$="C" or cst$="c"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Cosine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,24:Input "Your number: ",num#
  cos#=Cos(num#)
  set cursor 0,48:Print "The Cosine is ",cos#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="S" or cst$="s"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Sine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,24:Input "Your number: ",num#
  Sin#=Sin(num#)
  set cursor 0,48:Print "The Sine is ",Sin#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="T" or cst$="t"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Tangent of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,24:Input "Your number: ",num#
  tan#=tan(num#)
  set cursor 0,48:Print "The Tangent is ",Tan#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
goto cst:
endfunction

+ Code Snippet

goto start:
function start:
cls
ink RGB(255,128,0),RGB(0,0,255):set text size 50
set cursor 160,0:Print "Math Helpers"
Ink RGB(255,255,255),RGB(0,0,0):set text size 25
set cursor 0,60:Print "Functions:"
set cursor 0,80:Print "#1 Find the Area and Perimeter of a rectangle"
set cursor 0,92:Print "#2 Find circumference and area of a circle"
set cursor 0,104:Print "#3 Do a function between 2 numbers"
set cursor 0,116:Print "#4 Solve a basic equation"
set cursor 0,128:Print "#5 Add/Sub 2 polynomials"
set cursor 0,140:Print "#6 Find the Cosine, sine, or Tangent of a number"
set cursor 0,152:Print "#7 Find the exponential value of a number"
set cursor 0,460:Input "Function#= ",F
if F=1
 goto rec:
 endif
if F=2
  goto cir:
  endif
if F=3
  goto tnum:
  endif
if F=4
  goto be:
  endif
if F=5
  goto asp:
  endif
if F=6
  goto cst:
  endif
if F=7
  goto expo:
  endif
endfunction

function rec:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Finding the area and perimeter of a rectangle:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,24:Input "Height= ",H#
Set cursor 0,36:Input "Width= ",W#
Per#=2*H#+2*W#
Area#=H#*W#
Set cursor 0,60:Print "The perimeter is ",Per#
set cursor 0,72:Print "The area is ",Area#
set cursor 0,96:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function cir:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Finding the circumference and area of a circle:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:input "Do you know the diameter or the radius(D for diameter and R for Radius) ",dr$
cls
if dr$="D" or dr$="d"
  set cursor 0,0:Input "The diameter is ",d#
  r#=d#/2
  endif
if dr$="R" or dr$="r"
  set cursor 0,0:Input "The radius is ",r#
  endif
Circ#=R#*2*3.14
carea#=3.14*R#*R#
set cursor 0,24:Print "The circumference is approx. ",Circ#
set cursor 0,36:Print "The area is approx. ",carea#
set cursor 0,60:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function tnum:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a function between 2 numbers:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,24:input "First#= ",f#
set cursor 0,36:input "Second#= ",s#
set cursor 0,48:input "Function= ",func$
If func$="+"
  answer#=f#+s#
  endif
if func$="-"
  answer#=f#-s#
  endif
if func$="*"
  answer#=f#*s#
  endif
if func$="/"
  answer#=f#/s#
  endif
set cursor 0,72:Print "The answer is ",answer#
set cursor 0,96:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function be:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a basic equation:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:Input "First number: ",F#
set cursor 0,36:Input "Function: ",func$
set cursor 0,48:Input "Variable: ",var$
Set cursor 0,60:Input "Number it equals: ",equal#
Set cursor 0,84:Print F#,func$,var$,"=",equal#
set cursor 0,96:Input "Is this correct?(Y for yes and N for No) ",correct$
if correct$="N" or correct$="n"
  cls
  goto be:
  endif
If correct$="Y" or correct$="y"
  goto cont:
  endif

cont:
If func$="+"
  var#=equal#-F#
  endif
If func$="-"
  var#=(equal-F#)*-1
  endif
if func$="*"
  var#=equal#/F#
  endif
if func$="/"
  var#=equal#*F#
  endif
Set cursor 0,120:Print var$,"=",var#
Set cursor 0,132:Print "(Press any key to go back)"
wait key
goto start:
endfunction

function asp:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Add/Sub 2 Polynomials:"
Ink RGB(255,255,255),RGB(0,0,0)
set text to italic
Set cursor 0,24:Print "First Polynomial:"
set text to normal
set cursor 0,36:Input "Quadratic Term: ",quad1#
set cursor 0,48:Input "Linear Term: ",lin1#
set cursor 0,60:Input "Constant Term: ",con1#
set text to italic
set cursor 0,84:Print "Second Polynomial:"
set text to normal
set cursor 0,96:Input "Quadratic Term: ",quad2#
set cursor 0,108:Input "Linear Term: ",lin2#
set cursor 0,120:Input "Constant Term: ",con2#
set cursor 0,132:Input "What function do you want between them? ",func$
if func$="+"
  set cursor 0,156:Print quad1#,"x2 + ",lin1#,"x + ",con1#," + ",quad2#,"x2 +",lin2#,"x + ",con2#
  endif
if func$="-"
  set cursor 0,156:Print quad1#,"x2 + ",lin1#,"x + ",con1#," - (",quad2#,"x2 + ",lin2#,"x + ",con2#,")"
  endif
set cursor 0,168:Input "Is this your equation?(Y for yes and N for No) ",correct$
If correct$="N" or correct$="n"
  goto asp:
  endif
If correct$="Y" or correct$="y"
  goto cont2:
  endif

cont2:
if func$="+"
  quad3#=quad1#+quad2#
  lin3#=lin1#+lin2#
  con3#=con1#+con2#
  endif
if func$="-"
  quad3#=quad1#-quad2#
  lin3#=lin1#-lin2#
  con3#=con1#-con2#
  endif
Set cursor 0,192:Print "Your answer is ",quad3#,"x2 + ",lin3#,"x + ",con3#
Set cursor 0,204:Print "(Press any key to go back)"
wait key
goto start:
endfunction

Function cst:F
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Find the Cosine, Sine, or Tangent of a number:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:input "What do you want to compute?(C for cosine, S for sine, T for tangent) ",cst$
If cst$="C" or cst$="c"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Cosine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,24:Input "Your number: ",num#
  cos#=Cos(num#)
  set cursor 0,48:Print "The Cosine is ",cos#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="S" or cst$="s"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Sine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,24:Input "Your number: ",num#
  Sin#=Sin(num#)
  set cursor 0,48:Print "The Sine is ",Sin#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="T" or cst$="t"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Tangent of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,24:Input "Your number: ",num#
  tan#=tan(num#)
  set cursor 0,48:Print "The Tangent is ",Tan#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
goto cst:
endfunction

Let me know what you think

Mysteries Surround You

Back to top

Profile PM

Lukas W

21

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 12th Dec 2005 09:39

Link

first of all you cant go to a label that does not exist.
second, a function is not a label.
and your coding sucks.

Zombie Hunter DBPro Open Source Project:
editor: 14% | survive mode: 30% | multiplayer: 0% | story mode: 0% | DEMO: 18%

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 12th Dec 2005 18:20 Edited at: 12th Dec 2005 18:20

Link

OK, I don't think you should be so rough.
But I can't say I would use it for my math homework either.

`author: SvenB

sync on

a = calc(10,10,rgb(200,200,200),1)
cls
ink rgb(255,255,255),0
print a
sync

suspend for key

end

`the function
function calc(posx, posy, color, move)

`preparations
   get image 65535,0,0,screen width(),screen height()
   defaultfont$ = text font$()
   defaultsize = text size()
   defaultstyle = text style()
   defaultback = text background type()

dim number$(2)
   cnumber = 1
   answer$ = ""
   display$ = ""
   operator = 0

set text font "Fixedsys"
   set text size 16
   set text to normal
   set text transparent

`start loop
   do

`background save
      paste image 65535,0,0

`main window
      endx = posx + 120
      endy = posy + 120
      if endx > screen width() - 1 then endx = screen width() - 1
      if endy > screen height() - 1 then endy = screen height() - 1
      ink rgb(255,255,255),0
      box posx, posy, endx - 1, endy - 1
      ink rgb(10,10,10),0
      box posx + 1, posy + 1, endx, endy
      ink color,0
      box posx + 1, posy + 1, endx - 1, endy - 1

`display
      endx = posx + 115
      endy = posy + 25
      if endx > screen width() - 1 then endx = screen width() - 1
      if endy > screen height() - 1 then endy = screen height() - 1
      ink rgb(10,10,10),0
      box posx + 5, posy + 5, endx - 1, endy - 1
      ink rgb(255,255,255),0
      box posx + 6, posy + 6, endx, endy
      ink rgb(255,255,255),0
      box posx + 6, posy + 6, endx - 1, endy - 1
      ink 0,0
      display$ = number$(cnumber)
      if display$ = "" then display$ = "0"
      text posx + 6, posy + 6, display$

`calc_buttons
      for x = 1 to 3
         for y = 1 to 3
            nr = ((x-1)*3) + y
            if calc_button((posx + 5) + ((y-1)*21), (posy + 30) + ((x-1)*21), str$(nr), color) > 0 and hold = 0 and len(number$(cnumber)) < 10
               if operator = 5 then operator = 0 : number$(1) = ""
               hold = 1
               number$(cnumber) = number$(cnumber) + str$(nr)
            endif
         next y
      next x
      if calc_button(posx + 5, posy + 93, "0", color) > 0 and hold = 0 and len(number$(cnumber)) < 10
         if operator = 5 then operator = 0 : number$(1) = ""
         hold = 1
         number$(cnumber) = number$(cnumber) + "0"
      endif
      if calc_button(posx + 26, posy + 93,".", color) > 0 and hold = 0 then hold = 1 : number$(cnumber) = number$(cnumber) + "."
      `operators
      if calc_button(posx + 68, posy + 30, "CA", color) > 0 and hold = 0
         hold = 1
         number$(1) = ""
         number$(2) = ""
         operator = 0
      endif
      if calc_button(posx + 68, posy + 51, "+", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            inc cnumber
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : number$(2) = "" : endcase
               case 2 : number$(1) = str$(first# - sec#) : number$(2) = "" : endcase
               case 3 : number$(1) = str$(first# * sec#) : number$(2) = "" : endcase
               case 4 : number$(1) = str$(first# / sec#) : number$(2) = "" : endcase
            endselect
            if len(number$(1)) > 10 then number$(1) = "ERROR"
         endif
         operator = 1
      endif
      if calc_button(posx + 68, posy + 72, "-", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            inc cnumber
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : endcase
               case 2 : number$(1) = str$(first# - sec#) : endcase
               case 3 : number$(1) = str$(first# * sec#) : endcase
               case 4 : number$(1) = str$(first# / sec#) : endcase
            endselect
            if len(number$(1)) > 15 then number$(1) = "ERROR"
            number$(2) = ""
         endif
         operator = 2
      endif
      if calc_button(posx + 89, posy + 51, "*", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            inc cnumber
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : endcase
               case 2 : number$(1) = str$(first# - sec#) : endcase
               case 3 : number$(1) = str$(first# * sec#) : endcase
               case 4 : number$(1) = str$(first# / sec#) : endcase
            endselect
            if len(number$(1)) > 15 then number$(1) = "ERROR"
            number$(2) = ""
         endif
         operator = 3
      endif
      if calc_button(posx + 89, posy + 72, "/", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            cnumber = 2
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : endcase
               case 2 : number$(1) = str$(first# - sec#) : endcase
               case 3 : number$(1) = str$(first# * sec#) : endcase
               case 4 : number$(1) = str$(first# / sec#) : endcase
            endselect
            if len(number$(1)) > 15 then number$(1) = "ERROR"
            number$(2) = ""
         endif
         operator = 4
      endif
      if calc_button(posx + 47, posy + 93, "-#", color) > 0 and hold = 0 and len(number$(cnumber)) = 0
         hold = 1
         number$(cnumber) = number$(cnumber) + "-"
      endif
      if calc_button(posx + 89, posy + 93, "=", color) > 0 and hold = 0 and cnumber = 2
         cnumber = 1
         first# = val(number$(1))
         sec# = val(number$(2))
         select operator
            case 1 : number$(1) = str$(first# + sec#) : endcase
            case 2 : number$(1) = str$(first# - sec#) : endcase
            case 3 : number$(1) = str$(first# * sec#) : endcase
            case 4 : number$(1) = str$(first# / sec#) : endcase
         endselect
         if len(number$(1)) > 15 then number$(1) = "ERROR"
         operator = 5
      endif

`exit calc_button
      if calc_button(posx + 89, posy + 30, "EX", color) > 0 and hold = 0 then hold = 1 : exit

`unlock mouse
      if mouseclick() = 0 then hold = 0

`if moving is allowed
      if move = 1
         if mousex() > posx and mousex() < posx + 120
            if mousey() > posy and mousey() < posy + 5
               if mouseclick() = 1 and moving = 0
                  moving = 1
                  difx = mousex() - posx
                  dify = mousey() - posy
               endif
            endif
         endif
         if moving = 1
            posx = mousex() - difx
            posy = mousey() - dify
            if mouseclick() = 0 then moving = 0
         endif
      endif
      `boundries
      if posx < 0 then posx = 0
      if posy < 0 then posy = 0
      if posx > screen width() - 1 then posx = screen width() - 1
      if posy > screen height() - 1 then posy = screen height() - 1

sync
   loop

`reset all
   cls
   set text font defaultfont$
   set text size defaultsize
   select defaultstyle
      case 1 : set text to italic : endcase
      case 2 : set text to bold : endcase
      case 3 : set text to bolditalic : endcase
   endselect
   if defaultback = 1
      set text transparent
   else
      set text opaque
   endif
ret = val(number$(1))
endfunction ret

function calc_button(x,y,content$,color)
   pressed = 0
   `layout
   if mousex() < x + 20 and mousex() > x
      if mousey() < y + 20 and mousey() > y
         if mouseclick() = 1 then pressed = 1
      endif
   endif
   endx = x + 20
   endy = y + 20
   if endx > screen width() - 1 then endx = screen width() - 1
   if endy > screen height() - 1 then endy = screen height() - 1
   if pressed = 1
      ink rgb(20,20,20),0
      box x, y, endx - 1, endy - 1
      ink rgb(255,255,255),0
      box x + 1, y + 1, endx, endy
   else
      ink rgb(20,20,20),0
      box x + 1, y + 1, endx, endy
      ink rgb(255,255,255),0
      box x, y, endx - 1, endy - 1
   endif
   ink color,0
   box x + 1, y + 1, endx - 1, endy - 1
   ink 0,0
   center text x + 10, y + 10 - (text size()/2), content$
endfunction pressed

+ Code Snippet

`author: SvenB

sync on

a = calc(10,10,rgb(200,200,200),1)
cls
ink rgb(255,255,255),0
print a
sync

suspend for key

end

`the function
function calc(posx, posy, color, move)

   `preparations
   get image 65535,0,0,screen width(),screen height()
   defaultfont$ = text font$()
   defaultsize = text size()
   defaultstyle = text style()
   defaultback = text background type()

   dim number$(2)
   cnumber = 1
   answer$ = ""
   display$ = ""
   operator = 0

   set text font "Fixedsys"
   set text size 16
   set text to normal
   set text transparent

   `start loop
   do

      `background save
      paste image 65535,0,0

      `main window
      endx = posx + 120
      endy = posy + 120
      if endx > screen width() - 1 then endx = screen width() - 1
      if endy > screen height() - 1 then endy = screen height() - 1
      ink rgb(255,255,255),0
      box posx, posy, endx - 1, endy - 1
      ink rgb(10,10,10),0
      box posx + 1, posy + 1, endx, endy
      ink color,0
      box posx + 1, posy + 1, endx - 1, endy - 1

      `display
      endx = posx + 115
      endy = posy + 25
      if endx > screen width() - 1 then endx = screen width() - 1
      if endy > screen height() - 1 then endy = screen height() - 1
      ink rgb(10,10,10),0
      box posx + 5, posy + 5, endx - 1, endy - 1
      ink rgb(255,255,255),0
      box posx + 6, posy + 6, endx, endy
      ink rgb(255,255,255),0
      box posx + 6, posy + 6, endx - 1, endy - 1
      ink 0,0
      display$ = number$(cnumber)
      if display$ = "" then display$ = "0"
      text posx + 6, posy + 6, display$

      `calc_buttons
      for x = 1 to 3
         for y = 1 to 3
            nr = ((x-1)*3) + y
            if calc_button((posx + 5) + ((y-1)*21), (posy + 30) + ((x-1)*21), str$(nr), color) > 0 and hold = 0 and len(number$(cnumber)) < 10
               if operator = 5 then operator = 0 : number$(1) = ""
               hold = 1
               number$(cnumber) = number$(cnumber) + str$(nr)
            endif
         next y
      next x
      if calc_button(posx + 5, posy + 93, "0", color) > 0 and hold = 0 and len(number$(cnumber)) < 10
         if operator = 5 then operator = 0 : number$(1) = ""
         hold = 1
         number$(cnumber) = number$(cnumber) + "0"
      endif
      if calc_button(posx + 26, posy + 93,".", color) > 0 and hold = 0 then hold = 1 : number$(cnumber) = number$(cnumber) + "."
      `operators
      if calc_button(posx + 68, posy + 30, "CA", color) > 0 and hold = 0
         hold = 1
         number$(1) = ""
         number$(2) = ""
         operator = 0
      endif
      if calc_button(posx + 68, posy + 51, "+", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            inc cnumber
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : number$(2) = "" : endcase
               case 2 : number$(1) = str$(first# - sec#) : number$(2) = "" : endcase
               case 3 : number$(1) = str$(first# * sec#) : number$(2) = "" : endcase
               case 4 : number$(1) = str$(first# / sec#) : number$(2) = "" : endcase
            endselect
            if len(number$(1)) > 10 then number$(1) = "ERROR"
         endif
         operator = 1
      endif
      if calc_button(posx + 68, posy + 72, "-", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            inc cnumber
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : endcase
               case 2 : number$(1) = str$(first# - sec#) : endcase
               case 3 : number$(1) = str$(first# * sec#) : endcase
               case 4 : number$(1) = str$(first# / sec#) : endcase
            endselect
            if len(number$(1)) > 15 then number$(1) = "ERROR"
            number$(2) = ""
         endif
         operator = 2
      endif
      if calc_button(posx + 89, posy + 51, "*", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            inc cnumber
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : endcase
               case 2 : number$(1) = str$(first# - sec#) : endcase
               case 3 : number$(1) = str$(first# * sec#) : endcase
               case 4 : number$(1) = str$(first# / sec#) : endcase
            endselect
            if len(number$(1)) > 15 then number$(1) = "ERROR"
            number$(2) = ""
         endif
         operator = 3
      endif
      if calc_button(posx + 89, posy + 72, "/", color) > 0 and hold = 0
         hold = 1
         if cnumber = 1
            cnumber = 2
            number$(2) = ""
         else
            first# = val(number$(1))
            sec# = val(number$(2))
            select operator
               case 1 : number$(1) = str$(first# + sec#) : endcase
               case 2 : number$(1) = str$(first# - sec#) : endcase
               case 3 : number$(1) = str$(first# * sec#) : endcase
               case 4 : number$(1) = str$(first# / sec#) : endcase
            endselect
            if len(number$(1)) > 15 then number$(1) = "ERROR"
            number$(2) = ""
         endif
         operator = 4
      endif
      if calc_button(posx + 47, posy + 93, "-#", color) > 0 and hold = 0 and len(number$(cnumber)) = 0
         hold = 1
         number$(cnumber) = number$(cnumber) + "-"
      endif
      if calc_button(posx + 89, posy + 93, "=", color) > 0 and hold = 0 and cnumber = 2
         cnumber = 1
         first# = val(number$(1))
         sec# = val(number$(2))
         select operator
            case 1 : number$(1) = str$(first# + sec#) : endcase
            case 2 : number$(1) = str$(first# - sec#) : endcase
            case 3 : number$(1) = str$(first# * sec#) : endcase
            case 4 : number$(1) = str$(first# / sec#) : endcase
         endselect
         if len(number$(1)) > 15 then number$(1) = "ERROR"
         operator = 5
      endif

      `exit calc_button
      if calc_button(posx + 89, posy + 30, "EX", color) > 0 and hold = 0 then hold = 1 : exit

      `unlock mouse
      if mouseclick() = 0 then hold = 0

      `if moving is allowed
      if move = 1
         if mousex() > posx and mousex() < posx + 120
            if mousey() > posy and mousey() < posy + 5
               if mouseclick() = 1 and moving = 0
                  moving = 1
                  difx = mousex() - posx
                  dify = mousey() - posy
               endif
            endif
         endif
         if moving = 1
            posx = mousex() - difx
            posy = mousey() - dify
            if mouseclick() = 0 then moving = 0
         endif
      endif
      `boundries
      if posx < 0 then posx = 0
      if posy < 0 then posy = 0
      if posx > screen width() - 1 then posx = screen width() - 1
      if posy > screen height() - 1 then posy = screen height() - 1

      sync
   loop

   `reset all
   cls
   set text font defaultfont$
   set text size defaultsize
   select defaultstyle
      case 1 : set text to italic : endcase
      case 2 : set text to bold : endcase
      case 3 : set text to bolditalic : endcase
   endselect
   if defaultback = 1
      set text transparent
   else
      set text opaque
   endif
ret = val(number$(1))
endfunction ret

function calc_button(x,y,content$,color)
   pressed = 0
   `layout
   if mousex() < x + 20 and mousex() > x
      if mousey() < y + 20 and mousey() > y
         if mouseclick() = 1 then pressed = 1
      endif
   endif
   endx = x + 20
   endy = y + 20
   if endx > screen width() - 1 then endx = screen width() - 1
   if endy > screen height() - 1 then endy = screen height() - 1
   if pressed = 1
      ink rgb(20,20,20),0
      box x, y, endx - 1, endy - 1
      ink rgb(255,255,255),0
      box x + 1, y + 1, endx, endy
   else
      ink rgb(20,20,20),0
      box x + 1, y + 1, endx, endy
      ink rgb(255,255,255),0
      box x, y, endx - 1, endy - 1
   endif
   ink color,0
   box x + 1, y + 1, endx - 1, endy - 1
   ink 0,0
   center text x + 10, y + 10 - (text size()/2), content$
endfunction pressed

(was made in my early coding days, so it might be messy)

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 12th Dec 2005 20:18

Link

Not bad Sven B.
Needs some work Hippie Dude but if you are new then good attempt.

[url][email protected][/url]
http://www.elbsoftware.dbspot.com

Back to top

Profile PM Email

Halo Man

19

Years of Service

User Offline

Joined: 5th Nov 2005

Location:

Posted: 18th Feb 2006 21:50 Edited at: 18th Feb 2006 21:51

Link

Hippie Dude,

Sorry for replying on an old post, but i edited your program so that it works correctly.

start:
cls
ink RGB(255,128,0),RGB(0,0,255):set text size 20 :
set text size 30 : set cursor 160,0:Print "Math Helpers"
Ink RGB(255,255,255),RGB(0,0,0):set text size 15
set cursor 0,60:Print "Functions:"
set cursor 0,80:Print "#1 Find the Area and Perimeter of a rectangle"
set cursor 0,100:Print "#2 Find circumference and area of a circle"
set cursor 0,120:Print "#3 Do a function between 2 numbers"
set cursor 0,140:Print "#4 Solve a basic equation"
set cursor 0,160:Print "#5 Add/Sub 2 polynomials"
set cursor 0,180:Print "#6 Find the Cosine, sine, or Tangent of a number"
set cursor 0,200:Print "#7 Find the exponential value of a number(not working yet)"
set cursor 0,220:Input "Choice(insert the number you want to do): ",F
if F=1
 goto rec
endif
if F=2
  goto cir
endif
if F=3
  goto tnum
endif
if F=4
  goto be
endif
if F=5
  goto asp
endif
if F=6
  goto cst
endif
if F=7
  set cursor 0,240
  PRINT "This choice is currently not working."
  wait 1500
  goto start
endif

goto start

rec:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Finding the area and perimeter of a rectangle:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,20:Input "Height= ",H#
Set cursor 0,40:Input "Width= ",W#
Per#=2*H#+2*W#
Area#=H#*W#
Set cursor 0,60:Print "The perimeter is ",Per#
set cursor 0,80:Print "The area is ",Area#
set cursor 0,100:Print "(Press any key to go back)"
wait key
goto start:

cir:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Finding the circumference and area of a circle:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:input "Do you know the diameter or the radius(D for diameter and R for Radius) ",dr$
cls
if dr$="D" or dr$="d"
  set cursor 0,0:Input "The diameter is ",d#
  r#=d#/2
  endif
if dr$="R" or dr$="r"
  set cursor 0,0:Input "The radius is ",r#
  endif
Circ#=R#*2*3.14
carea#=3.14*R#*R#
set cursor 0,20:Print "The circumference is approx. ",Circ#
set cursor 0,40:Print "The area is approx. ",carea#
set cursor 0,60:Print "(Press any key to go back)"
wait key
goto start:

tnum:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a function between 2 numbers:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,20:input "First Number= ",f#
set cursor 0,40:input "Second Number= ",s#
set cursor 0,60:input "Function= ",func$
If func$="+"
  answer#=f#+s#
  endif
if func$="-"
  answer#=f#-s#
  endif
if func$="*"
  answer#=f#*s#
  endif
if func$="/"
  answer#=f#/s#
  endif
set cursor 0,80:Print "The answer is ",answer#
set cursor 0,100:Print "(Press any key to go back)"
wait key
goto start:

be:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a basic equation:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,20:Input "First number: ",F#
set cursor 0,40:Input "Function: ",func$
set cursor 0,60:Input "Variable(letter): ",var$
Set cursor 0,80:Input "Answer to equation: ",equal#
Set cursor 0,100:Print F#,func$,var$,"=",equal#
set cursor 0,120:Input "Is this correct problem?(Y for yes and N for No) ",correct$
if correct$="N" or correct$="n"
  cls
  goto be:
  endif
If correct$="Y" or correct$="y"
  goto cont:
  endif

cont:
If func$="+"
  var#=equal#-F#
  endif
If func$="-"
  var#=(equal-F#)*-1
  endif
if func$="*"
  var#=equal#/F#
  endif
if func$="/"
  var#=equal#*F#
  endif
Set cursor 0,140:Print var$,"=",var#
Set cursor 0,160:Print "(Press any key to go back)"
wait key
goto start:

asp:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Add/Sub 2 Polynomials:"
Ink RGB(255,255,255),RGB(0,0,0)
set text to italic
Set cursor 0,20:Print "First Polynomial:"
set text to normal
set cursor 0,40:Input "Quadratic Term: ",quad1#
set cursor 0,60:Input "Linear Term: ",lin1#
set cursor 0,80:Input "Constant Term: ",con1#
set text to italic
set cursor 0,100:Print "Second Polynomial:"
set text to normal
set cursor 0,120:Input "Quadratic Term: ",quad2#
set cursor 0,140:Input "Linear Term: ",lin2#
set cursor 0,160:Input "Constant Term: ",con2#
set cursor 0,180:Input "What function do you want between them? ",func$
if func$="+"
  set cursor 0,200:Print quad1#,"x2 + ",lin1#,"x + ",con1#," + ",quad2#,"x2 +",lin2#,"x + ",con2#
  endif
if func$="-"
  set cursor 0,220:Print quad1#,"x2 + ",lin1#,"x + ",con1#," - (",quad2#,"x2 + ",lin2#,"x + ",con2#,")"
  endif
set cursor 0,240:Input "Is this your equation?(Y for yes and N for No) ",correct$
If correct$="N" or correct$="n"
  goto asp:
  endif
If correct$="Y" or correct$="y"
  goto cont2:
  endif

cont2:
if func$="+"
  quad3#=quad1#+quad2#
  lin3#=lin1#+lin2#
  con3#=con1#+con2#
  endif
if func$="-"
  quad3#=quad1#-quad2#
  lin3#=lin1#-lin2#
  con3#=con1#-con2#
  endif
Set cursor 0,260:Print "Your answer is ",quad3#,"x2 + ",lin3#,"x + ",con3#
Set cursor 0,280:Print "(Press any key to go back)"
wait key
goto start:

cst:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Find the Cosine, Sine, or Tangent of a number:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,20:input "What do you want to compute?(C for cosine, S for sine, T for tangent) ",cst$
If cst$="C" or cst$="c"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Cosine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,20:Input "Your number: ",num#
  cos#=Cos(num#)
  set cursor 0,40:Print "The Cosine is ",cos#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="S" or cst$="s"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Sine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,20:Input "Your number: ",num#
  Sin#=Sin(num#)
  set cursor 0,40:Print "The Sine is ",Sin#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="T" or cst$="t"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Tangent of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,20:Input "Your number: ",num#
  tan#=tan(num#)
  set cursor 0,40:Print "The Tangent is ",Tan#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
goto cst:

+ Code Snippet

start:
cls
ink RGB(255,128,0),RGB(0,0,255):set text size 20 :
set text size 30 : set cursor 160,0:Print "Math Helpers"
Ink RGB(255,255,255),RGB(0,0,0):set text size 15
set cursor 0,60:Print "Functions:"
set cursor 0,80:Print "#1 Find the Area and Perimeter of a rectangle"
set cursor 0,100:Print "#2 Find circumference and area of a circle"
set cursor 0,120:Print "#3 Do a function between 2 numbers"
set cursor 0,140:Print "#4 Solve a basic equation"
set cursor 0,160:Print "#5 Add/Sub 2 polynomials"
set cursor 0,180:Print "#6 Find the Cosine, sine, or Tangent of a number"
set cursor 0,200:Print "#7 Find the exponential value of a number(not working yet)"
set cursor 0,220:Input "Choice(insert the number you want to do): ",F
if F=1
 goto rec
endif
if F=2
  goto cir
endif
if F=3
  goto tnum
endif
if F=4
  goto be
endif
if F=5
  goto asp
endif
if F=6
  goto cst
endif
if F=7
  set cursor 0,240
  PRINT "This choice is currently not working."
  wait 1500
  goto start
endif

goto start


rec:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Finding the area and perimeter of a rectangle:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,20:Input "Height= ",H#
Set cursor 0,40:Input "Width= ",W#
Per#=2*H#+2*W#
Area#=H#*W#
Set cursor 0,60:Print "The perimeter is ",Per#
set cursor 0,80:Print "The area is ",Area#
set cursor 0,100:Print "(Press any key to go back)"
wait key
goto start:


cir:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Finding the circumference and area of a circle:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,24:input "Do you know the diameter or the radius(D for diameter and R for Radius) ",dr$
cls
if dr$="D" or dr$="d"
  set cursor 0,0:Input "The diameter is ",d#
  r#=d#/2
  endif
if dr$="R" or dr$="r"
  set cursor 0,0:Input "The radius is ",r#
  endif
Circ#=R#*2*3.14
carea#=3.14*R#*R#
set cursor 0,20:Print "The circumference is approx. ",Circ#
set cursor 0,40:Print "The area is approx. ",carea#
set cursor 0,60:Print "(Press any key to go back)"
wait key
goto start:


tnum:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a function between 2 numbers:"
Ink RGB(255,255,255),RGB(0,0,0)
Set cursor 0,20:input "First Number= ",f#
set cursor 0,40:input "Second Number= ",s#
set cursor 0,60:input "Function= ",func$
If func$="+"
  answer#=f#+s#
  endif
if func$="-"
  answer#=f#-s#
  endif
if func$="*"
  answer#=f#*s#
  endif
if func$="/"
  answer#=f#/s#
  endif
set cursor 0,80:Print "The answer is ",answer#
set cursor 0,100:Print "(Press any key to go back)"
wait key
goto start:


be:
cls
ink RGB(255,128,0),RGB(0,0,255)
set cursor 0,0:Print "Do a basic equation:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,20:Input "First number: ",F#
set cursor 0,40:Input "Function: ",func$
set cursor 0,60:Input "Variable(letter): ",var$
Set cursor 0,80:Input "Answer to equation: ",equal#
Set cursor 0,100:Print F#,func$,var$,"=",equal#
set cursor 0,120:Input "Is this correct problem?(Y for yes and N for No) ",correct$
if correct$="N" or correct$="n"
  cls
  goto be:
  endif
If correct$="Y" or correct$="y"
  goto cont:
  endif

cont:
If func$="+"
  var#=equal#-F#
  endif
If func$="-"
  var#=(equal-F#)*-1
  endif
if func$="*"
  var#=equal#/F#
  endif
if func$="/"
  var#=equal#*F#
  endif
Set cursor 0,140:Print var$,"=",var#
Set cursor 0,160:Print "(Press any key to go back)"
wait key
goto start:


asp:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Add/Sub 2 Polynomials:"
Ink RGB(255,255,255),RGB(0,0,0)
set text to italic
Set cursor 0,20:Print "First Polynomial:"
set text to normal
set cursor 0,40:Input "Quadratic Term: ",quad1#
set cursor 0,60:Input "Linear Term: ",lin1#
set cursor 0,80:Input "Constant Term: ",con1#
set text to italic
set cursor 0,100:Print "Second Polynomial:"
set text to normal
set cursor 0,120:Input "Quadratic Term: ",quad2#
set cursor 0,140:Input "Linear Term: ",lin2#
set cursor 0,160:Input "Constant Term: ",con2#
set cursor 0,180:Input "What function do you want between them? ",func$
if func$="+"
  set cursor 0,200:Print quad1#,"x2 + ",lin1#,"x + ",con1#," + ",quad2#,"x2 +",lin2#,"x + ",con2#
  endif
if func$="-"
  set cursor 0,220:Print quad1#,"x2 + ",lin1#,"x + ",con1#," - (",quad2#,"x2 + ",lin2#,"x + ",con2#,")"
  endif
set cursor 0,240:Input "Is this your equation?(Y for yes and N for No) ",correct$
If correct$="N" or correct$="n"
  goto asp:
  endif
If correct$="Y" or correct$="y"
  goto cont2:
  endif

cont2:
if func$="+"
  quad3#=quad1#+quad2#
  lin3#=lin1#+lin2#
  con3#=con1#+con2#
  endif
if func$="-"
  quad3#=quad1#-quad2#
  lin3#=lin1#-lin2#
  con3#=con1#-con2#
  endif
Set cursor 0,260:Print "Your answer is ",quad3#,"x2 + ",lin3#,"x + ",con3#
Set cursor 0,280:Print "(Press any key to go back)"
wait key
goto start:


cst:
cls
ink RGB(255,128,0),RGB(0,0,255)
Set cursor 0,0:Print "Find the Cosine, Sine, or Tangent of a number:"
Ink RGB(255,255,255),RGB(0,0,0)
set cursor 0,20:input "What do you want to compute?(C for cosine, S for sine, T for tangent) ",cst$
If cst$="C" or cst$="c"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Cosine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,20:Input "Your number: ",num#
  cos#=Cos(num#)
  set cursor 0,40:Print "The Cosine is ",cos#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="S" or cst$="s"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Sine of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,20:Input "Your number: ",num#
  Sin#=Sin(num#)
  set cursor 0,40:Print "The Sine is ",Sin#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
If cst$="T" or cst$="t"
  cls
  ink RGB(255,128,0),RGB(0,0,255)
  Set cursor 0,0:Print "Find the Tangent of a number:"
  Ink RGB(255,255,255),RGB(0,0,0)
  Set cursor 0,20:Input "Your number: ",num#
  tan#=tan(num#)
  set cursor 0,40:Print "The Tangent is ",Tan#
  set cursor 0,60:Print "(Press any key to go back)"
  wait key
  goto start:
  endif
goto cst:

I'm not sure if the answers to the problems are correct, but it is now useable.

Back to top

Profile PM

Hippie Dude

20

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 20th Feb 2006 18:38

Link

Thanks Halo Man

Mysteries Surround You

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Math Helpers(homework help)