Editeur de code casio graph 25 (maj 2)

Soyez le premier à donner votre avis sur cette source.

Vue 10 513 fois - Téléchargée 501 fois

Description

c'est juste un editeur pour calculatrice graph 25 avec coloration syntaxique !!
Je l'ai fait un peu a l'arrache donc il se peut k'il y'a un bug !!
Si vous connaissez un systeme plus efficace pour la coloration syntaxique prévenez-moi svp !!

Voila, suite au commentaire de nephix2003, on peut désormait sauver en rtf ce ki permet de garder les couleurs !!!

Il ne reste plus ke la coloration du texte lors de l'ouveryture d'unb fichier a faire(et oui nephix, j'ai tjs po trouver, mais dl la source, g fé kelke modif par rapport a ton code)

Source / Exemple :


ZIP

Conclusion :


PS : j'ai rajouté un petit worms que g fé sur calto au nom de mon 2nd pseudo (pour ceux qui dirait ke c po de moi) !!!
A et au fait, cet éditeur peut s'adapter pour n'importe kel langage et n'importe kel support, il suffit de modifier les fichiers*.ini ds le repertoire !!!
Et un grand merci a nephix2003 ki m'a enormement aidé dans ce projet !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
84
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
6 novembre 2004

De retour ;-)
Il se trouve que mon code a induit une régression dans ton éditeur : si tu charges un fichier ou que tu lances manuellement la colorisation (menu 'Afficher Couleur'), ton programme plante en bouclant sur la première ligne (damned!)

Bref, j'ai corrigé ça. Je peux copier/coller le code corrigé ici, mais peut-être que tu préfères chercher tout seul l'origine du problème pour t'entrainer ?
A toi de voir, je te laisse décider, bien que les modifs à faires ne sont pas triviales.
En tout cas, sache que le code est déjà prêt, donc tu n'as qu'à me demander et aussitôt je le poste ici. Avec ce dernier code que j'ai fait, l'affichage des couleurs se fait ligne après ligne, ce qui fait plutôt sympa :)

Voilou
@++
Messages postés
84
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
6 novembre 2004

je vois. C'est normal, maintenant que l'on gère la colorisation en "live", on a un souci quand on écrit le premier guillemet :
dans J2 on enregistre la position de ce guillemet, puis dans J3 on cherche la position du 2eme guillemet qui -évidemment- n'existe pas. Donc J3 est négatif et ...boom :)

Tu peux solutionner le problème en testant J3 :
if J3 < 0 then exit do ' quitte le traitement des guillemets

Et là tu verras que ça marche bien...
...enfin presque. Si tu mets un nombre entre tes 2 guillemets, tu risques d'avoir un problème, vu que tu fais un traitement de couleur des nombres après le traitement des guillemets. Nous, on veut que le texte entre guillemets reste rouge, qu'ils contienne des mots-clés ou pas => il faut faire la colorisation des guillements en toute fin de TexteCouleur.

Fin de l'histoire? hmm pas vraiment :)
si on continues à écrire après le 2eme guillemet, la fonte est rouge, italique et en gras, et ça c pas tip-top.
En fait on aimerait bien revenir à la fonte par défaut. Finalement, tu vois que le problème se pose ailleurs : dès que tu détectes un mot clé, disons par exemple une fonction, tu mets tous ses caractères en bleu et en gras. Mais si tu effaces l'une des lettres ? certes on repasse bien les caractères en noir mais...ils apparaissent encore en gras. Ca non plus c pas tip-top (eh meeerde!)
Donc faudrait sauvegarder/restaurer pas seulement la position du curseur, mais aussi les infos de fontes.

enfin bref, pour résumer le tout, ça donne ça :

Private m_selStart As Long
Private m_selColor As Long
Private m_selBold As Long
Private m_selItalic As Long
Private m_selUnderline As Long
Private m_charIndexeStart As Long
Private m_charIndexeEnd As Long

Public Sub TexteCouleur()

m_selStart = Text1.SelStart
m_selColor = Text1.SelColor
m_selBold = Text1.SelBold
m_selItalic = Text1.SelItalic
m_selUnderline = Text1.SelUnderline

Dim J2 As Integer

Call CalculIndexes
With Text1
.SelStart = m_charIndexeStart
.SelLength = m_charIndexeEnd - m_charIndexeStart + 1
.SelColor = vbBlack
.SelBold = False
.SelItalic = False
.SelUnderline = False
End With

For I = 0 To LongFonction
J = Text1.Find(Fonction(I), m_charIndexeStart, m_charIndexeEnd)
Do While J <> -1
Text1.SelStart = Text1.Find(Fonction(I), J)
Text1.SelLength = Len(Fonction(I))
Text1.SelColor = Fonct.Couleur
Text1.SelBold = Fonct.Gras
Text1.SelItalic = Fonct.Ital
Text1.SelUnderline = Fonct.Soul
J = Text1.Find(Fonction(I), m_charIndexeStart + J + 1, m_charIndexeEnd)
Loop
Next I

For I = 0 To 9
J = -1
Do While Text1.Find(I, m_charIndexeStart + J + 1, m_charIndexeEnd) <> -1
J = Text1.Find(I, J + 1)
Text1.SelStart = Text1.Find(I, J)
Text1.SelLength = 1
Text1.SelColor = Nbr.Couleur
Text1.SelBold = Nbr.Gras
Text1.SelItalic = Nbr.Ital
Text1.SelUnderline = Nbr.Soul
Loop
Next I

J = Text1.Find("""", m_charIndexeStart, m_charIndexeEnd)
Do While J <> -1
J2 = Text1.Find("""", J + 1)
If J2 < 0 Then Exit Do

With Text1
.SelStart = J
.SelLength = J2 - J + 1
.SelColor = Texte.Couleur
.SelBold = Texte.Gras
.SelItalic = Texte.Ital
.SelUnderline = Texte.Soul
End With

J = Text1.Find("""", J2 + 1, m_charIndexeEnd)
Loop

With Text1
.SelStart = m_selStart
.SelColor = m_selColor
.SelBold = m_selBold
.SelItalic = m_selItalic
.SelUnderline = m_selUnderline
End With
End Sub


Bon faut que j'arrete de t'aider, c'est en cherchant qu'on apprend, pas vrai ?
De toute façon t'as encore du taff :
- la colorisation des nombres déconne
- fais un copy/paste d'un mot dans ton textbox : surprise! ;-)
- quand t'écris juste après le 2eme guillemet, tu vois que ton caractère se confond avec le guillemet, du au fait que ton guillement est penché par l'italique, il recouvre en partie ton nouveau caractère qui n'est pas en italique, c'est pas très agréable
- ...et puis les fonctions pour rendre encore plus intelligent ton éditeur (indentation, casse, etc etc)

Voilà voilà

Enfin, si t'as des questions, t'hésites pas quand même... ;-)

Bon courage
@++
Messages postés
82
Date d'inscription
dimanche 9 septembre 2001
Statut
Membre
Dernière intervention
21 août 2006

oué pk po mé bon déjà là g mi ton systeme (ki marche tres bien) saufke g un pb now !!!! il arrive plus a détecter les textes entre les guillemets !!!!
Donc pour pousser un peu plus les options va déjà faloir ke je corrige ca !!!
Messages postés
84
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
6 novembre 2004

content que ça te plaise Cracker, merci pour tes remerciements :)
J'espère que tu vas réussir à finaliser ton éditeur comme tu le souhaites.
Ensuite, si t'as envie de te déchainer, tu pourrais ajouter une intelligence à ton prog, style faire de la vérification syntaxique en live (à la mode de chez Word), ou encore de l'autoformatting (correction d'indentation, correction de la casse, etc., à la VB quoi).
Mais bon, là faut être motivé ;-)

sinon MrAssol, sympa ton site, je connaissais pas.

@++
Messages postés
30
Date d'inscription
vendredi 17 mai 2002
Statut
Membre
Dernière intervention
14 octobre 2009

moi je faisiat de l'assembleur sur ma graph 100 !!! les jeux etaient (et sont toujours) rapides, y meme les nuances de gris/noir !!!! pour plus d'infos ur les jeux allez voir sur www.graph100.com (c pas mon site !!!!)
Afficher les 14 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.