Ci riprovo dalla Decima Estrazione

[bubù]

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]

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]

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