Tutoriel

'créer par Mike
'version démo

nomainwin
dim choix$(3)
choix$(1) = "tutoriel de base"
choix$(2) = "plusieurs commandes"
choix$(3) = "des exemples"
WindowHeight = DisplayHeight
WindowWidth = DisplayWidth

combobox #1.choix, choix$(), [choix], 10, 50, 275, 20
listbox #1.list, list$(), [list] , 10 , 80 , 275 , 600
texteditor #1.a, 300, 00, 700, 680

'textbox #1.a1, 10, 25, 275, 22
 BackgroundColor$ = "blue"
 ForegroundColor$ = "blue"
open "Tutoriel V 1.0" for window as #1
print #1.a, "!font Courier_New 10";
wait

[quit]
close#1
end

[choix]
print #1.choix, "selection?"
input #1.choix, cx$
if cx$ = "tutoriel de base" then
list$(1) = "programmation et Just Basic"
list$(2) = "commandes de bases"
list$(3) = ""
list$(4) = ""
list$(5) = ""
list$(6) = ""
print #1.list, "reload"
print #1.list, "singleclickselect"
end if
print #1.choix, "selection?"
input #1.choix, cx$
if cx$ = "plusieurs commandes" then
list$(1) = ""
list$(2) = ""
list$(3) = "commande sans fenêtre"
list$(4) = "commande avec fenêtre"
list$(5) = ""
list$(6) = ""
print #1.list, "reload"
print #1.list, "singleclickselect"
end if
print #1.choix, "selection?"
input #1.choix, cx$
if cx$ = "des exemples" then
list$(1) = ""
list$(2) = ""
list$(3) = ""
list$(4) = ""
list$(5) = "Nom d'exemple"
list$(6) = "Nom d'exemple 2"
print #1.list, "reload"
print #1.list, "singleclickselect"
end if
wait
[list]
print #1.list, "selection? selected$"
'input #1.list, list$
a$ = list$(1)
 b$ = list$(2)
  c$ = list$(3)
  d$ = list$(4)
    e$ = list$(5)
    f$ = list$(6)
      g$ = list$(7)
      if selected$ = a$ then

      print #1.a, "!cls" ;
      print #1.a, "salut!"
      print #1.a, "bienvenu dans le monde de la programmation"
      print #1.a, ""
      print #1.a, "ce programme est un tutoriel. Je vais expliquer, dans cette partie du tutoriel ce qu'est la programmation. Commençons:"
      print #1.a, "Le programmateur cré des programmes répondant au besoins de certaine personnes pour cela, ils utilisent des languages de programmation"
      print #1.a, "(basic, C, C++, delphi, orak, pascal...).Ceux-ci sont en fait des programmes contenant des commandes (différentes pour chaque langage)."
      print #1.a, "Les programmateurs utilisent ces commandes pour créer le code source d'un programmes. Ce code source, est donc un ammas de commandes"
      print #1.a, "placé et utilisé de façon a faire un programme. Dans ce tutoriel, on va apprendre le langage Just Basic donc je vais vous en parler un peu."
      print #1.a, "Just Basic en une forme de basic, comme l'indique son nom. Il utilise la programation ligne par ligne. C'est-à-dire qu'il part de la première ligne"
      print #1.a, "de code pour aller jusqu'à la dernière. Mais il peut utiliser la programmation événémentiel grâce au [étiquette], en partie a goto et gosub. Deux"
      print #1.a, "commandes que j'explique dans 'comande de base'. Quand tu démarre Just Basic, un sorte de fenête bloc-note s'ouvre. C'est dans cette fenêtre"
      print #1.a, "que tu vas écrire tout tes codes sources de chacun de tes programmes. Le petit bonhomme bleu ou (si tu a la dernière version) l'icone 'play'"
      print #1.a, "bleu sert à compiler (rendre éxécutable) ton programme ce qui vas te permettre de l'essayer. Je t'invite aussi a aller voir sur mon forum :"
      print #1.a, "info-programmation.forumactif.com . Choissisez une autre option"
      goto [wait]
      end if
      if selected$ = b$ then

      print #1.a, "!cls" ;
      print #1.a, "salut!"
      print #1.a, ""
      print #1.a, "Si vous êtes totalement débutants, vous êtes a la bonne place. Ici, on va apprendre les commandes de bases uniquement. Commençons:"
      print #1.a, "Commande au menu :"
      print #1.a, "1) Print"
      print #1.a, "2) Input"
      print #1.a, "3) goto/gosub [étiquette]"
      print #1.a, "4) if/then"
      print #1.a, "5) boucle for/next"
      print #1.a, "6) ' ou rem"
      print #1.a, "pour des exemples avec c'est commandes, aller dans la section exemples."
      print #1.a, "1) print "; chr$(34);"texte que tu veux afficher"; chr$(34)
      print #1.a, "2) Input "; chr$(34); "texte que tu veux afficher"; chr$(34); "; variable"
      print #1.a, "input permet de stocker des donné sur l'ordinateur dans une variable. Si la variable est numérique, il n'y a pas de $ et si elle n'est pas numérique"
      print #1.a, "(elle serait donc alphanumérique) et bien il y a le signe $ comme dans cet exemple:"
      print #1.a, "2a) Input "; chr$(34); "texte que tu veux afficher"; chr$(34); "; variable$"
      print #1.a, "3) goto [nom_de_l_étiquette]"
      print #1.a, "goto permet d'intégrer la programmation événémentiel dans ton programme. quand il renconter goto, au lieu d'éxécuter le code comme il ferait s'il"
      print #1.a, "rencontrait un print, il va t'envoyer à l'étiquette choisie."
      print #1.a, "3a) gosub [nom_de_l_étiquette]"
      print #1.a, "même fonction que goto, mais quand il rencontre la commande return, il revient au code jsute après le gosub"
      print #1.a, "4) if something$ = "; chr$(34); "something else"; chr$(34); " then goto [étiquette]"
      print #1.a, "voici l'une des nombreuses façon d'utiliser if/then. En fait, il permet d'intégrer de l'intelligence artificielle a notre programme."
      print #1.a, ""
      goto [wait]
      end if
      if selected$ = c$ then
      print #1.a, "!cls" ;
      print #1.a, "salut"
      goto [wait]
      end if
      if selected$ = d$ then
      print #1.a, "!cls" ;
      print #1.a, "comment ça va"
      goto [wait]
      end if
      if selected$ = e$ then
      print #1.a, "!cls" ;
      print #1.a, "bon"
      goto [wait]
      end if
      if selected$ = f$ then
      print #1.a, "!cls" ;
      print #1.a, "parfait"
      goto [wait]
      end if

wait
[wait]
wait

print #1.list, "singleclickselect"

print #1.list, "reload"

enter$ = chr$(_VK_RETURN) : backspace$ = chr$(_VK_BACK)
Nomainwin
dim choix$(3)
choix$(1) = "tutoriel de base"
choix$(2) = "plusieurs commandes"
choix$(3) = "des exemples"
WindowHeight = DisplayHeight
WindowWidth = DisplayWidth

combobox #1.choix, choix$(), [choix], 10, 50, 275, 20
listbox #1.list, list$(), [list] , 10 , 80 , 275 , 600
texteditor #1.a, 300, 00, 700, 680

'textbox #1.a1, 10, 25, 275, 22
 BackgroundColor$ = "blue"
 ForegroundColor$ = "blue"
open "Tutoriel V 1.0" for window as #1
print #1.a, "!font Courier_New 10";
print #1.list, "singleclickselect"
wait

[quit]
close #1
end

[choix]
print #1.choix, "selection?"
input #1.choix, cx$
if cx$ = "tutoriel de base" then
list$(1) = "programmation et Just Basic"
list$(2) = "commandes de bases"
list$(3) = ""
list$(4) = ""
list$(5) = ""
list$(6) = ""
list$(7) = "commandes de bases dans un fichier .txt" ; len(list$(7))
list$(8) = "je te conseil le fichier .txt, il a des bonus"
print #1.list, "reload"
print #1.list, "singleclickselect"
end if
print #1.choix, "selection?"
input #1.choix, cx$
if cx$ = "plusieurs commandes" then
list$(1) = ""
list$(2) = ""
list$(3) = "commandes diverses"
list$(4) = "commandes avec une fenêtre d'interface"
list$(5) = ""
list$(6) = ""
list$(7) = ""
list$(8) = ""
print #1.list, "reload"
print #1.list, "singleclickselect"
end if
print #1.choix, "selection?"
input #1.choix, cx$
if cx$ = "des exemples" then
list$(1) = ""
list$(2) = ""
list$(3) = ""
list$(4) = ""
list$(5) = "Nom d'exemple"
list$(6) = "Nom d'exemple 2"
list$(7) = ""
list$(8) = ""
print #1.list, "reload"
print #1.list, "singleclickselect"
end if
wait
[list]
print #1.list, "selection? selected$"
'input #1.list, list$

a$ = list$(1)
 b$ = list$(2)
  c$ = list$(3)
  d$ = list$(4)
    e$ = list$(5)
    f$ = list$(6)
      g$ = list$(7)
      g1$ = list$(8)
      if selected$ = a$ then

      print #1.a, "!cls" ;
      print #1.a, "salut!"
print #1.a, ""
      print #1.a, "bienvenu dans le monde de la programmation"
print #1.a, ""
      print #1.a, "ce programme est un tutoriel. Je vais expliquer, dans cette partie du tutoriel ce qu'est la programmation. Commençons:"
print #1.a, ""
      print #1.a, "Le programmeur crée des programmes répondant au besoins de certaine personnes pour cela, ils utilisent des languages de programmation"
print #1.a, ""
      print #1.a, "(basic, C, C++, delphi, orak, pascal...).Ceux-ci sont en fait des programmes contenant des commandes (différentes pour chaque langage)."
print #1.a, ""
      print #1.a, "Les programmeurs utilisent ces commandes pour créer le code source d'un programmes. Ce code source, est donc un ammas de commandes"
print #1.a, ""
      print #1.a, "placé et utilisé de façon a faire un programme. Dans ce tutoriel, on va apprendre le langage Just Basic donc je vais vous en parler un peu."
print #1.a, ""
      print #1.a, "Just Basic en une forme de basic, comme l'indique son nom. Il utilise la programation ligne par ligne. C'est-à-dire qu'il part de la première ligne"
print #1.a, ""
      print #1.a, "de code pour aller jusqu'à la dernière. Mais il peut utiliser la programmation événémentiel grâce au [étiquette], en partie a goto et gosub. Deux"
print #1.a, ""
      print #1.a, "commandes que j'explique dans 'comande de base'. Quand tu démarre Just Basic, un sorte de fenête bloc-note s'ouvre. C'est dans cette fenêtre"
print #1.a, ""
      print #1.a, "que tu vas écrire tout tes codes sources de chacun de tes programmes. Le petit bonhomme bleu ou (si tu a la dernière version) l'icone 'play'"
print #1.a, ""
      print #1.a, "bleu sert à compiler (rendre éxécutable) ton programme ce qui vas te permettre de l'essayer. Je vous invite aussi a aller voir sur mon forum :"
print #1.a, ""
      print #1.a, "info-programmation.forumactif.com . Choissisez une autre option"

      goto [wait]
      end if
      if selected$ = b$ then
if f2 = 1 then close #2
f2 = 0

      print #1.a, "!cls" ;
      print #1.a, "salut!"
            print #1.a,, "Si vous êtes totalement débutants, vous êtes a la bonne place. Ici, on va apprendre les commandes de bases uniquement. Commençons:"
print #1.a,, ""
      print #1.a, "Commande au menu :";
      print #1.a, "1) Print"
print #1.a, ""
      print #1.a, "2) Input"
print #1.a, ""
      print #1.a, "3) goto/gosub [étiquette]"
print #1.a, ""
      print #1.a, "4) if/then"
print #1.a, ""
      print #1.a, "5) boucle for/next"
print #1.a, ""
      print #1.a, "6) ' ou rem"
print #1.a, ""
      print #1.a, "pour des exemples avec c'est commandes, aller dans la section exemples."
print #1.a, ""
      print #1.a, "1) print "; chr$(34);"texte que tu veux afficher"; chr$(34)
print #1.a, ""
      print #1.a, "2) Input "; chr$(34); "texte que tu veux afficher"; chr$(34); "; variable"
print #1.a, ""
      print #1.a, "input permet de stocker des donné sur l'ordinateur dans une variable. Si la variable est numérique, il n'y a pas de $ et si elle n'est pas numérique"
print #1.a, ""
      print #1.a, "(elle serait donc alphanumérique) et bien il y a le signe $ comme dans cet exemple:"
print #1.a, ""
      print #1.a, "2a) Input "; chr$(34); "texte que tu veux afficher"; chr$(34); "; variable$"
print #1.a, ""
      print #1.a, "3) goto [nom_de_l_étiquette]"
print #1.a, ""
      print #1.a, "goto permet d'intégrer la programmation événémentiel dans ton programme. quand il renconter goto, au lieu d'éxécuter le code comme il ferait s'il"
print #1.a, ""
      print #1.a, "rencontrait un print, il va t'envoyer à l'étiquette choisie."
print #1.a, ""
      print #1.a, "3a) gosub [nom_de_l_étiquette]"
print #1.a, ""
      print #1.a, "même fonction que goto, mais quand il rencontre la commande return, il revient au code jsute après le gosub"
print #1.a, ""
      print #1.a, "4) if something$ = "; chr$(34); "something else"; chr$(34); " then goto [étiquette]"
print #1.a, ""
      print #1.a, "voici l'une des nombreuses façon d'utiliser if/then. En fait, il permet d'intégrer de l'intelligence artificielle a notre programme."
print #1.a, ""
      print #1.a, "4a) en voici une autre:"
print #1.a, ""
      print #1.a, "if some thing <> something else then"
print #1.a, ""
      print #1.a, "print "; chr$(34);"bonjour";chr$(34)
print #1.a, ""
      print #1.a, "else"
print #1.a, ""
      print #1.a, "print "; chr$(34);"salut";chr$(34)
print #1.a, ""
      print #1.a, "end if"
print #1.a, ""
      print #1.a, "5) for i = 1 to 10 'je met la valeur de i"
print #1.a, ""
      print #1.a, "a = a + 1"
print #1.a, ""
      print #1.a, "b = 3"
print #1.a, ""
      print #1.a, "print a 'je print la valeur de a"
print #1.a, ""
      print #1.a, "if b = i then 'je lui demande si b = i et si oui, je fais les action en bas"
print #1.a, ""
      print #1.a, "print "; chr$(34);"on est donc rendu a la 3e fois que la boucle ce répète";chr$(34)
print #1.a, ""
      print #1.a, "a = 4 'je change la valeur de a"
print #1.a, ""
      print #1.a, "end if 'je ferme la commande if/then"
print #1.a, ""
      print #1.a, "next i 'je dit a la boucle de ce répéter."
print #1.a, ""
      print #1.a, "6) l'apostrophe (') permet de mettre des commentaire/notes a coté sur code, pour aider le programmateur a savoir quel bout de code fait tel action"
print #1.a, ""
      print #1.a, "Voilà, c'était la section des commandes des bases. Aller dans la section exemples, pour avior des axemples de prog."
print #1.a, ""
      print #1.a, "Je vous réfèrent encore une fois a mon forum : http://info-programmation.forumactif.com  .Choissisez une autre option."
print #1.a, ""
      print #1.a, ""
print #1.a, ""
      goto [wait]
end if
      if selected$ = c$ then
RUN "NOTEPAD commandes diverses1.txt", SHOWMAXIMIZED
      print #1.a, "!cls" ;
print #1.a, ""
      print #1.a, "List des commandes a voir dans ce topic"
print #1.a, ""
      print #1.a, "1) Instr("
print #1.a, ""
      print #1.a, "2) val($"
print #1.a, ""
      print #1.a, "3) str$("
print #1.a, ""
      print #1.a, "4) dim"
print #1.a, ""
      print #1.a, "5) rnd("
print #1.a, ""
      print #1.a, "6) int("
print #1.a, ""
      print #1.a, "7) len("
      'print #1.a, "8) "
      print #1.a, ""
      goto [wait]
      end if
      if selected$ = d$ then
      f2 = 0
      if f2 = 1 then close #2
      print #1.a, "!cls" ;
      print #1.a, "comment ça va"
      goto [wait]
      end if
      if selected$ = e$ then
      f2 = 0
      if f2 = 1 then close #2
      print #1.a, "!cls" ;
      print #1.a, "bon"
      goto [wait]
      end if
      if selected$ = f$ then
      f2 = 0
      if f2 = 1 then close #2
      print #1.a, "!cls" ;
      print #1.a, "parfait"
      goto [wait]
      end if

      if selected$ = g$ or selected$ = g1$ then
RUN "NOTEPAD commandes de bases.txt", SHOWMAXIMIZED
      goto [wait]
      end if
[wait]
wait

print "texte que tu veux afficher"

Input "texte que tu veux afficher"; variable$

gosub [nom_de_l_étiquette]

 if quelque chose$ = "quelque chose d'autre" then goto [étiquette]

if some thing <> something else then

print "bonjour"

else

print "salut"

end if

 for i = 1 to 10 'je met la valeur de i

a = a + 1

b = 3

print a 'je print la valeur de a

if b = i then 'je lui demande si b = i et si oui, je fais les action en bas

print "on est donc rendu a la 3e fois que la boucle ce répète"

a = 4 'je change la valeur de a

end if 'je ferme la commande if/then

next i 'je dit a la boucle de ce répéter.

print "la boucle est fini"

end 'je temine le prog

print "bonjour"
input "ça va? (Y/N)"; YN$ 'j'entre en mémoire une variable

YN$ = lower$(YN$) 'je met la réponse en minuscule pour enlever la "case sensitive".
'Donc tu peux écrire en majuscule ou en minuscule, ça change rien.
if instr("yes", YN$) then 'j'utilise la commande instruction pour analiser ma variable

print "ça c'est bien." 'si la réponse comporte un y, un e, ou un s et bien ça m'envoi ici.
input "donc tu veux apprendre a te servir de just basic (Y/N)"; YN2$ 'j'enter en mémoire une autre variable
YN2$ = lower$(YN2$) 'je met la réponse en minuscule pour enlever la "case sensitive".
'Donc tu peux écrire en majuscule ou en minuscule, ça change rien.

if instr("yes", YN2$) then print "tu est a la bonne place."'j'utilise la commande instruction pour analiser ma variable

else 'si tu répond autre chose que Yes
Print "a non? C'est pas cool quand ça va pas bien"
input "mais puis-je me permettre de te remonter le moral en t'apprenant a te servir de just basic (Y/N)"; NY$ 'met en mémoire une 3e variable

NY$ = lower$(NY$)'je met la réponse en minuscule pour enlever la "case sensitive".
'Donc tu peux écrire en majuscule ou en minuscule, ça change rien.
if instr("yes", NY$) then
print "alors je vais le faire"'j'utilise la commande instruction pour analiser ma variable

else'si tu répond autre chose que Yes
print "bon et bien tant pis, au revoir"
'je ferme les if/then
end if
end if
'je ferme les if/then
end

n = val(var$) ' transforme la var$ en var donc transforme un variable alphanumérique en numérique

$ = str$(var) 'est en fait, le contraire de val(

print "salut"
input "entré une donné quelqueconque"; d$ 'je met une 1ere varaiable en mémoire
d = val(d$) 'je met un 2e variable en mémoire
if val(d$) = 0 then 'j'utilise la fonction val( pour savoir s'il la donné est numérique ou alphanumérqiue
print "vous avez entré un alphanumérique ou 0"
print d$; " j'avais raisons..." 'je print la variable d$
else
print "vous avez entré un numérique ou rien du tout"
print d;" j'avais raison"'je print la variable d
end if
if str$(d) <> "" then 'j'utilise la fonction str$( pour savoir s'il la donnée est numérique ou alphanumérique
print "vous avez entré un numérique ou rien du tout"
print d; " j'avais raison"'je print la variable d
else
print "vous avez entré un alphanumérique ou 0"
print d$; " j'avais raisons"'je print la variable d$
end if
end

y = 1
dim n$(100)
dim c$(100)
print "bonjour"
print "si vous entrer une donné vide, le prog ce termine"
print "entré une donné"
[add]
a = int(rnd(1)*100) 'je choisi un nombre au hasard entre 1 et 100 et je le stock dans la varaiable a
print "a"; a; "-->" : input d$
if d$ = "" then [quit]'si l'utilisateur entre une donné vide le programme ce termine
if c$(y) = "" then c$(y) = str$(a)
if n$(y) = "" then n$(y) = d$
y = y + 1
if y < 100 then [add] 'si y est plus petit que 100, la boucle continu
[quit]
print "voici toutes les données enregistrer :"
print "-------------------------------------"
x = 1
[loop]
print "a"; c$(x); ")"; n$(x)
x = x + 1
if n$(x) = "" then end
if x < 100 then [loop]