"per Maxma62 listato"

[Roby]

Sub main()
Dim numeri1(10),numeri2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1
posta(2)=1



For n= 7439 To EstrazioneFin
b1=0:b2=0:a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:b4=0:b5=0
a1=Fuori90(Estratto(n,1,1)+Estratto(n,1,2)+Estratto(n,1,3)+Estratto(n,1,4)+Estratto(n,1,5))
a2=Fuori90(Estratto(n,2,1)+Estratto(n,2,2)+Estratto(n,2,3)+Estratto(n,2,4)+Estratto(n,2,5))
a3=Fuori90(Estratto(n,3,1)+Estratto(n,3,2)+Estratto(n,3,3)+Estratto(n,3,4)+Estratto(n,3,5))
a4=Fuori90(Estratto(n,4,1)+Estratto(n,4,2)+Estratto(n,4,3)+Estratto(n,4,4)+Estratto(n,4,5))
a5=Fuori90(Estratto(n,5,1)+Estratto(n,5,2)+Estratto(n,5,3)+Estratto(n,5,4)+Estratto(n,5,5))
a6=Fuori90(Estratto(n,6,1)+Estratto(n,6,2)+Estratto(n,6,3)+Estratto(n,6,4)+Estratto(n,6,5))
a7=Fuori90(Estratto(n,7,1)+Estratto(n,7,2)+Estratto(n,7,3)+Estratto(n,7,4)+Estratto(n,7,5))
a8=Fuori90(Estratto(n,8,1)+Estratto(n,8,2)+Estratto(n,8,3)+Estratto(n,8,4)+Estratto(n,8,5))
a9=Fuori90(Estratto(n,9,1)+Estratto(n,9,2)+Estratto(n,9,3)+Estratto(n,9,4)+Estratto(n,9,5))
b4=Fuori90(Estratto(n,10,1)+Estratto(n,10,2)+Estratto(n,10,3)+Estratto(n,10,4)+Estratto(n,10,5))
b5=Fuori90(Estratto(n,12,1)+Estratto(n,12,2)+Estratto(n,12,3)+Estratto(n,12,4)+Estratto(n,12,5))
If a1=a2 Then r1=1:r2=2:b2=a1:b1=b1+1
If a1=a3 Then r1=1:r2=3:b2=a1:b1=b1+1
If a1=a4 Then r1=1:r2=4:b2=a1:b1=b1+1
If a1=a5 Then r1=1:r2=5:b2=a1:b1=b1+1
If a1=a6 Then r1=1:r2=6:b2=a1:b1=b1+1
If a1=a7 Then r1=1:r2=7:b2=a1:b1=b1+1
If a1=a8 Then r1=1:r2=8:b2=a1:b1=b1+1
If a1=a9 Then r1=1:r2=9:b2=a1:b1=b1+1
If a1=b4 Then r1=1:r2=10:b2=a1:b1=b1+1
If a1=b5 Then r1=1:r2=12:b2=a1:b1=b1+1

If a2=a3 Then r1=2:r2=3:b2=a2:b1=b1+1
If a2=a4 Then r1=2:r2=4:b2=a2:b1=b1+1
If a2=a5 Then r1=2:r2=5:b2=a2:b1=b1+1
If a2=a6 Then r1=2:r2=6:b2=a2:b1=b1+1
If a2=a7 Then r1=2:r2=7:b2=a2:b1=b1+1
If a2=a8 Then r1=2:r2=8:b2=a2:b1=b1+1
If a2=a9 Then r1=2:r2=9:b2=a2:b1=b1+1
If a2=b4 Then r1=2:r2=10:b2=a2:b1=b1+1
If a2=b5 Then r1=2:r2=12:b2=a2:b1=b1+1


If a3=a4 Then r1=3:r2=4:b2=a3:b1=b1+1
If a3=a5 Then r1=3:r2=5:b2=a3:b1=b1+1
If a3=a6 Then r1=3:r2=6:b2=a3:b1=b1+1
If a3=a7 Then r1=3:r2=7:b2=a3:b1=b1+1
If a3=a8 Then r1=3:r2=8:b2=a3:b1=b1+1
If a3=a9 Then r1=3:r2=9:b2=a3:b1=b1+1
If a3=b4 Then r1=3:r2=10:b2=a3:b1=b1+1
If a3=b5 Then r1=3:r2=12:b2=a3:b1=b1+1

If a4=a5 Then r1=4:r2=5:b2=a4:b1=b1+1
If a4=a6 Then r1=4:r2=6:b2=a4:b1=b1+1
If a4=a7 Then r1=4:r2=7:b2=a4:b1=b1+1
If a4=a8 Then r1=4:r2=8:b2=a4:b1=b1+1
If a4=a9 Then r1=4:r2=9:b2=a4:b1=b1+1
If a4=b4 Then r1=4:r2=10:b2=a4:b1=b1+1
If a4=b5 Then r1=4:r2=12:b2=a4:b1=b1+1

If a5=a6 Then r1=5:r2=6:b2=a5:b1=b1+1
If a5=a7 Then r1=5:r2=7:b2=a5:b1=b1+1
If a5=a8 Then r1=5:r2=8:b2=a5:b1=b1+1
If a5=a9 Then r1=5:r2=9:b2=a5:b1=b1+1
If a5=b4 Then r1=5:r2=10:b2=a5:b1=b1+1
If a5=b5 Then r1=5:r2=12:b2=a5:b1=b1+1

If a6=a7 Then r1=6:r2=7:b2=a6:b1=b1+1
If a6=a8 Then r1=6:r2=8:b2=a6:b1=b1+1
If a6=a9 Then r1=6:r2=9:b2=a6:b1=b1+1
If a6=b4 Then r1=6:r2=10:b2=a6:b1=b1+1
If a6=b5 Then r1=6:r2=12:b2=a6:b1=b1+1

If a7=a8 Then r1=7:r2=8:b2=a7:b1=b1+1
If a7=a9 Then r1=7:r2=9:b2=a7:b1=b1+1
If a7=b4 Then r1=7:r2=10:b2=a7:b1=b1+1
If a7=b5 Then r1=7:r2=12:b2=a7:b1=b1+1

If a8=a9 Then r1=8:r2=9:b2=a8:b1=b1+1
If a8=b4 Then r1=8:r2=10:b2=a8:b1=b1+1
If a8=b5 Then r1=8:r2=12:b2=a8:b1=b1+1

If a9=b4 Then r1=9:r2=10:b2=a9:b1=b1+1
If a9=b5 Then r1=9:r2=12:b2=a9:b1=b1+1
If b4=b5 Then r1=10:r2=12:b2=b4:b1=b1+1
If b1=1 Then
b3=Fuori90(a1+a2+a3+a4+a5+a6+a7+a8+a9+b4+b5)


ruote(1)=r1
ruote(2)=r2

numeri2(1)=b2
numeri2(2)=b3
ImpostaGiocata 1,numeri2,ruote,poste,12
numeri1(1)=b2
numeri1(2)=b3

numeri1(3)=Fuori90(b2+1)
numeri1(4)=Abs(b2-1)
numeri1(5)=Fuori90(b3+1)
numeri1(6)=Abs(b3-1)

ImpostaGiocata 2,numeri1,ruote,posta,12

ImpostaInterruzioni 1,2,2
Gioca n
End If
Next
ScriviResoconto
End Sub


********
ho notato che non rileva una somma id

 

[maxma62]

Gia' visto da fantastico... (listato di drago...)
Ci stavo gia' provando appunto in caso di 3 ruote con la stessa somma.
Devo trovare la formula per le 3 ruote.
Ciao, max

 

[piocola]

Colpito e affondato (dico l'origine del listato),
se riesci a venirne a capo ... ti ringrazio anzitempo!

piocola

 

[piocola]

Max,

mi manderai a quel paese (me lo sento! [:I]), volevo chiedere
anche un'altra (e diversa) cosa: si può fare un listato che metta
ad esempio in relazione la sortita di un'ambata e verificare
nelle "X" estrazioni successive il comportamento di altre formazioni !?

Ti spiego meglio...
... insieme con Cristina77 si stà studiando questa formazione:

17 > ambata di riferimento
21-22-23-29-30 > prima serie di ambate correlate
63-64-65-66 > seconda serie di ambate correlate
21-22-23-29-30-63-64-65-66 > lunghetta complessiva

Io ho da poco il programma L.....+ ma non ne vengo a capo,
non sò se c'è già una qualche funzione o si deve creare
un listato che, avrai ben capito, per me è arabo!!!

Se dò troppo disturbo non farti tanti problemi a mandarmi a....

piocola

 

[maxma62]

Spero sia esatto

Sub main()
Dim ruote(12)
Dim nu1(1),nu2(6),nu3(5),nu4(10)
Dim posta(1),poste(5)

posta(1)=5
poste(2)=3:poste(3)=1.2:poste(4)=0.5:poste(4)=0.2

ruote(1)=InputBox("Su che ruota vuoi giocare?","1=BA  2=CA  11=TUTTE ecc..",11)

For n=7500 To EstrazioneFin

If IndiceMensile(n)=1 Then 'prima estr. mensile
'If IndiceMensile(n+1)=1 Then 'ultima estr. mensile

k=12

nu1(1)=17
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1)=17
nu2(2)=21
nu2(3)=22
nu2(4)=23
nu2(5)=29
nu2(6)=30
ImpostaGiocata 2,nu2,ruote,poste,k
nu3(1)=17
nu3(2)=63
nu3(3)=64
nu3(4)=65
nu3(5)=66
ImpostaGiocata 3,nu3,ruote,poste,k
nu4(1)=17
nu4(2)=21
nu4(3)=22
nu4(4)=23
nu4(5)=29
nu4(6)=30
nu4(7)=63
nu4(8)=64
nu4(9)=65
nu4(10)=66
ImpostaGiocata 4,nu4,ruote,poste,k
Gioca n
End If
Next
ScriviResoconto
End Sub

ciao, max

 

[piocola]

Grazie Max,

ora lo provo benchè non ne capisca nulla!
Ho anche ricevuto (e risposto) al messaggio che mi hai inviato
sull'altro.... forum [8D]

piocola

 

[piocola]

Max,

ho il dubbio che non ci siamo capiti...
rilevo una serie di sfaldamenti (a tutte) addirittura
anche di ambate e poi diversi ambi mentre la richiesta era
altra (!), abbi pazienza ma per me è nebbia fitta, fittissima!

Come si può risolvere?!

piocola

 

[maxma62]

Intendi cosi?

giocata 1=17
giocata 2=22
giocata 3=23
giocata 4=29
'
'
'
'
giocata 11=21-22-23-29-30-63-64-65-66

max

 

[piocola]

Intendo... su qualsiasi ruota (da poter ovviamente analizzare singolarmente -la ruota-):

sortisce il 17 > ambata di riferimento
21-22-23-29-30 > prima serie di ambate correlate "come si comportano entro x estrazioni?"
63-64-65-66 > seconda serie di ambate correlate "idem"
21-22-23-29-30-63-64-65-66 > lunghetta complessiva "idem"

Grazie per l'enorme pazienza Max!

 

[maxma62]

Nell' inputbox che appare puoi cambiare per la ruota che vuoi.
Max

 

[piocola]

... il come si comportano = sfaldamenti ambo e superiori
delle varie formazioni!

 

[maxma62]

Non ho capito cosa vuoi!
forse cosi?
giocata 1 17/21 x ambata e ambo
giocata 2 17/22 x ambata e ambo
giocata 3 17/23 x ambata e ambo
giocata 4 17/29 x ambata e ambo
'
'
'
giocata 11=21-22-23-29-30-63-64-65-66 x ambo-terno-quter.-cinq.

max

 

[piocola]

Max,

mi interessa sapere come si comportano (ambi e superiori)
'dopo' che una ruota esce il 17 (fino a 10/12 estrazioni) le formazioni...

1) 17 + |21-22-23-29-30| (ovvero dopo quante estrazioni dà qualcosa?)
2) 17 + |63-64-65-66| (idem)
3) 17 + |21-22-23-29-30-63-64-65-66| (idem)

ovviamente sempre sulla ruota dove è sortito il 17!
Spero di essere stato chiaro [:I]!

 

[maxma62]

E adesso?
(a proposito sei uomo o donna?)

Sub main()
Dim ruote(12),ruota(2)
Dim nu1(1),nu2(6),nu3(5),nu4(10)
Dim posta(1),poste(5)

posta(1)=5
poste(2)=3oste(3)=1.2oste(4)=0.5oste(4)=0.2

sp=InputBox("Numero spia","Numero spia",17)
r=InputBox("Ruota di ricerca","1=BA 2=CA 11=TUTTE ecc..",5)
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Colpi di gioco",12))

ini=6950
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp)>0 Then

Scrivi:Scrivi String(70,"o"),1
Scrivi DataEstrazione((es),1)&" " & " [" & " "& SiglaRuota(ruote(1)) &" "&_
StringaEstratti(es,ruote(1))&" "&"] sortito spia! = "&""& Format2(sp) &" ",1
Scrivi String(70,"-"),1

ruote(1)=r '<<<--- ruota di gioco=ruota di ricerca

nu1(1)=sp
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1)=sp
nu2(2)=21
nu2(3)=22
nu2(4)=23
nu2(5)=29
nu2(6)=30
ImpostaGiocata 2,nu2,ruote,poste,k
nu3(1)=sp
nu3(2)=63
nu3(3)=64
nu3(4)=65
nu3(5)=66
ImpostaGiocata 3,nu3,ruote,poste,k
nu4(1)=sp
nu4(2)=21
nu4(3)=22
nu4(4)=23
nu4(5)=29
nu4(6)=30
nu4(7)=63
nu4(8)=64
nu4(9)=65
nu4(10)=66
ImpostaGiocata 4,nu4,ruote,poste,k

Gioca es
End If
Next
ScriviResoconto
End Sub


max

 

[piocola]

Perfetto!!!!!!!!

Se fossi donna ti darei un gran bel bacio

Grazie Max, sei davvero una persona gentilissima!
Grazie-grazie-grazie!

piocola

 

[maxma62]

Bene.
A proposito hai fatto un giro per i vari link... del messaggio?

Max

 

[maxma62]

Intanto ho visto la tua registazione da danilo o robyca (postano anche qui e dall' altra parte).
Max

 

[piocola]

versione 6.1.20