My first calculator!! - GameCreators Forum

Author

Message

Hell Dragon

19

Years of Service

User Offline

Joined: 24th Jan 2005

Location: UK

Posted: 23rd Oct 2005 06:59 Edited at: 9th Nov 2005 02:35

Link

Rem Project: calculatrice
Rem Created: 2005-10-22 23:28:59

Rem ***** Main Source File *****
set window title "Calculatrice"
set window on
set window size 320,200
PRINT "Bienvenue sur Calculatrice!"
print ""
PRINT "Appuyez sur une touche pour continuez"
suspend for key
start:
PRINT "Entrez 1 si vous voulez additionnez"
PRINT "Entrez 2 si vous voulez soustraire"
PRINT "Entrez 3 si vous voulez diviser"
PRINT "Entrez 4 si vous voulez multiplier"
input "1 ou 2? ";choix
if choix = 1 then goto sous
if choix = 2 then goto add
if choix = 3 then goto div
if choix = 4 then goto mul
sous:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez soustraire"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# - num2#
wait key
cls
goto start
add:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez additionner"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# + num2#
wait key
cls
goto start
div:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez diviser"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# / num2#
wait key
cls
goto start
mul:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez multiplier"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# * num2#
wait key
cls
goto start

+ Code Snippet

Rem Project: calculatrice
Rem Created: 2005-10-22 23:28:59

Rem ***** Main Source File *****
set window title "Calculatrice"
set window on
set window size 320,200
PRINT "Bienvenue sur Calculatrice!"
print ""
PRINT "Appuyez sur une touche pour continuez"
suspend for key
start:
PRINT "Entrez 1 si vous voulez additionnez"
PRINT "Entrez 2 si vous voulez soustraire"
PRINT "Entrez 3 si vous voulez diviser"
PRINT "Entrez 4 si vous voulez multiplier"
input "1 ou 2? ";choix
if choix = 1 then goto sous
if choix = 2 then goto add
if choix = 3 then goto div
if choix = 4 then goto mul
sous:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez soustraire"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# - num2#
wait key
cls
goto start
add:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez additionner"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# + num2#
wait key
cls
goto start
div:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez diviser"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# / num2#
wait key
cls
goto start
mul:
cls
PRINT "Veuillez entrer les nombres"
PRINT "que vous voulez multiplier"
input "Premier Nombre: ";num1#
print " "
input "Deuxieme Nombre: ";num2#
PRINT " "
PRINT " "
PRINT "La reponse est: " ;
PRINT num1# * num2#
wait key
cls
goto start

EDIT:how can I add a delete fonction??? example: I'm writing "oops i did a mistake and I can't erase it!"

Back to top

Profile PM Email

Mr Scarab

19

Years of Service

User Offline

Joined: 11th Jun 2005

Location: Kent, UK

Posted: 28th Oct 2005 16:30 Edited at: 28th Oct 2005 18:53

Link

Don't use the input function. You would have to create your own function to input the number that would allow for the backspace key being pressed. This could get quite involved since you would have to catch the scancode of the number being pressed and turn that into an ASCII number. Something like...

+ Code Snippet

function _input()
  s=scancode()
  if scancode=2 then a$=a$+"1"
  if scancode=3 then a$=a$+"2"
  if scancode=4 then a$=a$+"3"
  if scancode=5 then a$=a$+"4"
  if scancode=6 then a$=a$+"5"
  if scancode=7 then a$=a$+"6"
  if scancode=8 then a$=a$+"7"
  if scancode=9 then a$=a$+"8"
  if scancode=10 then a$=a$+"9"
  if scancode=11 then a$=a$+"10"
  if scancode=14 then a$=left$(a$,len(a$)-1)
  if scancode=28 then A=val(a$) : exit
endfunction A

I find it strange that the backspace key no longer works on an input function, I wonder if this is a known bug or it is intentional.

Sig removed by Mod. Please do not use offensive language in your signature (sic).

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 28th Oct 2005 18:10

Link

Backspace works fine with me, maybe it's a bug in 5.9 (i use 5.8)?

Just one comment:
Try resizing your window a little. I don't know why, but the window was really small. I couldn't even read the words displayed.

(Good thing we get french at school)

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 29th Oct 2005 00:04 Edited at: 29th Oct 2005 00:06

Link

I would like to try it, but I can't speak french. I can translate a little of it since I take spanish at school and they are similar. Uh... wait...If you talk in french, then why is your post in English? oh, also, how did you make the commands, like Print, etc., in english? Does it translate it for you?

Back to top

Profile PM Email Website

French gui

20

Years of Service

User Offline

Joined: 11th May 2004

Location: France

Posted: 29th Oct 2005 00:16

Link

Quote: "If you talk in french, then why is your post in English?"

Heu... peut etre parcequ'on est sur un forum Anglais et que tu ne comprendrai rien. Non?

Green potato headed zombies

Back to top

Profile PM Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 29th Oct 2005 01:28 Edited at: 29th Oct 2005 01:40

Link

No te entiendo porque no hablo en francés. Hablo en ingles y español. YO VOY A COMERTE A Tú, PORQUE TENGO HAMBRE!

Back to top

Profile PM Email Website

Hell Dragon

19

Years of Service

User Offline

Joined: 24th Jan 2005

Location: UK

Posted: 29th Oct 2005 04:17

Link

French is my first language, I'm canadian(from quebec) !

Dark Basic Pro Rulz!

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 29th Oct 2005 15:56

Link

Quote: "Heu... peut etre parcequ'on est sur un forum Anglais et que tu ne comprendrai rien. Non?"

For the enlish ppl:

Heu... maybe because we are on an english forum and else you wouldn't understand anything. No?

Anyway, about the program:
Good program, it's a good start for a beginner programmer.

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Big Man

19

Years of Service

User Offline

Joined: 4th Feb 2005

Location: BEHIND YOU!!!! (but I live in England)

Posted: 29th Oct 2005 17:03

Link

Quote: "For the enlish ppl:

Heu... maybe because we are on an english forum and else you wouldn't understand anything. No?
"

You got that off google didn't you.
I know as soon as I read it I was straight onto google language tools.

Our aim is to keep the loo's clean, your aim can help.

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 29th Oct 2005 17:13

Link

Um... You don't have to post that Sven B. If someone wants to know what it says, they are capable of using an online translator.

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 29th Oct 2005 18:48 Edited at: 29th Oct 2005 18:52

Link

No I didn't use google. I'm still going to school, and French is one of the 3 main languages.

This is what google says:

Quote: "Heu... can be because one is on an English forum and that you will not include/understand anything. Not?""

That's definately not what I typed.

Pourquoi dois-je aider si tout le monde veut faire difficile...

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

WarGoat

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location: Montreal

Posted: 30th Oct 2005 01:50

Link

Quote: " French is my first language, I'm canadian(from quebec) !"

Hé, moi aussi. Au fait, c'est pas mal comme première calculatrice. Continue comme ça et tu devriendra super pro en programation.

Windows XP,pentium IIII, 1,9 MGZ, 768 mb memory, 128 mb video card ATI Radeon 9200 se s80 'sett squadron back on the assault'

Back to top

Profile PM Email

Aaargh

19

Years of Service

User Offline

Joined: 30th Oct 2005

Location:

Posted: 30th Oct 2005 21:08

Link

Je peux le traduire, si j'avait envie.

Ik kom uit België en ik ken dus Latijn, Frans, Engels, Nederlands en een beetje Duits.

If you live in Quebec, you should be able to translate it yourself ,I think?

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 2nd Nov 2005 01:50

Link

...Bonjour