Forum Liberty Basic France

Projets open source » BlocNote 0.74 Mise a jour du 15/11/2018
Le 20/01/2014 à 15h43

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 312
Bonjour !!

Je suis actuellement en cours de bio, je me fait **** ... bref une idée m'ais venu lorsque j'ai jeter un oeil sur le forum.

J'ai vu le blocnote de "alex877". J'ai eu l'envi de m'en faire un aussi ^^ !! (surtout que ce foutu word me demande une clé d'activattiooonnn ><!!!!!) bref

voici ce que j'ai pondu ce matin, dite moi ce que vous en pensez :) !

vous pouvez :
- écrire
- enregistrer
- ouvrir (il n'ouvre que les fichiers .txt dans le dossier ou se trouve le .bas)
- avoir un nouveau fichier vierge

je vais rajouter la possibilité de pouvoir faire sa sauvegarde soi-même pour avoir plusieurs save (pour le moment c'est 1max).


Code VB :
'BlocNote 0.2a Creat by UnLiMiTeD Corporation 2014
nomainwin
[ini]
WindowWidth = 600 : WindowHeight = 600
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
texteditor #bloc.index, 0, 0, 590, 550
menu #bloc, "&Menu", "&Nouveau", [new],"&Ouvrir", [open], "&Sauvegarder", [save], "&Quitter", [close]
open "Bloc-note" for window_nf as #bloc
#bloc, "trapclose [close]"
print #bloc, "font Century Schoolbook 9"
wait
 
[save]
print #bloc.index, "!contents? var$"
vp = val(var$)
open "save.txt" for output as #save
print #save ,var$
close #save
notice "Votre texte est sauvegardé !"
wait
 
[open]
filedialog "Ouvrir", "*.txt", fname$
if fname$ = "" then wait
open fname$ for input as #1
x = 1
[scan]
    ligne$ = "ligne";x;"$"
    input #1, ligne$
    gosub [scanfix]
    x = x +1
    if ligne$ <> "" then
        goto [scan]
    end if
close #1
wait
 
[scanfix]
print #bloc.index, ligne$
return
 
[new]
close #bloc
goto [ini]
 
[close]
close #bloc
end
 




Edité par atomose Le 15/11/2018 à 13h38
____________________
Yo !

MSN Web    
Le 20/01/2014 à 15h57

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1993
C'est bien, mais sous Windose, il y a le bloc note dans les accessoires; alors un raccourcis sur le bureau et c'est dans le sac.
____________________
Roro

   
Le 20/01/2014 à 16h02

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 312
Je sais bien mais je voulais tester voir si c'était possible :)

question :
filedialog "Ouvrir", "*.txt", fname$ ====> cela ouvre un page pour ouvrir un fichier

quelle est la commande pour ouvrir cette même page mais en mode "sauvegarder" et non "ouvrir" ????
____________________
Yo !

MSN Web    
Le 20/01/2014 à 17h23

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1993
Voici la traduction Googolienne du passage de la doc sur le sujet:
Si l'étiquette fenêtre spécifiée a le mot "sauver" en elle, alors le style de sauvegarde de la boîte de dialogue sera utilisé au lieu du style ouvert.
____________________
Roro

   
Le 03/02/2014 à 14h28

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 312
Voici une mise a jour ^^ !
Plusieurs fonctions sont ajoutés, d'autres ne sont pas fonctionnelles mais le deviendrons :) !


Code VB :
'BlocNote 0.5a Creat by UnLiMiTeD Corporation 2014
nomainwin
[ini]
WindowWidth = 600 : WindowHeight = 600
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
texteditor #bloc.index, 0, 0, 590, 550
menu #bloc, "&Menu", "&Nouveau", [new],"&Ouvrir", [open], "&Sauvegarder", [save], "&Quitter", [close]
menu #bloc, "Police", "---POLICE---", [nf],"Century Schoolbook", [Century_Schoolbook],"Times New Roman", [Times_New_Roman],"Ariel", [Ariel],"Courier_new", [Courier_new],"---STYLE---", [nf],"Lettres en 'Normal'", [open], "Lettres en 'Gras'", [save], "Lettres en 'Italique'", [close]
menu #bloc, "Couleur", "---FOND---", [nf], "&Noir", [Fnoir],"&Bleu", [Fbleu],"&Rouge", [Frouge],"&Jaune", [Fjaune],"&Blanc", [Fblanc],"&Rose", [Frose],"&Maron", [Fmaron],"&Vert", [Fvert], "---LETTRES---", [nf],"&Noir", [Lnoir],"&Bleu", [Lbleu],"&Rouge", [Lrouge],"&Jaune", [Ljaune],"&Blanc", [Lblanc],"&Rose", [Lrose],"&Maron", [Lmaron],"&Vert", [Lvert],"&Cyan", [Lcyan]
menu #bloc, "Mise en forme","&Position du texte", [open], "&Souligner", [save], "&Surligner", [save]
menu #bloc, "Options supplémentaires", "&Règles", [open], "&Taille fenêtre", [save], "&Nombre caractères", [close]
menu #bloc, "A propos", "&BlocNotePro", [About],"&Mise à jour", [open], "&Crédit", [save], "&Unlimited Web Site", [close]
menu #bloc, "?", "&Bugs", [new]
open "Bloc-note-Professionnel" for window_nf as #bloc
#bloc, "trapclose [close]"
print #bloc, "font Century Schoolbook 9"
print #bloc.index ,var$
wait
 
[nf]
wait
 
'-Polices----------------------------------------------------------------------------
[Courier_new]
print #bloc, "font Courier_new 9"
wait
[Century_Schoolbook]
print #bloc, "font Century Schoolbook 9"
wait
[Times_New_Roman]
print #bloc, "font Times New Roman 9"
wait
[Ariel]
print #bloc, "font ariel 9"
wait
 
'-textColor--------------------------------------------------------------------------
[Lbleu]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "blue"
goto [ini]
 
[Lcyan]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "cyan"
goto [ini]
 
[Lrouge]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "red"
goto [ini]
 
[Lvert]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "green"
goto [ini]
 
[Lrose]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "pink"
goto [ini]
 
[Ljaune]
close #bloc
ForegroundColor$ = "yellow"
goto [ini]
 
[Lmaron]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "brown"
goto [ini]
 
[Lblanc]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "white"
goto [ini]
 
[Lnoir]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
ForegroundColor$ = "black"
goto [ini]
 
'-FondColor--------------------------------------------------------------------------
[Fbleu]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "blue"
goto [ini]
 
[Fcyan]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "cyan"
goto [ini]
 
[Frouge]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "red"
goto [ini]
 
[Fvert]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "green"
goto [ini]
 
[Frose]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "pink"
goto [ini]
 
[Fjaune]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "yellow"
goto [ini]
 
[Fmaron]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "brown"
goto [ini]
 
[Fblanc]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "white"
goto [ini]
 
[Fnoir]
print #bloc.index, "!contents? var$"
vp = val(var$)
close #bloc
TexteditorColor$ = "black"
goto [ini]
 
[save]
filedialog "Sauvegarde", "*.txt", fname$
print #bloc.index, "!contents? var$"
vp = val(var$)
open "";fname$;".txt" for output as #save
print #save ,var$
close #save
notice "Votre texte est sauvegardé !"
wait
 
[open]
close #bloc
filedialog "Ouvrir", "*.txt", fname$
if fname$ = "" then wait
open fname$ for input as #1
x = 1
gosub [OpenFix]
[scan]
    ligne$ = "ligne";x;"$"
    input #1, ligne$
    gosub [scanfix]
    x = x +1
    if ligne$ <> "" then
        goto [scan]
    end if
close #1
wait
 
[scanfix]
print #bloc.index, ligne$
return
 
[OpenFix]
texteditor #bloc.index, 0, 0, 590, 550
menu #bloc, "&Menu", "&Nouveau", [new],"&Ouvrir", [open], "&Sauvegarder", [save], "&Quitter", [close]
menu #bloc, "Police", "---POLICE---", [nf],"Century Schoolbook", [Century_Schoolbook],"Times New Roman", [Times_New_Roman],"Ariel", [Ariel],"Courier_new", [Courier_new],"---STYLE---", [nf],"Lettres en 'Normal'", [open], "Lettres en 'Gras'", [save], "Lettres en 'Italique'", [close]
menu #bloc, "Couleur", "---FOND---", [nf], "&Noir", [Fnoir],"&Bleu", [Fbleu],"&Rouge", [Frouge],"&Jaune", [Fjaune],"&Blanc", [Fblanc],"&Rose", [Frose],"&Maron", [Fmaron],"&Vert", [Fvert], "---LETTRES---", [nf],"&Noir", [Lnoir],"&Bleu", [Lbleu],"&Rouge", [Lrouge],"&Jaune", [Ljaune],"&Blanc", [Lblanc],"&Rose", [Lrose],"&Maron", [Lmaron],"&Vert", [Lvert],"&Cyan", [Lcyan]
menu #bloc, "Mise en forme","&Position du texte", [open], "&Souligner", [save], "&Surligner", [save]
menu #bloc, "Options supplémentaires", "&Règles", [open], "&Taille fenêtre", [save], "&Nombre caractères", [close]
menu #bloc, "A propos", "&BlocNotePro", [About],"&Mise à jour", [open], "&Crédit", [save], "&Unlimited Web Site", [close]
menu #bloc, "?", "&Bugs", [new]
open "Bloc-note-Professionnel" for window_nf as #bloc
#bloc, "trapclose [close]"
print #bloc, "font Century Schoolbook 9"
return
 
[new]
close #bloc
goto [ini]
 
[About]
if about = 1 then close #about
about = 1
TexteditorColor$ = "black"
WindowWidth = 300 : WindowHeight = 300
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
statictext #about.t1, "BlocNotePro 0.5a", 20, 30, 220, 30
statictext #about.t2, "Créé par UnLiMiTeD Corporation", 20, 45, 220, 30
statictext #about.t3, "Production 2014", 20, 60, 220, 30
statictext #about.t4, "Ce logiciel est gratuit et ne peut être vendu par un tiers de quelques façons sans l'accord du concepteur.", 20, 90, 220, 50
statictext #about.t5, "Mis à jour le : 03/02/2014", 20, 150, 220, 30
open "Bloc-note" for window_nf as #about
#about, "trapclose [close]"
print #about, "font Century Schoolbook 9"
wait
 
[close]
if about = 1 then
    close #about
    about = 0
    wait
end if
close #bloc
end
 
 
____________________
Yo !

MSN Web    
Le 15/11/2018 à 13h37

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 312
Nouvelle Maj ajoutant des nouveautés et corrigeant des bugs :)

BlocNote 0.74a.bas
____________________
Yo !

MSN Web    
Le 15/11/2018 à 15h48

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1993
Quand on sauvegarde et qu'on ré-ouvre les préférences (couleurs texte et fond) ne sont pas conservées (rappelées).
Cent fois sur le métier remettez votre ouvrage c'est le fond qui manque le moins...ext...
____________________
Roro

   
Le 15/11/2018 à 16h13

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 312
Roland:
Quand on sauvegarde et qu'on ré-ouvre les préférences (couleurs texte et fond) ne sont pas conservées (rappelées).


ouais j'ai pas fait de fichier préférences encore ^^


Roland:
Cent fois sur le métier remettez votre ouvrage c'est le fond qui manque le moins...ext...


pas compris o_o



Edité par atomose Le 15/11/2018 à 16h13
____________________
Yo !

MSN Web    
Le 15/11/2018 à 16h41

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1993
Citation:
Cent fois sur le métier remettez votre ouvrage c'est le fond qui manque le moins...ext...

C'est la Fontaine, fable du laboureur et ses enfants.
La prochaine fois que tu mettra l'ouvrage sur le métier*, ajoute le fichier: .ini (pour sauvegarder les préférences)
* Le "métier" fait référence au métier à tisser (cadre sur lequel sont tendus les fils)
____________________
Roro

   
Le 15/11/2018 à 17h47

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 312
dsl ma culture G sur la fontaine ne sont pas a ton niveau ^^
____________________
Yo !

MSN Web    
Projets open source » BlocNote 0.74 Mise a jour du 15/11/2018  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie