PLM N31

color 0,240,253,243:width 0,374:height 0,356
button 110:caption 110,"OK":left 110,280:top 110,280
alpha 111:caption 111,"        Une touche pour arrêter..."
memo 112:left 112,284:top 112,4:width 112,48:height 112,276
top 111,284:font_size 111,16:hide 111:hide 112
container 120:width 120,280:height 120,280

dim c%,i%,iCol%,iLig%,i2%,LeDernier%,CeFlag%,TotalDesvies%,NbDebut%
dim c$(10,10),DejaVu(100),OuiNon(100),Total%(100),Fini,Touche$
label DessinDuTableau,DebutDeBoucle,CliquerLesCases
label EvalDesCellules,AjouteLesVies,EffaceLeTableau
label Affiche1Nouveau

rem DEBUT

gosub DessinDuTableau
gosub CliquerLesCases
gosub EvalDesCellules
gosub EffaceLeTableau
gosub Affiche1Nouveau

rem SUITE

hide 110 : show 111
c%=2
item_add 112,"2 - "+str$(TotalDesVies%)

  while Fini=0
    wait 60
    Touche$=inkey$
    c%=c%+1
    caption 0,"Cycle n° "+str$(c%)
    gosub EvalDesCellules
    gosub EffaceLeTableau
    gosub Affiche1Nouveau
    if TotalDesVies%=0 then Fini=1
    if Touche$<>""     then Fini=1
    item_add 112,str$(c%)+" - "+str$(TotalDesVies%)
  end_while

  caption 0,"Cycle n° "+str$(c%)+" - "+str$(TotalDesVies%)+" en vie..."
  hide 111:show 112

end

 DessinDuTableau:

   for i%=1 to 100

       DebutDeBoucle:
       i2%=int(1+rnd(100))
       if DejaVu(i2%)=1
         goto DebutDeBoucle
       else
         iCol%=mod(i2%-1,10) : iLig%=1+int((i2%-1)/10)
         alpha i2% :parent i2%,120:width i2%,20:height i2%,20
         color i2%,96,168,23 : rem 79,111,46
         left i2%,(1+iCol%)*24:top i2%,iLig%*24
         DejaVu(i2%)=1
       end_if
      
   next i%

 return
 
 CliquerLesCases:
   caption 0,"Clique sur les cases de ton choix puis OK"
   while clicked(110)<>1
    for i%=1 to 100
        if clicked(i%)=1
           OuiNon(i%)=mod((OuiNon(i%)+1),2):CeFlag%=OuiNon(i%)
              select CeFlag%
                 case 0 : color i%,96,168,23
                 case 1 : color i%,181,116,4:NbDebut%=NbDebut%+1
              end_select
           '
        end_if
    next i%
   end_while
  item_add 112,"1 - "+str$(NbDebut%)
 return

 EvalDesCellules:
   for i%=1 to 100
       color i%,240,253,243
       i2%=i%-11:gosub AjouteLesVies
       i2%=i%-10:gosub AjouteLesVies
       i2%=i%-9 :gosub AjouteLesVies
       i2%=i%-1 :gosub AjouteLesVies
       i2%=i%+1 :gosub AjouteLesVies
       i2%=i%+9 :gosub AjouteLesVies
       i2%=i%+10:gosub AjouteLesVies
       i2%=i%+11:gosub AjouteLesVies
   caption i%,str$(Total%(i%))
   next i%
 return

 AjouteLesVies:
   if ((i2%>0) and (i2%<101))
            if OuiNon(i2%)=1
               Total%(i%)=Total%(i%)+1
            end_if
   end_if
 return
 
 EffaceLeTableau:
   for i%=1 to 100
       caption i%,""
       OuiNon(i%)=0
       color i%,96,168,23 : height i%,20:width i%,20
   next i%
 return
 
 Affiche1Nouveau:
 TotalDesvies%=0
    for i%=1 to 100
        if Total%(i%)=2
           color i%,198,200,77 : OuiNon(i%)=1
           TotalDesVies%=TotalDesVies%+1
        end_if
        if Total%(i%)=3
           color i%,181,116,4 : OuiNon(i%)=1
           TotalDesVies%=TotalDesVies%+1
        end_if
    Total%(i%)=0
    next i%
 return