|
|
|
Salve a voi tutti,questo Listato si usa quando sortisce un Ambo Spia su ruota,e ricava una Terzina da giocare su 2 ruote,ottenuta con matematica sommativa. Tutti i valori possono essere cambiati come uno crede.In questo caso il listato fa' questi calcoli:
Ogni volta che esce l'Ambo Spia 1-2 a Bari,ricaviamo una Terzina, per Ambo e Terno,da giocare su Cagliari e Genova,calcolata in questo modo:
2°Estratto di Bari + fissi 5-38-88
CODICE Scrivi "Quando esce Ambo Spia su Ruota "
Sub main()
Dim rt(1),nu(2),ru(2),n3(3),ptt(3),rtt(1),rut(1)
ptt(2)=1 : ptt(3)=1
rtt(1)=11 : rut(1)=12
aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","1.2")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))
r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",1))
rt(1)=r1
rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","2.4")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1)) : ru(2)=CInt (q(2))
ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",1))
clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",13))
ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 1.7= 1^estr.di PA)","POS.-RUOTA","2.1")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))
ff=InputBox ("Digita i 3 Fissi da sommare all'estratto scelto","FISSI","5.38.88")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))
co=0
For es=6156 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n3(1)=Fuori90(a+f1) : n3(2)=Fuori90(a+f2) : n3(3)=Fuori90(a+f3)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" e "& SiglaRuota (ru(2))&" per "&clp&" colpi"
ImpostaGiocata 1,n3,ru,ptt,clp
If ts=1 Then
'ImpostaGiocata 2,n3,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 3,n3,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
End If
Next
ScriviResoconto
End Sub
|
|
.
Offline
Web