a l'aide sur " procédures "

error_french
dim wf%,hf%:wf% = 1150 : hf% = 800
width 0,wf%/2 : height 0,hf%/2
left 0,int((screen_x/2)-width(0)/2):top 0,int((screen_y/2)-height(0)/2)

dim ccc%,pro% : ' ccc% doit etre  compris entre 13 au mini et 20 au maxi

mise_en_place()
entree_des_donnees(ccc%,pro%)

END

sub entree_des_donnees(a%,b%)
set_focus 2
if numeric(text$(2))=1
  a%=val(text$(2))
  inactive 1:inactive 2
  active 3:active 4
  set_focus 4
 end_if
 print_locate 25,50 :print "ccc% = ",a% :' pour vérif

if numeric(text$(4))=1
  b%=val(text$(4))
  inactive 3:inactive 4
end_if

' caption 0,"Nombre de Chevaux: "+str$(a%)+string$(10," ")+"Nombre de Pronostiqueurs: "+str$(b%)
print_locate 25,70:print "pro% = ",b% :' pour vérif
end_sub

sub mise_en_place()

' les chevaux
alpha 1
          top 1,13:left 1,12:' on positionne l'alpha
          font_bold 1:' caractères en gras
          caption 1,"Nombre de Chevaux:"
         
edit 2
          top 2,10 :left 2,140 :width 2,30

' les pronostiqueurs
alpha 3
  top 3,13:left 3,190
  font_bold 3:' caractères en gras
  caption 3,"Nombre de Pronostiqueurs:"
  inactive 3:' pour obliger l'utilisateur à commencer par le nombre de chevaux
         
edit 4
  width 4,30:' on adapte la largeur de l'édit pour entrer 2 ou 3 caractères
  top 4,10:left 4,350
  inactive 4:' pour obliger l'utilisateur à commencer par le nombre de chevaux

end_sub

error_french
label suite_saisie
dim wf%,hf%:wf% = 1150 : hf% = 800
width 0,wf%/2 : height 0,hf%/2
left 0,int((screen_x/2)-width(0)/2):top 0,int((screen_y/2)-height(0)/2)

dim ccc%,pro% : ' ccc% doit etre  compris entre 13 au mini et 20 au maxi

' conception d'une forme pour entrer les données
form 10:width 10,500:height 10,200:command_target_is 10  :left 10,left(0)+20:top 10,top(0)+100 :hide 10:caption 10,"on valide en fermant la fenêtre"
' je laisse les alphas de présentation

edit 12:left 12,20:top 12,30:hint 12,"saisir le nb de pronostiqueurs"

edit 14:left 14,20:top 14,60:hint 14,"je ne sais pas ce qu'on saisie ici"
on_close 10,suite_saisie
command_target_is 0
' mise_en_place()
saisie()
end

error_french
dim wf%,hf%:wf% = 1150 : hf% = 800

width 0,wf%/2
height 0,hf%/2
left 0,int((screen_x/2)-width(0)/2)
top 0,int((screen_y/2)-height(0)/2)

dim ccc%,pro% : ' ccc% doit etre  compris entre 13 au mini et 20 au maxi

mise_en_place()


END

sub mise_en_place()
  LABEL SaisieChevaux,SaisiePronostiqueur
  LABEL SaisieOk,AfficheResultat
  ' les chevaux
  alpha 1
    top 1,13:left 1,12:' on positionne l'alpha
    font_bold 1:' caractères en gras
    caption 1,"Nombre de Chevaux:"
    DIM nbChevaux%

  edit 2
    top 2,10 :left 2,140 :width 2,30
    on_change 2, SaisieChevaux : ' la procedure de traitement de saisie

  ' les pronostiqueurs
  alpha 3
    top 3,13:left 3,190
    font_bold 3:' caractères en gras
    caption 3,"Nombre de Pronostiqueurs:"

  edit 4
    width 4,30:' on adapte la largeur de l'édit pour entrer 2 ou 3 caractères
    top 4,10:left 4,350
    on_change 4, SaisiePronostiqueur : ' la procedure de traitement de saisie
    DIM nbProno%
end_sub

AfficheResultat:
  caption 0,"Nombre de Chevaux: "+str$(nbChevaux%)+string$(10," ")+"Nombre de Pronostiqueurs: "+str$(nbProno%)
RETURN

' Cette procedure est automatiquement appelée par Panoramic dès que
' la personne tape quelque chose dans le EDIT 2
SaisieChevaux:
  if numeric(text$(2))=1
    nbChevaux%=val(text$(2))
    ' J'ai supprimé les inactive 1 et 2 car il faut donner la possibilité à la
    ' personne de corriger ce qu'elle a saisie (en cas d'erreur de frappe)
  end_if
  ' on vérifie la validité de l'ensemble pour afficher le résultat
  GOSUB SaisieOk
RETURN

' idem que précédement
SaisiePronostiqueur:
  if numeric(text$(4))=1
    nbProno%=val(text$(4))
  end_if
  ' on vérifie la validité de l'ensemble pour afficher le résultat
  GOSUB SaisieOk
RETURN

SaisieOk:
  ' si tout est correctement rempli
  if numeric(text$(4))=1 AND numeric(text$(2))=1
    GOSUB AfficheResultat
  else
    CAPTION 0,""
  end_if
RETURN