Prima condizione per ciascuna ruota:
Se i numeri che superano le 60 estrazioni di ritardo sono > di 3
considerare tali numeri e metterli in una variabile dinamica. Dato che nell’ estrazione successiva le condizioni potrebbero essere mutate. (infatti nell’ estrazione successiva potrebbe essere uscito un numero della lunghetta oppure un numero con 60 estrazioni di ritardo potrebbe aver raggiunto la 61 estrazione di ritardo)
Seconda condizione considerare i due numeri con maggior ritardo ma con ritardo inferiore alle 61 estrazioni.
Sommare in lunghetta i numeri della prima e della seconda condizione e metterli in gioco per ambo
In out
Se possibile per ciascun numero della prima e seconda condizione affiancare al numero le estrazioni di ritardo.
Somma dei ritardi della lunghetta dei numeri considerati.
usando verificaesito verificare i numeri della seconda condizione per ambata
abbinare i numeri della seconda condizione con quelli della prima condizione e verificarne l’esito per la sorte di ambo.
Sperando di essere stato un più chiaro
ciao Eugenio
BUON POMERIGGIO, TI ALLEGO LO SCRIPT CHE SALVO ERRORI DA' QUANTO DA TE RICHIESTO
TI CHIEDO SEMPRE DI CONTROLLARE
Sub Main()
Dim r, n, rit, contA
Dim amataA, amataB, amataTot
Dim RitardiA, RitardiB
Dim max1, max2, num1, num2
Dim SommaRitardi, i
' Dichiarazione degli array come dinamici (senza specificare la dimensione nella Dim)
Dim RuotaGioco()
' Variabili obbligatorie di output richieste da VerificaEsito
Dim ReEsito, ReColpi, ReEstratti, ReIdEstr
' Questa variabile garantisce la dinamicità. Impostata così prende l'ultima estrazione.
Dim EstrazioneCol
EstrazioneCol = EstrazioneFin
' Ciclo su tutte le ruote (1-10 ruote classiche, 12 è la Nazionale)
For r = 1 To 12
If r <> 11 Then ' Esclude l'indice 11 (Tutte)
' Inizializzazione degli array dinamici per la prima condizione
ReDim amataA(90)
ReDim RitardiA(90)
contA = 0
' --- PRIMA CONDIZIONE ---
For n = 1 To 90
rit = EstrattoRitardo(r,n,1,EstrazioneCol)
If rit > 60 Then
contA = contA + 1
amataA(contA) = n
RitardiA(contA) = rit
End If
Next
' Verifica se i numeri che superano le 60 estrazioni sono MAGGIORI DI 3 (> 3)
If contA > 3 Then
' --- SECONDA CONDIZIONE ---
max1 = - 1 : max2 = - 1
num1 = 0 : num2 = 0
For n = 1 To 90
rit = EstrattoRitardo(r,n,1,EstrazioneCol)
If rit < 61 Then
If rit > max1 Then
max2 = max1
num2 = num1
max1 = rit
num1 = n
ElseIf rit > max2 Then
max2 = rit
num2 = n
End If
End If
Next
' --- STRUTTURAZIONE ARRAY SECONDO REGOLE SPAZIOSCRIPT ---
' 1. Array Seconda Condizione (per verifica Ambata)
ReDim amataB(2)
amataB(0) = 2
amataB(1) = num1
amataB(2) = num2
' 2. Array Lunghetta Totale (Prima Condizione + Seconda Condizione)
Dim TotaleElementi
TotaleElementi = contA + 2
ReDim amataTot(TotaleElementi)
amataTot(0) = TotaleElementi
' Inseriamo i numeri della prima condizione
For i = 1 To contA
amataTot(i) = amataA(i)
Next
' Abbiniamo i due numeri della seconda condizione in coda
amataTot(contA + 1) = num1
amataTot(contA + 2) = num2
' --- IN OUT: CALCOLO SOMMA RITARDI ---
SommaRitardi = 0
For i = 1 To contA
SommaRitardi = SommaRitardi + RitardiA(i)
Next
SommaRitardi = SommaRitardi + max1 + max2
' --- STAMPA DEI RISULTATI (OUTPUT) ---
Scrivi String(70,"=")
Scrivi "RUOTA DI: " & NomeRuota(r) & " - Estr. Calcolo: " & EstrazioneCol & " (" & DataEstrazione(EstrazioneCol) & ")"
Scrivi String(70,"-")
Scrivi "Prima Condizione (Numeri con Ritardo > 60):"
For i = 1 To contA
Scrivi "Numero: " & Format2(amataA(i)) & " -> Ritardo attuale: " & RitardiA(i)
Next
Scrivi "Totale numeri trovati per la prima condizione: " & contA
Scrivi
Scrivi "Seconda Condizione (I 2 maggiori ritardatari sotto i 61 turni):"
Scrivi "Numero: " & Format2(num1) & " -> Ritardo attuale: " & max1
Scrivi "Numero: " & Format2(num2) & " -> Ritardo attuale: " & max2
Scrivi
Scrivi String(40,"-")
Scrivi "SOMMA DEI RITARDI DELLA LUNGHETTA: " & SommaRitardi
Scrivi String(70,"-")
' Configurazione Ruota di Gioco ridimensionata dinamicamente
ReDim RuotaGioco(1)
RuotaGioco(0) = 1
RuotaGioco(1) = r
' --- VERIFICA ESITI ---
' Verifica per ambata (Sorte 1)
Scrivi "VERIFICA ESITO AMBATA (I 2 Numeri della 2° Condizione)"
If VerificaEsito(amataB,RuotaGioco,EstrazioneCol + 1,1,10,,ReEsito,ReColpi,ReEstratti,ReIdEstr) Then
Scrivi "ESITO: " & ReEsito & " al colpo " & ReColpi & " il " & DataEstrazione(ReIdEstr) & " [" & ReEstratti & "]"
Else
Scrivi "ESITO: Nessuno sfaldamento per Ambata nei 10 colpi successivi."
End If
Scrivi
' Verifica per ambo (Sorte 2)
Scrivi "VERIFICA ESITO AMBO (Intera Lunghetta Unita)"
If VerificaEsito(amataTot,RuotaGioco,EstrazioneCol + 1,2,10,,ReEsito,ReColpi,ReEstratti,ReIdEstr) Then
Scrivi "ESITO: " & ReEsito & " al colpo " & ReColpi & " il " & DataEstrazione(ReIdEstr) & " [" & ReEstratti & "]"
Else
Scrivi "ESITO: Nessuno sfaldamento per Ambo nei 10 colpi successivi."
End If
Scrivi String(70,"=")
Scrivi
End If
End If
Next
End Sub
