Mon cahier d'ecriture

Sujet: Mon cahier d'ecriture Lun 23 Nov 2020 - 5:50

bonjour a tous
Je vous propose aujourd'hui un ptit cahier d'écriture
il est destiné pour ce qui veule écrie un roman ou tout autre chose
au moins limité puisque on ne peut que écrire
Le programme n'est pas complet mais on peut toujours tourné les pages
de droite ou de gauche

Code:: Dim Page,PageExt,PageNote
Dim LeftG,LeftD,PageG,PageD
Dim WidthForm
Dim HeightY
Dim HeightForm
Dim Taille
PageExt=110
Label Nouveau
Label Ouvrir
Label Enregistrer
Label Quitter
Label Taille
Label Button2
Label Button3
Label Resize0
Label Edit4

Left 0,0
Top 0,0
Width 0,1020
Height 0,810
Color 0,130,0,0
Caption 0,"Cahier d'ecriture"
Hide 0

Panel 1
Width 1,Width_Client(0)
Height 1,45
Color 1,130,0,0

Main_Menu 9
Sub_Menu 10:Parent 10,9:Caption 10,"Fichier"
Sub_Menu 11:Parent 11,10:Caption 11,"Nouveau"
Sub_Menu 12:Parent 12,10:Caption 12,"Ouvrir"
Sub_Menu 13:Parent 13,10:Caption 13,"Enregistrer"
Sub_Menu 14:Parent 14,10:Caption 14,"-"
Sub_Menu 15:Parent 15,10:Caption 15,"Quitter"
Sub_Menu 20:Parent 20,9:Caption 20,"Editon"
Sub_Menu 21:Parent 21,20:Caption 21,"Anuller"
Sub_Menu 22:Parent 22,20:Caption 22,"-"
Sub_Menu 23:Parent 23,20:Caption 23,"ImpriPager"
Sub_Menu 30:Parent 30,9:Caption 30,"Font"
Sub_Menu 31:Parent 31,30:Caption 31,"Taille"
Sub_Menu 32:Parent 32,31:Caption 32,"8"
Sub_Menu 33:Parent 33,31:Caption 33,"10"
Sub_Menu 34:Parent 34,31:Caption 34,"12"
Sub_Menu 35:Parent 35,31:Caption 35,"14"
On_Click 11,Nouveau
On_Click 12,Ouvrir
On_Click 13,Enregistrer
On_Click 15,Quitter
On_Click 32,Taille
On_Click 33,Taille
On_Click 34,Taille
On_Click 35,Taille

PageNext()
Show 101:PageG=101
Show 102:PageD=102

Button 2
Top 2,Top(110)+Height(110)+3
Width 2,20
Height 2,20
Left 2,(Width_Client(0)/2)
Caption 2,"2"
On_click 2,Button2
Button 3
Top 3,Top(110)+Height(110)+3
Width 3,20
Height 3,20
Left 3,(Width_Client(0)/2)-22
Caption 3,"1"
On_click 3,Button3
On_Resize 0,Resize0

Edit 4
Parent 4,1
Top 4,12
Left 4,200
On_Change 4,Edit4

Show 0
Set_Focus 0
End

Nouveau:
For Page=100 to 110
Clear Page
Next Page
Return

Ouvrir:

Return

Enregistrer:
Return

Quitter:
Terminate
Return

Taille:
If Clicked(32)=1 Then Taille=8
If Clicked(33)=1 Then Taille=10
If Clicked(34)=1 Then Taille=12
If Clicked(35)=1 Then Taille=14
For Page=101 to PageExt
Font_Size Page,Taille
Next Page
Return

' Changement de la page de droite
Button2:
Page=100+Val(Caption$(2))
If Object_Exists(Page-2)=0 Then Return
Hide Page
Show Page-2
Caption 2,Str$(Val(Caption$(2))-2)
' de gauche
Page=100+Val(Caption$(3))
Hide Page
Show Page-2
Caption 3,Str$(Val(Caption$(3))-2)
Return

' Changement de la page de gauche
Button3:
Page=100+Val(Caption$(3))
If Object_Exists(Page+2)=0 Then Return
Hide Page
Show Page+2
Caption 3,Str$(Val(Caption$(3))+2)
' de droite
Page=100+Val(Caption$(2))
Hide Page
Show Page+2
Caption 2,Str$(Val(Caption$(2))+2)
Return

Resize0:
If Width(0)=>1010
Width 1,Width_Client(0)
Left 2,(Width_Client(0)/2)
Left 3,(Width_Client(0)/2)-22
LeftG=(Width_Client(0)/2)
Left PageG,LeftG
LeftD=Left(PageG)-493
Left PageD,LeftD
End_If
If Width(0)<1010 Then Width 0,1010
If Height(0)>810 Or Height(0)<810 Then Height 0,810
Return

Edit4:
PageExt=Caption$(4)
Return

Sub PageNext()
' Page de gauche
For Page=101 to PageExt Step 2
Memo Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page,9
Bar_Both Page
Font_Size Page,8

Hide Page
Next Page

' Page de droite
For Page=102 to PageExt Step 2
Memo Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page, (Width_Client(0)/2)
Bar_Both Page
Font_Size Page,8
Hint Page,str$(Page)

Next Page
End_Sub

a biento pour la suite

Nombre de messages : 598 Date d'inscription : 06/01/2012

Rigolote l'option clic sur la pge de droite pour revenir à gauche. Mais tu as écrit anuller pour annuler ! j'aime bien.

Sujet: Re: Mon cahier d'ecriture Lun 23 Nov 2020 - 16:36

Bonjour à tous !

@Pascal10000
C’est une bonne idée de faire ce petit cahier d’écriture.

J’ai testé ce premier jet que tu as écrit, bravo !

J’ai remarqué un petit problème de pagination.
Pour déboguer ce petit problème, je me permets de te proposer d’inclure, le temps de la correction, ces quelques lignes dans ton source, juste avant le END ligne 86 :

Code:: item_add 101,"page 1"
item_add 102,"page 2"
item_add 103,"page 3"
item_add 104,"page 4"
item_add 105,"page 5"
item_add 106,"page 6"
item_add 107,"page 7"
item_add 108,"page 8"
item_add 109,"page 9"
item_add 110,"page 10"

Ce qui donnera :

Code:: Dim Page,PageExt,PageNote
Dim LeftG,LeftD,PageG,PageD
Dim WidthForm
Dim HeightY
Dim HeightForm
Dim Taille
PageExt=110
Label Nouveau
Label Ouvrir
Label Enregistrer
Label Quitter
Label Taille
Label Button2
Label Button3
Label Resize0
Label Edit4

Left 0,0
Top 0,0
Width 0,1020
Height 0,810
Color 0,130,0,0
Caption 0,"Cahier d'ecriture"
Hide 0

Panel 1
Width 1,Width_Client(0)
Height 1,45
Color 1,130,0,0

Main_Menu 9
Sub_Menu 10:Parent 10,9:Caption 10,"Fichier"
Sub_Menu 11:Parent 11,10:Caption 11,"Nouveau"
Sub_Menu 12:Parent 12,10:Caption 12,"Ouvrir"
Sub_Menu 13:Parent 13,10:Caption 13,"Enregistrer"
Sub_Menu 14:Parent 14,10:Caption 14,"-"
Sub_Menu 15:Parent 15,10:Caption 15,"Quitter"
Sub_Menu 20:Parent 20,9:Caption 20,"Editon"
Sub_Menu 21:Parent 21,20:Caption 21,"Anuller"
Sub_Menu 22:Parent 22,20:Caption 22,"-"
Sub_Menu 23:Parent 23,20:Caption 23,"ImpriPager"
Sub_Menu 30:Parent 30,9:Caption 30,"Font"
Sub_Menu 31:Parent 31,30:Caption 31,"Taille"
  Sub_Menu 32:Parent 32,31:Caption 32,"8"
  Sub_Menu 33:Parent 33,31:Caption 33,"10"
  Sub_Menu 34:Parent 34,31:Caption 34,"12"
  Sub_Menu 35:Parent 35,31:Caption 35,"14"
  On_Click 11,Nouveau
  On_Click 12,Ouvrir
  On_Click 13,Enregistrer
  On_Click 15,Quitter
  On_Click 32,Taille
  On_Click 33,Taille
  On_Click 34,Taille
  On_Click 35,Taille

  PageNext()
Show 101:PageG=101
Show 102:PageD=102

Button 2
Top 2,Top(110)+Height(110)+3
Width 2,20
Height 2,20
Left 2,(Width_Client(0)/2)
Caption 2,"2"
On_click 2,Button2
Button 3
Top 3,Top(110)+Height(110)+3
Width 3,20
Height 3,20
Left 3,(Width_Client(0)/2)-22
Caption 3,"1"
On_click 3,Button3
On_Resize 0,Resize0

Edit 4
Parent 4,1
Top 4,12
Left 4,200
On_Change 4,Edit4

Show 0
Set_Focus 0
item_add 101,"page 1"
item_add 102,"page 2"
item_add 103,"page 3"
item_add 104,"page 4"
item_add 105,"page 5"
item_add 106,"page 6"
item_add 107,"page 7"
item_add 108,"page 8"
item_add 109,"page 9"
item_add 110,"page 10"
End

Nouveau:
For Page=100 to 110
Clear Page
Next Page
Return

Ouvrir:

Return

Enregistrer:
Return

Quitter:
Terminate
Return

Taille:
If Clicked(32)=1 Then Taille=8
If Clicked(33)=1 Then Taille=10
If Clicked(34)=1 Then Taille=12
If Clicked(35)=1 Then Taille=14
For Page=101 to PageExt
Font_Size Page,Taille
Next Page
Return

' Changement de la page de droite
Button2:
Page=100+Val(Caption$(2))
If Object_Exists(Page-2)=0 Then Return
Hide Page
Show Page-2
Caption 2,Str$(Val(Caption$(2))-2)
' de gauche
Page=100+Val(Caption$(3))
Hide Page
Show Page-2
Caption 3,Str$(Val(Caption$(3))-2)
Return

' Changement de la page de gauche
Button3:
Page=100+Val(Caption$(3))
If Object_Exists(Page+2)=0 Then Return
Hide Page
Show Page+2
Caption 3,Str$(Val(Caption$(3))+2)
' de droite
Page=100+Val(Caption$(2))
Hide Page
Show Page+2
Caption 2,Str$(Val(Caption$(2))+2)
Return

Resize0:
If Width(0)=>1010
Width 1,Width_Client(0)
Left 2,(Width_Client(0)/2)
Left 3,(Width_Client(0)/2)-22
LeftG=(Width_Client(0)/2)
Left PageG,LeftG
LeftD=Left(PageG)-493
Left PageD,LeftD
End_If
If Width(0)<1010 Then Width 0,1010
If Height(0)>810 Or Height(0)<810 Then Height 0,810
Return

Edit4:
PageExt=Caption$(4)
Return

Sub PageNext()
' Page de gauche
For Page=101 to PageExt Step 2
Memo Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page,9
Bar_Both Page
Font_Size Page,8

Hide Page
Next Page

' Page de droite
For Page=102 to PageExt Step 2
Memo Page
Top Page,46
Height Page, Height_Client(0)-80
Width Page, 490
Left Page, (Width_Client(0)/2)
Bar_Both Page
Font_Size Page,8
Hint Page,str$(Page)

Next Page
End_Sub

Ainsi tu pourras voir la concordance entre les pages réellement affichées et les deux boutons "pages suivantes" et "pages précédentes".

Merci pour ton partage et bonne continuation !

Sujet: Re: Mon cahier d'ecriture Lun 23 Nov 2020 - 18:21

merci frggy lol

bsr Marc
Merci de ton intervention

pourquoi tu veut que je mette des item _add
aux pages?
Je ne comprend pas bien ton but de vouloir mettre
le numéro N de la page! Cala ne sert a rien.
au début je faisais un "hint n,caption$(n)"
pour me reperer et puis l'édit qui se trouve en haut
servira a rajouter des pages au cahier;parce que à la base
il n'y a que 10 pages tu comprendra et avec cette option on
pourras en rajouter une vingtaine voir une centaine
voilà bonne soirée

Sujet: Re: Mon cahier d'ecriture Lun 23 Nov 2020 - 18:59

Salut Pascal !

Pascal10000 a écrit:: pourquoi tu veut que je mette des item _add
aux pages?

C'est provisoire, juste le temps de constater le bug de pagination.
Ainsi, au lancement de ton programme, tu verras que ce sont les pages 1 et 10 qui s'affichent au lieu de 1 et 2.

Puis, si tu cliques sur "1", ce sont les pages 3 et 10 qui s'affichent au lieu de 3 et 4. ETC

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 7:08

bonjour marc
bon j'ai fait ce que tu as dit
et je n'ai pas ce probleme tout marche
corectement

quelqu'un d'autre peut il confirmer l'érreur de pagination merci

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 7:23

oups j'ai trouver l'erreur
à la fin du source j'ai enlever un mauvais code
à la ligne 185
"Hide page" au lieu de " Hint Page,str$(Page)"
toute mes excuses

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 10:01

Pascal10000 a écrit:: oups j'ai trouver l'erreur

Super ! Bravo !

Bonne continuation !

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

Super, moi qui ai toujours eu l'envie d'écrire un roman,
eh bien voilà le support nécessaire !
Il ne me reste plus qu'à trouver les idées... Laughing

Beau travail !
cheers

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 14:30

cool jjn4

Ce qui va être complique c'est d'inclure un dictionnaire lol!

je ne sais même pas si ce sera possible

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

pascal10000 a écrit:: Ce qui va être complique c'est d'inclure un dictionnaire
je ne sais même pas si ce sera possible

Chiche !!!
Je peux t'assurer que si tu y arrives,
je te décernerai la palme d'or des programmeurs panoramic !!!
lol!

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 17:28

Bonjour à tous

@ JJN4.

je viens de tester ton programme de cahier d'écriture, et j'ai des petits problèmes.

Lorsque j’écris dans la zone Edit 4 , j'ai un message d’erreur ligne 159 que je saisisse du numérique ou de l'alpha.

Serait t'il possible lors de la saisie ensuite pour écrire sur le livre de revenir à la ligne lorsque la limite de la ligne est dépassée.

Merci

Bonne soirée

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 18:00

Pascal10000 a écrit:: Ce qui va être complique c'est d'inclure un dictionnaire

Pour JJN4, une version Latin / Martien s’impose ! lol!

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 18:53

ptitmarocain
L'edit n'est pas fonctionnel
voit plus haut
il servira a augmenter le nombre de pages

Sujet: Re: Mon cahier d'ecriture Mar 24 Nov 2020 - 19:14

Bonsoir Pascal10000 et bonsoir à tous

Désolé de m'etre trompé pour attribuer le programme à quelqu'un d'autre.

Je rends donc à César ce qui appartient à César.

Bonne soirée à tous

Sujet: Re: Mon cahier d'ecriture Mer 25 Nov 2020 - 2:33

@Pascal10000

J’ai un code-source d’un petit mémo sans prétention et sans aucune mesure par rapport au projet de cahier d’écriture que tu as entrepris.
Il n’a pas de pagination, pas de recherche, pas de dictionnaire, bref il est minimaliste mais dans ce code-source, il y aura peut-être certaines parties intéressantes pour toi.
N’hésite pas à te servir si besoin.
J’ajouterai un descriptif des caractéristiques techniques.
Pour ne pas polluer ton post, je vais en ouvrir un nouveau sous le nom de Mémo.

Bonne continuation !

Sujet: Re: Mon cahier d'ecriture Mer 25 Nov 2020 - 7:56

merci Marc
A regarder ton code

Sujet: Re: Mon cahier d'ecriture Sam 28 Nov 2020 - 17:55

Petite avancement du cahier

installation des icons dans la barre
L'edit est inactive
ouvrir;sauver;imprimer non coder
rajout de page;total 50 pages
marge a droite a rectifier

pour bien fonctionner le dossier doit être à la racine c:\

téléchargement mydrive.ch

id: panoramic@pascalp
code: panoramic123

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

nouveauté de mon cahier d'écriture
une fois que le curseur atteint le bout de la page
il passe automatiquement à page suivante

ICi
id: panoramic@pascalp
code: panoramic123

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

encore une nouveauté qui n'a pas été signalé
* La page est enregistré dans un fichier temporaire a chaque fois que
l'on modifie celle-ci
une fois qu'elle est rempli elle est enregistré automatiquement
dans le dossier roman sous son numéro de page respective
donnez moi vos appréciation de mon programme si il vous plait!

Bonjour Pascal !

Pascal a écrit:: une fois que le curseur atteint le bout de la page
il passe automatiquement à page suivante

J'ai voulu tester le changement de page, mais ça coince quelque part...

Arrivé en fin de page, dès que j'appuie sur ENTREE pour créer une nouvelle ligne, ça plante.

Je ne peux pas tester le changement de page automatique.

EDIT : Nos messages se sont croisés : ma réponse correspond à ton post de 9h07.

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bjr Marc
a mon avis tu as du faire un copier coller a la page en cour
et tu as du dépasser le nombre de ligne qui est fixé a 45 lignes
pour un caractère de taille 8
je vais faire ce que pense pour testé
le changement de page s’effectue lorsque tu appuies sur une
touche du clavier
ensuite le dossier doit être obligatoirement a la racine c:\ de ton disque
vérifie si c'est le cas et merci

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

je viens d’essayé avec un copier coller
et tout c est bien passer aucune alerte
d'erreur
pour moi c'est la deuxième hypothèse qui est la cause

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

Pascal a écrit:: le dossier doit être obligatoirement a la racine c:\ de ton disque
vérifie si c'est le cas et merci

Oui, le dossier est bien à la racine du disque dur.