Editeur avec cellules

Invité

J'avais pas remarqué qu'il y avait une traduction.
Ce qui est bizarre est que sans rien faire, il ne s'affiche plus, et l'affichage est normal (je ne suis pas sur le même onglet) Peut-être qu'une fois que google à vu que la page était en anglais et au retour, il ne traduit plus.??
Merci de ta remarque

Si joint un premier jet que pense de cela.
La numérotation est faite avec les includes nemérotés eux aussi.

J'ai pris la liberté de changer la présentation excuse-moi.

Code:: dim num_F%
dim tp%
dim lft%
dim wth%
dim hgt%
dim brd_hd%
dim clr_r%
dim clr_g%
dim clr_b%
dim dumy%
dim dummy$
' Définitions des labels
Label list1,list2,list3,list4,list5,list6
' Initialisation des variables pour la fenêtre 1
num_f%=1
tp%=30
lft%=440
wth%=153
hgt%=445
brd_hd%=1
num_f%=2
tp%=0
lft%=0
wth%=130
hgt%=400
brd_hd%=1
clr_r% = 240
clr_g% = 240
clr_b% = 240

' ************************************
' Form 1 pour receptacle les variables
form 1
top 1,30
left 1,440
width 1,153
height 1,445
caption 1,"Variables"
border_small 1
' **************************************
' List pour les variables
command_target_is 1
list 2
top 2,0
left 2,0
width 2,133
height 2,410
parent 2,1
color 2,240,240,240
show 2
item_add 2,"Variables"
item_add 2,"1s"
item_add 2,"2s"

' ************************************
' Form 3 pour receptacle les variables
form 3
top 3,25
left 3,440
width 3,153
height 3,445
caption 3,"Labels"
border_small 3

' *************************************
' Pour les labels
command_target_is 3
list 4
top 4,0
left 4,0
width 4,133
height 4,410
parent 4,3
color 4,240,240,240
show 4
item_add 4,"Label0"
item_add 4,"Label1"
item_add 4,"Label2"
item_add 4,"Label3"
item_add 4,"Label4"

' ************************************
' Form 5 pour receptacle les goto
form 5
top 5,25
left 5,440
width 5,153
height 5,445
caption 5,"GOTO"
border_small 5

' *************************************
' List pour les goto
command_target_is 5
list 6
top 6,0
left 6,0
width 6,133
height 6,410
parent 6,5
color 6,240,240,240
show 6
item_add 6,"goto0"
item_add 6,"goto1"
item_add 6,"goto2"
item_add 6,"goto3"
item_add 6,"goto4"

' ************************************
' Form 7 pour receptacle les gosub
form 7
top 7,25
left 7,440
width 7,153
height 7,445
caption 7,"GOSUB"
border_small 7

' *************************************
' List pour les gosub
command_target_is 7
list 8
top 8,0
left 8,0
width 8,133
height 8,410
parent 8,7
color 8,240,240,240
show 8
item_add 8,"gosub0"
item_add 8,"gosub1"
item_add 8,"gosub2"
item_add 8,"gosub3"
item_add 8,"gosub4"
' ************************************
' Form 9 pour receptacle des #include
form 9
top 9,25
left 9,440
width 9,153
height 9,445
caption 9,"#Include"
border_small 9

' *************************************
' List 9 pour les #include
command_target_is 9
list 10
top 10,0
left 10,0
width 10,133
height 10,410
parent 10,9
color 10,240,240,240
show 10
item_add 10,"#include0"
item_add 10,"#include1"
item_add 10,"#include2"
item_add 10,"#include3"
item_add 10,"#include4"

' ************************************
' Form 11 pour receptacle les Erreurs
form 11
top 11,25
left 11,440
width 11,153
height 11,445
caption 11,"Erreurs"
border_small 11

' *************************************
' List 12 pour les Erreurs
command_target_is 11
list 12
top 12,0
left 12,0
width 12,133
height 12,410
parent 12,11
color 12,240,240,240
show 12
item_add 12,"Erreurs0"
item_add 12,"Erreurs1"
item_add 12,"Erreurs2"
item_add 12,"Erreurs3"
item_add 12,"Erreurs4"

' ****************************************
' Memo 17 pour afficher le programme
command_target_is 0
Memo 17
top 17,0
left 17,0
width 17 ,500
height 17,440
font_name 17,"Consolas"
font_size 17,14
' #Include "c:\Exemples\Numlowc"

' Programme pour inscrire les numéros des lignes pour
' les passer sur le Forum
' Initialisation des variables
dim a$ ,b% ,f$ ,c% ,d$,E$ ,flgins$,flag_instr% ,I%
b%=0
flgins$="#include"
flag_instr%=0
label include

' Ouvrir la boite de dialogue
open_dialog 13

' Choisir le fichier a traiter
a$=file_name$(13)

' récupérer le nombre de caratères du nom de fichier
c% = len(a$)

' récuperer le nom du fichier sans l'extension
d$= left$(a$,C%-3)

' ajouter l'extension txt"
d$= d$+"txt"

' Ouvrir le fichier en lecture a traiter
file_open_read 14, a$

' ouvrir le fichier d'écriture
file_open_write 15,d$

' test si pas fin de fichier
while file_eof(14) <>1

' Lecture d'un ligne de fichier
file_readln 14,f$

f$=trim$(f$)
' Incrémentation du compteur de ligne
b%=b%+1

' changement de la variable numerique en string
e$=str$(b%)

' ajout d'un blanc
e$ = e$+" "+f$

' ecrire la ligne dans le fichier
file_writeln 15,lower$(e$)

item_add 17,e$

' Tester si la chaine #include existe dans la ligne
flag_instr%=instr(f$,flgins$)

' Test si le drapeau flag_instr$ différent de zero
if flag_instr%>0

' Test si le premier caractère est bien un #
' si oui c'est bien un include on va au sous-prog include
if "#"= left$(f$,1) then gosub include

end_if

' fin de la boucle
end_while
' Fermeture des fichier
file_close 14
file_close 15

on_click 2,list1
on_click 4,list2
on_click 6,list3
on_click 8,list4
on_click 10,list5
on_click 12,list6
end

list1:
dumy%=item_index(2)
dummy$=item_read$(2,dumy%)
print dummy$

return

list2:

dumy%=item_index(4)
dummy$=item_read$(4,dumy%)
print dummy$
return

list3:

dumy%=item_index(6)
dummy$=item_read$(6,dumy%)
print dummy$
return

list4:

dumy%=item_index(8)
dummy$=item_read$(8,dumy%)
print dummy$

return

list5:

dumy%=item_index(10)
dummy$=item_read$(10,dumy%)
print dummy$
return

list6:

dumy%=item_index(12)
dummy$=item_read$(12,dumy%)
print dummy$
return

terminate

include:

' longueur de la chaîne
c%=len(f$)

' On convertit la caractère "
a$=chr$(34)

' position ou se trouve le premier ..."...
I%=instr(f$,a$)

' on rajoute pour avoir le compte correct
c%=(C%-I%)+2

' On a le nom du fichier Include
f$= right$(f$,c%)

f$=ltrim$(f$)

file_open_read 16,f$
' test si pas fin de fichier
while file_eof(16) <>1

' Incrémentation de la boucle
b%=b%+1

' changement de la variable numerique en string
e$=str$(b%)

' Lecture d'un ligne de fichier
file_readln 16,f$
' ajout d'un blanc
e$ = e$+" "+f$
' ecrire la ligne dans le fichier
file_writeln 15,lower$(e$)

item_add 17,e$
end_while
file_close 16
flag_instr%=0
return

Chacune des fenêtres sur la droite représente soit toutes variables labels,goto,gosub,#include etc...et en clickant dessus on pourra vérifier sur la gande fenêtre les différents paramètres nous permettant de vérifier .

Invité

Je vois que tu as bien travaillé. Je ne regarde pas pour l'instant le programme. J'ai besoin de rester concentré sur le mien d'autant qu'avec la prochaine version mon programme ne sera plus compatible avec les modifications que Jack apporte. Panoramique c'est son joujou, il fait ce qu'il veut et c'est normale, mais moi ça me complique et pourtant cela ne ressemble pas à un programme spaghetti.
J'essayerai, si tout va bien de jeter un oeil demain si tout se passe bien.

A ce propos, tu reprends le programme comme il te convient. Il a été fait sur un coup de tête comme c'est généralement le cas lors d'une discution sur le forum. A la vue d'un résultat, on peux voir les choses autrement. J'ai fais un programme qui n'est pas fini, le programme que tu présentes, c'est le tien.

Salutation.

Invité

Bien cosmos, fais comme moi ce qui est un peu dérangeant mais garde installé plusieurs version de PANORAMIC sur ton ordinateur comme ça tu peux programmer avec n'importe qu'elle.

Moi j'ai la 0.9.14 d'installer comme deuxième, je ne peux pas faire grand chose mais au moins, je peux charger de fichier ICO dans un picture ce qui n'est plus possible aujourd'hui.

Invité

Tu as raison Nicolas, seulement j'ai pas une grosse tête, et j'aime pas trop me détourner de ce que je fais, surtout que je suis sur erreur que je ne comprends pas, et mon programme à cellule il est long. Si je restais devant mon ordi continuellement ce serait différent, mais je ne peux pas et je ne fais qu'une chose à la fois. Mais promis dès que je peux, je regarde, je ne laisse pas tomber 659_minifly

Invité

Sujet: Éditeur à cellules

Contrairement à ce j'ai dit la dernière fois, le décalage d'un picture, perturbe la position de la souris sur l'écran.

Tant que je descends avec le clavier les cellules sont repérées, mais si je clique avec la souris, je me trouve hors limites, j'ai plus de référence. Donc il manque bien une instruction pour connaitre le décalage de l'écran sur un clique lorsqu'il y a un ascenseur. Avec le clavier, le tracé est juste, la cellule suit bien, avec la souris, c'est différent.

Dire que malgrè les différentes demandes je n'aurai pas de réponse la dessus, il y a de quoi être découragé.
Le monde il est comme il est. Plus ça va plus je suis incapable.

Tu trouvera ci-joint le programme avec les dim uniquement.

on dirait que cela pourrait rendre service :

Code:: dim num_F%
dim tp%
dim lft%
dim wth%
dim hgt%
dim brd_hd%
dim clr_r%
dim clr_g%
dim clr_b%
dim dumy%
dim dummy$
dim I%
dim compteur%
' Définition des tableaux

dim Tbl_Dictionnaire$(100)
dim Tbl_variables$(100)
I%=0
Tbl_Dictionnaire$(I%)="dim"
I%=I%+1
Tbl_Dictionnaire$(I%)="label"

' Définitions des labels
Label list1,list2,list3,list4,list5,list6
' Initialisation des variables pour la fenêtre 1
num_f%=1
tp%=30
lft%=440
wth%=153
hgt%=445
brd_hd%=1
num_f%=2
tp%=0
lft%=0
wth%=130
hgt%=400
brd_hd%=1
clr_r% = 240
clr_g% = 240
clr_b% = 240

' ************************************
' Form 1 pour receptacle les variables
form 1
top 1,30
left 1,440
width 1,153
height 1,445
caption 1,"Dim"
border_small 1
' **************************************
' List pour les variables
command_target_is 1
list 2
top 2,0
left 2,0
width 2,133
height 2,410
parent 2,1
color 2,240,240,240
show 2

' ************************************
' Form 3 pour receptacle les variables
form 3
top 3,25
left 3,440
width 3,153
height 3,445
caption 3,"Labels"
border_small 3

' *************************************
' Pour les labels
command_target_is 3
list 4
top 4,0
left 4,0
width 4,133
height 4,410
parent 4,3
color 4,240,240,240
show 4
item_add 4,"Label0"
item_add 4,"Label1"
item_add 4,"Label2"
item_add 4,"Label3"
item_add 4,"Label4"

' ************************************
' Form 5 pour receptacle les goto
form 5
top 5,25
left 5,440
width 5,153
height 5,445
caption 5,"GOTO"
border_small 5

' *************************************
' List pour les goto
command_target_is 5
list 6
top 6,0
left 6,0
width 6,133
height 6,410
parent 6,5
color 6,240,240,240
show 6
item_add 6,"goto0"
item_add 6,"goto1"
item_add 6,"goto2"
item_add 6,"goto3"
item_add 6,"goto4"

' ************************************
' Form 7 pour receptacle les gosub
form 7
top 7,25
left 7,440
width 7,153
height 7,445
caption 7,"GOSUB"
border_small 7

' *************************************
' List pour les gosub
command_target_is 7
list 8
top 8,0
left 8,0
width 8,133
height 8,410
parent 8,7
color 8,240,240,240
show 8
item_add 8,"gosub0"
item_add 8,"gosub1"
item_add 8,"gosub2"
item_add 8,"gosub3"
item_add 8,"gosub4"
' ************************************
' Form 9 pour receptacle des #include
form 9
top 9,25
left 9,440
width 9,153
height 9,445
caption 9,"#Include"
border_small 9

' *************************************
' List pour les #include
command_target_is 9
list 10
top 10,0
left 10,0
width 10,133
height 10,410
parent 10,9
color 10,240,240,240
show 10
item_add 10,"#include0"
item_add 10,"#include1"
item_add 10,"#include2"
item_add 10,"#include3"
item_add 10,"#include4"

' ************************************
' Form 11 pour receptacle les Erreurs
form 11
top 11,25
left 11,440
width 11,153
height 11,445
caption 11,"Erreurs"
border_small 11

' *************************************
' List 12 pour les Erreurs
command_target_is 11
list 12
top 12,0
left 12,0
width 12,133
height 12,410
parent 12,11
color 12,240,240,240
show 12
item_add 12,"Erreurs0"
item_add 12,"Erreurs1"
item_add 12,"Erreurs2"
item_add 12,"Erreurs3"
item_add 12,"Erreurs4"

' ****************************************
' Memo 17 pour afficher le programme
command_target_is 0
Memo 17
top 17,0
left 17,0
width 17 ,600
height 17,400
font_name 17,"Consolas"
font_size 17,14

' Initialisation des variables pour numérotation progamme
dim a$ ,b% ,f$ ,c% ,d$,E$ ,flgins$,flag_instr%
b%=0
flgins$="#include"
flag_instr%=0
label include

' Ouvrir la boite de dialogue
open_dialog 13

' Choisir le fichier a traiter
a$=file_name$(13)

' récupérer le nombre de caratères du nom de fichier
c% = len(a$)

' récuperer le nom du fichier sans l'extension
d$= left$(a$,C%-3)

' ajouter l'extension txt"
d$= d$+"txt"

' Ouvrir le fichier en lecture a traiter
file_open_read 14, a$

' ouvrir le fichier d'écriture
file_open_write 15,d$

' test si pas fin de fichier
while file_eof(14) <>1

' Lecture d'un ligne de fichier
file_readln 14,f$

' On retire les blancs de devant et de derriere
f$=trim$(f$)

' Incrémentation du compteur de ligne
b%=b%+1

' changement de la variable numerique en string
e$=str$(b%)

' ajout d'un blanc entre le numero de ligne et les instructions
e$ = e$+" "+f$

' ecrire la ligne dans le fichier
file_writeln 15,lower$(e$)

' on ecrit la ligne dans le memo
item_add 17,e$

' Tester si la chaine #include existe dans la ligne
flag_instr%=instr(f$,flgins$)

' Test si le drapeau flag_instr$ différent de zero
if flag_instr%>0

' Test si le premier caractère est bien un #
' si oui c'est bien un include on va au sous-prog include
if "#"= left$(f$,1) then gosub include
end_if

' fin de la boucle
end_while

' Fermeture des fichiers
file_close 14
file_close 15

' **********************************************************************
' Ceci est un test pour voir si cela est faisable
' on enregistre toutes les déclarations des variables dans un tableau
' on a deja mis en minuscule tous les caractères dans le fichier *.txt
' On vas appelé le sous programme Variables
label Recherche
' récupéation du mot a chercher

' Initialisation du compteur du memo
compteur%=count(17)
item_add 2,str$(compteur%)
gosub Recherche

' **********************************************************************

on_click 2,list1
on_click 4,list2
on_click 6,list3
on_click 8,list4
on_click 10,list5
on_click 12,list6
end

list1:
dumy%=item_index(2)
dummy$=item_read$(2,dumy%)
print dummy$

return

list2:

dumy%=item_index(4)
dummy$=item_read$(4,dumy%)
print dummy$
return

list3:

dumy%=item_index(6)
dummy$=item_read$(6,dumy%)
print dummy$
return

list4:

dumy%=item_index(8)
dummy$=item_read$(8,dumy%)
print dummy$

return

list5:

dumy%=item_index(10)
dummy$=item_read$(10,dumy%)
print dummy$
return

list6:

dumy%=item_index(12)
dummy$=item_read$(12,dumy%)
print dummy$
return

terminate

include:

' longueur de la chaîne
c%=len(f$)

' On convertit la caractère "
a$=chr$(34)

' position ou se trouve le premier ..."...
I%=instr(f$,a$)

' on rajoute pour avoir le compte correct
c%=(C%-I%)+2

' On a le nom du fichier Include
f$= right$(f$,c%)

f$=ltrim$(f$)

file_open_read 16,f$
' test si pas fin de fichier
while file_eof(16) <>1

' Incrémentation de la boucle
b%=b%+1

' changement de la variable numerique en string
e$=str$(b%)

' Lecture d'un ligne de fichier
file_readln 16,f$
' ajout d'un blanc
e$ = e$+" "+f$
' ecrire la ligne dans le fichier
file_writeln 15,lower$(e$)

item_add 17,e$
end_while
file_close 16
flag_instr%=0
return

Recherche:

' Recherche mot dans le memo
dim mot$,ligne$,ins_tr%
' On convertit la caractère "
a$=chr$(34)

' On recupère le mot du dictonnaire
I%=0
mot$=Tbl_Dictionnaire$(I%)

for i%=1 to compteur% step 1
ligne$=item_read$(17,i%)

' Est-ce que le mot existe dans la ligne
ins_tr%=instr(ligne$,Mot$)
set_focus 2
If ins_tr%>0
ins_tr%=instr(ligne$,"'")
if ins_tr%=0
ins_tr%=instr(ligne$,"rem")

if ins_tr%=0
ins_tr%=instr(ligne$,":")
if ins_tr%=0
ins_tr%=instr(ligne$,a$)
if ins_tr%=0
item_add 2,ligne$
end_if
end_if
end_if
end_if
end_if
next i%

return

J' ai même passé le programme dedans
ou on a des dim un peu partout.
tu pourrais essayer avec le tien.

Invité

Bonjour 659_minifly

je viens de télécharger tes 2 programmes pour essayer.
Je ne comprends pas non plus la finalité. Il faudrait que tu en dises plus.

Comme on est pas dans le sujet, j'ai fait un fichier zip pour t'expliquer ce que j'ai fait.

Voir le Fichier : explication_debogage.rar

J'espère que j'ai bien expliqué
Salutation

j'ai bien télécharger ton fichier explication_debogage.rar et ce sont des jeux dessus.

Pour te dire un mot du debogueur. On en est au tout début Ce que j'ai fait comme tu as pu le voir Il y a plusieur petites fênteres dans les quelles ont va retrouver différentes informations exemple : le fenêtre DIm dans laquelle on vas retrouver toutes les déclarations des dim.avec le numéro de ligne. En clickant sur une de ces lignes on pourra ( si possible ) retrouver toutes les variables dans le programme avec le numéro de ligne ou ils se trouve. et ainsi de suite pour les autres commandes. C'est comme cela que je le vois et toi ?. car on ne peut pas voir en fonctionnement le programme.
je t'ai demander dans un post précédent une petite explication aussi sur la finalité du tien . En fait ce sera plus une aide a la programmation, et un débogage virtuel .

Autant pour moi. j'ai mieux regarder le fichier. ET finalement j'ai compris la finalité et en fait c'est une très bonne idée que tu as la. Comme cela on peut voir en direct les valeurs des variables. Bravo chapeau. Bien tu sais je ne suis plus très jeune et j'ai la compronette lente.

Mais qu'a cela ne tienne. Je vais finir mon programme en tenant compte du tien car tant que l'on est dedans autant faire les deux.Deux tien tu la! vaut que rien du tout 'dicton de moi'. What a Face

En faite cela me contraint d'apprendre Panoramic, et,c'est très bien. Un bon soft qui mérite que l'on travail avec lui.

A++

Invité

Heureux de savoir que quelqu'un comprend se que je fais, c'est pas souvent.

Il est vrai que le programme que j'ai fait n'est pas clair, mais comme il n'est pas fini.

Bonne chance

Hé oui, très vieux, tu as quant même presque 2 mois de plus que moi.

On est presque de le même classe alors enchanté de vous ravir la pré-séance
de l'age et de tous ce qui va avec.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Eh les gamins, arrêtez un peu de bavarder en classe !

salut grand-pere on recommencera pls promis

Invité

Apparemment tu étais pressé de rentrer de Venise pour sauter sur le forum.

~~On a été en concurrence pour contrôler la largeur d'un texte. Tu as essayé mon programme? J'ai affiché en gros car à l'époque l'affichage est très lent.~~

ne tiens pas comptes de mon message
Bon retour parmi nous!

Je suis désolé, je me suis tromper de sujet, c'était pas ici.
Salutation

Nombre de messages : 2747 Date d'inscription : 13/09/2009

@ Cosmos
Je viens de jeter un oeil sur ton éditeur de cellules
(je n'avais pas eu le temps de m'y pencher avant)
C'est un joli truc, au fond c'est un genre de tableur
C'est un essai tout à fait intéressant. Félicitations !
king

Invité

Je te remercie.
Il va être temps que je le reprenne.
Pour moi, il n'a que la représentation d'un tableur, mais c'est pas l'objectif. Le programme prépare une feuille de présentation, pour permettre l'édition avec le 2ème programme des éléments entrant dans la feuille pour une sortie de données dont le style est déjà défini, et l'autre application avec le 2ème programme est la saisie d'une quantité multiple, sorte de input multiple.

Pour ce qui est du tableur, déjà hors de la vision de la page écran, la sourie ne retrouve la position verticale de la cellule, plus il y a de cellules, plus le temps d'affichage s'allonge, et en dehors des 4 opérations classique, j'ai pas les compétences requises pour faire cela. De plus je vois mal Panoramic être en évaluation avec un tableur (surtout pour ceux qui ont excel, et qu'il y a des fonction pour ici)

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
» Editeur avec MemoRicht
» Un éditeur de texte avec trop de scintillement :-(
» Editeur avec marquage syntaxique
» Editeur de polices avec typographie