Richiesta SCRIPT

[Antonio Pagano]

Buonasera, gentilmente chiedo a chi crea script, una ricerca di tre numeri nella stessa estrazione a ruota di tre numeri in decina oppure di tre numeri in cadenza o tre numeri in figura. Rintracciati i tre estratti metterli in gioco per ambata per 10 estrazioni. Aggiungo che sarebbe ottimale se potessi tramite iinput scegliere se cercare per decine per cadenzo o figure. Grazie e buona serata.

 

[Baciccia4251]

In attesa che qualcuno ti prepari uno Script, se vuoi, puoi usare il foglio Risultati, ultimo, di molti fogli, a destra.
Cliccando su elabora potrai scegliere Decine, Cadenza, Figure

13.18 MB file on MEGA

mega.nz

Nel caso notassi errori o orrori vari, avvertimi.
Se non hai Excel, su un altro post, non ricordo quale, troverai come utilizzare un altro programma.
Buone vincite
Baciccia

 

[Antonio Pagano]

Baciccia grazie mille.

 

[Pandit]

Antonio, non è proprio ciò che hai chiesto, ma più di qui non arrivo, spero Ti possa essere almeno utile, come a Tutti qielli che li scaricheranno:
Figure:

Anticipazione (Spoiler)

Sub Main()
Scrivi "3 numeri stessa Figura "
Dim am(4),ab(2),ruota(1),posta(3)
posta(1) = 1
'posta(2) = 1
x = CInt(InputBox("Da che estrazione analizzare ?","Estrazioni",10300))
k = InputBox("per quanti colpi?","Colpi di gioco",10)
Ini = x
fin = EstrazioneFin
For es = Ini To EstrazioneFin
co = 0
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 4
For p1 = p + 1 To 5
For p2 = p1 + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
c = Estratto(es,r,p2)
ok = 0
If Figura(b) = Figura(a) And Figura(c) = Figura(b) Then
If(b <> a And c <> b And a <> c) Then
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " [ " & a & " P^" & p & " - " & b & " P^" & p1 & " - " & c & " P^" & p2 & " ] ",1
ColoreTesto 0 : Scrivi
ruota(1) = r
am(1) = a:am(2) = b:am(3) = c
ok = ok + 1
co = co + 1
ImpostaGiocata 1,am,ruota,posta,k
Gioca es,1
ColoreTesto 1
Scrivi String(85,"-") & " Caso n°" & Format2(co),1
End If
End If
Next
Next
Next
Next
Next
Scrivi :Scrivi"--- by Pandit ---"
ScriviResoconto
End Sub

Cadenze:

Anticipazione (Spoiler)

Sub Main()
Scrivi "3 numeri stessa Cadenza "
Dim am(4),ab(2),ruota(1),posta(3)
posta(1) = 1
'posta(2) = 1
x = CInt(InputBox("Da che estrazione analizzare ?","Estrazioni",10300))
k = InputBox("per quanti colpi?","Colpi di gioco",10)
Ini = x
fin = EstrazioneFin
For es = Ini To EstrazioneFin
co = 0
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 4
For p1 = p + 1 To 5
For p2 = p1 + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
c = Estratto(es,r,p2)
ok = 0
If Cadenza(b) = Cadenza(a) And Cadenza(c) = Cadenza(b) Then
If(b <> a And c <> b And a <> c) Then
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " [ " & a & " P^" & p & " - " & b & " P^" & p1 & " - " & c & " P^" & p2 & " ] ",1
ColoreTesto 0 : Scrivi
ruota(1) = r
am(1) = a:am(2) = b:am(3) = c
ok = ok + 1
co = co + 1
ImpostaGiocata 1,am,ruota,posta,k
Gioca es,1
ColoreTesto 1
Scrivi String(85,"-") & " Caso n°" & Format2(co),1
End If
End If
Next
Next
Next
Next
Next
Scrivi :Scrivi"--- by Pandit ---"
ScriviResoconto
End Sub

Decine:

Anticipazione (Spoiler)

Sub Main()
Scrivi "3 numeri stessa Decina "
Dim am(4),ab(2),ruota(1),posta(3)
posta(1) = 1
'posta(2) = 1
x = CInt(InputBox("Da che estrazione analizzare ?","Estrazioni",10300))
k = InputBox("per quanti colpi?","Colpi di gioco",10)
Ini = x
fin = EstrazioneFin
For es = Ini To EstrazioneFin
co = 0
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 4
For p1 = p + 1 To 5
For p2 = p1 + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
c = Estratto(es,r,p2)
ok = 0
If Decina(b) = Decina(a) And Decina(c) = Decina(b) Then
If(b <> a And c <> b And a <> c) Then
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " [ " & a & " P^" & p & " - " & b & " P^" & p1 & " - " & c & " P^" & p2 & " ] ",1
ColoreTesto 0 : Scrivi
ruota(1) = r
am(1) = a:am(2) = b:am(3) = c
ok = ok + 1
co = co + 1
ImpostaGiocata 1,am,ruota,posta,k
Gioca es,1
ColoreTesto 1
Scrivi String(85,"-") & " Caso n°" & Format2(co),1
End If
End If
Next
Next
Next
Next
Next
Scrivi :Scrivi"--- by Pandit ---"
ScriviResoconto
End Sub