Novità

Per Cipisto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
:)Ciao grande, facciamo un regalo a tutto il forum, aggiungiamo all'ambata del centro massa per ogni sorte il più 5

rodolfo
 
interessante quindi consigli di aggiungere il + 5 agli abbinamenti l'asciando l'ambata (il centro di massa ) invariato?

ciao a tutti
 
:)Si Corrado, per esempio ora l'ambata di Firenze è il 27, aggiungere al 27 il 5 quindi il secondo numero è 32, ambate 27 e 32 aggiungere il 32 anche alle sorti di ambo, terno, quaterna e cinquina

rodolfo
 
Leggo solo ora. Personalmente dalle previsioni giocabili eliminerei i terni che non danno nulla se non zero.
Invece per il +5 che dice Rodolfo, quindi diventerebbero otto ambi e due cinquine, o facciamo 4 terzine ed una sestina? Fatemi sapere che implemento le modifiche.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Spero di aver interpretato bene cosa volevate. Rodolfo hai visto proprio bene, da risultati migliori con quel +5. Vi posto il listato del centro di massa originale (isotopia solo in terza e senza nazionale) con la doppia ambata, 4 terzine e la sestina, e vi posto le statistiche per l'anno 2006.
Buonanotte a tutti.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Codice: 
Sub main()

Dim Ambata(1)
Dim Terzina(3)
Dim Sestina(6)
Dim Ruote(10)
Dim PosteE(10)
Dim PosteT(5)
Dim PosteS(5)
Dim es
Dim iEstrazione
Dim iRuota
Dim iGiocata
Dim iEstratto
Dim E31
Dim E32
Dim E33
Dim bCM
Dim iCM
Dim iNR
Dim sEstratti
Dim bMetodo
Dim iTerzina
Dim iSestina
Dim iAmbata
Dim i

   PosteE(1) = 1
   PosteE(6) = 1
   PosteE(10) = 1
   PosteT(2) = 1
   PosteT(3) = 1
   PosteS(2) = 2
   PosteS(3) = 0.8
   PosteS(4) = 0.15
   PosteS(5) = 0.05

   'Togliere l'apice alla riga qui sotto per avere un report visuale.
   'TabellaGiocate True

   iAmbata = MsgBox("vuoi giocare l'ambata?", 32 + 4, "Il Centro di Massa")
   iTerzina = MsgBox("vuoi giocare le terzine?", 32 + 4, "Il Centro di Massa")
   iSestina = MsgBox("vuoi giocare la Sestina?", 32 + 4, "Il Centro di Massa")

   For es = 6837 To EstrazioniArchivio
      AvanzamentoElab 6837, EstrazioniArchivio, es
      iGiocata = 1
      For iRuota = 1 To 8
         bMetodo = 0
         E31 = Estratto(es, iRuota, 3)
         E32 = Estratto(es, (iRuota + 1), 3)
         E33 = Estratto(es, (iRuota + 2), 3)
         If E31 = E33 Then
            bCM = 0
            For iEstrazione = (es + 1) To (es + 6)
               If bMetodo = 0 And bCM = 0 Then
                  sEstratti = StringaEstratti(iEstrazione, (iRuota + 1))

                  If Len(E31) = 1 Then E31 = "0" & E31
                  If Len(E32) = 1 Then E32 = "0" & E32
                  If Len(E33) = 1 Then E33 = "0" & E33

                  iCM = Instr(1, sEstratti, E32, 1)
                  If iCM <> 0 Then bCM = -1
                  iNR = Instr(1, sEstratti, E31, 1)

                  If iCM = 0 And iNR <> 0 Then
                     bMetodo = -1

                     Scrivi "$====================================================$"
                     Scrivi " Estrazione Rilevamento: " & DataEstrazione(es)
                     Scrivi " M1: |" & SiglaRuota(iRuota) & "| - CM: |" & SiglaRuota((iRuota + 1)) & "| - M2: |" & SiglaRuota((iRuota + 2)) & "|"
                     Scrivi " M1: |" & E31 & "| - CM: |" & E32 & "| - M2: |" & E33 & "|"
                     Scrivi " Estrazione Trovata: " & DataEstrazione(iEstrazione) & " - " & SiglaRuota((iRuota + 1)) & ": " & StringaEstratti(iEstrazione, (iRuota + 1))

                     Ruote(1) = (iRuota + 1)

                     For i = 0 To 5 Step 5
                        Ambata(1) = Fuori90((E32 + i))
                        ImpostaGiocata iGiocata, Ambata, Ruote, PosteE, 7
                        iGiocata = iGiocata + 1
                     Next

                     If iTerzina = 6 Then
                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = Fuori90((E31 * 3))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1

                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = Diametrale((Fuori90((E31 * 3))))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1

                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = 90 - (DiametraleD((Fuori90((E31 + E32 + E33)))))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1

                        Terzina(1) = E32
                        Terzina(2) = Fuori90((E32 + 5))
                        Terzina(3) = Diametrale((90 - (DiametraleD((Fuori90((E31 + E32 + E33)))))))
                        ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, 7
                        iGiocata = iGiocata + 1
                     End If

                     If iSestina = 6 Then
                        Sestina(1) = E32
                        Sestina(2) = Fuori90((E32 + 5))
 
Codice: 
$====================================================$
 Estrazione Rilevamento: 03.03.2001
 M1: |Ro| - CM: |To| - M2: |Ve|
 M1: |34| - CM: |67| - M2: |34|
 Estrazione Trovata: 07.03.2001 - To: 68.04.34.75.51
mer 07.03.2001  [7000]
  G  1:  MD1D5         67                  To    7/7    
     negativo
  G  2:  MD1D5         72                  To    7/7    
     M  72               su To    3° colpo   [7003/17.03.2001]
     D1 72               su To    3° colpo   [7003/17.03.2001]

  G  3:  AT            67.72.12            To    7/7    
     negativo
  G  4:  AT            67.72.57            To    7/7    
     negativo
  G  5:  AT            67.72.50            To    7/7    
     negativo
  G  6:  AT            67.72.05            To    7/7    
     negativo
  G  7:  ATQC          67.72.12.57.50.05   To    7/7    
     A  57.12            su To    7° colpo   [7007/31.03.2001]

$====================================================$
 Estrazione Rilevamento: 10.03.2001
 M1: |Ro| - CM: |To| - M2: |Ve|
 M1: |35| - CM: |14| - M2: |35|
 Estrazione Trovata: 14.03.2001 - To: 89.35.05.27.63
mer 14.03.2001  [7002]
  G  1:  MD1D5         14                  To    7/7    
     negativo
  G  2:  MD1D5         19                  To    7/7    
     M  19               su To    4° colpo   [7006/28.03.2001]
     D1 19               su To    4° colpo   [7006/28.03.2001]

  G  3:  AT            14.19.15            To    7/7    
     negativo
  G  4:  AT            14.19.60            To    7/7    
     negativo
  G  5:  AT            14.19.01            To    7/7    
     negativo
  G  6:  AT            14.19.46            To    7/7    
     A  19.46            su To    4° colpo   [7006/28.03.2001]

  G  7:  ATQC          14.19.15.60.01.46   To    7/7    
     A  19.46            su To    4° colpo   [7006/28.03.2001]

$====================================================$
 Estrazione Rilevamento: 23.07.2003
 M1: |Fi| - CM: |Ge| - M2: |Mi|
 M1: |83| - CM: |14| - M2: |83|
 Estrazione Trovata: 26.07.2003 - Ge: 29.07.06.20.83
sab 26.07.2003  [7255]
  G  1:  MD1D5         14                  Ge    7/7    
     negativo
  G  2:  MD1D5         19                  Ge    7/7    
     negativo
  G  3:  AT            14.19.69            Ge    7/7    
     negativo
  G  4:  AT            14.19.24            Ge    7/7    
     negativo
  G  5:  AT            14.19.85            Ge    7/7    
     negativo
  G  6:  AT            14.19.40            Ge    7/7    
     negativo
  G  7:  ATQC          14.19.69.24.85.40   Ge    7/7    
     negativo
$====================================================$
 Estrazione Rilevamento: 09.08.2003
 M1: |Ro| - CM: |To| - M2: |Ve|
 M1: |70| - CM: |32| - M2: |70|
 Estrazione Trovata: 23.08.2003 - To: 70.53.27.11.68
sab 23.08.2003  [7263]
  G  1:  MD1D5         32                  To    7/7    
     M  32               su To    6° colpo   [7269/13.09.2003]
     D1 32               su To    6° colpo   [7269/13.09.2003]

  G  2:  MD1D5         37                  To    7/7    
     negativo
  G  3:  AT            32.37.30            To    7/7    
     negativo
  G  4:  AT            32.37.75            To    7/7    
     negativo
  G  5:  AT            32.37.03            To    7/7    
     negativo
  G  6:  AT            32.37.48            To    7/7    
     negativo
  G  7:  ATQC          32.37.30.75.03.48   To    7/7    
     negativo
$====================================================$
 Estrazione Rilevamento: 15.05.2004
 M1: |Fi| - CM: |Ge| - M2: |Mi|
 M1: |84| - CM: |85| - M2: |84|
 Estrazione Trovata: 19.05.2004 - Ge: 03.84.50.15.17
mer 19.05.2004  [7340]
  G  1:  MD1D5         85                  Ge    7/7    
     negativo
  G  2:  MD1D5         90                  Ge    7/7    
     M  90               su Ge    3° colpo   [7343/29.05.2004]
     M  90               su Ge    4° colpo   [7344/03.06.2004]

  G  3:  AT            85.90.72            Ge    7/7    
     negativo
  G  4:  AT            85.9
 
in caso debba fare altre modifiche fatemi sapere.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 settembre 2026
    Bari
    65
    30
    19
    81
    22
    Cagliari
    21
    64
    47
    42
    15
    Firenze
    72
    15
    07
    67
    90
    Genova
    63
    61
    34
    76
    06
    Milano
    80
    12
    07
    46
    79
    Napoli
    87
    31
    09
    22
    53
    Palermo
    21
    83
    06
    69
    13
    Roma
    78
    50
    70
    56
    30
    Torino
    15
    09
    18
    88
    46
    Venezia
    52
    28
    37
    30
    31
    Nazionale
    49
    67
    78
    32
    50
    Estrazione Simbolotto
    Palermo
    22
    12
    04
    10
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto