Formattage et justification dans un MEMO

' formattage_et_justification.bas
'
' A l'aide d'une petite facture montrée dans un memo, ce programme
' fait la démonstration de l'usage des sousprogrammes de formattage
' de valeurs et textes: représentation d'une valeur décimale, ainsi
' que la justification gauche, droite et centrée, en fonction de la
' largeur d'un champ. On peut ainsi simuler des colonnes dans un memo.
'
'
'

' définitions pour les routines de justification
label float_to_string, text_right_justify
label text_left_justify, text_center_justify
dim s$, v, dec%, larg%, p%
' fin des définitions pour les routines de justification

label facture_vierge, remplir_facture

dim tab$ : tab$ = chr$(9)

dim ncol%, col%(20), tit$(20), t$
dim pu, qte, tot, totgen, wid%

' *** description du tableau avec ses colonnes et son entête
data 5,10,"Date",40,"Libellé",12,"Prix U.",4,"Qté",12,"Total"
' *** données pour 3 lignes de facture
data "11/3/2011","Pommes de Terre 1 kg",1.17,3
data "17/11/2011","Saumon fumé 5 Tr",12.57,3
data "3/12/2011","Champagne Mercier",33.89,27
' *** marqueur de fin de facture
data ""

width 0,900 : height 0,600

memo 1 : top 1,10 : left 1,10
  width 1,800 : height 1,400
  font_name 1,"Fixedsys"

gosub facture_vierge
gosub remplir_facture
end



' *** lire la configuration du tableau et afficher l'entête
facture_vierge:
  clear 1
  t$ = "| "
  wid% = 0
  totgen = 0
  read ncol%
  for p%=1 to ncol%
    read col%(p%)
    read tit$(p%)
    s$ = tit$(p%)
    larg% = col%(p%)
    wid% = wid% + larg%
    gosub text_left_justify
    t$ = t$ + s$ + " | "
  next p%
  item_add 1,t$
  wid% = wid% + (ncol%-1)*3 + 2
  item_add 1,"|"+string$(wid%,"=")+"|"
  item_insert 1,1,"|"+string$(wid%,"=")+"|"
  s$ = "FACTURE"
  larg% = wid%
  gosub text_center_justify
  item_insert 1,1,s$
  s$ = "du "+date$
  larg% = wid%
  gosub text_right_justify
  item_insert 1,2,s$
  item_insert 1,3,""
  return
 
' *** lire les données d'une ligne et afficher la ligne
remplir_facture:
  read s$
  while s$<>""
  ' *** date
    t$ = "| "
    larg% = col%(1)
    gosub text_right_justify
    t$ = t$ + s$ + " | "
  ' *** libellé
    read s$
    larg% = col% (2)
    gosub text_left_justify
    t$ = t$ + s$ + " | "
  ' *** prix unitaire
    read v
    pu = v
    larg% = col%(3)
    dec% = 2
    gosub float_to_string
    gosub text_right_justify
    t$ = t$ + s$ + " | "
  ' *** quantité
    read v
    qte = v
    larg% = col%(4)
    dec% = 0
    gosub float_to_string
    gosub text_right_justify
    t$ = t$ + s$ + " | "
  ' *** calculer le total de la ligne
    tot = pu * qte
    totgen = totgen + tot
    v = tot
    larg% = col%(5)
    dec% = 2
    gosub float_to_string
    gosub text_right_justify
    t$ = t$ + s$ + " | "
    item_add 1,t$
  ' *** lire la date de la ligne suivante
    read s$
  end_while
  ' *** fin de tableau, tirer n trait
  item_add 1,"|"+string$(wid%,"=")+"|"
  ' *** faire la ligne du total général
  t$ = "| "
  t$ = t$ + string$(col%(1)," ") + string$(3," ")
  s$ = "Total à payer"
  larg% = col%(2)+3+col%(3)+3+col%(4)
  gosub text_right_justify
  t$ = t$ + s$ + " | "
  v = totgen
  larg% = col%(5)
  dec% = 2
  gosub float_to_string
  gosub text_right_justify
  t$ = t$ + s$ + " |"
  item_add 1,t$
  ' *** tirer le trait final
  item_add 1,"|"+string$(wid%,"=")+"|"
  return


' ***************** routines de conversion et justification *********

' *** convertir v en string avec dec% décimales
'    la valeur v est arrondie sur dec% décimales
float_to_string:
  if dec%<0 then dec% = 0
  s$ = str$(int(v*power(10,dec%) + 1/2)/power(10,dec%))
  if dec%=0 then return
  p% = instr(s$,".")
  if p%=0
    s$ = s$ + "." + string$(dec%,"0")
    p% = instr(s$,".")
  end_if
  if len(s$)-p%<dec% then s$ = s$ + string$(dec%-len(s$)+p%,"0")
  s$ = left$(s$,p%-1)+","+mid$(s$,p%+1,len(s$))
  return

' *** justifier v à droite avec dec% décimales, sur larg% caractères
'    la valeur v est arrondie sur dec% décimales
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_right_justify:
  s$ = trim$(s$)
  if len(s$)<larg% then s$ = string$(larg%-len(s$)," ")+s$
  if len(s$)>larg% then s$ = string$(larg%,"*")
  return

' **** justifier s$ à gauche sur larg% caractères
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_left_justify:
  s$ = trim$(s$)
  if len(s$)>larg% then s$ = string$(larg%,"*")
  if len(s$)<larg% then s$ = s$ + string$(larg%-len(s$)," ")
  return
 
' *** justifier s$ en centrant sur larg% caractères
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_center_justify:
  s$ = trim$(s$)
  if len(s$)>larg% then s$ = string$(larg%,"*")
  while len(s$)<larg%
    s$ = " " + s$
    if len(s$)<larg% then s$ = s$ + " "
  end_while
  return

' polices_fixes.bas
'
' Ce programme montre l'usage des routines de justification en affichant
' une liste des polices fixes et proportionnelles. L'affichage est fait
' avec la police "Courrier" qui est une police fixe. On voit l'effet par
' la justification à droite du nméro d'ordre de la police. On peut essayer
' les différentes polices fixes en les choisissant par leur numéro.

' définitions pour les routines de justification
label float_to_string, text_right_justify
label text_left_justify, text_center_justify
dim s$, v, dec%, larg%, p%
' fin des définitions pour les routines de justification

label essayerfixe, essayerprop

dim i%, f$, nf%, np%, n_courier%
dim iii$ : iii$ = string$(5," ")
dim www$ : www$ = "wwwww"

height 0,730 : width 0,900

dlist 1
alpha 2 : top 2,20 : left 2,10
  caption 2,"Polices fixes:"
memo 3 : top 3,40 : left 3,10 : font_name 3,"Courier"
  width 3,400 : height 3,500
alpha 4 : hide 4
alpha 5 : top 5,20 : left 5,420
  caption 5,"Polices proportionnelles:"
memo 6 : top 6,40 : left 6,420 : font_name 6,"Courier"
  width 6,400 : height 6,500
 
container 10 : top 10,560 : left 10,10
  caption 10,"Essai d'une police fixe"
  width 10,400 : height 10,80
edit 11 : parent 11,10 : left 11,10
  top 11,20 : width 11,40
button 12 : parent 12,10 : left 12,60 : top 12,20
  caption 12,"Essayer" : on_click 12,essayerfixe
alpha 15 : parent 15,10 : top 15,50 : left 15,10
  caption 15,"Courier"

container 20 : top 20,560 : left 20,420
  caption 20,"Essai d'une police proportionnelle"
  width 20,400 : height 20,80
edit 21 : parent 21,20 : left 21,10
  top 21,20 : width 21,40
button 22 : parent 22,20 : left 22,60 : top 22,20
  caption 22,"Essayer" : on_click 22,essayerprop
 
alpha 25 : parent 25,20 : top 25,50 : left 25,10
  caption 25,"Courier"

font_names_load 1

larg% = 4
dec% = 0
for i%=1 to count(1)
  f$ = item_read$(1,i%)
  font_name 4,f$
  if text_width(iii$,4)=text_width(www$,4)
    nf% = nf% + 1
    if lower$(f$)="courier" then n_courier% = nf%
    v = nf%
    gosub float_to_string
    gosub text_right_justify
    item_add 3,s$+": "+f$
  else
    np% = np% + 1
    v = np%
    gosub float_to_string
    gosub text_right_justify
    item_add 6,s$+": "+f$
  end_if
next i%

text 11,str$(n_courier%)

end

essayerfixe:
  s$ = text$(11)
  if numeric(s$)=0
    message "Numéro de police invalide"
    return
  end_if
  i% = val(s$)
  if (i%<1) or (i%>count(3))
    message "Numéro de police invalide"
    return
  end_if
  f$ = item_read$(3,i%)
  f$ = mid$(f$,7,len(f$))
  font_name 3,f$
  font_name 6,f$
  caption 15,f$
  caption 25,f$
  return
 
essayerprop:
  s$ = text$(21)
  if numeric(s$)=0
    message "Numéro de police invalide"
    return
  end_if
  i% = val(s$)
  if (i%<1) or (i%>count(6))
    message "Numéro de police invalide"
    return
  end_if
  f$ = item_read$(6,i%)
  f$ = mid$(f$,7,len(f$))
  font_name 3,f$
  font_name 6,f$
  caption 15,f$
  caption 25,f$
  return


' ***************** routines de conversion et justification *********

' *** convertir v en string avec dec% décimales
'    la valeur v est arrondie sur dec% décimales
float_to_string:
  if dec%<0 then dec% = 0
  s$ = str$(int(v*power(10,dec%) + 1/2)/power(10,dec%))
  if dec%=0 then return
  p% = instr(s$,".")
  if p%=0
    s$ = s$ + "." + string$(dec%,"0")
    p% = instr(s$,".")
  end_if
  if len(s$)-p%<dec% then s$ = s$ + string$(dec%-len(s$)+p%,"0")
  s$ = left$(s$,p%-1)+","+mid$(s$,p%+1,len(s$))
  return

' *** justifier v à droite avec dec% décimales, sur larg% caractères
'    la valeur v est arrondie sur dec% décimales
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_right_justify:
  s$ = trim$(s$)
  if len(s$)<larg% then s$ = string$(larg%-len(s$)," ")+s$
  if len(s$)>larg% then s$ = string$(larg%,"*")
  return

' **** justifier s$ à gauche sur larg% caractères
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_left_justify:
  s$ = trim$(s$)
  if len(s$)>larg% then s$ = string$(larg%,"*")
  if len(s$)<larg% then s$ = s$ + string$(larg%-len(s$)," ")
  return

' *** justifier s$ en centrant sur larg% caractères
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_center_justify:
  s$ = trim$(s$)
  if len(s$)>larg% then s$ = string$(larg%,"*")
  while len(s$)<larg%
    s$ = " " + s$
    if len(s$)<larg% then s$ = s$ + " "
  end_while
  return

t$ = t$ + string$(col%(1)+3," ")

 larg% = col%(1)+col%(2)+col%(3)+3+col%(4)+6

  t$ = "| "
  s$ = "Total à payer"
  larg% = col%(1)+col%(2)+col%(3)+3+col%(4)+6
  gosub text_right_justify

dim iii$ : iii$ = "    "

dim iii$ : iii$ = "iiiii"

dim iii$ : iii$ = "    "

  t$ = t$ + string$(col%(1)," ") + "  "

' ajustement_PI.bas
'
' ce programme montre les décimales de pi ajustées à droite

' définitions pour les routines de justification
label float_to_string, text_right_justify
label text_left_justify, text_center_justify
dim s$, v, dec%, larg%, p%
' fin des définitions pour les routines de justification

dim i%
dim pi : pi = 4*atn(1)
height 0,800
memo 1 : width 1,500 : height 1,750
  font_name 1,"Courier"

s$ = str$(pi)
item_add 1,"["+s$+"] = pi Panoramic"
item_add 1,"[3.14159265358979323846264338327950288419716] = pi réel"
item_add 1,"["+string$(20,".")+"]"
item_add 1,"Cadré à droite:"
for i%=1 to 16
  v = pi
  dec% = i%
  larg% = 20
  gosub float_to_string
  gosub text_right_justify
  item_add 1,"["+s$+"]"+"  "+str$(i%)
next i%
item_add 1,"Cadré à gauche:"
for i%=1 to 16
  v = pi
  dec% = i%
  larg% = 20
  gosub float_to_string
  gosub text_left_justify
  item_add 1,"["+s$+"]"+"  "+str$(i%)
next i%
item_add 1,"Centré:"
for i%=1 to 16
  v = pi
  dec% = i%
  larg% = 20
  gosub float_to_string
  gosub text_center_justify
  item_add 1,"["+s$+"]"+"  "+str$(i%)
next i%

end

' ***************** routines de conversion et justification *********

' *** convertir v en string avec dec% décimales
'    la valeur v est arrondie sur dec% décimales
float_to_string:
  if dec%<0 then dec% = 0
  s$ = str$(int(v*power(10,dec%) + 1/2)/power(10,dec%))
  if dec%=0 then return
  p% = instr(s$,".")
  if p%=0
    s$ = s$ + "." + string$(dec%,"0")
    p% = instr(s$,".")
  end_if
  if len(s$)-p%<dec% then s$ = s$ + string$(dec%-len(s$)+p%,"0")
  s$ = left$(s$,p%-1)+","+mid$(s$,p%+1,len(s$))
  return

' *** justifier v à droite avec dec% décimales, sur larg% caractères
'    la valeur v est arrondie sur dec% décimales
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_right_justify:
  s$ = trim$(s$)
  if len(s$)<larg% then s$ = string$(larg%-len(s$)," ")+s$
  if len(s$)>larg% then s$ = string$(larg%,"*")
  return

' **** justifier s$ à gauche sur larg% caractères
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_left_justify:
  s$ = trim$(s$)
  if len(s$)>larg% then s$ = string$(larg%,"*")
  if len(s$)<larg% then s$ = s$ + string$(larg%-len(s$)," ")
  return

' *** justifier s$ en centrant sur larg% caractères
'    si le résultat ne tient pas dans larg% caractères: retourner des "*"
'    le résltat est retourné dans s$
text_center_justify:
  s$ = trim$(s$)
  if len(s$)>larg% then s$ = string$(larg%,"*")
  while len(s$)<larg%
    s$ = " " + s$
    if len(s$)<larg% then s$ = s$ + " "
  end_while
  return