Script

[DjNomade]

Vedi che stanno sopra post 175 e 177

 

[nunzio65]

Grazie, NON PENSAVO CHE ERANO QUELLI. CIIAAUUUUZZ

 

[Pandit]

Buon fine settimana a Tutti..

 

[phil79]

Scusate qual è la condizione del metodo gerardina? Grazie

 

[phil79]

Avete altri metodi di badessa? 45 tipo cheope?

 

[nunzio65]

 

[nunzio65]

DJ PUOI FARE LO SCRIPT DI QUESTO METODO GRAZIE O ALTRI CAPACI GRAZIE

 

[Pandit]

Guarda se va bene:

Anticipazione (Spoiler)

''" La Voglia la pazzia di Salvo Badessa"
' " - script by Pandit - "
ColoreTesto 0
Sub Main()
Dim ruote(12),am2(5),am1(5),am(5)
Dim posta(10),poste(5)
posta(2) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
k = 9
co = 0
'***
ini = EstrazioneFin - 50
fin = EstrazioneFin
For es = ini To fin
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 1
p2 = p1 + 1
n1 = Estratto(es,r,p1)
If n1 = 7 Then
n2 = Estratto(es,r,p2)
n3 = n2 - 7
n4 = Fuori90(Vert(n2))
n5 = Fuori90(Vert(n3))
Messaggio DataEstrazione(es)
casi = casi + 1
ColoreTesto 1:Scrivi String(45,152) & " N° giocata: " & casi,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " - " & CInt(n1) & " -> " & CInt(n2) & " -> " & CInt(n3),1
co = co + 1
ruote(1) = r: ruote(2) = 11 :ruote(3) = 12
am(1) = n2
am(2) = n3
'***
am1(1) = n4
am1(2) = n5
'***
am2(1) = n2
am2(2) = n3
am2(3) = n4
am2(4) = n5
EliminaRipetuti am2
ImpostaGiocata 1,am,ruote,posta,k
ImpostaGiocata 2,am1,ruote,posta,k
ImpostaGiocata 3,am2,ruote,poste,k
'***
Gioca es,1
End If
Next
Next
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

 

[nunzio65]

PERFETTO GRAZIE FUNZIONA BENE.

 

[Pandit]

Prima che Nunzio55 lo chieda ecco :

Anticipazione (Spoiler)

'Ripetiamo gli eventi di Salvo Badessa e Falcucci
' Script by Pandit
Option Explicit
Sub Main
Dim es,Ruote(12),Nu(8),Posta(4),a,b,c,d
Ruote(1) = 1: Ruote(2) = 5:Ruote(3) = 12
Posta(2) = 1
Posta(3) = 1
For es = EstrazioneFin - 80 To EstrazioneFin
If IndiceMensile(es) = 8 Then
a = Estratto(es,1,4)
b = Estratto(es,5,5)
c = Estratto(es,7,4)
d = Estratto(es,1,1)
'***
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(5) & " - " & StringaEstratti(es,5) & " - " & SiglaRuota(5) & " -> " & CInt(b),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(7) & " - " & StringaEstratti(es,7) & " - " & SiglaRuota(7) & " -> " & CInt(c),1
ColoreTesto 1:Scrivi String(87,152)
'***
Nu(1) = a
Nu(2) = b
Nu(3) = c
EliminaRipetuti Nu
ImpostaGiocata 1,Nu,Ruote,Posta,12
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[franca46]

ciao Pandit , tu hai visto il video sulla ripetizione degli eventi?
sembra diverso da questo che hai fatto tu.
comunque funziona e grazie dello script

 

[Pandit]

Hai ragione, il gioco era su BA e per le spese Nazinale e Tutte, ma provato mi dava buoni risultati anche su Milano
quindi l'ho sostituito a Tutte, ma il procedimento è lo stesso..
Volendo basta cambiare in Ruote il 5 con l' 11..
Ho messo come l'originale più i tre ambi separati ....

Anticipazione (Spoiler)

'Ripetiamo gli eventi di Salvo Badessa e Falcucci
' Script by Pandit
Option Explicit
Sub Main
Dim es,Ruote(12),Posta(4),a,b,c,d,k
Dim Nu(6),n(2),n1(2),n2(2),poste(2)
Ruote(1) = 1: Ruote(2) = 11:Ruote(3) = 12
poste(2) = 1
Posta(2) = 1
Posta(3) = 1
For es = EstrazioneFin - 80 To EstrazioneFin
If IndiceMensile(es) = 8 Then
a = Estratto(es,1,4)
b = Estratto(es,5,5)
c = Estratto(es,7,4)
'***
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " - " & SiglaRuota(1) & " -> " & CInt(a),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(5) & " - " & StringaEstratti(es,5) & " - " & SiglaRuota(5) & " -> " & CInt(b),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(7) & " - " & StringaEstratti(es,7) & " - " & SiglaRuota(7) & " -> " & CInt(c),1
ColoreTesto 1:Scrivi String(87,152)
k = 12
'***
n(1) = a
n(2) = b
ImpostaGiocata 1,n,Ruote,poste,k
n1(1) = a
n1(2) = c
ImpostaGiocata 2,n1,Ruote,poste,k
n2(1) = b
n2(2) = c
ImpostaGiocata 3,n2,Ruote,poste,k
Nu(1) = a
Nu(2) = b
Nu(3) = c
EliminaRipetuti Nu
ImpostaGiocata 4,Nu,Ruote,Posta,12
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[franca46]

Se domani riesco ti scrivo qui il procedimento del video che ho visto io , anche perché non so inserire i video che lo spiega ben chiaro.
Buona serata

 

[DjNomade]

METODO GERARDINA by Salvo Badessa

'29-08-2024
'

 ColoreTesto 2 :Scrivi String(37,32)&" METODO GERARDINA by Salvo Badessa   ",1
Scrivi



ColoreTesto 0

Sub main()
Dim am(5),am2(2),ambi(4),ci(5),nn(3),ru(2),pos1(1),pos2(3),pos3(5),ru1(10),ru2(10),sestina(6)
pos1(1)=1:pos2(2)=1 :pos3(2)=1:pos3(3)=1
est = CInt(InputBox("Quante estrazioni  vuoi controllare? ","estrazioni ",200))
k=InputBox("Quanti colpi di gioco? ","colpi di gioco",13)

fin=EstrazioneFin
ini=fin-est
For es = ini To fin:messaggio(es)

For r=1 To 1

For r1=r+1 To 12
If r1=11 Then r1=12



a=Estratto(es,r,1)'
b=Estratto(es,r1,1)'

If Fuori90(a+a)=b  Then

n1 = Diametrale(Fuori90(a+b)) '
n2=Fuori90(n1+n1)  
n3=Diametrale(a)
n4=Diametrale(b)





ru1(1)=r
ru1(2)=r1
ru2(1)=r
ru2(2)=r1
ru2(3)=11
ru2(4)=12

casi=casi+1
Scrivi
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r)& " "& StringaEstratti(es,r)&_
" >       Estratto          < "&Format2(a)&" >  in  "&Format2(1)&"^ posiz.",1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r1)& " "& StringaEstratti(es,r1)&_
" > numero doppio Estratto  < "&Format2(b)&" >  in  "&Format2(1)&"^ posiz.",1
If iso = 1  Then  ColoreTesto 2: Scrivi " > numeri ISOTOPI  < ",1 :ColoreTesto 0
If iso = 2  And p = p1 Then ColoreTesto 2: Scrivi " > numeri ISOTOPI  < ",1 :
ColoreTesto 1

                                                     If Distanza(r,r1)=1 Or ((r=1 And r1=12)Or(r=10 And r1=12))  Then Scrivi " > RUOTE CONSECUTIVE ",1
                                                     If Distanza(r,r1)=5 And r<12 And r1<12 Then Scrivi " > RUOTE DIAMETRALI ",1
                                                     If (r+r1)=11  Then Scrivi " > RUOTE GEMELLARI ",1


am(1)=n1
am(2)=n2
ImpostaGiocata 1,am,ru1,pos1,k
am2(1)=n1
am2(2)=n3
ImpostaGiocata 2,am2,ru2,pos2,k
am2(1)=n1
am2(2)=n4
ImpostaGiocata 3,am2,ru2,pos2,k
am2(1)=n2
am2(2)=n3
ImpostaGiocata 4,am2,ru2,pos2,k
am2(1)=n2
am2(2)=n4
ImpostaGiocata 5,am2,ru2,pos2,k

ambi(1)=n1
ambi(2)=n2
ambi(3)=n3
ambi(4)=n4
ImpostaGiocata 6,ambi,ru2,pos3,k



Gioca es


End If

Next
Next
Next

ScriviResoconto

End Sub