'
https://forum.lottoced.com/threads/x-sig-rob.2190390/#post-2193036
'Utente Burdiga
' Formattazione Testo
tst=" ********** "
tst1="Dal numero Isotopo nasce l'Ambata"
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:"
Scrivi
Scrivi "Prendere un estrazione qualsiasi. Trovare se in due Ruote sia presente un numero ripetuto isotopo. "
Scrivi "Sommare il 1° e 5° ed aggiungere il fisso 5 della 1° Ruota con eventuale Fuori 90."
Scrivi "Sommare il 1° e 5° ed aggiungere il fisso 5 della 2° Ruota con eventuale Fuori 90."
Scrivi
Scrivi "Esempio: Estrazione:26/09/2019 Firenze:12-24-48-11-72 / Napoli:81-23-84-57-46 Numero Isotopo rintracciato ==> 84 POSIZIONE:03"
Scrivi
Scrivi "Somma 1° e 5° Ruota di Firenze con il fisso 5"
Scrivi "Quoziente di 4 cifre. Ambata principale:15 Ambata Secondaria:25 1° Colpo 1° estratto."
Scrivi
Scrivi "*****************************************************************************************************************"
Scrivi
Sub main()
Dim ruota(10)
Dim posta(5)
Dim n(10)
posta(1)=1 '<-------- posta in gioco per ambata
k=13 '<-------- numero colpi
ini=9572 '<---- 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 a=b Then '<--------------------- confronta se i due estratti sono uguali
ruota(1)=r ' <----- imposto prima ruota di gioco
ruota(2)=rr ' <----- imposto seconda ruota di gioco
n(1)=Fuori90 (Fuori90 (Estratto(es,r,1)+Estratto(es,r,5))+5) ' somma 1° con 5° della 1° ruota
n(2)=Fuori90 (Fuori90 (Estratto(es,rr,1)+Estratto(es,rr,5))+5) ' somma 1° con 5° della 2° ruota
If n(1)<>n(2) Then
Scrivi "===================================================================="
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r)& " "& StringaEstratti(es,r)
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(rr)& " "& StringaEstratti(es,rr)
Scrivi "Numero Isotopo rintracciato ==>"&Format2(b) & " POSIZIONE:" &Format2(p)
Scrivi "AMBATE:" & Format2 (n(1)) & "." & Format2 (n(2))
ImpostaGiocata 1,n,ruota,posta,k,1 '<--- imposta la giocata
Gioca es '<----------------------------- gioca la formazione impostata
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub