Jan 4

Petit Programme débutant Numéros magique

Programme qui dois

demandez un nombre entre 0 et 100 et bouclez tant que le nombre n'est pas trouvez

on indique si le nombre est plus grand ou plus petit

solution :

Print "TRY TO FIND A NUMBER BEETWEEN 0 AND 100"
value=Rnd(100)
BCL:
Input "Try to find The mysterious Number : "; A
If A=value
Goto EndGame
Else
Print "You Fail"
If A<value
Print "Greater"
Else
Print "Lower"
End If
End If
GoTo BCL
EndGame:
Print "You find the mysterious Number!!"
Print value

Neil John Ives

Jan 5

Cute!

Richard Langley

Jan 5

Saluton Raoul,

Bedaŭrinde mi ne parolas vian lingvon. Jen via programo kun iuj ŝanĝoj.

Mi esperas, ke vi ĝuos. :)

Print "TRY TO FIND A NUMBER BEETWEEN 0 AND 100"

value=Rnd(100)

BCL:

Locate 0,1 : Print " "

Locate 0,1 : Input "Try to find The mysterious Number : "; A

If A=value

Goto EndGame

Else

Print "Not"+Str$(A)+" "

Print " You Fail "

If A<value

Print " Greater "

Else

Print " Lower "

End If

GoTo BCL

EndGame:

Print "You found the mysterious Number!!"

Print "The number is "

Print "Drum roll..... "

Print value// Ludo de Raoul

Raoul

Jan 6

Thanks yes you right, let's try common language ;-) english

let s try another little game like hangout . (or any listing )

Neil John Ives

Jan 6

I'm working on a Hangman game but I really need to be able to load a list of words from disk. So far I have not been able to make that work. I hope that the latest version fixes that problem. I'll put my game here when it's working.

Apologies for my ignorance of your language. We did no language studies at my school.

Raoul

Jan 6

oups my bad not hangout :-)) .. hangman

install the last version there is many correction (dim keyword), i've just started BASIC two day ago the challenge seem's to be fun

to store a list of word

// Dim its the array keyword

//we can probably use some variable for the array size

Dim MYWORD$(3)
MYWORD$(0) = "magic"
MYWORD$(1) = "island"
MYWORD$(2) = "desert"
For X=0 To 2
Print MYWORD$(X)
Next X

Paul Kitching

Jan 8

Welcome to the world of programming, Raoul :-)

It is fun.

One thing I would say, is that using GOTO is something I would never use. It's regarded as the worst command ever made, and makes following the program difficult. Just a friendly comment. Keep using it if you want, but try to move away from it as you progress, as it's never needed.

Raoul

Jan 8

Paul goto is everywhere in modern computing .. in assembly jmp jnz ect ect, normal basic reflect assembly.

or in foreach (powershell or c# for sure )

when you do break or continu you fall in goto tricks :-))

and if you can do in foreach

you can do in a while lol

var e = array.getenumerator(); 
while (e.movenext())
{
 console.writeline(e.curent); 
 if(redpile == true){
 break; } 
}

or continue nothing

i use it a lot .. and its work fine (especially in powershell when you have collection collection and no an easy way to use linq with )

Francois Lionet

Jan 9

Bonjour Raoul! Sorry I did not notice your post before. YES! Welcome to the world of programming. Please be patient, this is a beta and there are still many bugs.

I remember doing such programs, "C'est plus, c'est moins" when I started programming. Can't wait to see what you are going to produce in one year... ;)

Francois Lionet

Jan 9

About GOTO... Well, yeah, somehow you should not use it. But who cares. Just do as you want: the only important thing is the result. No-one care about the code as long as it works. Of course, if you go see a future employer, pretend you never use them. ;)

Raoul

Jan 9

i lionel i answer with my best english (joke inside)

yes i follow always the same baby step when i learn a new language, thats why i share .

i try to figure the dumbest program i can made .. i be patient, you do a very good job thumb up.

ps : not the same story with mvvm and wpf

frank

Feb 17

And here is a slightly polished version for other beginning people:

Print "Try to find the right mystical number between 0 and 100!"
value = Rnd(100)

A = -1

While A <> value

    Input "Your try: "; A

    if A < value

        Print "The mystical number is GREATER."

    else if A > value

        Print "The mystical number is LOWER."

    End If

Wend

Print "You did it!"

Have fun! :)