xCinzia27...adattatori sui numeri estratti..

[Zetrix]

[TT] [BA][47 60 .. .. ..] C.1 Ambo 02391 [10/09/2024] [47.60.46.12.29]

 

[Zetrix]

[BA] [47 .. .. .. ..] C.1 Estratto 02391 [10/09/2024] [47.60.46.12.29]

 

[Zetrix]

[TT] [BA][47 .. .. 12 ..] C.1 Ambo 02391 [10/09/2024] [47.60.46.12.29]

 

[Zetrix]

Vedi l'allegato 2289766
Na_________64__63_________
Pa_________62__61_________
Ro_________42__41_________

Numeri in gioco 62.41 su TT per Ambo
In corso

[TT] [NA][.. .. 62 .. 41] C.4 Ambo 02393 [147 - 13/09/2024] [24.23.62.67.41]

 

[Zetrix]

' x Zetrix: metodo il sommativo per ogni numero che non ha mai dato esito a colpo (Cinzia27)
Sub Main()
   Dim ru(1),n(1)
   w = 1 'colpi
   ini = EstrazioneFin - 100
   Scrivi "Dall'estrazione " & ini & " all'estrazione " & EstrazioneFin
   For r = 1 To 10
      r2 = 1   ' ruota di calcolo
      If ScriptInterrotto Then Exit For
      cc = 0
      ru(1) = r
      x = 45   ' sommativo
      cc = 0
      For es = ini To EstrazioneFin
         If ScriptInterrotto Then Exit For
         p = 4 'qui puoi cambiare la posizione dell'estratto
         x1 = Estratto(es,r2,p)
         n(1) = Fuori90(x1 + x)
         fr = SerieFreq(es + 1,es + 1,n,ru,1)
         If fr > 0 Then
            cc = cc + 1
            'Scrivi "Sommativo"& FormatSpace(x,3,1)&" n. "&Format2(x1)&" "& _
            'FormatSpace(es,5,1)&" "&FormatSpace(es+1,5,1)&" "& _
            'SiglaRuota(r)&" "&FormatSpace(co,4,1)
         End If
      Next
      ColoreTesto 0
      If cc = 0 Then xx = x:xx1 = x1:Scrivi "A " & SiglaRuota(r2) & " sommativo " & Format2(x) & " con " & p _
      & "° estratto ha dato ambata " & cc _
      & " volte su " & SiglaRuota(r):ri = "   " & p & " Estratto " & xx1 & "+" & xx & " = AMBATA " & Fuori90(xx1 + xx) & " " & SiglaRuota(r)
    Scrivi NomeRuota(r) &" "& fr
   Next
   If ri <> ri1 Then Scrivi ri
   ri1 = ri
End Sub

????????????????????????????????????????

Dall'estrazione 2293 all'estrazione 2393
Bari 0
Cagliari 1
Firenze 0
Genova 0
A BA sommativo 45 con 4° estratto ha dato ambata 0 volte su MI
Milano 0
Napoli 0
Palermo 0
Roma 0
Torino 0
Venezia 0
4 Estratto 62+45 = AMBATA 17 MI