x lola

[Roby]

Ciao questo lo modifichi come ti serve.
Spero vada bene.

-------------------------------------------------

Sub main ()
Dim ruota(2)
Dim posta(3)
Dim n(3)

posta(2)=3
posta(3)=2

co=0

d=CInt(InputBox("Qual'è la somma da trovare? ","Numero somma",18))
p=InputBox("Posizione del 1° numero?","Posizione del 1° numero",5)
p1=InputBox("Posizione del 2° numero?","Posizione del 2° numero",4)
r=eval(InputBox("1a ruota di ricerca? ","1a ruota di ricerca",3))
rr=eval(InputBox("2a ruota di ricerca? ","2a ruota di ricerca",9))
r2=InputBox("1a ruota di gioco? ","1a ruota di gioco",5)
r3=InputBox("2a ruota di gioco? ","2a ruota di gioco",7)

k=InputBox("Per quanti colpi vuoi giocare? ","Durata gioco",13)
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",500)

ini=EstrazioneFin -rs
fin=EstrazioneFin
For es =ini To fin

a=Estratto(es,r,p)
b=Estratto(es,rr,p1)
so=Fuori90(a+b)
If so=d Then

co=co+1

ruota(1)=r2
ruota(2)=r3

Scrivi
Scrivi String(65,"o")
Scrivi Space(3)&"< Somma " &format2(d)&" in vert. tra 2 numeri su "&siglaRuota(r)&" "&siglaRuota(rr)&_
" gioca su "&siglaRuota(ruota(1))&" "&siglaRuota(ruota(2))&" >",1
Scrivi String(65,"-")
Scrivi DataEstrazione(es,1)&" < "&""&siglaRuota(r)&" "& StringaEstratti(es,r) &" > 1°numero = "&_
Format2(a)&" pos. " &posizione(es,r,a)&"a"
Scrivi DataEstrazione(es,1)&" < "&""&siglaRuota(rr)&" "& StringaEstratti(es,rr)&" > 2°numero = "&_
Format2(b)&" pos. " &posizione(es,rr,b)&"a"
Scrivi "somma "&" tra "&Format2(a)&" e "&format2(b)& " = "&""&format2(d)
Scrivi String(65,"-")
Scrivi

n(1)=20
n(2)=61
n(3)=8
ImpostaGiocata 1,n,ruota,posta,k,3
n(1)=20
n(2)=61
n(3)=21
ImpostaGiocata 2,n,ruota,posta,k,3

Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2 : Scrivi "casi trovati : "& co,1
ColoreTesto 0 : Scrivi String(65,"•")
ScriviResoconto
ColoreTesto 1
ColoreTesto 1 : Scrivi "ciao-ciao-by maxma62",1
End Sub

-------------------------------------------------

ciao, max

 

[lola]

Ciao Max,

grazie mille volte per la gentilezza osata.
Avrei bisogno di un listatino che mi individui sulla
ruota di bari quando sortisce il quinto estratto triplo
del terzo estratto e mettere in gioco la quartina 65 67 68 73
se hai tempo e voglia aspetto senza alcun problema.
Di nuovo grazie e ciao da

lola

livia

 

[maxma62]

Intendi un listato con questi risultati?

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 09.03.1991 [ Bari 56.20.87.34.29 ]
5° estr. < 29 > * 3 = 87 Fuori90 = < 87 >
-----------------------------------------------------------------
sab 09.03.1991 [6270]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 12.03.1994 [ Bari 22.34.90.01.60 ]
5° estr. < 60 > * 3 = 180 Fuori90 = < 90 >
-----------------------------------------------------------------
sab 12.03.1994 [6427]
G 1: ATQ 65.67.68.73 Ba 12/12
A 73.68 su Ba 2° colpo [6429/26.03.1994]


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 24.09.1994 [ Bari 34.58.81.45.27 ]
5° estr. < 27 > * 3 = 81 Fuori90 = < 81 >
-----------------------------------------------------------------
sab 24.09.1994 [6455]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 24.08.1996 [ Bari 56.62.15.59.05 ]
5° estr. < 5 > * 3 = 15 Fuori90 = < 15 >
-----------------------------------------------------------------
sab 24.08.1996 [6555]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 23.06.2001 [ Bari 22.76.12.31.04 ]
5° estr. < 4 > * 3 = 12 Fuori90 = < 12 >
-----------------------------------------------------------------
sab 23.06.2001 [7031]
G 1: ATQ 65.67.68.73 Ba 12/12
A 68.67 su Ba 2° colpo [7033/30.06.2001]


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 10.08.2002 [ Bari 32.07.72.18.54 ]
5° estr. < 54 > * 3 = 162 Fuori90 = < 72 >
-----------------------------------------------------------------
sab 10.08.2002 [7150]
G 1: ATQ 65.67.68.73 Ba 12/12
A 68.65 su Ba 1° colpo [7151/14.08.2002]


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 14.12.2002 [ Bari 14.30.39.17.43 ]
5° estr. < 43 > * 3 = 129 Fuori90 = < 39 >
-----------------------------------------------------------------
sab 14.12.2002 [7188]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
mer 24.09.2003 [ Bari 61.43.33.04.41 ]
5° estr. < 41 > * 3 = 123 Fuori90 = < 33 >
-----------------------------------------------------------------
mer 24.09.2003 [7272]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 14.02.2004 [ Bari 82.90.54.36.48 ]
5° estr. < 48 > * 3 = 144 Fuori90 = < 54 >
-----------------------------------------------------------------
sab 14.02.2004 [7313]
G 1: ATQ 65.67.68.73 Ba 12/12
A 65.68 su Ba 10° colpo [7323/20.03.2004]


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 30.10.2004 [ Bari 30.81.09.06.63 ]
5° estr. < 63 > * 3 = 189 Fuori90 = < 9 >
-----------------------------------------------------------------
sab 30.10.2004 [7387]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
mar 10.01.2006 [ Bari 86.80.03.74.31 ]
5° estr. < 31 > * 3 = 93 Fuori90 = < 3 >
-----------------------------------------------------------------
mar 10.01.2006 [7541]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
gio 16.03.2006 [ Bari 42.28.39.54.73 ]
5° estr. < 73 > * 3 = 219 Fuori90 = < 39 >
-----------------------------------------------------------------
gio 16.03.2006 [7569]
G 1: ATQ 65.67.68.73 Ba 12/12
negat

 

[lola]

Ciao Max,

no, non intendevo dire l'esempio che hai citato. L'esempio
è questo Bari 21 5 12 44 36 cioè il 5° estratto (36) è il
triplo del 3° estratto (12). Spero di essere stato chiaro
grazie dell' interessamento ciao


lola

livia

 

[maxma62]

E cosi':

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 27.07.1991 [ Bari 33.58.47.68.51 ]
3° estr. < 47 > * 3 = 153 Fuori90 = < 51 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 27.07.1991 [6290]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 30.01.1993 [ Bari 19.32.16.88.48 ]
3° estr. < 16 > * 3 = 144 Fuori90 = < 48 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 30.01.1993 [6369]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 21.01.1995 [ Bari 34.18.11.86.33 ]
3° estr. < 11 > * 3 = 99 Fuori90 = < 33 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 21.01.1995 [6472]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 09.11.1996 [ Bari 85.58.71.66.33 ]
3° estr. < 71 > * 3 = 99 Fuori90 = < 33 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 09.11.1996 [6566]
G 1: ATQ 65.67.68.73 Ba 12/12
A 68.73 su Ba 4° colpo [6570/07.12.1996]


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
mer 17.06.1998 [ Bari 10.04.44.87.42 ]
3° estr. < 44 > * 3 = 126 Fuori90 = < 42 > <<<--- 5° estr.
-----------------------------------------------------------------
mer 17.06.1998 [6716]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 16.10.1999 [ Bari 70.66.51.53.63 ]
3° estr. < 51 > * 3 = 189 Fuori90 = < 63 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 16.10.1999 [6855]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 05.08.2000 [ Bari 78.88.38.66.24 ]
3° estr. < 38 > * 3 = 72 Fuori90 = < 24 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 05.08.2000 [6939]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 10.03.2001 [ Bari 61.08.40.51.30 ]
3° estr. < 40 > * 3 = 90 Fuori90 = < 30 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 10.03.2001 [7001]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
sab 18.08.2001 [ Bari 14.71.32.39.06 ]
3° estr. < 32 > * 3 = 18 Fuori90 = < 6 > <<<--- 5° estr.
-----------------------------------------------------------------
sab 18.08.2001 [7047]
G 1: ATQ 65.67.68.73 Ba 12/12
A 67.65 su Ba 6° colpo [7053/08.09.2001]


•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
gio 12.12.2002 [ Bari 08.20.18.22.54 ]
3° estr. < 18 > * 3 = 162 Fuori90 = < 54 > <<<--- 5° estr.
-----------------------------------------------------------------
gio 12.12.2002 [7187]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
mer 02.04.2003 [ Bari 63.75.04.40.12 ]
3° estr. < 4 > * 3 = 36 Fuori90 = < 12 > <<<--- 5° estr.
-----------------------------------------------------------------
mer 02.04.2003 [7222]
G 1: ATQ 65.67.68.73 Ba 12/12
negativo

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
mer 26.01.2005 [ Bari 47.03.86.87.78 ]
3° estr. < 86 > * 3 = 234 Fuori90 = < 78 > <<&lt

 

[lola]

Ciao Max,

si, è così. Ogni qualvolta si verifica il triplo( fatto fuori90)
si mette in gioco la quartina data. Grazie e ciao

lola

livia

 

[maxma62]

questo è il listato

--------------------------------------------------
Sub main()
Dim ruota(1)
Dim posta(4)
Dim nu(4)

posta(2)=2.5osta(3)=1osta(4)=0.5

rr=InputBox("su quale ruota vuoi fare la ricerca?", "ruota di ricerca",1)
k=CInt(InputBox("Per quanti colpi vuoi giocare?","Durata gioco",12))

fin=EstrazioneFin
ini=fin-1500
For es=ini To fin

n1=Estratto(es,rr,3)
n2=Estratto(es,rr,5)
nt=Fuori90(n1*3)
If n2=nt Then
n4=(n1*3)

ruota(1)=rr

Scrivi String(65,"•"),1
Scrivi DataEstrazione((es),1) &" [ "& NomeRuota(rr) &" "& StringaEstratti(es,rr)&" ]"
Scrivi "3° estr. < "&n1&" > * 3 = "&n4&" Fuori90 = < "&nt&" > <<<--- 5° estr."
Scrivi String(65,"-"),1

nu(1)=65
nu(2)=67
nu(3)=68
nu(4)=73
ImpostaGiocata 1,nu,ruota,posta,k

Gioca es
Scrivi
End If
Next
ScriviResoconto
End Sub
--------------------------------------------------

ciao, max