'
https://forum.lottoced.com/threads/x-jai-jai-il-5-numero-x-tutte-le-stagioni.2190694/#post-2195169
'Utente Burdiga
' Formattazione Testo
tst=" ********** "
tst1="Dai numeri Isotopi Zerati nasce l'Ambo by Burdiga"
spc1=(90-Len(tst+tst1+tst))/2
tst2="...di Burdiga..."
spc2=(90-Len(tst+tst2+tst))/2
Scrivi Space(spc1)&tst&tst1&tst& Chr(10),1
Scrivi Space(spc2)&tst&tst2&tst& Chr(10),1
ColoreTesto 2 : Scrivi Space((90-Len("by Jai.Jai")))&"by Jai.Jai"& Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*")&"listato by Jai.Jai"& Chr(10),1
ColoreTesto 0
Scrivi "SPIEGAZIONE RIASSUNTIVA DEL METODO (Zerati by Burdiga):"
Scrivi
Scrivi "Prendere un estrazione qualsiasi. Trovare se in due Ruote sia presente un numero zerato isotopo. "
Scrivi "Sommare i numeri zerati isotopi ed aggiungere il fisso 5 con eventuale Fuori 90."
Scrivi
Scrivi "Esempio: Estrazione:gio 26.09.2019 Genova 31.05.41.80.72 / Milano 79.38.82.10.62 Numeri Zerati Isotopi rintracciati ==> 80.10 POSIZIONE:04"
Scrivi
Scrivi "Somma dei due numeri zerati Isotopi rintracciati su Genova e Milano con il fisso 5: 80+10+5:95 F90=5 "
Scrivi "Ambata principale:5 Ambata Secondaria:50 Abbinamenti:10.20.30.40.50.60.70.80.90 Esito: 4° Colpo 5 Ambata su Milano e Ambo Secco 5.90."
Scrivi
Scrivi "*****************************************************************************************************************"
Scrivi
Sub main()
Dim ruota(10)
Dim posta(5),poste(5)
Dim n(10),nu(10)
poste(2)=1
poste(3)=1
poste(4)=0.5
poste(5)=0.10
num=10
nu(1)=0
If Cadenza(num)=0 Then
nu(1)=10
End If
' Cadenza
nu(2)=nu(1)+10
nu(3)=nu(2)+10
nu(4)=nu(3)+10
nu(5)=nu(4)+10
nu(6)=nu(5)+10
nu(7)=nu(6)+10
nu(8)=nu(7)+10
nu(9)=nu(8)+10
posta(1)=1 '<-------- posta in gioco per ambata
k=13 '<-------- numero colpi
ini=9573 '<---- estrazione di inizio ricerca ( 6877 = 01-01-2019)
fin=EstrazioneFin '<---- estrazione finale di ricerca (EstrazioneFin= Ultima Estrazione in archivio alltrimenti indicare un numero))
For es=ini To fin '<------------------------------- ciclo estrazioni da controllare
For p=1 To 5 '<-------------------------------- ciclo posizione estratti prima ruota
For r=1 To 10 '<---------------------------- ciclo prima ruota
a=Estratto(es,r,p) '<------------------ estratto prima ruota
For rr=r+1 To 12 '<--------------------- ciclo seconda ruota
If rr=11 Then '<--------------------- controllo se la ruota è nazionale
rr=12
End If
b=Estratto(es,rr,p) '<------------- estratto secondo ruota
If Cadenza (a)=0 And Cadenza (b)=0 And Abs (r-rr)=1 Then '<--------------------- confronta se i due estratti sono zerati
ruota(1)=r ' <----- imposto prima ruota di gioco
ruota(2)=rr ' <----- imposto seconda ruota di gioco
'ruota(3)=11
n(1)=Fuori90 (a+b+5) ' somma numeri isotopi zerati e aggiunge il fisso 5
n(2)=Vert (n(1)) '
Scrivi "===================================================================="
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r)& " "& StringaEstratti(es,r)
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(rr)& " "& StringaEstratti(es,rr)
Scrivi "Numeri Zerati Isotopi rintracciati ==>"&Format2(a)&"."& Format2(b) & " POSIZIONE:" &Format2(p)
Scrivi "AMBATE:" & Format2 (n(1)) & "." & Format2 (n(2))
Scrivi "Abbinamenti:10.20.30.40.50.60.70.80.90"
nu(10)=n(1)
ImpostaGiocata 1,n,ruota,posta,k '<--- imposta la giocata ambata
ImpostaGiocata 2,nu,ruota,poste,k '<--- imposta la giocata x ambo 1 ambata
nu(10)=Vert (n(1))
ImpostaGiocata 3,nu,ruota,poste,k '<--- imposta la giocata x ambo 2 ambata
Gioca es '<----------------------------- gioca la formazione impostata
'End If
End If
Next
Next
Next
Next
ScriviResoconto
ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
End Sub