Forum TI-Planet.org

Bonjour, à tous , j'ai recupéré un programmer de comptabilité pour faire les fusions ?, existe t'il un moyen pour pouvoir utiliser convertir ce programme sur ma ti nspire? ou faut t'il forcement modifier le programme ce que je ne sais pas faire
Merdi d'avance pour votre réponse

Voici le programme en question ,


Filename:FUSION

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all

"Procedure de fusion"Ù
Menu "Participation","Sans parti",1,"AãB",2,"BãA",3,"Partic croise",4Ù
Ù
Ù
Lbl 1Ù
"Sans participation"Ù
"Absorbante:A":Ù
"Nb act"?ãAÙ
"VN"?ãBÙ
"VR"?ãCÙ
"VF"?ãDÙ
"---"Ù
"Absorbante:B"Ù
"Nb act"?ãEÙ
"VN"?ãFÙ
"VC"?ãGÙ
"VR"?ãHÙ
"VF"?ãIÙ
"----------"Ù
"Etape 1:"Ù
"Parite avec VF"Ù
"Tbl des parite:"Ù
"ãpour A:"Ù
"x1 a x10"Ù
DØ
DÀ2Ø
DÀ3Ø
DÀ4Ø
DÀ5Ø
DÀ6Ø
DÀ7Ø
DÀ8Ø
DÀ9Ø
DÀ10Ø
"ãpour B:"Ù
"x1 a x10"Ù
IØ
IÀ2Ø
IÀ3Ø
IÀ4Ø
IÀ5Ø
IÀ6Ø
IÀ7Ø
IÀ8Ø
IÀ9Ø
IÀ10Ø
Ù
Lbl AÙ
"Calcul auto"Ù
"x actA pour x actB"Ù
IÁDØ
"Vous retenez:"Ù
"Act A:"?ãJÙ
JÀDãKØ
"Act B:"?ãLÙ
LÀIãMØ
Ù
If K=MÙ
Then Ù
"Parite juste"Ù
0ãNØ
IfEndÙ
Ù
If K>MÙ
Then Ù
"Soulte imposs dans ce sens"Ù
Goto AÙ
IfEndÙ
Ù
If K<MÙ
Then Ù
"Soulte pour A de:"Ù
(M)-(K)ãNØ
IfEndÙ
Ù
"-----------"Ù
"Etape2: Augm K"Ù
"Nb actA a creer:"Ù
"Nb actB À parite"Ù
EÀ(JÁL)ãOØ
"soit augm K de:"Ù
BÀOØ
"soit soulte de:"Ù
"soulte unit À (nb actBÁParitB)"Ù
NÀ(EÁL)ãPØ
"----------"Ù
"Etape 3: Prime"Ù
"EN VC:"Ù
"Apport de B (456)"Ù
GÀEØ
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
(GÀE)-(BÀO)-PØ
"--"Ù
"EN VR"Ù
"Apport de B (456)"Ù
HÀEØ
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
(HÀE)-(BÀO)-PØ
Goto 8Ù
Ù
Ù
Ù
Lbl 2Ù
"AãB"Ù
"Absorbante:A":Ù
"Nb act"?ãAÙ
"VN"?ãBÙ
"VR"?ãCÙ
"VF"?ãDÙ
"---"Ù
"Absorbante:B"Ù
"Nb act"?ãEÙ
"VN"?ãFÙ
"VC"?ãGÙ
"VR"?ãHÙ
"VF"?ãIÙ
"---"Ù
"Nb act AãB"?ãZÙ
"soit % deten"Ù
(ZÁE)À100Ø
"VNC actB ds bilan A"?ãYÙ
Ù
"----------"Ù
"Etape 1:"Ù
"Parite avec VF"Ù
"Tbl des parite:"Ù
"ãpour A:"Ù
"x1 a x10"Ù
DØ
DÀ2Ø
DÀ3Ø
DÀ4Ø
DÀ5Ø
DÀ6Ø
DÀ7Ø
DÀ8Ø
DÀ9Ø
DÀ10Ø
"ãpour B:"Ù
"x1 a x10"Ù
IØ
IÀ2Ø
IÀ3Ø
IÀ4Ø
IÀ5Ø
IÀ6Ø
IÀ7Ø
IÀ8Ø
IÀ9Ø
IÀ10Ø
Ù
Lbl BÙ
"Calcul auto"Ù
"x actA pour x actB"Ù
IÁDØ
"Vous retenez:"Ù
"Act A:"?ãJÙ
JÀDãKØ
"Act B:"?ãLÙ
LÀIãMØ
Ù
If K=MÙ
Then Ù
"Parite juste"Ù
0ãNØ
IfEndÙ
Ù
If K>MÙ
Then Ù
"Soulte imposs dans ce sens"Ù
Goto BÙ
IfEndÙ
Ù
If K<MÙ
Then Ù
"Soulte pour A de:"Ù
(M)-(K)ãNØ
IfEndÙ
"---"Ù
"Etape2: Augm K"Ù
"Nb actA a creer:"Ù
"Nb B  non detenu À parite"Ù
(E-Z)À(JÁL)ãOØ
"soit augm K de:"Ù
BÀOØ
"soit soulte de:"Ù
"slte unit À (nb actB non detenuÁParitB)"Ù
NÀ((E-Z)ÁL)ãPØ
"----------"Ù
"Etape 3: Prime et renonciation"Ù
"EN VC:"Ù
"Apport de B x %no dentent(456)"Ù
(GÀE)À(1-(ZÁE))Ø
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
((GÀE)À(1-(ZÁE)))-(BÀO)-PØ
"Renonciation:"Ù
"Apport B deja detenu"Ù
(GÀE)À(ZÁE)Ø
"VNC actB ds bilan A"Ù
YØ
"soit renonciation"Ù
((GÀE)À(ZÁE))-YãXØ
If XÊ0Ù
Then "Boni"Ù
Else "Mali"Ù
"Max mali techn"Ù
((EÀH)-(EÀG)À(ZÁE))Ø
IfEndÙ
"--"Ù
"EN VR"Ù
"Apport de B x %no dentent(456)"Ù
(HÀE)À(1-(ZÁE))Ø
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
((HÀE)À(1-(ZÁE)))-(BÀO)-PØ
"Renonciation:"Ù
"Apport B deja detenu"Ù
(HÀE)À(ZÁE)Ø
"VNC actB ds bilan A"Ù
YØ
"soit renonciation"Ù
((HÀE)À(ZÁE))-YãXØ
If XÊ0Ù
Then "Boni"Ù
Else "Mali"Ù
"Max mali techn"Ù
((EÀH)-(EÀG)À(ZÁE))Ø
IfEndÙ
Goto 8Ù
Ù
Ù
Lbl 3Ù
"BãA"Ù
"Absorbante:A":Ù
"Nb act"?ãAÙ
"VN"?ãBÙ
"VR"?ãCÙ
"VF"?ãDÙ
"---"Ù
"Absorbante:B"Ù
"Nb act"?ãEÙ
"VN"?ãFÙ
"VC"?ãGÙ
"VR"?ãHÙ
"VF"?ãIÙ
"---"Ù
"Nb act BãA"?ãZÙ
"soit % deten"Ù
(ZÁA)À100Ø
"VNC actA ds bilan B"?ãYÙ
"----------"Ù
"Etape 1:"Ù
"Parite avec VF"Ù
"Tbl des parite:"Ù
"ãpour A:"Ù
"x1 a x10"Ù
DØ
DÀ2Ø
DÀ3Ø
DÀ4Ø
DÀ5Ø
DÀ6Ø
DÀ7Ø
DÀ8Ø
DÀ9Ø
DÀ10Ø
"ãpour B:"Ù
"x1 a x10"Ù
IØ
IÀ2Ø
IÀ3Ø
IÀ4Ø
IÀ5Ø
IÀ6Ø
IÀ7Ø
IÀ8Ø
IÀ9Ø
IÀ10Ø
Ù
Lbl CÙ
"Calcul auto"Ù
"x actA pour x actB"Ù
IÁDØ
"Vous retenez:"Ù
"Act A:"?ãJÙ
JÀDãKØ
"Act B:"?ãLÙ
LÀIãMØ
Ù
If K=MÙ
Then Ù
"Parite juste"Ù
0ãNØ
IfEndÙ
Ù
If K>MÙ
Then Ù
"Soulte imposs dans ce sens"Ù
Goto CÙ
IfEndÙ
Ù
If K<MÙ
Then Ù
"Soulte pour A de:"Ù
(M)-(K)ãNØ
IfEndÙ
"----------"Ù
"Etape2: Augm K"Ù
"Nb actA a creer:"Ù
"Nb actB À parite"Ù
EÀ(JÁL)ãOØ
"soit augm K de:"Ù
BÀOØ
"soit soulte de:"Ù
"soulte unit À (nb actBÁParitB)"Ù
NÀ(EÁL)ãPØ
"----------"Ù
"Etape 3: Prime et reduc K"Ù
"EN VC:"Ù
"Apport de B (456)"Ù
GÀEØ
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
(GÀE)-(BÀO)-PØ
"Reduction de K:"Ù
"VNC actA ds bilan B"Ù
YØ
"VN actA ds bilan B"Ù
ZÀBØ
"Reduc K de"Ù
Y-(ZÀB)Ø
"--"Ù
"EN VR"Ù
"Apport de B (456)"Ù
HÀEØ
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
(HÀE)-(BÀO)-PØ
"Reduction de K:"Ù
"VR actA ds bilan B"Ù
CÀZØ
"VN actA ds bilan B"Ù
ZÀBØ
"Reduc K de"Ù
(CÀZ)-(ZÀB)Ø
Goto 8Ù
Ù
Ù
Ù
Ù
Lbl 4Ù
"Participation croisee"Ù
"----------"Ù
"Pre-etape: les VR"Ù
"Nb actA"?ãAÙ
"Nb actB chez A"?ãRÙ
"ANCC A hors actB"?ãSÙ
"Nb actB"?ãEÙ
"Nb actA chez B"?ãTÙ
"ANCC B hors actA"?ãUÙ
"Equation:"Ù
"100%A=ANCC A + actB"Ù
"100%B=ANCC B + actA"Ù
"soitVR de B:"Ù
Solve(((U+TÀ((SÁA)+(250XÁA)))ÁE)-X,X)ãHØ
"soitVR de A:"Ù
Solve(((S+(RÀH))ÁA)-X,X)ãCØ
Ù
"Absorbante:A":Ù
"Nb act"Ù
AØ
"VN"?ãBÙ
"VR"Ù
CØ
"VF"?ãDÙ
"---"Ù
"Absorbante:B"Ù
"Nb act"Ù
EØ
"VN"?ãFÙ
"VC"?ãGÙ
"VR"Ù
HØ
"VF"?ãIÙ
"---"Ù
"% AãB"Ù
(RÁE)À100Ø
"% BãA"Ù
(TÁA)À100Ø
"VNC actA ds bilan B"?ãYÙ
"VNC actB ds bilan A"?ãWÙ
"----------"Ù
"Etape 1:"Ù
"Parite avec VF"Ù
"Tbl des parite:"Ù
"ãpour A:"Ù
"x1 a x10"Ù
DØ
DÀ2Ø
DÀ3Ø
DÀ4Ø
DÀ5Ø
DÀ6Ø
DÀ7Ø
DÀ8Ø
DÀ9Ø
DÀ10Ø
"ãpour B:"Ù
"x1 a x10"Ù
IØ
IÀ2Ø
IÀ3Ø
IÀ4Ø
IÀ5Ø
IÀ6Ø
IÀ7Ø
IÀ8Ø
IÀ9Ø
IÀ10Ø
Ù
Lbl DÙ
"Calcul auto"Ù
"x actA pour x actB"Ù
IÁDØ
"Vous retenez:"Ù
"Act A:"?ãJÙ
JÀDãKØ
"Act B:"?ãLÙ
LÀIãMØ
Ù
If K=MÙ
Then Ù
"Parite juste"Ù
0ãNØ
IfEndÙ
Ù
If K>MÙ
Then Ù
"Soulte imposs dans ce sens"Ù
Goto DÙ
IfEndÙ
Ù
If K<MÙ
Then Ù
"Soulte pour A de:"Ù
(M)-(K)ãNØ
IfEndÙ
"----------"Ù
"Etape2: Augm K"Ù
"Nb actA a creer:"Ù
"Nb B  non detenu À parite"Ù
Int ((E-R)À(JÁL))ãOØ
"soit augm K de:"Ù
BÀOØ
"soit soulte de:"Ù
"slte unit À (nb actB non detenuÁParitB)"Ù
"+arrondi sur creat actA"Ù
NÀ((E-R)ÁL)+((E-R)ÀI)-OÀDãPØ
"----------"Ù
"Etape 3: Prime renonc. red K"Ù
"EN VC:"Ù
"Apport de B x %no dentent(456)"Ù
(GÀE)À(1-(RÁE))Ø
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
((GÀE)À(1-(RÁE)))-(BÀO)-PØ
"Renonciation:"Ù
"Apport B deja detenu"Ù
(GÀE)À(RÁE)Ø
"VNC actB ds bilan A"Ù
WØ
"soit renonciation"Ù
((GÀE)À(RÁE))-WãXØ
If XÊ0Ù
Then "Boni"Ù
Else "Mali"Ù
"Max mali techn"Ù
((EÀH)-(EÀG)À(RÁE))Ø
IfEndÙ
"Reduction de K:"Ù
"VNC actA ds bilan B"Ù
YØ
"VN actA ds bilan B"Ù
TÀBØ
"Reduc K de"Ù
Y-(TÀB)Ø
Ù
"--"Ù
"EN VR"Ù
"Apport de B x %no dentent(456)"Ù
(HÀE)À(1-(RÁE))Ø
"Augm K (101)"Ù
BÀOØ
"Soulte (512)"Ù
PØ
"soit prime (104)"Ù
((HÀE)À(1-(RÁE)))-(BÀO)-PØ
"Renonciation:"Ù
"Apport B deja detenu"Ù
(HÀE)À(RÁE)Ø
"VNC actB ds bilan A"Ù
WØ
"soit renonciation"Ù
((HÀE)À(RÁE))-WãXØ
If XÊ0Ù
Then "Boni"Ù
Else "Mali"Ù
"Max mali techn"Ù
((EÀH)-(EÀG)À(RÁE))Ø
IfEndÙ
"Reduction de K:"Ù
"VR actA ds bilan B"Ù
TÀCØ
"VN actA ds bilan B"Ù
TÀBØ
"Reduc K de"Ù
(TÀC)-(TÀB)Ø
Goto 8Ù
Ù
Ù
Ù
Ù
Ù
Lbl 8Ù
"FIN"Ù
Ù
Ù
Ù
Ù
Ù
Ù
Ù


Bonjour.

J'ai modifié légèrement la mise en page de ton précédant message pour le rendre plus lisible.

Le problème, c'est que tu as des caractères qui s'affichent mal (encodage raté) et du coup ton code est pas trop lisible.

Que fait exactement ce programme ? As-tu regardé qu'il n'existe aucun programme faisant la même chose sur Nspire ? (en haut à gauche, onglet recherche, si tu es sur l'interface ordinateur)

Oui exact j'ai fais un copier coller du programme et il s'affiche mal , le programme calcul les fusions de société donc les augmentations de capital a faire , la prime d'emission , la soulte eventuele , j'ai beaucoup cherché un programme de ce genre ,notamment sur le site mais rien de comparable beaucoup de cours surtout pas de programme , merci encore

Voici le programme je n'ai pu le mettre en piece jointe donc je l'ai mis en partage
https://mon-partage.fr/f/C4hOUqqL/

jamais entendu parlé de "fusions de société".

la "conversion" est un peu complexe, côté TI Basic Nspire, il n'y a pas de fonction qui permet de faire un menu, pas de Pause et les commandes ne se ressemblent pas.

pour t'aider un peu sur la "conversion" :
pour afficher :

Code: Select all

"Sans participation"
"Absorbante:A"
...
D(triangle noir)

sur Nspire il faut utiliser des fonctions :

Code: Select all

Disp "Sans participation"
Disp "Absorbante:A"
...
Disp D

Remarque : si on écrit Disp "Sans participation","Absorbante:A" les textes se suivent.

Code: Select all

"Nb act"?→A

sur Nspire c'est :

Code: Select all

Request "Nb act",a

pour le(s) menu(s), le seul moyen est de faire une ligne Text, un Request et utiliser les conditions, afin d'éviter les Lbl