Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Projets de programmation


Index du Forum » Projets de programmation » Compilateur basic (on calc)
Adrien-sta Hors ligne Membre Points: 27 Défis: 4 Message

Compilateur basic (on calc)

Posté le 20/02/2012 10:31

bonjour je viens de créer un compilateur basic (a partir des str et des Fmem) il est un peu longt (1252O sur 35+) je vous donne la source et vous me dites des idées en +



''-->recuperer la fleche vers le bas<--
''->Str 7
Cls
Text 1,1,''Extraction de la chaine''
Exp>Str(Fn5,Str 1)
Text 1, 117,''OK''
Str 1->Str 4
'...................................................
Text 8,1,''Reduction des doubles retours''
StrSrc(Str 4,StrJoin(Str 7,Str 7))->A

If A
Then
StrLeft(Str 4,A-1)->Str 2
StrShift(Str 4,A)->Str 3
If StrSrc(Str 4,StrJoin(Str 7,Str 7))=1
Then StrJoin(Str 2,'''')->Str 4
Else StrJoin(Str 2,Str 3)->Str 4
IfEnd
IfEnd

While StrSrc(StrRight(Str 4,1),'' '')
StrLeft(Str 4,StrLen(Str4)-1)->Str 4
WhileEnd

LpWhile StrSrc(Str4,StrJoin(Str 7,Str 7))
Text 7,117,''OK''
'..........................................................
Text 16,1,''\''Retour\" devient \'':\'' ''
0->U
Do
StrSrc(Str 4,A-1)->Str 2
StrShift(Str 4,A)->Str 3
StrJoin(Str 2,'':'')->Str 2
If StrSrc(Str 3,Str 7)=1
Then StrJoin(Str 2,'':'')->Str 4
Else
StrJoin(Str 2,Str 3)->Str 4
IfEnd
U+1->U

While StrSrc(StrRight(Str 4,1),'' '')
StrLeft(Str 4,StrLen(Str 4)-1)->Str 4
WhileEnd
Text 16,115,U
LpWhile StrSrc(Str 4,Str 7)
Txex 16,115,''   ''
Text 16,117,''OK''
'.............................................
While StrSrc(StrRight(Str4,1),'' '')
StrLeft(Str 4,StrLen(Str 4)-1)->Str 4
WhileEnd
''[DISP]
''->Str 6

StrSrc(Str 4,StrJoin(Str 6,'':''))->A
If A
Then StrLeft(Str 4,A-1)->Str 2
StrShift(Str 4,A+1)->Str 3

StrJoin(Str 2,Str 6)->Str 2
StrJoin(Str 2,Str 3)->Str 4
IfEnd
'.....................FIN...........
StrLeft(Str 4,StrLen(Str 4)-1)->Str 4

Locate 1,5,''DE''
Locate 4,5, StrLen(Str 1)
Locate 8,5,''A''
Locate 10,5,StrLen(Str 4)
Locate 14,5,''Octets''
Str 4->Fn 6
Locate 1,7,''Le resultat est dans Fn6''

Ps:(Si vous etes suicidaires) qui pourrait me faire un Fxi (je n'ai pas de cable)

Edit:
J'ai remis les guillemets



LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 118 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd