SE SI PUO

[Alien.]

SOMMATIVI SU BARI

ELABORATI ALLA SECONDA ESTRAZIONE DEL MESE 2 metodi sommativi facili facili con positivita' corta di soli 9 mesi x 10 estrazioni 1° metodo 5° PA + 28 = 78 ambata abbinamenti 2° MI + 71 = 14 3° BA + 3° NA = 37 5° RO - 2° VE = 61 3° TO X 3° VE = 10 2° metodo 1° FI + 55 = 25 = ambata...

forum.lottoced.com

GRAZIE.

 

[BaffoBlù]

SOMMATIVI SU BARI

ELABORATI ALLA SECONDA ESTRAZIONE DEL MESE 2 metodi sommativi facili facili con positivita' corta di soli 9 mesi x 10 estrazioni 1° metodo 5° PA + 28 = 78 ambata abbinamenti 2° MI + 71 = 14 3° BA + 3° NA = 37 5° RO - 2° VE = 61 3° TO X 3° VE = 10 2° metodo 1° FI + 55 = 25 = ambata...

forum.lottoced.com

GRAZIE.

in arrivo

 

[Alien.]

Grazie BaffoD'oro avevo perso la speranza. (è solo una battuta il baffo d'oro per ringraziarti che sei "prezioso")

 

[BaffoBlù]

Grazie BaffoD'oro avevo perso la speranza. (è solo una battuta il baffo d'oro per ringraziarti che sei "prezioso")

questo è il secondo

Option Explicit
Sub Main()
   ' da 2° metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,n1(5)
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   r = 3
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,1)
         b = Estratto(es,7,2)
         c = Estratto(es,8,2)
         d = Estratto(es,9,4)
         e = Estratto(es,7,5)
         '--------------------
         '---------------------
         n1(1) = Fuori90(a + 55)
         n1(2) = Fuori90(b + 58)
         n1(3) = Fuori90(c + 5)
         n1(4) = Fuori90(d + 19)
         n1(5) = Fuori90(e + 21)
         r = 3
         r1 = 11
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n1,ruota,poste,Clp
         ImpostaGiocata 2,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub