quote:Originally posted by joi_lotto
Questo è con l' inputbox così puoi
modificarlo a tuo piacimento
Scrivi "Quando esce L'Ambo Spia 45.90 a Palermo giochiamo 1 Cinquina, Sempre su PALERMO""By Blackmore"
Sub main()
Dim rt(1),nu(2),ru(2),n5(5),rut(1),pt(5),pta(1)
pta(1)=1 : pt(2)=1 : pt(3)=0.40 : pt(4)=0.05 : pt(5)=0.05
aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","45.90")
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",7))
rt(1)=r1
rr=InputBox ("Digita la ruota dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","7 QUI METTI LA RUOTA CHE VUOI, 1 SIGNIFICA BARI, 2 CAGLIARI ETC.. LA NAZIONALE È 12 ")
rr="0."&rr
q=Split(rr,".")
clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",10))
ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 3.1= 3^estr.di BA)","POS.-RUOTA","1.7")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))
ff=InputBox ("Digita i 5 Fissi da sommare all'estratto scelto","FISSI","22.33.51.75.76")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3)) : f4=CInt (h(4)) : f5=CInt (h(5))
co=0
For es=4200 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)
n5(1)=Fuori90(a+f1) : n5(2)=Fuori90(a+f2) : n5(3)=Fuori90(a+f3) : n5(4)=Fuori90(a+f4) : n5(5)=Fuori90(a+f5)
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&","&f4&","&f5&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" per "&clp&" colpi"
ImpostaGiocata 1,n5,rt,pt,clp
'ImpostaGiocata 1,n5,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 10,n5,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
Next
ScriviResoconto
End Sub
Blackmore