Sujet - BlocNote 1.0 - Liberty Basic France

atomose

Le 20/01/2014 à 15h43

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 373

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 20/01/2014 à 15h51

____________________
Yo !

MSN Web

Roland

Le 20/01/2014 à 15h57

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1992

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

atomose

Le 20/01/2014 à 16h02

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 373

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

Roland

Le 20/01/2014 à 17h23

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 1992

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

atomose

Le 03/02/2014 à 14h28

Modérateur

Groupe: Modérateur

Inscrit le: 30/03/2011
Messages: 373

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

Forum Liberty Basic France