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
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
- Stato
Ciao grande, facciamo un regalo a tutto il forum, aggiungiamo all'ambata del centro massa per ogni sorte il più 5 rodolfo
]okLeggo 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)
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)
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- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 19 settembre 2026Bari9064765770Cagliari7750075343Firenze8027054489Genova0886676324Milano4417584047Napoli8178107102Palermo8689263303Roma0612666372Torino2952811354Venezia6203598605Nazionale3417153983Estrazione Simbolotto
Palermo
3101410815
