gentilissimo Luigi torno di nuovo a scrivere per il problema della funzione ambo o due del superenalotto con dei script fatti.
ho scaricato fino alla versione 1.44 di spaziometria ma in fase di sviluppo dello script non trova gli ambi.
Ovviamente a schermo il terno viene di colore rosso, mentre ambo rimane nero.
ora allego sia il resoconto sia lo script per capire dove sbaglio grazie
Estrazione generatrice del pronostico 03535 [ 14 - 02/02/2023]
G 0001 Numeri in gioco : 68.31.15.28.62.58
N. [68.31.15.28.62.58 ] [.. .. .. .. 68 ..] [ ] C. 1 Estratto 03536 [ 15 - 04/02/2023]
N. [68.31.15.28.62.58 ] [.. .. 58 .. .. ..] [ ] C. 2 Estratto 03537 [ 16 - 07/02/2023]
N. [68.31.15.28.62.58 ] [.. .. .. .. .. ..] [ ] C. 3 03538 [ 17 - 09/02/2023]
V N. [68.31.15.28.62.58 ] [.. .. .. 28 31 68] [ ] C. 4 Terno 03539 [ 18 - 11/02/2023]
In corso per altre 9 estrazioni
G 0004 Numeri in gioco : 44.03.40.21.46.26
N. [44.03.40.21.46.26 ] [03 .. 46 .. .. ..] [ ] C. 1 Ambo 03536 [ 15 - 04/02/2023]
N. [44.03.40.21.46.26 ] [.. .. .. .. .. ..] [ ] C. 2 03537 [ 16 - 07/02/2023]
N. [44.03.40.21.46.26 ] [03 .. .. 44 .. ..] [ ] C. 3 Ambo 03538 [ 17 - 09/02/2023]
N. [44.03.40.21.46.26 ] [.. .. .. .. .. ..] [ ] C. 4 03539 [ 18 - 11/02/2023]
resoconto:
| Ambo : 0 |
| Terno : 3 |
| Quaterna : 2 |
Sub Main
Scrivi"*** 1 ESTR MESE 5 SESTINE BY TANIA NESTA per 9 colpi*** ",True,True,3,2,4
Scrivi"*** List DjNomade ,modifica Riccardo *** ",True,True,2,4,3
Dim nr(6),amb(6),amb1(6),amb2(6),amb3(6),amb4(6)
'
For es = 3364 To EstrazioniArchivioSE
If IndiceMensileSE(es) = 1 Then
ColoreTesto 2:Scrivi String(100,"+")
ColoreTesto 1:Scrivi String(100,"+")
k = 13
'*********************************************************
amb(1) = Fuori90(EstrattoSE(es,4) * 41)
amb(2) = Fuori90(EstrattoSE(es,6) + 41)
amb(3) = Fuori90(EstrattoSE(es,2) - 89)
amb(4) = Fuori90(EstrattoSE(es,2) - 76)
amb(5) = Fuori90(EstrattoSE(es,3) * 8)
amb(6) = Fuori90(EstrattoSE(es,4) + 30)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 5
For y = x + 1 To 6
If amb(x) = amb
Then amb
= Fuori90(amb
+ 1)
Next
Next
Wend
End If
Rem fine formula
'*********************************************************
amb1(1) = Fuori90(EstrattoSE(es,4) * 8)
amb1(2) = Fuori90(EstrattoSE(es,3) + 70)
amb1(3) = Fuori90(EstrattoSE(es,6) + 71)
amb1(4) = Fuori90(EstrattoSE(es,3) + 53)
amb1(5) = Fuori90(EstrattoSE(es,6) * 15)
amb1(6) = Fuori90(EstrattoSE(es,5) - 76)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 5
For y = x + 1 To 6
If amb1(x) = amb1
Then amb1
= Fuori90(amb1
+ 1)
Next
Next
Wend
End If
Rem fine formula
'*********************************************************
amb2(1) = Fuori90(EstrattoSE(es,4) * 8)
amb2(2) = Fuori90(EstrattoSE(es,3) + 61)
amb2(3) = Fuori90(EstrattoSE(es,2) + 71)
amb2(4) = Fuori90(EstrattoSE(es,1) + 25)
amb2(5) = Fuori90(EstrattoSE(es,3) - 53)
amb2(6) = Fuori90(EstrattoSE(es,6) * 52)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 5
For y = x + 1 To 6
If amb2(x) = amb2
Then amb2
= Fuori90(amb2
+ 1)
Next
Next
Wend
End If
Rem fine formula
'*********************************************************
amb3(1) = Fuori90(EstrattoSE(es,4) * 8)
amb3(2) = Fuori90(EstrattoSE(es,6) - 77)
amb3(3) = Fuori90(EstrattoSE(es,6) * 68)
amb3(4) = Fuori90(EstrattoSE(es,3) - 88)
amb3(5) = Fuori90(EstrattoSE(es,1) - 47)
amb3(6) = Fuori90(EstrattoSE(es,2) - 78)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb3) Then
rip = 1
While NumeriRipetuti(amb3)
For x = 1 To 5
For y = x + 1 To 6
If amb3(x) = amb3
Then amb3
= Fuori90(amb3
+ 1)
Next
Next
Wend
End If
Rem fine formula
'*********************************************************
amb4(1) = Fuori90(EstrattoSE(es,4) * 8)
amb4(2) = Fuori90(EstrattoSE(es,5) * 71)
amb4(3) = Fuori90(EstrattoSE(es,5) * 12)
amb4(4) = Fuori90(EstrattoSE(es,2) + 62)
amb4(5) = Fuori90(EstrattoSE(es,6) * 64)
amb4(6) = Fuori90(EstrattoSE(es,2) + 9)
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb4) Then
rip = 1
While NumeriRipetuti(amb4)
For x = 1 To 5
For y = x + 1 To 6
If amb4(x) = amb4
Then amb4
= Fuori90(amb4
+ 1)
Next
Next
Wend
End If
Rem fine formula
'*********************************************************
nr(1) = amb(1)
nr(2) = amb(2)
nr(3) = amb(3)
nr(4) = amb(4)
nr(5) = amb(5)
nr(6) = amb(6)
ImpostaGiocataSE 1,nr,1,k
nr(1) = amb1(1)
nr(2) = amb1(2)
nr(3) = amb1(3)
nr(4) = amb1(4)
nr(5) = amb1(5)
nr(6) = amb1(6)
ImpostaGiocataSE 2,nr,1,k
nr(1) = amb2(1)
nr(2) = amb2(2)
nr(3) = amb2(3)
nr(4) = amb2(4)
nr(5) = amb2(5)
nr(6) = amb2(6)
ImpostaGiocataSE 3,nr,1,k
nr(1) = amb3(1)
nr(2) = amb3(2)
nr(3) = amb3(3)
nr(4) = amb3(4)
nr(5) = amb3(5)
nr(6) = amb3(6)
ImpostaGiocataSE 4,nr,1,k
nr(1) = amb4(1)
nr(2) = amb4(2)
nr(3) = amb4(3)
nr(4) = amb4(4)
nr(5) = amb4(5)
nr(6) = amb4(6)
ImpostaGiocataSE 5,nr,1,k
GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResocontoSE
End Sub