Previo consenso dell'autore, che ringrazio, posto in questa sede il listato del "metodo regalo per un ambo secco secco" la cui spiegazione si trova in 1ª pag. di questo spazio.
Cordialità.
-------------------------------
Scrivi ColoreTesto (1) & Chr(10) & Space (9) & "Flavio54 per Superlotto sez. Tecniche per Tutti" & Chr(10) & Space (10) _
& "titolo: metodo regalo per un ambo secco secco" & Chr(10) & Chr(10) & String (66,"•") & Chr(10),1
Scrivi ColoreTesto (0) & "Nota: a condizione verificata, il metodo ricava due ambate;" & Chr(10) & Space (6) & _
"completeremo la nostra previsione abbinandoci sempre i nr." & Chr(10) & Space (6) & _
"09-30-60-90." & Chr(10) & Space (6) & _
"La sorte minima è l'ambo a ruota. Viene tuttavia offerta la" & Chr(10) & Space (6) & _
"possibilità di osservare l'andamento della lunghetta per la" & Chr(10) & Space (6) & _
"sorte di ambata nei colpi prestabiliti (G 1)." & Chr(10) & Chr(10) & Space (6) & _
"approfondimenti:
https://superlotto.blogfree.net/?t=4752408" & Chr(10) & Chr(10) & Space (6) & _
"Raccomandazione di rito: giocare moderatamente." & Chr(10) & Chr(10) & String (66,"•") & Chr(10)
Sub main()
Dim nr(10)
Dim ruote(10)
Dim posta(5)
Dim poste(5)
Dim n
fin = InputBox ("ultima estrazione da verificare","max",EstrazioneFin )
ini = InputBox ("estrazioni pregresse","max",50)
abt = InputBox ("vuoi il gioco d'ambata? (s/n)","max","n")
k = InputBox ("colpi in gioco","max",10)
posta(1) = 1
poste(2) = 1
' ************************************
' abbinamenti fissi imposti dal metodo
nr(3) = 9
nr(4) = 30
nr(5) = 60
nr(6) = 90
' ************************************
For n = fin - ini To fin
For rt = 1 To 11
If rt = 11 Then rt = 12
ruote(1) = rt
For n1 = 1 To 5
If n1 = 1 Then
a = Estratto (n,rt,n1)
b = Estratto (n-1,rt,2)
If b = Vert (a) Then
nr(1) = Trasposizione (a,b)
nr(2) = Trasposizione (b,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & b
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
End If
If n1 = 2 Then
a = Estratto (n,rt,n1)
b = Estratto (n-1,rt,1)
c = Estratto (n-1,rt,3)
If b = Vert (a) Then
nr(1) = Trasposizione (a,b)
nr(2) = Trasposizione (b,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & b
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
If c = Vert (a) Then
nr(1) = Trasposizione (a,c)
nr(2) = Trasposizione (c,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & c
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
End If
If n1 = 3 Then
a = Estratto (n,rt,n1)
b = Estratto (n-1,rt,2)
c = Estratto (n-1,rt,4)
If b = Vert (a) Then
nr(1) = Trasposizione (a,b)
nr(2) = Trasposizione (b,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & b
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
If c = Vert (a) Then
nr(1) = Trasposizione (a,c)
nr(2) = Trasposizione (c,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & c
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
End If
If n1 = 4 Then
a = Estratto (n,rt,n1)
b = Estratto (n-1,rt,3)
c = Estratto (n-1,rt,5)
If b = Vert (a) Then
nr(1) = Trasposizione (a,b)
nr(2) = Trasposizione (b,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & b
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
If c = Vert (a) Then
nr(1) = Trasposizione (a,c)
nr(2) = Trasposizione (c,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & c
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
End If
If n1 = 5 Then
a = Estratto (n,rt,n1)
b = Estratto (n-1,rt,4)
If b = Vert (a) Then
nr(1) = Trasposizione (a,b)
nr(2) = Trasposizione (b,a)
If nr(1) <> 0 And nr(2) <> 0 Then
Scrivi "Conc. prec. nr. " & n - 1 & " " & SiglaRuota (rt) & " " & StringaEstratti (n-1,rt) & " " & b
Scrivi "Conc. corr. nr. " & n & " " & SiglaRuota (rt) & " " & StringaEstratti (n,rt) & " " & a & " ambate " & nr(1) & " " & nr(2)
Scrivi
If abt = "s" Then ImpostaGiocata 1,nr,ruote,posta,k
ImpostaGiocata 2,nr,ruote,poste,k
Gioca n
Scrivi String (66,"=") & Chr(10) & Chr(10)
End If
End If
End If
Next 'n1
Next 'rt
Next 'n
ScriviResoconto
Scrivi ColoreTesto (1) & Chr(10) & Chr(10) & Chr(10) & "iniziare il gioco dal concorso nr. " & fin + 1, 1
Scrivi
Scrivi "Buona Fortuna",1
End Sub