|
|
|
ciao,per il mp non so' cosa risponderti,riprova,vediamo se funziona..il listato sono riuscito in modo che riconosce anche la nazionale,infatti:
CODICE ----------------------------------------------------------
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)
----------------------------------------------------------
Firenze 70 + 69 =49 Nazionale 77 + 62 =49
Alla Somma Comune Isotopa 49 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 66.69 Fi Nz 3/9
M 66 su Fi 1° colpo [8382/26.05.2011]
in corso (3° su 9)
G 2: AT 66.69 Fi Nz 3/9
in corso (3° su 9)
G 3: AT 66.69 Tu 3/9
in corso (3° su 9)
per quanto riguarda i numeri che vorresti inserire tu,dammi un po' di tempo per provare..intanto ti mando il Listato modificato con la Nazionale,eccolo:
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 12
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 12
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 |
|
.
Offline
Web