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

 

[claudio8]

Per Antonio
Attenzione alla decina.... potrebbe essere quella naturale da me inserita. specificare sempre.
Per Pandit ho solo variato il tuo lo scrip. Per accorparli basta usare un costrutto di blocchi decisionali (vedi Lezioni di Scripting).

Anticipazione (Spoiler): Decina naturale

Sub Main
Dim am(4),ab(2),ruota(1),posta(3)
Dim Ini,a,b,c,r,es,fin,k,co
posta(1) = 1
'posta(2) = 1
Ini = CInt(InputBox("Da che estrazione analizzare ?","Estrazioni",10300))
k = InputBox("per quanti colpi?","Colpi di gioco",10)
'Ini = x
fin = EstrazioneFin
co = 0
Scrivi "3 numeri stessa Decina Naturale"
For es = Ini To EstrazioneFin
If es = EstrazioneFin -(k - 1) Then Scrivi: Scrivi String(40," ") & " Ultime " & k & " estrazioni" & String(40," "),1,,3,vbRed : Scrivi
' co = 0
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p = 1 To 3
For p1 = p + 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
c = Estratto(es,r,p2)
' ok = 0 ' non viene usato
If DecinaNaturale(a) = DecinaNaturale(b) And DecinaNaturale(a) = DecinaNaturale(c) Then
co = co + 1
'If(b <> a And c <> b And a <> c) Then ' non ha significato, in una estrazione i numeri sono tutti diversi
ColoreTesto 1
'If es = EstrazioneFin -(k - 1) Then Scrivi " Ultime " & k & " estrazioni"
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' spostato
ImpostaGiocata 1,am,ruota,posta,k,1 ' al 1° esito chiude la giocata
Gioca es,1,,2
ColoreTesto 1
Scrivi String(85,"-") & " Pronostico n°" & Format2(co),1
' End If
End If
Next
Next
Next
Next
Next
Scrivi :Scrivi"--- by Pandit ---"
ScriviResoconto
End Sub

 

[Antonio Pagano]

Pandit e Claudio8 grazie vanno benissimo e quello che cercavo.​

 

[Pandit]

Grazie Claudio, da Te si impara sempre qualche cosa...