|
|
|
Eccoti il Listato,ne ho modificato uno che gia' avevo,non so' come,ma ci sono riuscito  ..dei 2 numeri in gioco,ho messo anche il gioco di Ambata e l'Ambo a tutte..
Vedi se va' bene:
CODICE Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim AMBATA(2)
Dim am(4)
Dim am1(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
For n=8300 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&" "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"
'am1(1)=s1
AMBATA(1)=Fuori90(s1+17)
AMBATA(2)= Vert (AMBATA(1))
am1(2)=AMBATA(1)
am1(3)=AMBATA(2)
ImpostaGiocata 1,AMBATA,ruote,posta,9,2
ImpostaGiocata 2,am1,ruote,poste,9,2
ImpostaGiocata 3,am1,ruota,poste,9,2
'ImpostaInterruzioni 1,2,2
'ImpostaInterruzioni 2,1,2
Gioca n
'Gioca AMBATA
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
For i= 4 To 4
j=i+1
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c=Fuori90(a+b)
For rr=r+1 To 10
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc=Fuori90(aa+bb)
If c=cc Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
DISAMBO=False
End Function
Infatti ecco i risultati:
CODICE ----------------------------------------------------------
Genova 11 + 56 =67 Napoli 34 + 33 =67
Alla Somma Comune Isotopa 67 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 29.03.2011 [8357]
G 1: M 84.48 Ge Na 9/9
M 84 su Ge 2° colpo [8359/02.04.2011]
M 84 su Na 2° colpo [8359/02.04.2011]
M 48 su Na 3° colpo [8360/05.04.2011]
M 48 su Na 4° colpo [8361/07.04.2011]
M 48 su Na 5° colpo [8362/09.04.2011]
G 2: AT 84.48 Ge Na 9/9
negativo
G 3: AT 84.48 Tu 9/9
negativo
----------------------------------------------------------
Palermo 85 + 38 =33 Torino 72 + 51 =33
Alla Somma Comune Isotopa 33 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
sab 02.04.2011 [8359]
G 1: M 50.05 Pa To 9/9
M 50 su To 2° colpo [8361/07.04.2011]
G 2: AT 50.05 Pa To 9/9
negativo
G 3: AT 50.05 Tu 9/9
negativo
----------------------------------------------------------
Milano 69 + 76 =55 Napoli 48 + 7 =55
Alla Somma Comune Isotopa 55 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 05.04.2011 [8360]
G 1: M 72.27 Mi Na 9/9
M 72 su Mi 7° colpo [8367/21.04.2011]
G 2: AT 72.27 Mi Na 9/9
negativo
G 3: AT 72.27 Tu 9/9
negativo
----------------------------------------------------------
Bari 41 + 75 =26 Roma 59 + 57 =26
Alla Somma Comune Isotopa 26 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
gio 07.04.2011 [8361]
G 1: M 43.34 Ba Ro 9/9
M 43 su Ro 3° colpo [8364/14.04.2011]
M 34 su Ba 7° colpo [8368/23.04.2011]
G 2: AT 43.34 Ba Ro 9/9
negativo
G 3: AT 43.34 Tu 9/9
negativo
----------------------------------------------------------
Cagliari 85 + 38 =33 Roma 9 + 24 =33
Alla Somma Comune Isotopa 33 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
gio 21.04.2011 [8367]
G 1: M 50.05 Ca Ro 9/9
M 05 su Ca 6° colpo [8373/05.05.2011]
M 05 su Ca 8° colpo [8375/10.05.2011]
G 2: AT 50.05 Ca Ro 9/9
negativo
G 3: AT 50.05 Tu 9/9
negativo
----------------------------------------------------------
Cagliari 4 + 80 =84 Milano 35 + 49 =84
Alla Somma Comune Isotopa 84 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
sab 23.04.2011 [8368]
G 1: M 11.19 Ca Mi 9/9
M 19 su Mi 1° colpo [8369/26.04.2011]
M 19 su Mi 8° colpo [8376/12.05.2011]
G 2: AT 11.19 Ca Mi 9/9
negativo
G 3: AT 11.19 Tu 9/9
negativo
----------------------------------------------------------
Cagliari 75 + 20 =5 Napoli 83 + 12 =5
Alla Somma Comune Isotopa 5 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 03.05.2011 [8372]
G 1: M 22.29 Ca Na 9/9
M 29 su Ca 1° colpo [8373/05.05.2011]
M 22 su Na 1° colpo [8373/05.05.2011]
G 2: AT 22.29 Ca Na 9/9
negativo
G 3: AT 22.29 Tu 9/9
negativo
----------------------------------------------------------
Napoli 78 + 81 =69 Torino 18 + 51 =69
Alla Somma Comune Isotopa 69 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
sab 07.05.2011 [8374]
G 1: M 86.68 Na To 9/9
negativo
G 2: AT 86.68 Na To 9/9
negativo
G 3: AT 86.68 Tu 9/9
negativo
----------------------------------------------------------
Napoli 78 + 81 =69 Venezia 53 + 16 =69
Alla Somma Comune Isotopa 69 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
sab 07.05.2011 [8374]
G 1: M 86.68 Na Ve 9/9
negativo
G 2: AT 86.68 Na Ve 9/9
negativo
G 3: AT 86.68 Tu 9/9
negativo
----------------------------------------------------------
Torino 18 + 51 =69 Venezia 53 + 16 =69
Alla Somma Comune Isotopa 69 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
sab 07.05.2011 [8374]
G 1: M 86.68 To Ve 9/9
negativo
G 2: AT 86.68 To Ve 9/9
negativo
G 3: AT 86.68 Tu 9/9
negativo
----------------------------------------------------------
Cagliari 66 + 64 =40 Venezia 25 + 15 =40
Alla Somma Comune Isotopa 40 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 10.05.2011 [8375]
G 1: M 57.75 Ca Ve 9/9
negativo
G 2: AT 57.75 Ca Ve 9/9
negativo
G 3: AT 57.75 Tu 9/9
negativo
----------------------------------------------------------
Firenze 85 + 19 =14 Milano 66 + 38 =14
Alla Somma Comune Isotopa 14 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 17.05.2011 [8378]
G 1: M 31.13 Fi Mi 6/9
M 31 su Mi 1° colpo [8379/19.05.2011]
M 31 su Fi 3° colpo [8381/24.05.2011]
in corso (6° su 9)
G 2: AT 31.13 Fi Mi 6/9
in corso (6° su 9)
G 3: AT 31.13 Tu 1/9
A 31.13 su Tu (Ve) 1° colpo [8379/19.05.2011]
I1
----------------------------------------------------------
Bari 6 + 40 =46 Milano 37 + 9 =46
Alla Somma Comune Isotopa 46 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 24.05.2011 [8381]
G 1: M 63.36 Ba Mi 3/9
in corso (3° su 9)
G 2: AT 63.36 Ba Mi 3/9
in corso (3° su 9)
G 3: AT 63.36 Tu 3/9
in corso (3° su 9)
----------------------------------------------------------
Bari 26 + 4 =30 Roma 52 + 68 =30
Alla Somma Comune Isotopa 30 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
gio 26.05.2011 [8382]
G 1: M 47.74 Ba Ro 2/9
in corso (2° su 9)
G 2: AT 47.74 Ba Ro 2/9
in corso (2° su 9)
G 3: AT 47.74 Tu 2/9
in corso (2° su 9)
vedi se va' bene..ciao..
|
|
.
Offline
Web