Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(8)
Dim ruor(6),lun(6)
ReDim ne(4),num(4),de(4),ca(4)
Dim SA(6)
Dim DA(12)
ReDim TS(3),TSC(3)
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim nu(2),na(8),na1(8)
poambata(1) = 1
poambo(2) = 1
poterno(3) = 1
poquaterna(4) = 1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(25," ") & "Ambi Simmetrici in decina",1
ColoreTesto 1
Scrivi String(15," ") & "°°°esselotto°°° per ***arcor*** LottoCed",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1
indietro = CInt(InputBox("Quante Estrazioni vuoi esaminare ?..","Simmetrici",100))
If indietro = False Then Exit Sub
colpis = CInt(InputBox("Colpi di gioco?..","Simmetrici",9))
If colpis = False Then Exit Sub
clp = colpis
co = 0
ini = EstrazioneFin - indietro
fin = EstrazioneFin
For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)
For r = 1 To 10
rt(1) = r
For p = 1 To 4
For pp = p + 1 To 5
ne(1) = Estratto(es,r,p)
ne(2) = Estratto(es,r,pp)
di1 = Abs(ne(1) - ne(2))
d1 = Decina(ne(1))
d2 = Decina(ne(2))
If di1 = 3 Or di1 = 6 Then
If d1 = d2 Then
num(1) = ne(1)
num(2) = ne(2)
Call OrdinaMatrice(num,1,1)
If di1 = 3 Then man1 = num(1) + 6
d3 = Decina(man1)
If d3 <> d1 Then
man1 =(num(1) - 3)
d3 = Decina(man1)
End If ' If d3 <> d1 Then ...
If di1 = 6 Then man1 = num(1) + 3
d3 = Decina(man1)
com1 =(90 - ne(1))
com2 =(90 - ne(2))
com3 =(90 - man1)
TSC(1) = com1
TSC(2) = com2
TSC(3) = com3
TS(1) = ne(1)
TS(2) = ne(2)
TS(3) = man1
t1 = 0
t2 = 0
For rr = 1 To 10
If rr <> r Then
k = p
kk = pp
a = Estratto(es,rr,k)
b = Estratto(es,rr,kk)
If a = ne(1) Or a = ne(2)Or a = man1 Then t1 = 1
ruos = rr
ne(3) = a 'rilevo isotopismo
If b = ne(1) Or b = ne(2)Or b = man1 Then t1 = 1
ruos = rr
ne(3) = b
If a = com1 Or a = com2 Or a = com3 Then t2 = 1
ruot = rr
ne(4) = a
If b = com1 Or b = com2 Or b = com3 Then t2 = 1
ruot = rr
ne(4) = b
If t1 = 1 And t2 = 1 Then
t1 = 0
t2 = 0
'''' inizio calcolo
'''''' ordino le due matrici
Call OrdinaMatrice(TS,1)
Call OrdinaMatrice(TSC,1)
s1 = Fuori90(TS(1) + TS(2))
SA(1) =(90 - s1)
Call Scrivi (DA(1))
DA(1) =(TS(1) - SA(1))
DA(2) =(TS(2) - SA(1))
s2 = Fuori90(TS(1) + TS(3))
SA(2) =(90 - s2)
DA(3) =(TS(1) - SA(2))
DA(4) =(TS(3) - SA(2))
s3 = Fuori90(TS(2) + TS(3))
SA(3) =(90 - s3)
DA(5) =(TS(2) - SA(3))
DA(6) =(TS(3) - SA(3))
s4 = Fuori90(TSC(1) + TSC(2))
SA(4) =(90 - s4)
DA(7) =(TSC(1) - SA(4))
DA(8) =(TSC(2) - SA(4))
s5 = Fuori90(TSC(1) + TSC(3))
SA(5) =(90 - s5)
DA(9) =(TSC(1) - SA(5))
DA(10) =(TSC(3) - SA(5))
s6 = Fuori90(TSC(2) + TSC(3))
SA(6) =(90 - s6)
DA(11) =(TSC(2) - SA(6))
DA(12) =(TSC(3) - SA(6))
For j = 1 To 12
If DA(j) < 1 Then DA(j) = DA(j) + 90
Next
Call OrdinaMatrice(DA,1)
EliminaRipetuti(DA)
StringaNumeri(DA)
ss = 0
For j = LBound(DA) To UBound(DA)
If DA(
quote:Originally posted by esselotto
La prossima volta lo posto in visal basic
***************************************************************************
Ambi Simmetrici in decina
°°°esselotto°°° per ***arcor*** LottoCed
***************************************************************************
___________________________________________________________________________
___________________________________________________________________________
***************************************************************************Caso 1
---------------------------------------------------------------------------
01.12.2009( FI ) - [ 66.72.09.41.78 ]
01.12.2009( BA ) - [ 12.72.61.64.18 ]
01.12.2009( BA ) - [ 12.72.61.64.18 ]
Ambi Rilevati [ 72 78 ] [ 72 18 ] pos < 2° 5° >
Terz. Simmetrica in dec. [ 72 78 75 ]
Terz. Simmetrica complem. [ 18 12 15 ]
Numeri da verificare --->39.42.48.51
In Data ( 19.12.2009 ) al 8° colpo Rilevati Numeri--> 39 48 Ruota di NA
1
Estrazione generatrice del pronostico 08151 [144 - 01/12/2009]
G 0001
Numeri in gioco : 72.75.78.12.15.18 su BA FI NA per Ambo
N. [72.75.78.12.15.18 ] [BA] [.. .. .. .. ..] C. 1 08160 [153 - 22/12/2009]
N. [72.75.78.12.15.18 ] [FI] [.. .. .. .. ..] C. 1 08160 [153 - 22/12/2009]
N. [72.75.78.12.15.18 ] [NA] [.. .. .. .. ..] C. 1 08160 [153 - 22/12/2009]
Interrotta per raggiunta durata
G 0002
Numeri in gioco : 72.75.78.12.15.18 su TT per Terno
N. [72.75.78.12.15.18 ] [TT] [RM][.. .. .. 18 ..] C. 1 Estratto 08160 [153 - 22/12/2009]
Interrotta per raggiunta durata
***************************************************************************Caso 2
---------------------------------------------------------------------------
09.12.2009( VE ) - [ 66.83.89.19.80 ]
09.12.2009( TO ) - [ 42.89.20.59.78 ]
09.12.2009( MI ) - [ 73.18.07.47.04 ]
Ambi Rilevati [ 83 89 ] [ 89 07 ] pos < 2° 3° >
Terz. Simmetrica in dec. [ 83 89 83 ]
Terz. Simmetrica complem. [ 07 01 07 ]
Numeri da verificare --->09.15.21.69.75.81
In Data ( 10.12.2009 ) al 1° colpo Rilevati Numeri--> 21 81 Ruota di FI
In Data ( 10.12.2009 ) al 1° colpo Rilevati Numeri--> 21 81 Ruota di RM
2
Estrazione generatrice del pronostico 08154 [147 - 09/12/2009]
G 0001
Numeri in gioco : 83.83.89.01.07.07 su FI MI RM TO VE per Ambo
N. [83.83.89.01.07.07 ] [FI] [.. .. .. .. ..] C. 1 08156 [149 - 12/12/2009]
N. [83.83.89.01.07.07 ] [MI] [.. .. .. .. 01] C. 1 Estratto 08156 [149 - 12/12/2009]
N. [83.83.89.01.07.07 ] [RM] [.. .. .. .. 07] C. 1 Estratto 08156 [149 - 12/12/2009]
N. [83.83.89.01.07.07 ] [TO] [.. .. .. .. ..] C. 1 08156 [149 - 12/12/2009]
N. [83.83.89.01.07.07 ] [VE] [.. .. 89 .. ..] C. 1 Estratto 08156 [149 - 12/12/2009]
N. [83.83.89.01.07.07 ] [FI] [.. .. .. .. ..] C. 2 08157 [150 - 15/12/2009]
N. [83.83.89.01.07.07 ] [MI] [.. .. .. .. ..] C. 2 08157 [150 - 15/12/2009]
V N. [83.83.89.01.07.07 ] [RM] [01 .. .. 07 ..] C. 2 Ambo 08157 [150 - 15/12/2009]
N. [83.83.89.01.07.07 ] [TO] [.. .. .. .. ..] C. 2 08157 [150 - 15/12/2009]
N. [83.83.89.01.07.07 ] [VE] [.. .. .. .. ..] C. 2 08157 [150 - 15/12/2009]
N. [83.83.89.01.07.07 ] [FI] [.. .. .. .. ..] C. 3 08158 [151 - 17/12/2009]
N. [83.83.89.01.07.07 ] [MI] [.. 07 .. .. ..] C. 3 Estratto 08158 [151 - 17/12/2009]
N. [83.83.89.01.07.07 ] [RM] [.. .. .. .. ..] C. 3 08158 [151 - 17/12/2009]
N. [83.83.89.01.07.07 ] [TO] [.. .. .. .. ..] C. 3 08158 [151 - 17/12/2009]
N. [83.83.89.01.07.07 ] [VE] [.. 89 .. .. ..] C. 3 Estratto 08158 [151 - 17/12/2009]
N. [83.83.89.01.07.07
ImpostaGiocata 1,na,rt,poambo,clp,0,q
ImpostaGiocata 2,na,ruote,poterno,clp,0,q
Gioca es
Erase ruor
Erase lun
-----> 'Erase DA
End If ' If cr > 0 Then ...
End If ' If rr <> r Then ...
End If ' If d1 = d2 Then ...
Next
il mio è cosi'
ImpostaGiocata 1,na,rt,poambo,clp,0,q
ImpostaGiocata 2,na,ruote,poterno,clp,0,q
Gioca es
Erase ruor <-------- questo l'ho aggiunto dopo richiesta di miky vedi 1° pagina Script per L8
Erase lun
Erase DA
End If
End If
End If
Next
End If
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi"Ambi simmetrici in decina",1
Scrivi"Autore...* (arcor)",1
End Sub