by AAymeric » 22 May 2011, 16:46 Je crée un programme pour y rentrer mes cours. Au lancement, ça affiche une page avec les matières que la personne veut visionner. Seulement, le problème est que si choisit une matière et que l'on veut revenir sur la page d'avant (Voir spoiler pour le code), on n'est obligé de finir l'ensemble des pages de la matière.
Je voudrais donc, a l'aide des flèches, faire défiler les pages.
(J'aimerais éviter les de mettre trop de label[parce qu'il n'y en aura pas assez pour chaque page] et les getKeys car le programme commence a devenir un peu lourd)
Y'a t-il une solution?
Le code:
Show/Hide spoilerAfficher/Masquer le spoiler
- Code: Select all
AxesOff:CoordOff:GridOff:FnOff
Xmax=10:Xmin=ú10
Ymax=10:Ymin=ú10
Lbl 0
ClrDraw
Text(0,25,"Menu
Text(6,0,"1.Formules SES
Text(12,0,"2.Maths
Text(18,0,"3.Physique
Text(24,0,"4.Chimie
Text(36,0,"Enter.Quitter
While 1
getKeyüA
If A=92
Then
ClrDraw
Goto 1
End
If A=93
Then
ClrDraw
Goto 2
End
If A=94
Then
ClrDraw
Goto 3
End
If A=82
Then
ClrDraw
Goto 4
End
If A=105
Then
ClrDraw
Goto Z
End
End
ClrDraw
Lbl 1
Text(0,25,"CONVERTION
Text(6,0,"I=Indice, M=coef.Mult.
Text(12,0,"T=Tx Var
Line(13,14,0,50
Text(19,0,"I=m*100
Text(43,0,"T=I-100
Text(31,0,"M=I/100
Text(37,0,"M=(t/100)+1
Text(25,0,"I=t+100
Text(49,0,"T=(m-1)*100
Pause
ClrDraw
Text(0,0,"VA=Valeur Arrivee
Text(6,0,"VD=Valeur Depart
Text(12,0,"TD=Taux Depart
Text(18,0,"TA=Taux Arrivee
Text(24,0,"M=VA/VD
Text(30,0,"I=(VA/VD)*100
Text(36,0,"l'indice n'a pas d'unite
Text(42,0,"T=[(TA-TD)/TD]*100
Pause
ClrDraw
Goto 0
Lbl 2
Text(0,25,"MATHS
Text(6,10,"Identitee Remarquables
Text(12,0,"(a+b)Ü=aÜ+2ab+bÜ
Text(18,0,"(a-b)Ü=aÜ-2ab+bÜ
Text(24,0,"(a+b)(a-b)=aÜ-bÜ
Text(30,10,"Forme Canonique
Text(36,0,"axÜ+bx+c
Text(42,0,"=a[xÜ+(b/a)x+(c/a)]
Text(48,0,"a[(x+b/2a)Ü-(b/2a)Ü+(c/a)]
Pause
ClrDraw
Text(0,0,"Si úb/2a +c/a Positif
Text(6,0,"Alors impossible de fact.
Text(12,0,"Sinon ,fact avec 3e id.Re
Pause
Goto 0
Lbl 3
Text(0,25,"PHYSIQUE
Text(6,10,"Frequence
Text(12,0,"F=1/T F=Frequence en Hz
Text(18,0,"T= Temps de la periode en s
Text(30,0,"Periode:+petite duree dur-
Text(36,0,"ant laquelle un phenomene
Text(42,0,"se reproduit a l'identique
Text(48,0,"a lui meme"
Pause
ClrDraw
Text(0,10,"Refraction
Text(6,0,"n1 sin i1 = n2 sin i2
Text(12,0,"n1n2=Indices de refraction
Text(18,0,"i1 i2 = Angle d'incidence
Text(24,0,"par rapport a la normale
Text(36,0,"Si faisceau rentre perpendi-
Text(42,0,"culairement
Text(48,0,"Alors, pas de refraction
Pause
ClrDraw
Text(0,10,"Onde Electro-Magnetique
Text(6,0,"Ondes Radios: 3.10^8 Hz
Text(12,0,"MicroO:3.10^8x3.10^11
Text(18,0,"IR: 3.10^11x4.10^14
Text(24,0,"LumiR4.10^14x7.5.10^14
Text(30,0,"UV: 8.10^14x3.10^16
Text(36,0,"RayonX:3.10^16x3.10^19
Text(42,0,"Rayons Gamma:3.10^19
Pause
ClrDraw
Text(0,10,"Les Atomes
Text(6,0,"Un atome est constitue de
Text(12,0,"charges +, ds le noyeau
Text(18,0,"charges -, qui gravitent
Text(24,0,"autour du noyeau
Text(30,0,"99,99% de vide
Text(36,0,"Un atome est neutre
Text(42,0,"Son ordre de grANdeur est
Text(48,0,"0.1 nanometre
Text(54,0,"Modele:Rutherford,1911
Pause
ClrDraw
Text(0,5,"Le Noyeau de l'atome
Text(6,0,"On y trouve des nucleons:
Text(12,0,"Neutres, appeles neutrons
Text(18,0,"Positif, appeles protons
Text(24,0,"Les protons ont une charge
Text(30,0,"elementaire notee e et egale
Text(36,0,"a e=1.6.10^-19C
Text(42,0,"C:Coulons
Text(48,0,"Nbr de protons note Z
Text(54,0,"Nbr de nucleon note A
Pause
ClrDraw
Text(0,0,"mNeutron = mProton
Text(6,0," =1.37.10^-27
Text(14,15,"A"
Text(16,20,"X"
Text(20,15,"Z"
Text(26,0,"A=Nbre Nucleon
Text(32,0,"X=Symbole de l'element
Text(38,0,"Z=Nbre Proton
Pause
ClrDraw
Text(0,5,"Les Isotopes
Text(6,0,"2 atomes qui ont le meme nbre
Text(12,0,"de protons mais des nbre de
Text(18,0,"neutrons differents sont
Text(24,0,"appeles Isotopes.
Text(30,8,"14
Text(33,16,"C
Text(36,8,"6
Text(45,0,"Ici, Z=6,A=14 et N=A-Z=8
Pause
ClrDraw
Text(0,25,"Etude des mouvements
Text(6,0,"Mvt:est definit par:
Text(12,0,"-Sa Trajectoire:
Text(18,0," -Rectiligne:droite
Text(24,0," -Circulaire:cercle
Text(30,0," -Curviligne:Autre
Text(36,0,"-Sa VitesseInstantanee elle:
Text(42,0," -Constante:mvt uniforme
Text(48,0," -Accelere:mvt accelere
Text(54,0," -Ralentit:mvt decelere
Pause
ClrDraw
Text(0,0," -N'a pas de tendance:
Text(6,0," variable.
Text(12,25,"Observation d'un mvt:
Text(18,0,"Pr analyser, necessite bcp
Text(24,0,"de precision dans les
Text(30,0,"mesures et avec pas de
Text(36,0,"mesure(intervalle) adapte
Text(42,0,"Actuellement, c'est l'acqu-
Text(48,0,"isition video qui est usee
Text(54,0,"avec exploitation algorithme
Pause
ClrDraw
Text(0,25,"Referentiels pr mvt
Text(6,0,"Il faut choisir referentiel
Text(12,0,"par rapport auquel mvt sera
Text(18,0,"observe:svt par rapport ref
Text(24,0,"terrestre ms existe autre:
Text(30,0,"ref heliocentrique:centre du
Text(36,0,"soleil avec axes:3etoiles
Text(42,0,"tres eloignes
Text(48,0,"Geocentrique: centre de la
Text(54,0,"terre axes:3etoile lointaines
Pause
ClrDraw
Goto 0
Lbl 4
Text(0,25,"CHIMIE
Text(6,10,"Concentration Massique
Text(12,0,"Cm=m/V m= Masse en g
Text(18,0,"V= Volume en L"
Text(24,0,"Dans une dilution, Masse cons
Text(30,0,"ervee
Text(36,0,"Donc Mmere = Mfille
Pause
ClrDraw
Text(0,10,"Densite
Text(6,0,"Il existe deux formules:
Text(12,0,"d=Å/Å de l'eau
Text(18,0,"Å eau = 1kg/dm^3
Text(24,0,"=Pour les gazs
Text(30,0,"d=m/m de l'eau
Text(36,0,"m eau = Masse Volume Eau
Text(42,0,"m = masse volume du solide
Text(48,0,"ou liquide"
Text(54,0,"Uniquement solide liquide
Pause
ClrDraw
Text(0,10,"Molecules
Text(6,0,"Pour qu'une molec existe, il
Text(12,0,"faut que les ato qui la compose
Text(18,0,"respecte regle du duet/octet.
Text(24,0,"Dans une molec, les ato st lies
Text(30,0,"entre eux par liaison covalentes.
Text(36,0,"1 liaison est 1 mise en commun
Text(42,0,"d'e- qui permet a chacun des ato
Text(48,0,"participant d'augmenter leur nb
Text(54,0,"d'e-
Pause
prgmMOLES
Goto 0
Lbl Z
AxesOn
CoordOn
ExprOn
Disp "Done"
FnOn
