Aiuto per listato

[Roby]

ciao,

avrei bisogno di un listati postato da Corrado:

su due comparti consecutivi ed in posizione isotopa devono uscire un numeretto ed uno zerato.una volta trovato tale condizione per elaborare il pronostico si deve semplicemente eseguire la differenza aritmetica dei due elementi citati il risultato sara' l'ambata da giocare sui due comparti di rilevamento,per tentare le sorti di ambo e terno oltre l'ambata si rimettono in gioco il numeretto e lo zerato trovati per elaborare la previsione il tutto sulle due ruote e tutte per 9 colpi ok?
la previsione non si mette in gioco se l'ambata ha dato esito gia' nell'estrazione di calcolo o le tre precedenti ok?

Grazie.

 

[maxma62]

Sono esatti questi risultati?

Numeri : 4 su Genova
Numeri : 10 su Milano
mar 11.07.2006 [7619]
G 1: MAT 06.04.10 Ge Mi 3/10
M 06 su Mi 3° colpo [7622/18.07.2006]
I3
---------------------------------------------------------------
Numeri : 10 su Roma
Numeri : 7 su Torino
gio 20.07.2006 [7623]
G 1: MAT 03.10.07 Ro To 2/10
M 03 su To 2° colpo [7625/25.07.2006]
I2
---------------------------------------------------------------
Numeri : 6 su Torino
Numeri : 30 su Venezia
mar 25.07.2006 [7625]
G 1: MAT 24.06.30 To Ve 2/10
M 06 su Ve 2° colpo [7627/29.07.2006]
I2
---------------------------------------------------------------
Numeri : 30 su Venezia
Numeri : 7 su Bari
mar 25.07.2006 [7625]
G 1: MAT 23.30.07 Ba Ve 3/10
M 23.30 su Ba 3° colpo [7628/01.08.2006]
A 23.30 su Ba 3° colpo [7628/01.08.2006]
I3
---------------------------------------------------------------
Numeri : 9 su Firenze
Numeri : 20 su Genova
sab 29.07.2006 [7627]
G 1: MAT 11.09.20 Fi Ge 1/10
M 20.09 su Fi 1° colpo [7628/01.08.2006]
A 20.09 su Fi 1° colpo [7628/01.08.2006]
I1
---------------------------------------------------------------
Numeri : 8 su Palermo
Numeri : 80 su Roma
sab 29.07.2006 [7627]
G 1: MAT 72.08.80 Pa Ro 4/10
M 80 su Pa 4° colpo [7631/08.08.2006]
I4
---------------------------------------------------------------
Numeri : 60 su Genova
Numeri : 6 su Milano
gio 03.08.2006 [7629]
G 1: MAT 54.60.06 Ge Mi 1/10
M 06 su Ge 1° colpo [7630/05.08.2006]
I1
---------------------------------------------------------------
Numeri : 9 su Napoli
Numeri : 20 su Palermo
sab 05.08.2006 [7630]
G 1: MAT 11.09.20 Na Pa 1/10
M 20 su Na 1° colpo [7631/08.08.2006]
I1
---------------------------------------------------------------
Numeri : 10 su Torino
Numeri : 4 su Venezia
sab 05.08.2006 [7630]
G 1: MAT 06.10.04 To Ve 9/10
M 04 su Ve 9° colpo [7639/26.08.2006]
I9
---------------------------------------------------------------
Numeri : 3 su Milano
Numeri : 80 su Napoli
mar 08.08.2006 [7631]
G 1: MAT 77.03.80 Mi Na 1/10
M 80 su Mi 1° colpo [7632/10.08.2006]
I1
---------------------------------------------------------------
Numeri : 8 su Napoli
Numeri : 80 su Palermo
mar 08.08.2006 [7631]
G 1: MAT 72.08.80 Na Pa 3/10
M 72.08 su Na 3° colpo [7634/16.08.2006]
A 72.08 su Na 3° colpo [7634/16.08.2006]
I3
---------------------------------------------------------------
Numeri : 40 su Cagliari
Numeri : 9 su Firenze
gio 10.08.2006 [7632]
G 1: MAT 31.40.09 Ca Fi 2/10
M 09 su Ca 2° colpo [7634/16.08.2006]
I2
---------------------------------------------------------------
Numeri : 4 su Palermo
Numeri : 30 su Roma
gio 17.08.2006 [7635]
G 1: MAT 26.04.30 Pa Ro 4/10
M 26 su Pa 4° colpo [7639/26.08.2006]
I4
---------------------------------------------------------------
Numeri : 50 su Genova
Numeri : 6 su Milano
sab 19.08.2006 [7636]
G 1: MAT 44.50.06 Ge Mi 2/10
M 06 su Mi 2° colpo [7638/24.08.2006]
I2
---------------------------------------------------------------
Numeri : 2 su Firenze
Numeri : 30 su Genova
mar 22.08.2006 [7637]
G 1: MAT 28.02.30 Fi Ge 2/10
M 28 su Ge 2° colpo [7639/26.08.2006]
I2
-----------------

 

[miki67]

Si sono esatti.

Mi posteresti il listato?

Grazie

Miki.

 

[maxma62]

Questo listato non ha il controllo delle 3 estrazioni precedenti come invece chiedi nel metodo, ma ho visto poi che danilo nel suo forum, dove hai postato anche li' la richiesta del listato, l' ha fatto aggiungiundo la formula

x1=SerieFreq(es-3,es,ambata,ruote,1)
x2=SerieFreq(es-3,es,nn,ruote,2)

comunque li mio listato e' questo:

Sub main()
Dim ru(5)
Dim nn(5)
Dim posta(5)
posta(1)=2.5
posta(2)=1
posta(3)=0.5
ini=EstrazioneFin-100
fin=EstrazioneFin
For es=ini To fin

For r=1 To 10 'ruote consec
'For r=1 To 9
For p=1 To 5
a=Estratto(es,r,p)
'For r1=r+1 To 10
r1=r+1 'ruote consec
If r=10 Then r1=1 End If 'per ruote consec
b=Estratto(es,r1,p)

c=Cadenza(a)
d=Cadenza(b)
If a<90 And b<90 Then
If (c=0 And b<10) Or (d=0 And a<10) Then
e=Abs(a-b)

ru(1)=r
ru(2)=r1

Scrivi "---------------------------------------------------------------"
Scrivi "Numeri : " & a & " su " & NomeRuota(r)
Scrivi "Numeri : " & b & " su " & NomeRuota(r1)

nn(1)=e
nn(2)=a
nn(3)=b
ImpostaGiocata 1,nn,ru,posta,10,1

Gioca es
End If
End If
'Next 'per ruote consec togliere un next
next
Next
Next
ScriviResoconto
End Sub

il listato funziona sia per ruote consecutive che tutte le altre, basta togliere o aggiungere un apostrofo.
Vedi te.
Ciao, max

 

[miki67]

Ciao e grazie.

Miki.