| Listato del metodo per Spaziometria o Lottodesk
'https://oltreillotto.forumfree.it/?t=78532405#lastpost
'https://enzob-metodieprevisioni.forumfree.it/?t=78532284#newpost
'https://image.forumfree.it/1/3/1/4/0/5/5/6/1623504459.jpg
'12-06-2021
ColoreTesto 2 :Scrivi String(37,32)&"Estratti in Decina 7 in 4° posiz. BARI-NAPOLI by Enzob",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10)
Dim m(10)
Dim ambo(2)
Dim cou1(6) ,cou2(6),cou3(7)
Dim ruote(10),ruota(1),ruota1(1)
Dim poste(5),posta(5),poste2(4),poste3(4)
posta(1) = 1
poste(2) = 1
fin = EstrazioneFin
ini = 9497
k=9 'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)
For r = 1 To 1
If r=11 Then r=12
For i = 4 To 4
a = Estratto(es,r,i)
For r2 = 6 To 6
If r2=11 Then r2=12
aa = Estratto(es,r2,i)
c= Distanza(aa,a)
If Decina(a) = 7 And Decina(aa) = 7 Then
nw1 = Fuori90(Estratto(es,r2,i)+40 ) 'ambata
nw2 = Fuori90(Estratto(es,r2,i)+4 ) 'bb
nw3 = 10'bb
nw4 =47 'bb
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r) & "..." & StringaEstratti(es,r) & "..." & SiglaRuota(r) & "..." & CInt(a),1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r2) & "..." & StringaEstratti(es,r2) & "..." & SiglaRuota(r2) & "..." & CInt(aa) ,1
ruote(1) = r
ruote(2) = r2
Messaggio " elaboro " & es
: co = 0
Scrivi String(85,"-") & Chr(10)
cou1(1) =nw1
ImpostaGiocata 1,cou1,ruote,posta,k
cou2(1) = nw1
cou2(2) = nw2
ImpostaGiocata 2,cou2,ruote,poste,k
cou2(1) = nw1
cou2(2) = nw3
ImpostaGiocata 3,cou2,ruote,poste,k
cou2(1) = nw1
cou2(2) = nw4
ImpostaGiocata 4,cou2,ruote,poste,k
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
|
