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.
acquario51;n1903031 ha scritto:Che sfiga ragazzi stasera x un più 1 persi due ambi...ladri.oramai non c é più speranza tutto marcio e pilotato??
acquario51;n1903031 ha scritto:Che sfiga ragazzi stasera x un più 1 persi due ambi...ladri.oramai non c é più speranza tutto marcio e pilotato??
loreine z;n1902695 ha scritto:magari le due ambate 40 39 come ambo[/Q
sono uscite !
rainbow;n1894853 ha scritto:"
Alla 8^ estrazione mensile sulle ruote di bari e cagliari giocare la seguente previsione:
5°to+3°ve+27 (ambata)
1°ca+2°nz+25 (abbinamento ambo)
3°pa+5°ve+50 (abbinamento terno)
2°ca*4°to+24 (abbinamento quaterna)
3°ca+2°na+7 (abbinamento cinquina)"
Sub main()
Dim posta(5)
Dim pst(5)
Dim ruote(10)
Dim rt(10)
Dim ma(10)
Dim mb(10)
posta(1)=1 'posta ambata
pst(2)=1 'posta ambo
pst(3)=1 'posta terno
pst(4)=0.40
pst(5)=0.10
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",200)
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))'scelta colpi di gioco
fin=EstrazioneFin 'fine ricerca
ini=EstrazioneFin-rs 'inizio ricerca
For es=ini To fin
If IndiceMensile(es)=8 Then ' scelta indice mensile 8°=ottavo del mese
a=Estratto(es,9,5)
b=Estratto(es,10,3)
c=Estratto(es,2,1)
d=Estratto(es,NZ_,2)
e=Estratto(es,7,3)
f=Estratto(es,10,5)
g=Estratto(es,2,2)
h=Estratto(es,9,4)
z=Estratto(es,2,3)
zz=Estratto(es,6,2)
ColoreTesto 1 :Scrivi "------------------8°estrazione del mese---------------------------Metodo e listato del Barone di Aversa",1
ColoreTesto 2
co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&" "& SiglaRuota (BA_)&" "& StringaEstratti (es,1)&" - "& SiglaRuota (CA_)&" "& StringaEstratti (es,2)&" - "& SiglaRuota (FI_)&" "& StringaEstratti (es,3)&" <<calcolo previsione>>:-"
ColoreTesto 1:Scrivi"<<Ambata(5°TO+3° VE+27)Abbinamenti(1°CA+2° NZ+25)(3°PA+5°VE+50)(2°CA*4°TO+24)(3° CA+2° NA+7)>>"
Scrivi
i=Fuori90((a+b)+27) 'ambata
l=Fuori90((c+d)+25)'abbinamenti
m=Fuori90((e+f)+50)
n=Fuori90((g*h)+24)
o=Fuori90((z+zz)+7)
ruote(1)=1 'scelta ruota di gioco
ruote(2)=2
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5
rt(6)=6
rt(7)=7
rt(8)=8
rt(9)=9
rt(10)=10
ma(1)=i 'ambata in gioco
ImpostaGiocata 1,ma,ruote,posta,k
mb(1)=i
mb(2)=l
mb(3)=m
mb(4)=n
mb(5)=o
ImpostaGiocata 2,mb,ruote,pst,k
ImpostaGiocata 3,mb,rt,pst,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub