Ci riprovo dalla Decima Estrazione

bubù · Ieri alle 16:55

Ricordo che sono sommativi che hanno un funzionamento a singhiozzo specie se viene giocato.
Ho postato solo i primi 10 colpi, chi vuole può provare anche Ambi secchi con L'estratto che sembra esca più velocemente è una sola ruota Cagliari e solo per 3 colpi giusto per chi vuole provarci

andrea211 · Ieri alle 20:04

Ciao, mi sono permesso di tradurlo in script con la AI
non saprei che dire

'=============================================================
' OTTINA - 10a ESTRAZIONE MENSILE
'
' RUOTA: CAGLIARI
'
' GIOCATE:
' 1° numero dell'ottina = ESTRATTO
' 8 numeri = TERNO
' 8 numeri = QUATERNA
' 8 numeri = CINQUINA
'
' AMBO = NON GIOCATO
'
' COLPI = 10
'=============================================================

Sub Main()

Dim ruote(1)
Dim numeri(8)
Dim num1(1)
Dim poste(5)
Dim posta(5)

Dim ini
Dim fin
Dim es
Dim k
Dim casi
Dim ng

Dim n1
Dim n2
Dim n3
Dim n4
Dim n5
Dim n6
Dim n7
Dim n8

'-------------------------------------------------------------
' PARAMETRI
'-------------------------------------------------------------

k = 10

ini = InputBox("Da quale estrazione vuoi iniziare?", _
"Inizio elaborazione", EstrazioneIni)

fin = EstrazioneFin

'-------------------------------------------------------------
' RUOTA
' 2 = CAGLIARI
'-------------------------------------------------------------

ruote(1) = 2

'-------------------------------------------------------------
' POSTA ESTRATTO
' Solo il primo numero
'-------------------------------------------------------------

posta(1) = 1

'-------------------------------------------------------------
' POSTE SISTEMA
'
' 1 = estratto
' 2 = ambo
' 3 = terno
' 4 = quaterna
' 5 = cinquina
'-------------------------------------------------------------

poste(1) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 1

casi = 0
ng = 0

'-------------------------------------------------------------
' CICLO
'-------------------------------------------------------------

For es = ini To fin

If IndiceMensile(es) = 10 Then

casi = casi + 1

'=====================================================
' CALCOLO DEGLI 8 NUMERI
'=====================================================

'1) 5° Firenze + 14
n1 = Fuori90(Estratto(es,3,5) + 14)

'2) 5° Bari + 3° Firenze + 28
n2 = Fuori90(Estratto(es,1,5) + _
Estratto(es,3,3) + 28)

'3) Cadenza 4° Palermo + 61
n3 = Fuori90(Cadenza(Estratto(es,7,4)) + 61)

'4) Figura 5° Bari + 2° Milano + 80
n4 = Fuori90(Figura(Estratto(es,1,5)) + _
Estratto(es,5,2) + 80)

'5) Diametrale in decina 4° Cagliari + 31
n5 = Fuori90(DiametraleDecina(Estratto(es,2,4)) + 31)

'6) Figura 1° Roma + 2° Nazionale + 49
n6 = Fuori90(Figura(Estratto(es,8,1)) + _
Estratto(es,11,2) + 49)

'7) Diametrale 4° Palermo + 1
n7 = Fuori90(Diametrale(Estratto(es,7,4)) + 1)

'8) 3° Bari + 4° Napoli + 19
n8 = Fuori90(Estratto(es,1,3) + _
Estratto(es,6,4) + 19)

'=====================================================
' OTTINA
'=====================================================

numeri(1) = n1
numeri(2) = n2
numeri(3) = n3
numeri(4) = n4
numeri(5) = n5
numeri(6) = n6
numeri(7) = n7
numeri(8) = n8

'Elimina eventuali ripetizioni
EliminaRipetuti numeri

'=====================================================
' STAMPA DEL PRONOSTICO
'=====================================================

Scrivi
Scrivi String(70,"="),1
Scrivi "CASO N° " & casi,1
Scrivi DataEstrazione(es) & _
" - 10a ESTRAZIONE MENSILE",1
Scrivi String(70,"-"),1

Scrivi "CAGLIARI",1

Scrivi "OTTINA: " & _
Format2(numeri(1)) & " " & _
Format2(numeri(2)) & " " & _
Format2(numeri(3)) & " " & _
Format2(numeri(4)) & " " & _
Format2(numeri(5)) & " " & _
Format2(numeri(6)) & " " & _
Format2(numeri(7)) & " " & _
Format2(numeri(8)),1

Scrivi "ESTRATTO: " & Format2(numeri(1)),1
Scrivi "TERNO + QUATERNA + CINQUINA",1
Scrivi "COLPI: " & k,1

'=====================================================
' GIOCATA 1
' SOLO IL PRIMO NUMERO COME ESTRATTO
'=====================================================

num1(1) = numeri(1)

ng = ng + 1

ImpostaGiocata ng,num1,ruote,posta,k

'=====================================================
' GIOCATA 2
' OTTINA COMPLETA
' TERNO + QUATERNA + CINQUINA
'=====================================================

ng = ng + 1

ImpostaGiocata ng,numeri,ruote,poste,k

'=====================================================
' ESEGUI LA GIOCATA
'=====================================================

Gioca es

End If

Call AvanzamentoElab(ini,fin,es)

If ScriptInterrotto Then Exit For

Next

'-------------------------------------------------------------
' RESOCONTO
'-------------------------------------------------------------

Scrivi
Scrivi
Scrivi "CASI RILEVATI: " & CInt(casi),1
Scrivi "GIOCATE IMPOSTATE: " & CInt(ng),1

ScriviResoconto

End Sub

'=============================================================
' DIAMETRALE IN DECINA
'
' Stessa unità
' Decina spostata di 5 posizioni
'
' 1-10 -> 41-50
' 11-20 -> 51-60
' 21-30 -> 61-70
' 31-40 -> 71-80
' 41-50 -> 81-90
' 51-60 -> 1-10
' 61-70 -> 11-20
' 71-80 -> 21-30
' 81-90 -> 31-40
'=============================================================

Function DiametraleDecina

Dim u
Dim d
Dim nd
Dim r

u = n Mod 10

If u = 0 Then
u = 10
End If

d = Int((n - 1) / 10) + 1

nd = d + 4

If nd > 9 Then
nd = nd - 9
End If

r = (nd - 1) * 10 + u

If r > 90 Then
r = r - 90
End If

If r < 1 Then
r = r + 90
End If

DiametraleDecina = r

End Function

'
Resoconto totale giocate
Resoconto economico

Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
--------------------------------------------------------------
Ambata 460,00 127 365,78 343,83 -116,17
Ambo 230,00 24 258,33 242,83 12,83
Terno 230,00 2 208,93 196,39 -33,61
Quaterna 230,00 0 0,00 0,00 -230,00
Cinquina 230,00 0 0,00 0,00 -230,00
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00 0 0,00 0,00 0,00
E.Det.3 0,00 0 0,00 0,00 0,00
E.Det.4 0,00 0 0,00 0,00 0,00
E.Det.5 0,00 0 0,00 0,00 0,00
Totale: 1.380,00 833,04 -546,96 -596,94

at salut

andrea211 · Ieri alle 20:07

qui puoi sceglier quante estrazioni giocare

' =====================================================================
' SISTEMA A 8 NUMERI (OTTINA) - L8+
'
' METODO:
' - individua automaticamente la 10a estrazione di ogni mese
' - dal mese/anno iniziale scelto fino all'ultima estrazione disponibile
' - calcola gli 8 numeri secondo le formule indicate
' - elimina eventuali numeri ripetuti
' - gioca SOLO su CAGLIARI
' - sorte: ESTRATTO + AMBO + TERNO + QUATERNA + CINQUINA
' - durata: 10 colpi (modificabile)
'
' RUOTE:
' 1 Bari
' 2 Cagliari
' 3 Firenze
' 4 Genova
' 5 Milano
' 6 Napoli
' 7 Palermo
' 8 Roma
' 9 Torino
' 10 Venezia
' 11 Nazionale
'
' LA 10a ESTRAZIONE DEL MESE VIENE IDENTIFICATA CON:
' If IndiceMensile(Es) = 10 Then
'
' =====================================================================

Sub Main

Dim Ini, Fin, Es
Dim Clp
Dim ng, casi
Dim ruote(1)
Dim numeri(8)
Dim poste(5)

Dim n1, n2, n3, n4
Dim n5, n6, n7, n8

' ---------------------------------------------------------------
' PARAMETRI
' ---------------------------------------------------------------

Clp = CInt(InputBox( _
"Per quanti colpi vuoi giocare?", _
"SISTEMA OTTINA - 10a ESTRAZIONE MENSILE", _
10))

If Clp <= 0 Then Exit Sub

' Inizio elaborazione
Ini = CInt(InputBox( _
"Da quale estrazione vuoi iniziare l'elaborazione?" & Chr(13) & _
"Per analizzare dal 2024 inserisci l'indice della prima" & Chr(13) & _
"estrazione del 2024 presente nel tuo archivio.", _
"Inizio elaborazione", _
EstrazioneIni))

Fin = EstrazioneFin

' ---------------------------------------------------------------
' RUOTA DI GIOCO: SOLO CAGLIARI
' ---------------------------------------------------------------

ruote(1) = 2

' ---------------------------------------------------------------
' POSTE
'
' poste(1) = estratto
' poste(2) = ambo
' poste(3) = terno
' poste(4) = quaterna
' poste(5) = cinquina
' ---------------------------------------------------------------

poste(1) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 1

ng = 0
casi = 0

' ---------------------------------------------------------------
' CICLO STORICO
' ---------------------------------------------------------------

For Es = Ini To Fin

Call AvanzamentoElab(Ini, Fin, Es)

If ScriptInterrotto Then Exit For

' ===========================================================
' PRENDIAMO SOLAMENTE LA 10a ESTRAZIONE DEL MESE
' ===========================================================

If IndiceMensile(Es) = 10 Then

casi = casi + 1

Call Messaggio(Es)

' -------------------------------------------------------
' 1) 5° DI FIRENZE + 14
' -------------------------------------------------------

n1 = Fuori90(Estratto(Es, 3, 5) + 14)

' -------------------------------------------------------
' 2) 5° DI BARI + 3° DI FIRENZE + 28
' -------------------------------------------------------

n2 = Fuori90( _
Estratto(Es, 1, 5) + _
Estratto(Es, 3, 3) + 28)

' -------------------------------------------------------
' 3) CADENZA DEL 4° DI PALERMO + 61
' -------------------------------------------------------

n3 = Fuori90( _
Cadenza(Estratto(Es, 7, 4)) + 61)

' -------------------------------------------------------
' 4) FIGURA DEL 5° DI BARI +
' 2° DI MILANO + 80
' -------------------------------------------------------

n4 = Fuori90( _
Figura(Estratto(Es, 1, 5)) + _
Estratto(Es, 5, 2) + 80)

' -------------------------------------------------------
' 5) DIAMETRALE IN DECINA DEL 4° DI CAGLIARI + 31
' -------------------------------------------------------

n5 = Fuori90( _
DiametraleDecina(Estratto(Es, 2, 4)) + 31)

' -------------------------------------------------------
' 6) FIGURA DEL 1° DI ROMA +
' 2° DELLA NAZIONALE + 49
' -------------------------------------------------------

n6 = Fuori90( _
Figura(Estratto(Es, 8, 1)) + _
Estratto(Es, 11, 2) + 49)

' -------------------------------------------------------
' 7) DIAMETRALE DEL 4° DI PALERMO + 1
' -------------------------------------------------------

n7 = Fuori90( _
Diametrale(Estratto(Es, 7, 4)) + 1)

' -------------------------------------------------------
' 8) 3° DI BARI + 4° DI NAPOLI + 19
' -------------------------------------------------------

n8 = Fuori90( _
Estratto(Es, 1, 3) + _
Estratto(Es, 6, 4) + 19)

' -------------------------------------------------------
' COSTRUZIONE OTTINA
' -------------------------------------------------------

numeri(1) = n1
numeri(2) = n2
numeri(3) = n3
numeri(4) = n4
numeri(5) = n5
numeri(6) = n6
numeri(7) = n7
numeri(8) = n8

' -------------------------------------------------------
' ELIMINA EVENTUALI RIPETIZIONI
' -------------------------------------------------------

EliminaRipetuti numeri

' -------------------------------------------------------
' VISUALIZZAZIONE DEL CASO
' -------------------------------------------------------

Scrivi
Scrivi String(70, "="), 1
Scrivi "CASO N. " & casi, 1
Scrivi "10a ESTRAZIONE MENSILE", 1
Scrivi "DATA: " & DataEstrazione(Es), 1
Scrivi "INDICE MENSILE: " & IndiceMensile(Es), 1
Scrivi String(70, "-"), 1

Scrivi "OTTINA CALCOLATA:", 1

Scrivi _
Format2(numeri(1)) & " " & _
Format2(numeri(2)) & " " & _
Format2(numeri(3)) & " " & _
Format2(numeri(4)) & " " & _
Format2(numeri(5)) & " " & _
Format2(numeri(6)) & " " & _
Format2(numeri(7)) & " " & _
Format2(numeri(8)), 1

Scrivi "RUOTA DI GIOCO: CAGLIARI", 1
Scrivi "COLPI: " & Clp, 1

' -------------------------------------------------------
' IMPOSTAZIONE DELLA GIOCATA
' -------------------------------------------------------

ng = ng + 1

ImpostaGiocata ng, numeri, ruote, poste, Clp

' -------------------------------------------------------
' AVVIA LA VERIFICA DEI COLPI SUCCESSIVI
' -------------------------------------------------------

Gioca Es

End If

Next

' ---------------------------------------------------------------
' RISULTATO FINALE
' ---------------------------------------------------------------

Scrivi
Scrivi String(70, "="), 1
Scrivi "CASI ELABORATI: " & casi, 1
Scrivi "GIOCATE IMPOSTATE: " & ng, 1
Scrivi String(70, "="), 1

ScriviResoconto

End Sub

' =====================================================================
' DIAMETRALE IN DECINA
'
' Regola:
' - mantiene la stessa unità
' - sposta la decina di 5 posizioni
' - decine considerate:
' 1-10
' 11-20
' 21-30
' 31-40
' 41-50
' 51-60
' 61-70
' 71-80
' 81-90
'
' Esempio:
' 14 -> 64
' 27 -> 77
' 63 -> 13
'
' =====================================================================

Function DiametraleDecina(ByVal n)

Dim u, d, ndec, res

u = n Mod 10

If u = 0 Then
u = 10
End If

d = Int((n - 1) / 10) + 1

ndec = d + 4

If ndec > 9 Then
ndec = ndec - 9
End If

res = (ndec - 1) * 10 + u

If res > 90 Then
res = res - 90
End If

If res < 1 Then
res = res + 90
End If

DiametraleDecina = res

End Function

Rossella35 · 48 minuti fa

andrea211 ha scritto:
qui puoi sceglier quante estrazioni giocare

' =====================================================================
' SISTEMA A 8 NUMERI (OTTINA) - L8+
'
' METODO:
' - individua automaticamente la 10a estrazione di ogni mese
' - dal mese/anno iniziale scelto fino all'ultima estrazione disponibile
' - calcola gli 8 numeri secondo le formule indicate
' - elimina eventuali numeri ripetuti
' - gioca SOLO su CAGLIARI
' - sorte: ESTRATTO + AMBO + TERNO + QUATERNA + CINQUINA
' - durata: 10 colpi (modificabile)
'
' RUOTE:
' 1 Bari
' 2 Cagliari
' 3 Firenze
' 4 Genova
' 5 Milano
' 6 Napoli
' 7 Palermo
' 8 Roma
' 9 Torino
' 10 Venezia
' 11 Nazionale
'
' LA 10a ESTRAZIONE DEL MESE VIENE IDENTIFICATA CON:
' If IndiceMensile(Es) = 10 Then
'
' =====================================================================

Sub Main

Dim Ini, Fin, Es
Dim Clp
Dim ng, casi
Dim ruote(1)
Dim numeri(8)
Dim poste(5)

Dim n1, n2, n3, n4
Dim n5, n6, n7, n8

' ---------------------------------------------------------------
' PARAMETRI
' ---------------------------------------------------------------

Clp = CInt(InputBox( _
"Per quanti colpi vuoi giocare?", _
"SISTEMA OTTINA - 10a ESTRAZIONE MENSILE", _
10))

If Clp <= 0 Then Exit Sub

' Inizio elaborazione
Ini = CInt(InputBox( _
"Da quale estrazione vuoi iniziare l'elaborazione?" & Chr(13) & _
"Per analizzare dal 2024 inserisci l'indice della prima" & Chr(13) & _
"estrazione del 2024 presente nel tuo archivio.", _
"Inizio elaborazione", _
EstrazioneIni))

Fin = EstrazioneFin

' ---------------------------------------------------------------
' RUOTA DI GIOCO: SOLO CAGLIARI
' ---------------------------------------------------------------

ruote(1) = 2

' ---------------------------------------------------------------
' POSTE
'
' poste(1) = estratto
' poste(2) = ambo
' poste(3) = terno
' poste(4) = quaterna
' poste(5) = cinquina
' ---------------------------------------------------------------

poste(1) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 1

ng = 0
casi = 0

' ---------------------------------------------------------------
' CICLO STORICO
' ---------------------------------------------------------------

For Es = Ini To Fin

Call AvanzamentoElab(Ini, Fin, Es)

If ScriptInterrotto Then Exit For

' ===========================================================
' PRENDIAMO SOLAMENTE LA 10a ESTRAZIONE DEL MESE
' ===========================================================

If IndiceMensile(Es) = 10 Then

casi = casi + 1

Call Messaggio(Es)

' -------------------------------------------------------
' 1) 5° DI FIRENZE + 14
' -------------------------------------------------------

n1 = Fuori90(Estratto(Es, 3, 5) + 14)

' -------------------------------------------------------
' 2) 5° DI BARI + 3° DI FIRENZE + 28
' -------------------------------------------------------

n2 = Fuori90( _
Estratto(Es, 1, 5) + _
Estratto(Es, 3, 3) + 28)

' -------------------------------------------------------
' 3) CADENZA DEL 4° DI PALERMO + 61
' -------------------------------------------------------

n3 = Fuori90( _
Cadenza(Estratto(Es, 7, 4)) + 61)

' -------------------------------------------------------
' 4) FIGURA DEL 5° DI BARI +
' 2° DI MILANO + 80
' -------------------------------------------------------

n4 = Fuori90( _
Figura(Estratto(Es, 1, 5)) + _
Estratto(Es, 5, 2) + 80)

' -------------------------------------------------------
' 5) DIAMETRALE IN DECINA DEL 4° DI CAGLIARI + 31
' -------------------------------------------------------

n5 = Fuori90( _
DiametraleDecina(Estratto(Es, 2, 4)) + 31)

' -------------------------------------------------------
' 6) FIGURA DEL 1° DI ROMA +
' 2° DELLA NAZIONALE + 49
' -------------------------------------------------------

n6 = Fuori90( _
Figura(Estratto(Es, 8, 1)) + _
Estratto(Es, 11, 2) + 49)

' -------------------------------------------------------
' 7) DIAMETRALE DEL 4° DI PALERMO + 1
' -------------------------------------------------------

n7 = Fuori90( _
Diametrale(Estratto(Es, 7, 4)) + 1)

' -------------------------------------------------------
' 8) 3° DI BARI + 4° DI NAPOLI + 19
' -------------------------------------------------------

n8 = Fuori90( _
Estratto(Es, 1, 3) + _
Estratto(Es, 6, 4) + 19)

' -------------------------------------------------------
' COSTRUZIONE OTTINA
' -------------------------------------------------------

numeri(1) = n1
numeri(2) = n2
numeri(3) = n3
numeri(4) = n4
numeri(5) = n5
numeri(6) = n6
numeri(7) = n7
numeri(8) = n8

' -------------------------------------------------------
' ELIMINA EVENTUALI RIPETIZIONI
' -------------------------------------------------------

EliminaRipetuti numeri

' -------------------------------------------------------
' VISUALIZZAZIONE DEL CASO
' -------------------------------------------------------

Scrivi
Scrivi String(70, "="), 1
Scrivi "CASO N. " & casi, 1
Scrivi "10a ESTRAZIONE MENSILE", 1
Scrivi "DATA: " & DataEstrazione(Es), 1
Scrivi "INDICE MENSILE: " & IndiceMensile(Es), 1
Scrivi String(70, "-"), 1

Scrivi "OTTINA CALCOLATA:", 1

Scrivi _
Format2(numeri(1)) & " " & _
Format2(numeri(2)) & " " & _
Format2(numeri(3)) & " " & _
Format2(numeri(4)) & " " & _
Format2(numeri(5)) & " " & _
Format2(numeri(6)) & " " & _
Format2(numeri(7)) & " " & _
Format2(numeri(8)), 1

Scrivi "RUOTA DI GIOCO: CAGLIARI", 1
Scrivi "COLPI: " & Clp, 1

' -------------------------------------------------------
' IMPOSTAZIONE DELLA GIOCATA
' -------------------------------------------------------

ng = ng + 1

ImpostaGiocata ng, numeri, ruote, poste, Clp

' -------------------------------------------------------
' AVVIA LA VERIFICA DEI COLPI SUCCESSIVI
' -------------------------------------------------------

Gioca Es

End If

Next

' ---------------------------------------------------------------
' RISULTATO FINALE
' ---------------------------------------------------------------

Scrivi
Scrivi String(70, "="), 1
Scrivi "CASI ELABORATI: " & casi, 1
Scrivi "GIOCATE IMPOSTATE: " & ng, 1
Scrivi String(70, "="), 1

ScriviResoconto

End Sub

' =====================================================================
' DIAMETRALE IN DECINA
'
' Regola:
' - mantiene la stessa unità
' - sposta la decina di 5 posizioni
' - decine considerate:
' 1-10
' 11-20
' 21-30
' 31-40
' 41-50
' 51-60
' 61-70
' 71-80
' 81-90
'
' Esempio:
' 14 -> 64
' 27 -> 77
' 63 -> 13
'
' =====================================================================

Function DiametraleDecina(ByVal n)

Dim u, d, ndec, res

u = n Mod 10

If u = 0 Then
u = 10
End If

d = Int((n - 1) / 10) + 1

ndec = d + 4

If ndec > 9 Then
ndec = ndec - 9
End If

res = (ndec - 1) * 10 + u

If res > 90 Then
res = res - 90
End If

If res < 1 Then
res = res + 90
End If

DiametraleDecina = res

End Function

Salve entrambi gli script, danno numeri diversi da quelli proposti da Bubù, sicuramente qualche calcolo non viene eseguito in maniera corretta.

Cerca

Cerca

Ci riprovo dalla Decima Estrazione

bubù

Advanced Member >PLATINUM PLUS<

andrea211

Junior Member

andrea211

Junior Member

Rossella35

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi