| Auteur |
comment passer de .bas a .fxi aide moi pour une dernier fois svp!!!!!!!!! |
|
|
yof60
Membre
Messages: 30 | Message posté: 19-02-2010 à 16:49 
salut
voila je fais des etude de geometre topographe et la reference des programme chez les geo topo sur ce site:
http://serge.milles.free.fr/utilitai.htm
ya un fichier qui s'appelle basic.exe qu'on le décompresse il ya de choix
exemple
1_surface.bas
2_surface.txt
j'aimerais beaucoup les installer ces programmes.
mais je ne sais pas comment.
de l'aide svp
le fichier
surface.bas na pas de logiciel d'ouverture inconnue
le fichier
surface.txt est comme ca
REM Avertissement très important:
REM Sur machines à calculer: pour tous les programme utilisant des angles, la machine doit être en mode GRADES.
REM Sur micro-ordinateur: multiplier tous les angles en grades par PI/200 pour les passer en radians.
REM PI peut être obtenu par l'équation suivante: PI = 4 * ATN(1)
REM Calcul de surfaces: 3 méthodes
REM calcul à partir des coordonnées cartésiennes ou polaires ou par la formule de Sarron.
1 PRINT"Calcul de surfaces"
2 INPUT "(1)XY (2)DG (3)Sarron"; NU
3 ON NU GOTO 5, 100, 200
4 END
5 PRINT "Surface donnée en coordonnées cartésiennes"
6 PRINT "Entrer les sommets en tournant autour de la surface"
10 INPUT "Nombre de sommets"; N : DIM X(N) , Y(N)
20 FOR I=1 TO N : PRINT "Point n° ";I
30 INPUT "X  = ";X(I) : INPUT "Y = ";Y(I)
50 NEXT I
60 S = X(1)*(Y(N)-Y(2))+X(N)*(Y(N-1)-Y(1))
70 FOR I=2 TO N-1
80 S = S + X(I)*(Y(I-1)-Y(I+1))
85 NEXT I
90 PRINT "Surface: ";ABS(S)/2; "m2" : END
100 PRINT "Surface en coordonnées polaires"
105 PRINT "Entrez les angles dans l'ordre croissant"
110 INPUT "Nombre de sommets"; N : DIM D(N) , A(N)
120 FOR I=1 TO N : PRINT "Point n° ";I
130 INPUT "Distance m ";D(I)
140 INPUT "Angle gon ";A(I)
150 NEXT I
155 S = D(1)*D(N)*SIN(A(1)-A(N))
160 FOR I=1 TO N-1
170 S = S + D(I)*D(I+1)*SIN(A(I+1)-A(I))
180 NEXT I
190 PRINT "Surface totale: ";S/2;" m2" : END
200 PRINT "Surface par la formule de Sarron"
210 INPUT " nombre de cotés connus"; N : DIM C(N), A(N), AC(N)
220 FOR i = 1 TO N : PRINT "Coté "; i;"(m) "; : INPUT C(i)
230 IF i < N THEN PRINT "Angle (gon)"; i;"-"; i + 1; : INPUT A(i)
340 NEXT i
250 FOR i = 1 TO N - 1 : AC(i) = AC(i - 1) + A(i) : NEXT i
260 S = 0 : FOR i = 1 TO N - 1 : FOR j = i TO N - 1
270 S = S + C(i) * C(j + 1) * SIN((AC(j) - AC(i - 1))
280 NEXT j : NEXT i
290 PRINT "Surface "; S / 2 ;"m2" : END
merci a vous.
|
 |
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 19-02-2010 à 19:01
T'as déjà fait 2 topics là dessus, tout le monde l'a lu ta question !
Et puis je t'ai déjà répondu.
Il faut que quelqu'un le convertisse manuellement.
 |
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 19-02-2010 à 19:58
Voila, je te l'ai fait :"CALCUL DE SURFACE"  "(1) XY" "(2) DG" "(3) SARRON" ?->P If P=1 Then "COORDONNEES CARTESIENNES" "NOMBRE DE SOMMETS"?->N N->Dim List 1 List 1->List 2 For 1->I To N ClrText "X( )" Locate 3,1,I ?->List 1[i] "Y( )" Locate 3,3,I ?->List 2[I] Next List 1[1]*(List 2[N]-List 2[2])+List 1[N]*(List 2[N-1]-List 2[1])->S For 2->I To N-1 S+List 1[I]*(List 2[I-1]-List 2[I+1])->S Next "SURFACE TOTALE" S/2[Disp] IfEnd If P=2 Then "COORDONNEES POLAIRES" "ENTREZ LES ANGLES DANS L'ORDRE CROISSANT" "NOMBRE DE SOMMETS"?->N N->Dim List 1 List 1->List 2 For 1->I To N ClrText "POINT N°" Locate 9,1,I "DISTANCE M" ?->List 1[i] "ANGLE GON" ?->List 2[I] Next List 1[1]*List 1[N]*sin (List 2[1]-List 2[N])->S For I=1 To N-1 S+List 1[I]*List 1[I+1]*sin (List 2[I+1]-List 2[I])->S Next "SURFACE TOTALE" S/2[Disp] IfEnd If P=3 Then "FORMULE DE SARRON" "NOMBRE DE COTES CONNUS"?->N N->Dim List 1 List 1->List 2 List 1->List 3 For 1->I To N ClrText "COTE N°" Locate 8,1,I "(M)"?->List 1[I] If I<N Then "ANGLE (GON)" Locate 1,5,I Locate Int log I+2,5,"-" Locate Int log I+3,5,I+1 ?->List 2[I] IfEnd Next Lisr 2[1]->List 3[I] For 2->I To N-1 List 2[i]+List 3[I-1]->List 3[I] Next 0->S For 1->I To N-1 For I->J To N-1 S+List 1[i]*List 1[J+1]*sin (List 3[J]-List 3[I-1])->S Next Next "SURFACE" S/2[Disp] IfEnd
"->" correspond à la simple flèche, la touche au dessus de AC/ON
"[Disp]" correspond au petit triangle noir, qu'on trouve en faisant SHIFT VARS F5
Si tu le recopie sur ta calculatrice, pour trouver les fonctions de programmation comme If, For, Locate, ClrText, List, Int, etc, réfère toi à l'index des fonctions du site.
|
|
yof60
Membre
Messages: 30 | Message posté: 19-02-2010 à 21:03
salut alors pour commencer je te remercie pour ton aide
quand tu m'ecris
Si tu le recopie sur ta calculatrice, pour trouver les fonctions de programmation comme If, For, Locate, ClrText, List, Int, etc, réfère toi à l'index des fonctions du site.
je ne sais absolument pas se que ca veut dire  ?????
par contre j'ai recopier tous ca sur un nouveau fx inter pro
"CALCUL DE SURFACE"
"(1) XY"
"(2) DG"
"(3) SARRON"
?->P
If P=1
Then "COORDONNEES CARTESIENNES"
"NOMBRE DE SOMMETS"?->N
N->Dim List 1
List 1->List 2
For 1->I To N
ClrText
"X( )"
Locate 3,1,I
?->List 1[i]
"Y( )"
Locate 3,3,I
?->List 2[I]
Next
List 1[1]*(List 2[N]-List 2[2])+List 1[N]*(List 2[N-1]-List 2[1])->S
For 2->I To N-1
S+List 1[I]*(List 2[I-1]-List 2[I+1])->S
Next
"SURFACE TOTALE"
S/2[Disp]
IfEnd
If P=2
Then "COORDONNEES POLAIRES"
"ENTREZ LES ANGLES DANS L'ORDRE CROISSANT"
"NOMBRE DE SOMMETS"?->N
N->Dim List 1
List 1->List 2
For 1->I To N
ClrText
"POINT N°"
Locate 9,1,I
"DISTANCE M"
?->List 1[i]
"ANGLE GON"
?->List 2[I]
Next
List 1[1]*List 1[N]*sin (List 2[1]-List 2[N])->S
For I=1 To N-1
S+List 1[I]*List 1[I+1]*sin (List 2[I+1]-List 2[I])->S
Next
"SURFACE TOTALE"
S/2[Disp]
IfEnd
If P=3
Then "FORMULE DE SARRON"
"NOMBRE DE COTES CONNUS"?->N
N->Dim List 1
List 1->List 2
List 1->List 3
For 1->I To N
ClrText
"COTE N°"
Locate 8,1,I
"(M)"?->List 1[I]
If I
Then "ANGLE (GON)"
Locate 1,5,I
Locate Int log I+2,5,"-"
Locate Int log I+3,5,I+1
?->List 2[I]
IfEnd
Next
Lisr 2[1]->List 3[I]
For 2->I To N-1
List 2[i]+List 3[I-1]->List 3[I]
Next
0->S
For 1->I To N-1
For I->J To N-1
S+List 1[i]*List 1[J+1]*sin (List 3[J]-List 3[I-1])->S
Next
Next
"SURFACE"
S/2[Disp]
IfEnd
et je l'ai transferer sur ma graph 100 j'ouvre le programme en cour d'ouverture il me fait
erreur syntaxe
je fais esc ca tombe sur
"CALCUL DE SURFACE"
"(1) XY"
"(2) DG"
"(3) SARRON"
?->P
|
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 19-02-2010 à 21:17
Change tous les "->" en simple flèche, et tous les [Disp] en petit triangle noir (cf mon message du dessus)
|
|
lolotone
Membre
Messages: 30
Calculatrice : Graph 35 | Message posté: 20-02-2010 à 00:01
Il faut aussi que tu supprime les sauts de lignes (que Pierrotll a mis) juste avant :
> If P=1
> If P=2
> If P=3
En clair, il ne doit pas y avoir une flèche de retour à la ligne toute seule.
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 14:15
ok j'essai
|
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 20-02-2010 à 15:47
Attention, dans la 3ème partie du prog (sur la formule de Sarron), il faut mettre "If I<N" et non pas "If I"
(Le <N ne s'était pas affiché la première fois, à cause du caractère d'ouverture de balise html, j'ai corrigé ça dans mon message au dessus)
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 19:01
alors j suis bloque a la fonction if
je lai remplacer sur la calculatrice en
t'apan shift vars f1 =prog
mais apres sa sa revient toujours sur l'ancien emplacement de if =prog
Caractéristiques de la fonction If
Nom de la fonction : If
Raccourci : PRGM->COM (Shift - Vars - F1)
merci de m'aide .
|
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 20-02-2010 à 19:29
J'ai pas compris. Tu ne trouves pas le If c'est ça? Il faut faire [SHIFT], [VARS], [F1], [F1]
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 19:39
oui il ya prog qui s'ecrit
mais apres sa sa revient toujours sur l'ancien emplacement de if =prog
|
|
drsi-prog1max
► Programmeur Basic
Messages: 463
Calculatrice : Graph 65 | Message posté: 20-02-2010 à 20:07
Qu'est-ce que tu appelle if =prog ???
Il y a deux fonctions qui servent à deux choses complètement différentes :
If (shift-vars-f1-f1) c'est pour introduire une condition
Prog (shift-vars-f2-f1) appelle un autre programme.
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 20:26
et bien quand je tape (shift-vars-f1-f1) s'ecrit prog
ou
est ce que il faut que j'ecrit (shift-vars-f1-f1)
ps: jai une graph 100 est quil ya moyen de modifier sur pc
|
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 20-02-2010 à 20:43
Dans un autre topic tu dis pouvoir transférer des programmes avec FX-Interface pro. Pourquoi ne l'utilises-tu pas? Il te suffit de copier le code, sans oublier de remplacer tous les -> et les [Disp]
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 20:48
si je comprend bien quand ca bloque a un endroit je dois modifier en m'inspirant de l'index .
Index alphabétique du moin - cest quoi
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 20:50
oui je sais transferer donc je peut modifier sur le pc et pas obligatoirement sur la calcul
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 21:06
ok je remplace
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 21:23
alors j'ai du nouveau jai copier et coller tous ce que tu ma dit et maintenant je bloque sur la fonction Dim que je n'arrive a trouver nul par sur la calculou sur l'index
|
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 20-02-2010 à 21:25
OPTN, F1, F3
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 21:46
et pour [i] stp
jai remarque que index ne corespond pas toujour a se que j'ai sur la graph 100
|
|
drsi-prog1max
► Programmeur Basic
Messages: 463
Calculatrice : Graph 65 | Message posté: 20-02-2010 à 22:06
Tu a les crochets directement avec les touches (shift +) ou (shift -). Le i, c'est en majuscule.
Pour ce qui est de l'index, la combinaison des touches est valable pour les 35/65 mais étant donné que ça ressemble beaucoup avec les autres modèles de graph, ça sert à rien d'en faire plusieurs. En plus c'est précisé que la combinaison peut être différente en fonction du modèle. De toute façon il y a un index des fonctions à la fin du manuel de ta calculatrice.
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 22:19
c'est plus fluid
japroche de la fin
For 2->I To N-1
sa bloque entre i to
|
|
yof60
Membre
Messages: 30 | Message posté: 20-02-2010 à 23:52
les gars sa marche merci 
jai 2 derniers question
1_PierrotLL jai dautre fichiers .txt que jaimerai traduir ce que ta copier du fichier que surface.txt initial comme ca je sais koi copier sur les autres et ou tu la traduit.
2_pitier ya til un logiciel qui peut changer les index tout seul.
merci beaucoup
|
|
lolotone
Membre
Messages: 30
Calculatrice : Graph 35 | Message posté: 21-02-2010 à 02:18
Quote:
| " jai dautre fichiers .txt que jaimerai traduir ce que ta copier du fichier que surface.txt initial comme ca je sais koi copier sur les autres et ou tu la traduit " |
|
ce qui donne en français... (Franchement chapeau bas, faire aussi incompréhensible, fallait le faire. On serait sur le site du zéro, ça ferait longtemps que le topic aurait été fermé)
Seule réponse possible (à "ou tu la traduit") : comme Pierrotll te l'as dis il n'y a pas de logiciel,... pour traduire. Il l'a donc traduit dans sa tête.
|
|
yof60
Membre
Messages: 30 | Message posté: 21-02-2010 à 11:23
est c'est quoi la méthode?
ps: ca c'est du francais
|
|
lolotone
Membre
Messages: 30
Calculatrice : Graph 35 | Message posté: 21-02-2010 à 13:59
Par exemple, dans l'autre langage, on a :Code:
| PRINT \"Calcul de surfaces\" |
|
Print ça veut dire imprimer, dans notre sens c'est plutôt écrire. Donc cette ligne permet d'écrire le texte entre guillemets. En langage Basic Casio, il y a plusieurs méthode pour écrire du texte à l'écran dont celle proposée par Pierrotll :"CALCUL DE SURFACES"
Un autre exemple, c'est la boucle Pour :
Dans l'autre langage on a :Code:
| FOR Variable=Valeur_initiale TO Valeur_finale
...
NEXT |
|
ce qui devient en Basic Casio :For Valeur_initiale→Variable To Valeur_finale ... Next
Un nouveau exemple : l'affectation d'une valeur à une variable :
Dans l'autre language on a :En Basic Casio, c'est : Valeur→Variable
Il faut donc que tu connaisse le Basic Casio (il y a des cours sur ce site, sur d'autres sites,... ce n'est pas ça qui manque). Il y a aussi des "cours" dans le manuel de ta calculatrice.
D'autres correspondances :
- INPUT "blablabla";Variable (demande d'une valeur qui sera affectée à la variable)
devient
"blablabla"?→Variable
- PRINT Variable (afficher la valeur de la variable)
devient (là encore plusieurs possibilités dont celle que Pierrotll t'a proposée)
Variable [disp]
- Aussi les tableaux de valeurs sont forcément des listes et non pas des Variable[..]
Bref plein de choses qui sont évidentes une fois que l'on comprend l'algorithmique (puisque ça ouvre à tout les langages) et que l'on maîtrise le Basic Casio. Donc apprend-le, déjà tu pourras te "traduire" d'autres programmes mais aussi tu peux faire beaucoup de programmes intéressants (pas forcément des jeux mais ça en fait parti aussi, surtout que je crois que sur une graph 100, la mémoire est grande (et pas limitée à 64Ko).
PS :Quote:
| est c'est quoi la méthode?
ps: ca c'est du francais |
|
Oui c'est plus compréhensible mais ce n'est toujours pas du français ("Et" et non pas "Est"). Et pour chipoter "ça" et non pas "ca", "français" et non pas "francais".
|
|
yof60
Membre
Messages: 30 | Message posté: 21-02-2010 à 18:15
dis mois tu serais pas Mr Beltrame mon prof de français
donc il faut que j'apprends a programmer pour pouvoir traduire.
je te remercie beaucoup et PierrotLL aussi.
|
|
lolotone
Membre
Messages: 30
Calculatrice : Graph 35 | Message posté: 21-02-2010 à 20:51
Quote:
| il faut que j'apprends a programmer pour pouvoir traduire |
|
Bah oui tu t'attendais à quoi ?
Alors tu connais le français mais (supposons) que tu ne connaisse pas l'anglais et qu'il n'y a pas de logiciel (efficace) pour traduire automatiquement, tu crois vraiment que tu n'as pas besoin d'apprendre l'anglais pour traduire un texte français en anglais ?
C'est exactement pareil pour une "traduction" entre deux langages.
Hors-sujet :
| Moi ton prof de français ? Bien sûr, et au devoir que tu devais rendre ljuste avant les vacances, je te mets 0 pour m'avoir reconnu . Tu crois vraiment que ton prof de français vient sur ce forum à ses heures perdues ? Encore ça serait ton prof de maths ou de physique.
Je te dis de faire attention à ce que t'écris parce que personnellement je trouve qu'un sujet mal rédigé ne doit pas avoir de réponse, puisque l'on peut se dire que le posteur n'a pas le temps d'écrire correctement donc il n'a rien à faire sur le forum. Après c'est mon avis personnel. Regarde un peu les règles du forum du site du zéro, et je te jure qu'au moindre dépassement, les modérateurs sont là : Règles (personnellement je trouve ça très bien). |
|
|
PierrotLL
Administrateur
Messages: 1228
Calculatrice : Graph 85 | Message posté: 21-02-2010 à 21:25
lolotone : Du calme, c'était de l'humour. Et le font-size:1px, c'était pas très malin.
yof60 : S'il y a d'autres programmes dont tu as impérativement besoin, je veux bien t'en convertir un ou deux, mais pas 50.
|
|
lolotone
Membre
Messages: 30
Calculatrice : Graph 35 | Message posté: 21-02-2010 à 22:51
Pierrotll : si si c'était très malin  (il n'y a que le zoom de I.E. (tiens quelque chose de bien avec) qui permet de le lire)
|
|
Le convertisseur d'images pour ClassPad 300 !
Les fonctions de programmation...
Editeur en ligne : Enregistrez vos cours avec mise en forme sur votre calculatrices
Cours téléchargeables
Possesseurs de ClassPad 300 : venez découvrir la rubrique spéciale ClassPad 300...
2 joueurs
Toutes Graph
Index des fonctions de programmation 
Forum programmation 
Les variables 
Les conditions 
Les boucles 
Affichage du texte 
Les connecteurs logiques
Getkey 
Graphismes 
Rafraîchissement 
Les mouvements 
Listes et matrices 
Articles
Questions/Réponses
Services Jeuxcasio.com 
Pas encore membre ?
Forum programmation Casio
