B
Blackmore
Guest
Indice Mensile : 8° Estrazione del mese
Ruota di Gioco: Genova
Tipo di Gioco: 1 Ambata e 1 Ambo Secco
Colpi di Gioco: 6
AMBATA: Figura 5° Nazionale + 2° Napoli + 40
ABB. X AMBO: Vertibile 4° Torino + 1° Roma + 73
ATTENZIONE: IL VERTIBILE IN QUESTO CASO VIENE CALCOLATO ARITMETICAMENTE (SENZA IL FUORI90) QUANDO UN NUMERO FINISCE IN CADENZA 9...VEDERE LO SCRIPT
APPLICARE LA REGOLA DEL FUORI 90 SE NECESSARIO
GENOVA
AMBATA: 29
AMBO SECCO: 29 - 35
PER 6 COLPI
Ruota di Gioco: Genova
Tipo di Gioco: 1 Ambata e 1 Ambo Secco
Colpi di Gioco: 6
AMBATA: Figura 5° Nazionale + 2° Napoli + 40
ABB. X AMBO: Vertibile 4° Torino + 1° Roma + 73
ATTENZIONE: IL VERTIBILE IN QUESTO CASO VIENE CALCOLATO ARITMETICAMENTE (SENZA IL FUORI90) QUANDO UN NUMERO FINISCE IN CADENZA 9...VEDERE LO SCRIPT
APPLICARE LA REGOLA DEL FUORI 90 SE NECESSARIO
GENOVA
AMBATA: 29
AMBO SECCO: 29 - 35
PER 6 COLPI
Codice:
********************************************************* Caso n° 1
18.10.2011 [8444]
G 1: M 38 Ge 6/6
M 38 su Ge 6° colpo [8450/02.11.2011]
G 2: A 38.37 Ge 6/6
A 37.38 su Ge 6° colpo [8450/02.11.2011]
********************************************************* Caso n° 2
17.11.2011 [8457]
G 1: M 29 Ge 6/6
M 29 su Ge 2° colpo [8459/22.11.2011]
M 29 su Ge 3° colpo [8460/24.11.2011]
G 2: A 29.40 Ge 3/6
A 29.40 su Ge 3° colpo [8460/24.11.2011]
********************************************************* Caso n° 3
17.12.2011 [8470]
G 1: M 29 Ge 6/6
M 29 su Ge 6° colpo [8476/31.12.2011]
G 2: A 29.34 Ge 6/6
A 29.34 su Ge 6° colpo [8476/31.12.2011]
********************************************************* Caso n° 4
19.01.2012 [8484]
G 1: M 54 Ge 6/6
M 54 su Ge 2° colpo [8486/24.01.2012]
M 54 su Ge 6° colpo [8490/02.02.2012]
G 2: A 54.67 Ge 2/6
A 54.67 su Ge 2° colpo [8486/24.01.2012]
********************************************************* Caso n° 5
18.02.2012 [8497]
G 1: M 16 Ge 6/6
M 16 su Ge 2° colpo [8499/23.02.2012]
M 16 su Ge 6° colpo [8503/03.03.2012]
G 2: A 16.22 Ge 6/6
A 22.16 su Ge 6° colpo [8503/03.03.2012]
********************************************************* Caso n° 6
17.03.2012 [8509]
G 1: M 50 Ge 6/6
M 50 su Ge 1° colpo [8510/20.03.2012]
M 50 su Ge 6° colpo [8515/31.03.2012]
G 2: A 50.87 Ge 6/6
A 50.87 su Ge 6° colpo [8515/31.03.2012]SCRIPT
Codice:
Sub main()
Scrivi String (21," ")&"UN AMBATA E UN AMBO SECCO ALL' 8°ESTRAZIONE DEL MESE SU GENOVA : METODO BY BLACKMORE",1
Scrivi
Dim ruota(1),ambata(1),ambo(2),posta(1),poste(2)
posta(1)=1
poste(2)=1
es = InputBox("Scegli l'estrazione che vuoi analizzare? 0 ultima,:",,8)
rgioco = CInt(InputBox("SU CHE RUOTA VUOI GIOCARE?",,4))
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,90)
c = CInt(InputBox("QUANTI COLPI?",,6))
fin = EstrazioneFin
co=0
For n = fin - ini To fin
Messaggio(n)
If(((eval(es) = 0)And(n = ultest))Or((Indicemensile(n) = eval(es)And(eval(es) > 0))Or((Indicemensile(n + 1) = 1)And(eval(es) = 0))))Then
casi=casi+1
ruota(1)= rgioco
Scrivi String (90,"*")&" Caso n° "&casi,1
ColoreTesto 1: Scrivi DataEstrazione(n)&" - UN AMBATA E UN AMBO SECCO ALL' " & Indicemensile(n) & "° ESTRAZIONE DEL MESE SULLA RUOTA DI: "& NomeRuota(rgioco)
ColoreTesto 0
Scrivi String (90,"*"),1
co=co+1
'-------------------> CALCOLO DEL VERTIBILE
'-------------------> QUESTA REGOLA VIENE APPLICATA QUANDO SI PRESENTA UN NUMERO IN CADENZA 9
VertTO = Vert(Estratto(n,TO_,4))
If Cadenza(Estratto(n,TO_,4)) = Cadenza(9) Then VertTO = Decina(Estratto(n,TO_,4))
'-------------------> QUESTA REGOLA VIENE APPLICATA QUANDO SI PRESENTA UN NUMERO IN CADENZA 9
'/////////////////////////////////////////////////////////////////////////////////
ambata(1)= Fuori90(Figura(Estratto(n,NZ_,5)) + Estratto(n,NA_,2) + 40)
ImpostaGiocata 1,ambata,ruota,posta,c
'/////////////////////////////////////////////////////////////////////////////////
ambo(1)= Fuori90(Figura(Estratto(n,NZ_,5)) + Estratto(n,NA_,2) + 40)
ambo(2)= Fuori90(VertTO + Estratto(n,RO_,1) + 73)
ImpostaGiocata 2,ambo,ruota,poste,c,2
'/////////////////////////////////////////////////////////////////////////////////
Gioca n
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Ultima modifica:
Penso che la risposta esatta sia questa !
