Per Salvo Rubino Mike o altro scripter

[sorujoe]

Vi chiedo gentilmente questo script

Analizzo una estrazione prendo il primo estratto e vado dietro di 2 concorsi e lo sommo al primo estratto della medesima ruota; Tale somma la chiameremo "K"
"k" non deve essere ne un gemello ne uno in cadenza 9
"k" e il vertibile è l'ambata da giocare sulla ruota in esame per i colpi indicati
ACCERTARSI che i tre concorsi in cui ho fatto il rilevamento non sia presente nessuna delle due ambate.

Tale analisi va fatta anche sui secondi estratti (da sommare con i l secondo di 2 estrazioni prima) ...coi terzi ...coi quarti e coi quinti
avrò al massimo per ogni concorso 5 previsioni ogni ruota.

1. Devo poter immettere la ruota;
2. data inizio script e per quanti colpi fare lo spoglio per estratto e ambo ....spoglio completo cioè non fermarsi al primo esito solamente

Esempio Reale
23/05/2019 Bari primo estratto: 13
21/05/2019
18/05/2019 Bari primo estratto 30

30+13= 43 e vertibile 34 in gioco su Bari per i colpi che indico
Ove necessario fare il -90

Nelle tre estrazioni il 34 e 43 non devono esserci su Bari. Tale analisi andrà fatta anche coi secondi, terzi, quarti e quinti estratti (secondo con secondo; terzo con terzo, quarto con quarto e quinto con quinto)

Grazie

 

[sorujoe]

Altra cortesia che vi chiedo
questo script me lo potete far girare su spaziometria includendo la nazionale?
Se mi permettete di mettere il concorso di avvio dello script e i colpi senza doverli mettere dal codice sarebbe ideale.
Anche in questo nelle 3 estrazioni di calcolo nessuna delle ambate deve essere presente a ruota e non deve includere ambate derivanti da gemelli o cadenza 9. Grazie

Sub Main()
Dim am(10)
Dim ruote(10)
Dim posta(5)
posta(1)=1


fin=EstrazioneFin
ini=9300
For es=ini To fin
For r=1 To 10
For p=1 To 5
For p1=3 To 3
a=Estratto(es,r,p)
If a=<10 Then
b=Estratto(es-2,r,p1)
Scrivi "----------------------------------------------------"
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),10)&" "&CInt(a)
Scrivi DataEstrazione(es-2)&" "&Left(NomeRuota(r),10)&" "&CInt(b)
ruote(1)=r

c=Fuori90(a+b)
d=Vert(c)

am(1)=c
am(2)=d

ImpostaGiocata 1,am,ruote,posta,5


Gioca es

End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[sorujoe]

Confido in qualche anima buona

 

[Cinzia27]

Ciao,controlla se va bene.
Per quanto riguarda il 2°, a me gira su Spaziometria così com' è.
Cinzia

'Metodo proposto da Sorujoe
'prendo il primo estratto e vado dietro di 2 concorsi e lo sommo al primo estratto della medesima ruota; Tale somma la chiameremo "K"
'"k" non deve essere ne un gemello ne uno in cadenza 9
'"k" e il vertibile è l'ambata da giocare sulla ruota in esame per i colpi indicati
'ACCERTARSI che i tre concorsi in cui ho fatto il rilevamento non sia presente nessuna delle due ambate.
'Script Cinzia
Sub Main()
Dim ru(1),n(1),n1(1),n2(1),n3(1),n4(1),nn(2),nn1(2),nn2(2),nn3(2),nn4(2),ps(2)
ps(1)=1
ps(2)=1
r=CInt(InputBox("La ruota su cui vuoi giocare?","Ruota di gioco",1))
If r="" Then Exit Sub
pos=CInt(InputBox("Quale posizione vuoi esaminare?","Posizione",1))
If pos="" Then Exit Sub
ex=CInt(InputBox("Quante estrazioni vuoi analizzare?","ultime",10))
If ex="" Then Exit Sub
col=CInt(InputBox("Per quanti colpi?","colpi",10))
If col="" Then Exit Sub

For es=EstrazioneFin-ex To EstrazioneFin

For r=1 To 10
ru(1)=r

a=Estratto(es,r,pos)
b=Estratto(es-2,r,pos)
If a>0 And b>0 Then
k=Fuori90(a+b)
If Gemello(k)=False Then
If Cadenza(k)<>9 Then
n(1)=k


nn(1)=k
nn(2)=Vert(k)
If SerieFreq(es-2,es,nn,ru,1)=0 Then
Scrivi

Scrivi SiglaRuota(r)&" "&StringaEstratti(es-2,r)&" "&SiglaRuota(r)&" "&StringaEstratti(es,r)

ImpostaGiocata 1,nn,ru,ps,col

Gioca es
End If
End If
End If
End If
Next
Next
ScriviResoconto
End Sub

 

[sorujoe]

Ciao Cinzia sei davvero UN'ANGELO GRAZIE

Tutto ok GRAZIE ANCORA