Somma 90 in 4* e 5* posizione

[Djbene]

A colpo 90 73 ( Bari )

ancora in gioco

 

[andrea211]

Sub Main()
Dim r, ep, colpi, i
Dim n1, n2, somma
Dim ruota(1), posta(2), num(2)
Dim cadenza3(9)

' Impostazione delle poste per Ambo Secco
posta(2) = 1 ' 1 Euro sull'ambo

colpi = 3 ' Durata del gioco
ruota(1) = 11 ' Ruota di TUTTE

' Array con i numeri della cadenza 3
cadenza3(1) = 3
cadenza3(2) = 13
cadenza3(3) = 23
cadenza3(4) = 33
cadenza3(5) = 43
cadenza3(6) = 53
cadenza3(7) = 63
cadenza3(8) = 73
cadenza3(9) = 83

' Ciclo sulle estrazioni (analizza le ultime 200 estrazioni)
For ep = EstrazioneFin - 200 To EstrazioneFin
Messaggio "Elaborazione estrazione: " & ep

' Ciclo sulle ruote (da Bari a Venezia)
For r = 1 To 10
n1 = Estratto(ep, r, 4) ' 4° estratto
n2 = Estratto(ep, r, 5) ' 5° estratto

' Calcola la somma con il fuori 90 automatico
somma = Fuori90(n1 + n2)

' Verifica la condizione
If somma = 90 Then
Scrivi String(70, "=")
Scrivi "Estrazione del " & DataEstrazione(ep) & " - Ruota di " & NomeRuota(r)
Scrivi "Trovata Somma 90 in 4° e 5° posizione: " & n1 & " + " & n2 & " = " & somma
Scrivi String(70, "-")

' Primo elemento fisso dell'ambo
num(1) = 90

' Ciclo per impostare e giocare i 9 ambi secchi separati
For i = 1 To 9
num(2) = cadenza3(i)
ImpostaGiocata i, num, ruota, posta, colpi
Next

' Esegue la giocata complessiva di tutti gli ambi impostati
Gioca ep
End If
Next
Next

' Mostra il riepilogo finanziario e statistico degli ambi
ScriviResoconto
End Sub

 

[andrea211]

Sub Main()
Dim r, ep, colpi, i
Dim n1, n2, somma
Dim ruota(1), posta(2), num(2)
Dim cadenza3(9)

' Impostazione della posta per l'Ambo Secco (1 Euro)
posta(2) = 1

colpi = 3 ' Durata del gioco
ruota(1) = 11 ' Ruota di TUTTE

' Array con la serie dei numeri in cadenza 3
cadenza3(1) = 3
cadenza3(2) = 13
cadenza3(3) = 23
cadenza3(4) = 33
cadenza3(5) = 43
cadenza3(6) = 53
cadenza3(7) = 63
cadenza3(8) = 73
cadenza3(9) = 83

' Ciclo storico sulle estrazioni (analizza le ultime 200 estrazioni)
For ep = EstrazioneFin - 200 To EstrazioneFin
Messaggio "Elaborazione estrazione: " & ep

' Ciclo sulle ruote di ricerca
For r = 1 To 10
n1 = Estratto(ep, r, 4) ' 4° estratto
n2 = Estratto(ep, r, 5) ' 5° estratto

' Verifica della somma 90 (con fuori 90 automatico)
somma = Fuori90(n1 + n2)

If somma = 90 Then
Scrivi String(70, "=")
Scrivi "Estrazione del " & DataEstrazione(ep) & " - Ruota di " & NomeRuota(r)
Scrivi "Trovata Somma 90 in 4° e 5° posizione: " & n1 & " + " & n2 & " = " & somma
Scrivi String(70, "-")

' Elemento fisso di ogni ambo
num(1) = 90

' Ciclo che elabora e lancia OGNI SINGOLO AMBO separatamente
For i = 1 To 9
num(2) = cadenza3(i) ' Abbina il 90 con il numero di cadenza 3 corrente

' Registra e gioca immediatamente il singolo ambo (non tutti insieme)
ImpostaGiocata 1, num, ruota, posta, colpi
Gioca ep
Next
End If
Next
Next

' Mostra il riepilogo finanziario dettagliato per ciascun ambo secco
ScriviResoconto
End Sub