|
|
|
ciao
sono riuscito ha modificare il tuo listato orIginale ma c'e un problema !!!! il totale degli abbinamenti sono sempre 10 e invece dovrebbero essere 14
inserisco il listato magari tu capisci dove sbaglio
Sub main
Dim n1(2),n2(2),n3(3),n4(4),n5(5),n6(6),n7(7),n8(8),n9(9),n10(10),n11(11),n12(12),n13(13),n14(14),pt(2),rt(2),nn(2),pta(1)
pt(2)=1
pta(1)=1
clp=13 'colpi di gioco
rt(1)=3 '1a ruota di gioco
'rt(2)=7 '2a ruota di gioco
ini=EstrazioneFin -300
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,6,2)'<<--- questo è il 2^estr. di Napoli!!!
'------------------------------Ambate
nn(1)=(90-a)
nn(2)=(Vert(nn(1)))
'------------------------------1^ Ambo
n1(1)=nn(1)
n1(2)=14
'------------------------------2^ Ambo
n2(1)=nn(1)
n2(2)=17
'------------------------------3^ Ambo
n3(1)=nn(1)
n3(2)=20
'------------------------------4^ Ambo
n4(1)=nn(1)
n4(2)=23
'------------------------------5^ Ambo
n5(1)=nn(1)
n5(2)=71
'------------------------------6^ Ambo
n6(1)=nn(1)
n6(2)=87
'------------------------------7^ Ambo
n7(1)=nn(1)
n7(2)=45
'------------------------------8^ Ambo
n8(1)=nn(2)
n8(2)=14
'------------------------------9^ Ambo
n9(1)=nn(2)
n9(2)=17
'------------------------------10^ Ambo
n10(1)=nn(2)
n10(2)=20
'------------------------------11^ ambo
n11(1)=nn(2)
n11(2)=23
'------------------------------12^ ambo
n12(1)=nn(2)
n12(2)=71
'------------------------------13^ ambo
n13(1)=nn(2)
n13(2)=87
'------------------------------14^ ambo
n14(1)=nn(2)
n14(2)=45
ImpostaGiocata 1,nn,rt,pta,clp
ImpostaGiocata 2,n1,rt,pt,clp
ImpostaGiocata 3,n2,rt,pt,clp
ImpostaGiocata 4,n3,rt,pt,clp
ImpostaGiocata 5,n4,rt,pt,clp
ImpostaGiocata 6,n5,rt,pt,clp
ImpostaGiocata 7,n6,rt,pt,clp
ImpostaGiocata 8,n7,rt,pt,clp
ImpostaGiocata 9,n8,rt,pt,clp
ImpostaGiocata 10,n9,rt,pt,clp
ImpostaGiocata 11,n10,rt,pt,clp
ImpostaGiocata 12,n11,rt,pt,clp
ImpostaGiocata 13,n12,rt,pt,clp
ImpostaGiocata 14,n13,rt,pt,clp
ImpostaGiocata 15,n14,rt,pt,clp
Scrivi : ColoreTesto 2 : Scrivi " Metodo "" 2 Ambate a Firenze con Abbinamenti per Ambo "" ",1
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
INSERISCO ANCHE L'ESEMPIO
G 2: A 65.14 Fi 13/13
A 65.14 su Fi 4° colpo [8336/08.02.2011]
A 14.65 su Fi 12° colpo [8344/26.02.2011]
G 3: A 65.17 Fi 13/13
negativo
G 4: A 65.20 Fi 13/13
negativo
G 5: A 65.23 Fi 13/13
A 65.23 su Fi 12° colpo [8344/26.02.2011]
G 6: A 65.71 Fi 13/13
negativo
G 7: A 65.87 Fi 13/13
negativo
G 8: A 65.45 Fi 13/13
negativo
G 9: A 56.14 Fi 13/13
negativo
G 10: A 56.17 Fi 13/13
negativo
G 11: A 56.20 Fi 13/13
negativo
COME VEDI GLI ABBINAMENTI PER LA SECONDA AMBATA ARRIVANO SOLO AL 20 MANCANO 23,71,85,45
GRAZIE
|
|
.
Offline