Salut a tous, voila il y a 6 ans une informaticienne a fais pour mes parents (jai 13 asn) un programme de facturation pour leut travaille, je voudrais le modifier ! Cellle ki la fait c pas fouler la cheville pour 700 € il est supert moche look...
enfin bref avant de le modifier je voudrait savoir queceque c ce language (dans le fichier du logiciel créer), (c tirrer de fichier texte)
alors ya dja ca:
!logiciel_lab
window men = size 79 by 3 at 1,20 framed
WINDOW menut= TOP 1 IN men MODE TITLE
WINDOW menum= BOTTOM 1 IN men MODE PROMPT
window menuv = size 50 by 20 at 29,1 framed
WINDOW menuvt= TOP 1 IN menuv MODE TITLE
WINDOW menuvm= BOTTOM 1 IN menuv MODE PROMPT
window datap=size 79 by 24 at 1,1 framed
window datat= top 1 in datap mode title
window datam= bottom 1 in datap mode prompt
bool r=false;str fi,me,ti,m ;int pag,o,li,nl;o=1
preview prm= de t_param ; use prm ; prm.s1='M. MOREL BAILLY'; replace prm
preview art= de t_articl ordre cat,ssc,code; use art display t_articl
preview ent= de t_f_ent order nf ;use ent
preview lig= de t_f_lig si nfa=ent.nf order ligne ; use lig
preview det= de t_det si num=lig.codl order ord ; use det
preview arti=de t_articl si code=lig.art
segment t_exa;segment t_dev;segment t_bl;segment t_fac !segment t_util
do t_MEN
use prm end; use arti end ; use ent end ; use lig end;use det end;use art end
!imprimantes : Liste 80
---------
puis ya sa
----------
[1;34;40m
ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
º [1;37;41m * * * M E N U * * * [1;34;40mº [1;34;40m
ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m Programme de facturation [1;33;40m P [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m RESTITUTION DISQUETTES [1;33;40m RDD [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m Formatage de disquettes [1;33;40m FHD [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
º [1;32;40m [1;33;40m [1;34;40m º [1;34;40m
ÈÍÍÍÍÍÍÍÍÍ [1;31;40mCONCEPT-gtr [1;34;40mÍÍÍÍ [1;31;40mT‚l 84.52.45.93 [1;34;40m ÍÍÍÍ [1;31;40mFax 84.52.22.43 [1;34;40mÍͼ [1;34;40m
------
et encore
-----------
o=99
while o>0;ti="Gestion des Devis"; me= 'Choisir une option' ; do ti
preview edv= de t_d_ent order nd ;use edv
preview lid= de t_d_lig si nde=edv.nd order ligne ; use lid
screen menuv; m='Menu des Devis '; do tiv
menu vertical
:'Saisie': o=1
:'Visu': o=2
:'R‚impression': o=8
o=0
:k_undo: o=0
end menu
end screen
fi ='B' !D‚termine quel genre d'entˆte on va traiter ici B
if o=1; do td_sai
else if o=2; do td_vis
else if o=8; do td_imp
end if ! ion= else=...
end while ; r=true; use edv end; use lid end;o=99
----------
je pense ke c pas les meme language, je me trompe puex etre merci !
