R
Roby
Guest
salve a tutti cerco metodi sulla nazionale anche solo ambata grazie a tutti gli appassionati che potranno aiutarmi un saluto e grazie
venusia
venusia
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
< 1°estr. >31
< 2°estr. >49
< 3°estr. >32
< 4°estr. >39
< 5°estr. >13
< Somma estratti =164
sab 01.09.2007 [7797]
G 4: MA 30.42 Nz 11/12
M 30 su Nz 5° colpo [7802/13.09.2007]
M 30 su Nz 7° colpo [7804/18.09.2007]
in corso (11° su 12)
G 5: ATQ 30.42.28.29.66.67 Nz 11/12
A 28.29.67.30 su Nz 7° colpo [7804/18.09.2007]
T 28.29.67.30 su Nz 7° colpo [7804/18.09.2007]
Q 28.29.67.30 su Nz 7° colpo [7804/18.09.2007]
in corso (11° su 12)
G 6: TQ 30.42.28.29.66.67 Tu 11/12
T 67.66.29 su Tu (Ba) 6° colpo [7803/15.09.2007]
T 66.30.29 su Tu (Ca) 6° colpo [7803/15.09.2007]
in corso (11° su 12)
*****************************************************************
*********************************************
< 1°estr. >3
< 2°estr. >25
< 3°estr. >67
< 4°estr. >8
< 5°estr. >19
< Somma estratti =122
mar 04.09.2007 [7798]
G 4: MA 78.90 Nz 10/12
in corso (10° su 12)
G 5: ATQ 78.90.28.29.66.67 Nz 10/12
A 28.29.67 su Nz 6° colpo [7804/18.09.2007]
T 28.29.67 su Nz 6° colpo [7804/18.09.2007]
in corso (10° su 12)
G 6: TQ 78.90.28.29.66.67 Tu 10/12
T 67.66.29 su Tu (Ba) 5° colpo [7803/15.09.2007]
T 67.66.78 su Tu (Ca) 8° colpo [7806/22.09.2007]
in corso (10° su 12)
*****************************************************************
*********************************************
< 1°estr. >63
< 2°estr. >57
< 3°estr. >19
< 4°estr. >85
< 5°estr. >80
< Somma estratti =304
gio 06.09.2007 [7799]
G 4: MA 80.02 Nz 9/12
M 80 su Nz 2° colpo [7801/11.09.2007]
M 02 su Nz 3° colpo [7802/13.09.2007]
M 02 su Nz 6° colpo [7805/20.09.2007]
in corso (9° su 12)
G 5: ATQ 80.02.28.29.66.67 Nz 9/12
A 28.29.67 su Nz 5° colpo [7804/18.09.2007]
T 28.29.67 su Nz 5° colpo [7804/18.09.2007]
in corso (9° su 12)
G 6: TQ 80.02.28.29.66.67 Tu 9/12
T 67.66.29 su Tu (Ba) 4° colpo [7803/15.09.2007]
in corso (9° su 12)
*****************************************************************
*********************************************
< 1°estr. >5
< 2°estr. >87
< 3°estr. >23
< 4°estr. >8
< 5°estr. >11
< Somma estratti =134
sab 08.09.2007 [7800]
G 4: MA 90.12 Nz 8/12
in corso (8° su 12)
G 5: ATQ 90.12.28.29.66.67 Nz 8/12
A 28.29.67 su Nz 4° colpo [7804/18.09.2007]
T 28.29.67 su Nz 4° colpo [7804/18.09.2007]
in corso (8° su 12)
G 6: TQ 90.12.28.29.66.67 Tu 8/12
T 67.66.29 su Tu (Ba) 3° colpo [7803/15.09.2007]
in corso (8° su 12)
*****************************************************************
*********************************************
< 1°estr. >5
< 2°estr. >82
< 3°estr. >73
< 4°estr. >77
< 5°estr. >80
< Somma estratti =317
mar 11.09.2007 [7801]
G 4: MA 03.15 Nz 7/12
M 03 su Nz 2° colpo [7803/15.09.2007]
in corso (7° su 12)
G 5: ATQ 03.15.28.29.66.67 Nz 7/12
A 28.29.67 su Nz 3° co
Sub main()
Dim ruote1(12)
Dim ruote2(1)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1)=1
posta(2)=1
poste(2)=0.5
poste(3)=0.5
poste(4)=0.5
poste1(3)=0.5
poste1(4)=0.5
c=InputBox("Colpi Gioco?","Colpi di Gioco",12)
ruote1(12)=12
ruote2(1)=11
For n=EstrazioneFin-50 To EstrazioneFin
If IndiceMensile(n) Then
Scrivi
Scrivi String(65,"*")
ColoreTesto 2 : Scrivi " < metodo per la Nazionale>",1
ColoreTesto 0 : Scrivi String(45,"*")
ColoreTesto 2 : Scrivi " < 1°estr. >"& (Estratto(n,12,1))
ColoreTesto 2 : Scrivi " < 2°estr. >"& (Estratto(n,12,2))
ColoreTesto 2 : Scrivi " < 3°estr. >"& (Estratto(n,12,3))
ColoreTesto 2 : Scrivi " < 4°estr. >"& (Estratto(n,12,4))
ColoreTesto 2 : Scrivi " < 5°estr. >"& (Estratto(n,12,5))
ColoreTesto 2 : Scrivi " < Somma estratti ="& ((Estratto(n,12,1))+(Estratto(n,12,2))+(Estratto(n,12,3))+(Estratto(n,12,4))+(Estratto(n,12,5)))
numeri1(1)=Fuori90((Estratto(n,12,1))+(Estratto(n,12,2))+(Estratto(n,12,3))+(Estratto(n,12,4))+(Estratto(n,12,5)))
numeri1(1)=numeri1(1)
numeri1(2)=Vert(numeri1(1))
ImpostaGiocata 1,numeri1,ruote1,posta,c,0
numeri2(1)=numeri1(1)
numeri2(2)=Vert(numeri1(1))
numeri2(3)=28
numeri2(4)=29
numeri2(5)=66
numeri2(6)=67
ImpostaGiocata 2,numeri2,ruote1,poste,c,0
ImpostaGiocata 3,numeri2,ruote2,poste1,c,0
numeri3(1)=Fuori90(numeri1(1)+46)
numeri3(2)=Fuori90(numeri1(1)+58)
ImpostaGiocata 4,numeri3,ruote1,posta,c,0
numeri4(1)=Fuori90(numeri1(1)+46)
numeri4(2)=Fuori90(numeri1(1)+58)
numeri4(3)=28
numeri4(4)=29
numeri4(5)=66
numeri4(6)=67
ImpostaGiocata 5,numeri4,ruote1,poste,c,0
ImpostaGiocata 6,numeri4,ruote2,poste1,c,0
Gioca n
End If
Next
'ScriviResoconto 1
'ScriviResoconto
End Sub